[21772] in Perl-Users-Digest
Perl-Users Digest, Issue: 3976 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Oct 15 18:06:20 2002
Date: Tue, 15 Oct 2002 15:05:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 15 Oct 2002 Volume: 10 Number: 3976
Today's topics:
Re: !\n problem <pkent77tea@yahoo.com.tea>
Re: $variable as value in %hash <No_Mail_Address@cox.net>
Re: array of array? <usenet@dwall.fastmail.fm>
attr proposition: function call performed at compile ti <occitan@esperanto.org>
Re: http://lists.perl.org (slightly OT) <Tassilo.Parseval@post.rwth-aachen.de>
Is there a step function in perl (and if so what module <me@hotmail.com>
Re: Is there a step function in perl (and if so what mo <mike_constant@yahoo.com>
Re: Is there a step function in perl (and if so what mo <jhalpin@nortelnetworks.com_.nospam>
Re: Is there a step function in perl (and if so what mo <ak@freeshell.org.REMOVE>
Re: Is there a step function in perl (and if so what mo <ak@freeshell.org.REMOVE>
Re: Is there a step function in perl (and if so what mo <wsegrave@mindspring.com>
Re: Is there a step function in perl (and if so what mo <mjcarman@mchsi.com>
Re: Newbie question regarding system command <osoeder@gmx.de>
Re: Newbie question regarding system command <goldbb2@earthlink.net>
Re: OS interface <pkent77tea@yahoo.com.tea>
Perl Modules (Benling)
Perl recognize Javascript error??? (Mike)
Re: Perl to log into monster.com (Killerlou)
Re: Random Character Picker <nobody@dev.null>
Re: Random Character Picker <krahnj@acm.org>
Re: Random Character Picker <spam@stinks.com>
Re: Random Character Picker <goldbb2@earthlink.net>
system() && threads and chdir() && threads <occitan@esperanto.org>
Re: tee (=?ISO-8859-1?Q?Olivier_Bo=EBl?=)
Re: tee <usenet@dwall.fastmail.fm>
Re: tee (=?ISO-8859-1?Q?Olivier_Bo=EBl?=)
Re: Win32::OLE with IIS metabase <add@nrcan.gc.ca>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 15 Oct 2002 21:48:47 GMT
From: pkent <pkent77tea@yahoo.com.tea>
Subject: Re: !\n problem
Message-Id: <pkent77tea-141EEA.22484715102002@news-text.blueyonder.co.uk>
In article <oktgoa.emb.ln@moldev.cmagroup.co.uk>,
news@roaima.freeserve.co.uk wrote:
> pkent <pkent77tea@yahoo.com.tea> wrote:
> > perl -e 'for (0..1000) { print ($_%10?".":"|") }' | mail USER@HOSTNAME
...
> To be pedantic
<snip>
yeah, my bad. If I was testing sendmail I should have _piped to
sendmail_, not mail, as I did :-) When dealing with computers, being
pedantic is a good thing.
P
--
pkent 77 at yahoo dot, er... what's the last bit, oh yes, com
Remove the tea to reply
------------------------------
Date: Tue, 15 Oct 2002 20:28:12 GMT
From: Fred <No_Mail_Address@cox.net>
Subject: Re: $variable as value in %hash
Message-Id: <3DAC7A90.1AB51F03@cox.net>
Tad McClellan wrote:
>
> Fred <No_Mail_Address@cox.net> wrote:
>
> > I want to use today's date in a hash.
>
> > my %vars = (
> > title => 'friends_01',
> > date => 'date',
>
> date => scalar localtime,
>
> > );
>
> --
> Tad McClellan SGML consulting
Thank you Tad, works fine.
--
Fred
------------------------------
Date: Tue, 15 Oct 2002 21:32:11 -0000
From: "David K. Wall" <usenet@dwall.fastmail.fm>
Subject: Re: array of array?
Message-Id: <Xns92A8B263E5C3Edkwwashere@216.168.3.30>
Benjamin Goldberg <goldbb2@earthlink.net> wrote on 15 Oct 2002:
> This solution was inspired by both tassilo's and david's solutions, but
> I believe it to be simpler and more elegant.
You ain't kidding. I like it.
> my @data;
> while( <DATA> ) {
> chomp;
> my ($depth, $hasinfo) = /(\d+) \S+(\s?)/;
> my $dref = \@data;
> $dref = $dref->[-1] for 1 .. ($depth - 1) / 2;
This line...
> push @$dref, $_;
> push @$dref, [] if !$hasinfo;
and this one
> }
confused me at first glance, but now I'm almost as pleased with it as if
I'd thought of it myself. But not quite....
/me throws a paperwad at Benjamin
--
David K. Wall - usenet@dwall.fastmail.fm
"Oook."
------------------------------
Date: Wed, 16 Oct 2002 00:02:32 +0200
From: Daniel Pfeiffer <occitan@esperanto.org>
Subject: attr proposition: function call performed at compile time
Message-Id: <20021016000232.13f487f2.occitan@esperanto.org>
Hi,
use and sub have magic, which could well be generalized with a builtin sub attr:
sub mysub : begin { ... }
Then, whenever mysub is called, it would be performed at compile time. I would have found this useful at various times, including my current project:
I give the user a function for defining a function that does special things besides calling his code block. But he can't use it normally, unless calling my function within a BEGIN { ... }.
coralament / best Grötens / liebe Grüße / best regards / elkorajn salutojn
Daniel Pfeiffer
--
-- http://dapfy.bei.t-online.de/sawfish/
--
------------------------------
Date: 15 Oct 2002 18:10:17 GMT
From: "Tassilo v. Parseval" <Tassilo.Parseval@post.rwth-aachen.de>
Subject: Re: http://lists.perl.org (slightly OT)
Message-Id: <aohlm9$16c$1@nets3.rz.RWTH-Aachen.DE>
Also sprach Rocco Caputo:
> On 15 Oct 2002 14:46:16 GMT, Tassilo v. Parseval wrote:
>>
>> anyone has an idea what happened to lists.perl.org? It doesn't appear to
>> be accessible (at least not since yesterday). This is a little bit
>> unfortunate since I intended to subscribe to the perl-xs mailing list and
>> now can't find the necessary data (subscription address and so on).
>
> Nearly all of the mailing lists at perl.org respond to a blank message
> to <listname-help@perl.org>.
Apparenty except perl-xs. :-( That was the address I sent the other mail
to in the first place.
> Also check if your newsfeed has a perl.xs newsgroup.
Also negative. But there is nntp.perl.org, as I just discovered. A
newsserver dedicated to Perl...I finally found heaven. ;-)
Thanks for pointing me to the news-approach. Much better than a mails!
Tassilo
--
$_=q!",}])(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus;})(rekcah{lrePbus;})(lreP{rehtonabus;})(rehtona{tsuJbus!;
$_=reverse;s/sub/(reverse"bus").chr(32)/xge;tr~\n~~d;eval;
------------------------------
Date: Tue, 15 Oct 2002 21:27:00 +0100
From: "Paul Tomlinson" <me@hotmail.com>
Subject: Is there a step function in perl (and if so what module is it in?)
Message-Id: <aohtn8$mj9k1$1@ID-116287.news.dfncis.de>
Is there a step function in perl (and if so what module is it in?)
I want to do something like
for ($i = 0; $i <= 100, step 5)
{
print $i;
}
Any ideas???
------------------------------
Date: Tue, 15 Oct 2002 13:39:08 -0700
From: "Newbie" <mike_constant@yahoo.com>
Subject: Re: Is there a step function in perl (and if so what module is it in?)
Message-Id: <aohudd$mj0ma$1@ID-161864.news.dfncis.de>
"Paul Tomlinson" <me@hotmail.com> wrote in message
news:aohtn8$mj9k1$1@ID-116287.news.dfncis.de...
> Is there a step function in perl (and if so what module is it in?)
>
> I want to do something like
>
> for ($i = 0; $i <= 100, step 5)
>
> {
>
> print $i;
>
> }
>
>
>
> Any ideas???
What's wrong with this?
for (my $i = 0; $i <= 100; $i += 5) {
print $i, "\n";
}
------------------------------
Date: 15 Oct 2002 15:45:27 -0500
From: Joe Halpin <jhalpin@nortelnetworks.com_.nospam>
Subject: Re: Is there a step function in perl (and if so what module is it in?)
Message-Id: <yxs7adlfmnx4.fsf@nortelnetworks.com_.nospam>
"Paul Tomlinson" <me@hotmail.com> writes:
> Is there a step function in perl (and if so what module is it in?)
>
> I want to do something like
>
> for ($i = 0; $i <= 100, step 5)
>
> {
> print $i;
> }
#!/usr/bin/perl -w
use strict;
for(my $i = 0; $i <= 100; $i += 5)
{
print "i = $i\n";
}
Joe
------------------------------
Date: Tue, 15 Oct 2002 21:11:35 -0000
From: Andreas =?iso-8859-1?Q?K=E4h=E4ri?= <ak@freeshell.org.REMOVE>
Subject: Re: Is there a step function in perl (and if so what module is it in?)
Message-Id: <slrnaqp141.jp0.ak@otaku.freeshell.org>
Submitted by "Paul Tomlinson" to comp.lang.perl.misc:
> Is there a step function in perl (and if so what module is it in?)
>
> I want to do something like
>
> for ($i = 0; $i <= 100, step 5)
>
> {
>
> print $i;
>
> }
>
>
>
> Any ideas???
>
>
>
for (my $i = 0; $i <= 100; $i += 5) {
print($i, "\n");
}
This will run 21 times through the loop.
--
Andreas Kähäri @ New Zealand +------ Have a Unix: netbsd.org
-----------------------------+------ This post ends with :wq
------------------------------
Date: Tue, 15 Oct 2002 21:26:55 -0000
From: Andreas =?iso-8859-1?Q?K=E4h=E4ri?= <ak@freeshell.org.REMOVE>
Subject: Re: Is there a step function in perl (and if so what module is it in?)
Message-Id: <slrnaqp20p.jp0.ak@otaku.freeshell.org>
Submitted by "Michael Carman" to comp.lang.perl.misc:
> On 10/15/02 3:27 PM, Paul Tomlinson wrote:
>
>> Is there a step function in perl (and if so what module is it in?)
>>
>> I want to do something like
>>
>> for ($i = 0; $i <= 100, step 5)
>
> No, but you can use an explicit C-style loop:
>
> for (my $i = 0; $i <= 100, $i += 5)
>
s/,/;/
--
Andreas Kähäri @ New Zealand +------ Have a Unix: netbsd.org
-----------------------------+------ This post ends with :wq
------------------------------
Date: Tue, 15 Oct 2002 16:57:40 -0500
From: "William Alexander Segraves" <wsegrave@mindspring.com>
Subject: Re: Is there a step function in perl (and if so what module is it in?)
Message-Id: <aoi32t$juu$1@nntp9.atl.mindspring.net>
"Paul Tomlinson" <me@hotmail.com> wrote in message
news:aohtn8$mj9k1$1@ID-116287.news.dfncis.de...
> Is there a step function in perl (and if so what module is it in?)
>
> I want to do something like
>
> for ($i = 0; $i <= 100, step 5)
>
> {
>
> print $i;
>
> }
>
>
>
> Any ideas???
You've seen several ways. Here's another.
perl -e "for (0..20){print 5 * $_, \"\n\"}"
Bill Segraves
------------------------------
Date: Tue, 15 Oct 2002 15:39:10 -0500
From: Michael Carman <mjcarman@mchsi.com>
Subject: Re: Is there a step function in perl (and if so what module is it in?)
Message-Id: <aohudg$6ol1@onews.collins.rockwell.com>
On 10/15/02 3:27 PM, Paul Tomlinson wrote:
> Is there a step function in perl (and if so what module is it in?)
>
> I want to do something like
>
> for ($i = 0; $i <= 100, step 5)
No, but you can use an explicit C-style loop:
for (my $i = 0; $i <= 100, $i += 5)
-mjc
------------------------------
Date: Tue, 15 Oct 2002 20:35:24 +0200
From: Oliver =?iso-8859-1?Q?S=F6der?= <osoeder@gmx.de>
Subject: Re: Newbie question regarding system command
Message-Id: <3DAC5FEC.58E1B390@gmx.de>
Benjamin Goldberg wrote:
> test wrote:
> >
> > Hi, Is it possible for me to write a perl script that will ping number
> > a host and based on the outcome certain parts of the script will be
> > executed. For eaxmple:
> > $t=system('ping 192.168.1.1');
> > If (system is alive or ping works)
> > {
> > than do something
> > }
> > else
> > {
> > print out host is not up
> > }
> >
> > Can i do this in perl?
>
> Either Net::Ping which comes with perl, or Net::Ping::External or
> POE::Component::Client::Ping from CPAN.
>
> --
> my $n = 2; print +(split //, 'e,4c3H r ktulrnsJ2tPaeh'
> ."\n1oa! er")[map $n = ($n * 24 + 30) % 31, (42) x 26]
Yes it is possible, and it's so easy, that you just have to turn on your
brain.
Read s th about process handles, may be it is not the simplest way, but it
works.
open(PING, "ping www.starttothink.com");
Now you are able to work with PING, you can edit it.
Oliver Söder
------------------------------
Date: Tue, 15 Oct 2002 14:52:06 -0400
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Newbie question regarding system command
Message-Id: <3DAC63D6.DC02BBE9@earthlink.net>
Oliver Söder wrote:
>
> Benjamin Goldberg wrote:
>
> > test wrote:
> > >
> > > Hi, Is it possible for me to write a perl script that will ping
> > > number a host and based on the outcome certain parts of the script
> > > will be executed. For eaxmple:
> > > $t=system('ping 192.168.1.1');
> > > If (system is alive or ping works)
> > > {
> > > than do something
> > > }
> > > else
> > > {
> > > print out host is not up
> > > }
> > >
> > > Can i do this in perl?
> >
> > Either Net::Ping which comes with perl, or Net::Ping::External or
> > POE::Component::Client::Ping from CPAN.
>
> Yes it is possible, and it's so easy, that you just have to turn on
> your brain.
>
> Read s th about process handles, may be it is not the simplest way,
> but it works.
>
> open(PING, "ping www.starttothink.com");
This opens a file named "ping www.starttothink.com" for reading.
It does not start a ping process.
Furthermore, different ping programs produce different output -- it
depends on your system.
Do you really want to have to figure out what format your system's ping
produces?
If you use Net::Ping::External, it will start an external program *but*
it has special OS-specific code for various systems, and it *already
knows* what kind of output your system's ping produces.
--
my $n = 2; print +(split //, 'e,4c3H r ktulrnsJ2tPaeh'
."\n1oa! er")[map $n = ($n * 24 + 30) % 31, (42) x 26]
------------------------------
Date: Tue, 15 Oct 2002 22:01:33 GMT
From: pkent <pkent77tea@yahoo.com.tea>
Subject: Re: OS interface
Message-Id: <pkent77tea-BCC1E9.23013315102002@news-text.blueyonder.co.uk>
In article <1034683107.3214@intranet.consol.de>,
Frank Winkler - Sun Germany - Enterprise Services
<frank.winkler@sun.com> wrote:
> Does anybody know a module which provides an interface to OS specific
> information like "ps" or "df"? I want to prevent explicitly opening a
> command pipe to keep it portable ...
when it comes down to it that sort of information is about the _most_ OS
specific information you can get. OTOH trying to avoid opening a pipe
yourself is wise. Naturally, it depends what you want to do with the
information, but even the idea of a process listing is not totally
portable across all systems. Things are more standard if you're on a
Unix-like system, or a POSIX-compliant system - but throw Plan9 or MacOS
in there and some assumptions no longer hold.
So the big question is: how portable does this need to be?
Looking on CPAN the answer, for ps(1), seems to be no. There _are_ OS
specific modules there (look for 'process' in the module name), but not
a generic one.
For df, there are unixish solutions, but nothing generic, looking for
'disk'. Could be a gap in the market there :-)
P
--
pkent 77 at yahoo dot, er... what's the last bit, oh yes, com
Remove the tea to reply
------------------------------
Date: 15 Oct 2002 14:17:34 -0700
From: benlingcai@hotmail.com (Benling)
Subject: Perl Modules
Message-Id: <79984201.0210151317.15c85a39@posting.google.com>
I need to port some perl scripts to AS/400. These are the modules
needed for the scripts. Could someone please let me know where I can
find the AS/400 downloans for them?
Here are the 4 perl modules (and their url's) you requested:
1. http://www.perl.com/CPAN-local/modules/by-module/LWP/ (click on
libwww-perl-5.10.tar.gz module)
2. http://www.perl.com/CPAN-local/modules/by-module/MD5/ (click
on MD5-1.7.tar.gz module)
3. http://www.perl.com/CPAN-local/modules/by-module/MIME/ (click
on MIME-Base64-2.12.tar.gz module)
4. http://www.perl.com/CPAN-local/modules/by-module/Net/ (click on
libnet-1.0704.tar.gz module)
Thanks so much,
Benling
------------------------------
Date: 15 Oct 2002 14:56:22 -0700
From: csdude@hotmail.com (Mike)
Subject: Perl recognize Javascript error???
Message-Id: <46cdc619.0210151356.75747ae7@posting.google.com>
Hey guys,
OK, I'm 90% sure I know the answer to this one, but I'm posting it
anyway JUST in case.
I'm using free content providers on my homepage, and I'm using a Perl
program as an SSI include to rotate them (the content is saved in flat
.dat files, and I'm just using "open THIS, 'whatever' " to show the
.dat file). These content providers generally have me link to them
with <script language="javascript" src="whatever">, and occassionally
the provider will be down or something, and all I get is a Javascript
error and no content (which really screws up the appearance of the
page, and my visitors think that I'm the one that did something
wrong).
Now, I've always figured that there's nothing I can really do about
it, but I'm curious if I'm overlooking anything. Is there any possible
way that Perl can recognize if it's getting a Javascript error? I
doubt it, since Perl's server-side and Javascript is client-side, but
has anyone figured out a way around this particular problem?
If not, I figured I could rewrite the program so that I'm no longer
using .dat files, then I can use an if-else to check if the file
exists, but even that's not fool-proof, and I'd hate to have such a
huge program just to hold the same information that my .dat files hold
now. TMTOWTDI, though, so that's sort of my last option.
TIA,
Mike
------------------------------
Date: 15 Oct 2002 11:23:49 -0700
From: lou@writeme.com (Killerlou)
Subject: Re: Perl to log into monster.com
Message-Id: <459f30dc.0210151023.193b56fb@posting.google.com>
helgi@decode.is (Helgi Briem) wrote in message news:<3dabe0f8.341915788@news.cis.dfn.de>...
> On 14 Oct 2002 22:54:21 -0700, lou@writeme.com (Killerlou)
> wrote:
>
> >I don't want to repeat what has already been done.
> >Is there a perl script out there that will login to a monster.com account and
> >make a small change to a resume and log out again. I want to automate
> >refreshing my resume every so often.
>
> use LWP::UserAgent;
>
> http://perldoc.com/perl5.8.0/lib/LWP/UserAgent.html
Thanks.
------------------------------
Date: Tue, 15 Oct 2002 18:20:44 GMT
From: Andras Malatinszky <nobody@dev.null>
Subject: Re: Random Character Picker
Message-Id: <3DAC5CC4.6010105@dev.null>
PinkPuppy wrote:
> I'd like to write a script that generated a specified number of random
> characters. I want to be able to specify which characters to choose from.
First stuff your characters in an @array, then use the answer to the
following FAQ:
How do I select a random element from an array?
Use the rand() function (see the rand entry in the perlfunc
manpage):
# at the top of the program:
srand; # not needed for 5.004 and later
# then later on
$index = rand @array;
$element = $array[$index];
Make sure you *only call srand once per program, if then*. If
you are calling it more than once (such as before each call to
rand), you're almost certainly doing something wrong.
------------------------------
Date: Tue, 15 Oct 2002 19:56:36 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: Random Character Picker
Message-Id: <3DAC72C7.8D37D161@acm.org>
PinkPuppy wrote:
>
> I'd like to write a script that generated a specified number of random
> characters. I want to be able to specify which characters to choose from.
> Can someone show me some simple sample code that does something like this?
my @characters = map chr, 0 .. 255;
my $random_character = $characters[rand @characters];
John
--
use Perl;
program
fulfillment
------------------------------
Date: Tue, 15 Oct 2002 20:29:45 GMT
From: "PinkPuppy" <spam@stinks.com>
Subject: Re: Random Character Picker
Message-Id: <YU_q9.538$XsJ4.13238393@news2.randori.com>
Excellent! thanks to both of you.
"John W. Krahn" <krahnj@acm.org> wrote in message
news:3DAC72C7.8D37D161@acm.org...
> PinkPuppy wrote:
> >
> > I'd like to write a script that generated a specified number of random
> > characters. I want to be able to specify which characters to choose
from.
> > Can someone show me some simple sample code that does something like
this?
>
> my @characters = map chr, 0 .. 255;
> my $random_character = $characters[rand @characters];
>
>
> John
> --
> use Perl;
> program
> fulfillment
>
------------------------------
Date: Tue, 15 Oct 2002 17:33:09 -0400
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Random Character Picker
Message-Id: <3DAC8995.2516A5E4@earthlink.net>
John W. Krahn wrote:
>
> PinkPuppy wrote:
> >
> > I'd like to write a script that generated a specified number of
> > random characters. I want to be able to specify which characters to
> > choose from.
> > Can someone show me some simple sample code that does something like
> > this?
>
> my @characters = map chr, 0 .. 255;
> my $random_character = $characters[rand @characters];
That's just plain silly.
my $random_character = chr rand 256;
--
my $n = 2; print +(split //, 'e,4c3H r ktulrnsJ2tPaeh'
."\n1oa! er")[map $n = ($n * 24 + 30) % 31, (42) x 26]
------------------------------
Date: Tue, 15 Oct 2002 22:06:03 +0200
From: Daniel Pfeiffer <occitan@esperanto.org>
Subject: system() && threads and chdir() && threads
Message-Id: <20021015220603.26edcc11.occitan@esperanto.org>
Hi,
In the omniORB list there was some (not Perl-related) discussion about the potential incompatibility of system() and threads. <http://www.omniorb-support.com/pipermail/omniorb-list/2002-October/021973.html>
It seems to work in Perl 5.8, but is this guaranteed to be portable (at least on Unices)?
Likewise chdir() seems to affect all threads. From a system point of view, this seems understandable, but it is very disruptive, since you don't generally know when which thread will attempt a filesystem op. Is that (don't use chdir unless you're completely sure what you're doing) the price to pay with threads?
coralament / best Grötens / liebe Grüße / best regards / elkorajn salutojn
Daniel Pfeiffer
--
-- http://dapfy.bei.t-online.de/sawfish/
--
------------------------------
Date: 15 Oct 2002 11:48:15 -0700
From: oboel@dorrboel.com (=?ISO-8859-1?Q?Olivier_Bo=EBl?=)
Subject: Re: tee
Message-Id: <e8f69cf.0210151048.168a2841@posting.google.com>
Bernard,
Thank you for the hint.
However, I'd like not to change my Perl scripts.
Is there any way to leave my programs unchanged and still achieve this result?
TIA,
Olivier
------------------------------
Date: Tue, 15 Oct 2002 19:17:45 -0000
From: "David K. Wall" <usenet@dwall.fastmail.fm>
Subject: Re: tee
Message-Id: <Xns92A89B994596Adkwwashere@216.168.3.30>
Olivier Boël <oboel@dorrboel.com> wrote on 15 Oct 2002:
> Thank you for the hint.
> However, I'd like not to change my Perl scripts.
> Is there any way to leave my programs unchanged and still achieve this
> result?
Program doesn't do X.
Program remains unchanged.
Program still doesn't do X.
What do you think?
--
David K. Wall - usenet@dwall.fastmail.fm
"Oook."
------------------------------
Date: 15 Oct 2002 12:26:27 -0700
From: oboel@dorrboel.com (=?ISO-8859-1?Q?Olivier_Bo=EBl?=)
Subject: Re: tee
Message-Id: <e8f69cf.0210151126.435a8538@posting.google.com>
Bernard,
I finally found a solution (probably not the best) :
# perl -e '$|=1; do "mytest.pl"' | tee log
It seems to work so far.
Thanks for your help,
Olivier
------------------------------
Date: Tue, 15 Oct 2002 14:40:47 -0400
From: add <add@nrcan.gc.ca>
Subject: Re: Win32::OLE with IIS metabase
Message-Id: <3DAC612F.960FA348@nrcan.gc.ca>
Thanks anyway,
I made it work like this from the command prompt:
########################
use Win32::OLE;
use OLE;
print "Content-type: text/html\n\n";
$websvc = Win32::OLE->GetObject("IIS://localhost/W3SVC/3") || print
Win32::OLE->LastError;
print $websvc->{"ServerComment"};
exit;
########################
It did return me the root directory of that website. But if I try it from the
browser, then I receive an "Access Denied" error. I believe it's a permission
problem, so I'll investigate into that.
Thanks!
Aaron Simmons wrote:
> Hello!
>
> I had difficulties with this at first too. Here's a summary of working code
> that adds virtual roots and changes different properties:
>
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 3976
***************************************
