[23205] in Perl-Users-Digest
Perl-Users Digest, Issue: 5426 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Sep 2 03:05:46 2003
Date: Tue, 2 Sep 2003 00:05:09 -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, 2 Sep 2003 Volume: 10 Number: 5426
Today's topics:
Re: A few questions about Perl and it's capabilities <ben.goldberg@hotpop.com>
Re: Best practice: initialisation of variables <ben.goldberg@hotpop.com>
Help -- how to execute "computed Perl code" (Steve D)
Re: Help -- how to execute "computed Perl code" <jwillmore@cyberia.com>
Re: Help -- how to execute "computed Perl code" <jwillmore@cyberia.com>
Re: learning examples <krahnj@acm.org>
Re: Redirecting via LWP <mbudash@sonic.net>
Re: Replacing IP's in ./etc/hosts <krahnj@acm.org>
Re: Resend: using Getopt::Long with option value having <ben.goldberg@hotpop.com>
Re: Safely eval code from text file--suggestions? <ben.goldberg@hotpop.com>
Re: Sorting an array of hashes by 2 values <ben.goldberg@hotpop.com>
Trouble With IPC::Shareable <mooseshoes@gmx.net>
Re: Trouble With IPC::Shareable <ndronen@io.frii.com>
Re: Trouble With IPC::Shareable <mooseshoes@gmx.net>
Re: Trouble With IPC::Shareable <mooseshoes@gmx.net>
Re: Trouble With IPC::Shareable <jwillmore@cyberia.com>
Re: <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 01 Sep 2003 22:31:30 -0400
From: Benjamin Goldberg <ben.goldberg@hotpop.com>
Subject: Re: A few questions about Perl and it's capabilities
Message-Id: <3F540102.A0718093@hotpop.com>
Vlad Tepes wrote:
[snip]
> sub cursor($) {
> require Term::Cap;
> Term::Cap->Tgetent->Tputs( $_[0] ? 've' : 'vi', 0, *STDOUT );
> }
It would be more efficient to change this to:
my $cap;
sub cursor($) {
$cap ||= (require Term::Cap and Term::Cap->Tgetent);
$cap->Tputs( $_[0] ? 've' : 'vi', 0, *STDOUT );
}
I mean, why bother re-calling Tgetent each time you want to make the
cursor appear or dissappear?
--
$a=24;split//,240513;s/\B/ => /for@@=qw(ac ab bc ba cb ca
);{push(@b,$a),($a-=6)^=1 for 2..$a/6x--$|;print "$@[$a%6
]\n";((6<=($a-=6))?$a+=$_[$a%6]-$a%6:($a=pop @b))&&redo;}
------------------------------
Date: Mon, 01 Sep 2003 21:32:15 -0400
From: Benjamin Goldberg <ben.goldberg@hotpop.com>
Subject: Re: Best practice: initialisation of variables
Message-Id: <3F53F31F.B3F1DB6B@hotpop.com>
RA Jones wrote:
>
> This is a question about initialization of variables. Below is an
> extract of my code (using 'strict' & 'warnings' of course), and it's
> looking for changes in the submission form compared to existing data in
> a MySQL db:
>
> my %in = $q->Vars(); # stuff that comes in from the web-page
>
> my $ref = query_db(); # gets a hashref from MySQL db via DBI
>
> foreach( @field_names ) { # this array contains the db col names
> # initialization of variables line omitted here - see below
> if ($in{$_} ne $ref->{$_}) { # do something here, lets say:
> print "$_: IN='$in{$_}'; PREV='$ref->{$_}'\n";
> }
> }
Try this:
foreach( @field_names ) {
next if not defined $in{$_} and not defined $ref->{$_};
if( not defined $in{$_} ) {
print "$_: NO IN; PREV='$ref->{$_}'\n";
} elsif( not defined $ref->{$_} ) {
print "$_: IN='$in[$_}'; NO PREV\n";
} elsif( $in{$_} ne $ref->{$_} ) {
print "$_: IN='$in{$_}'; PREV='$ref->{$_}'\n";
}
}
[untested]
--
$a=24;split//,240513;s/\B/ => /for@@=qw(ac ab bc ba cb ca
);{push(@b,$a),($a-=6)^=1 for 2..$a/6x--$|;print "$@[$a%6
]\n";((6<=($a-=6))?$a+=$_[$a%6]-$a%6:($a=pop @b))&&redo;}
------------------------------
Date: 1 Sep 2003 18:41:31 -0700
From: google.deller@smsail.com (Steve D)
Subject: Help -- how to execute "computed Perl code"
Message-Id: <e41b2b3b.0309011741.317400a5@posting.google.com>
My code dynamically creates a scalar with a text string that is a
valid Perl code line.
How can I get Perl to execute the line contained in that scalar?
I could write it to a temp file and then "do <file>", but I want to
avoid that overhead. It does not seem eval and "do BLOCK" are the
answer.
Any good solutions?
Regards,
Steve D
Basic idea:
$x = "Send A message 13 ;" ;
# how can I execute $x to call (defined in a different module) the
subroutine:
# Send ($;@) {...}
Just putting
Send A message 13 ;
at the point of interest does run "Send", so visibility is not a
problem, at least at that point.
------------------------------
Date: Tue, 02 Sep 2003 02:54:28 GMT
From: James Willmore <jwillmore@cyberia.com>
Subject: Re: Help -- how to execute "computed Perl code"
Message-Id: <20030901225420.33104933.jwillmore@cyberia.com>
On 1 Sep 2003 18:41:31 -0700
google.deller@smsail.com (Steve D) wrote:
> My code dynamically creates a scalar with a text string that is a
> valid Perl code line.
>
> How can I get Perl to execute the line contained in that scalar?
>
> I could write it to a temp file and then "do <file>", but I want to
> avoid that overhead. It does not seem eval and "do BLOCK" are the
> answer.
>
> Any good solutions?
Not sure if this i what you're looking for or not:
==untested==
#!/usr/bin/perl -w
use strict;
#create a reference to a subroutine
#execute the system command 'ls' (Windows, it would be 'dir')
my $code = sub { system("ls") };
#call to the subroutine
$code->();
==untested==
You can apply this idea to whatever it is that you're doing.
HTH
Jim
---
Copyright notice: all code written by the author in this post is
considered GPL. http://gnu.org for more information.
---
a real quote ...
Linus Torvalids: "They are somking crack ...."
(http://www.eweek.com/article2/0,3959,1227150,00.asp)
---
a fortune quote ...
Surprise your boss. Get to work on time.
------------------------------
Date: Tue, 02 Sep 2003 03:30:19 GMT
From: James Willmore <jwillmore@cyberia.com>
Subject: Re: Help -- how to execute "computed Perl code"
Message-Id: <20030901233005.2ce3cef3.jwillmore@cyberia.com>
On Tue, 02 Sep 2003 02:54:28 GMT
James Willmore <jwillmore@cyberia.com> wrote:
> On 1 Sep 2003 18:41:31 -0700
> google.deller@smsail.com (Steve D) wrote:
> > My code dynamically creates a scalar with a text string that is a
> > valid Perl code line.
> > How can I get Perl to execute the line contained in that scalar?
> > I could write it to a temp file and then "do <file>", but I want
> > to avoid that overhead. It does not seem eval and "do BLOCK" are
> > the answer.
> > Any good solutions?
>
> Not sure if this i what you're looking for or not:
>
> ==untested==
> #!/usr/bin/perl -w
> use strict;
> #create a reference to a subroutine
> #execute the system command 'ls' (Windows, it would be 'dir')
> my $code = sub { system("ls") };
> #call to the subroutine
> $code->();
> ==untested==
>
> You can apply this idea to whatever it is that you're doing.
After I posted, I got to thinking (uh-oh). If you want to see other
examples of what I posted, take a look at the CGI module. Most, if
not all, the code is done the way you (I think) would like to do.
HTH
--
Jim
---
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
---
a real quote ...
Linus Torvalids: "They are somking crack ...."
(http://www.eweek.com/article2/0,3959,1227150,00.asp)
---
a fortune quote ...
Too often I find that the volume of paper expands to fill the
available briefcases. -- Governor Jerry Brown
------------------------------
Date: Tue, 02 Sep 2003 05:19:28 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: learning examples
Message-Id: <3F542850.92C3C684@acm.org>
Sam wrote:
>
> I am following an online study to learn Perl.
> I wrote my first 2 programs and run them but unable to find what's wrong
> with them.
> the first is as bellow it prints a "\n" in the output right after the $nmber
> so that converts to ... is on a new line. why?
>
> #!/usr/bin/perl -w
>
> use strict;
>
> print "please type a hexadecimal number\n";
>
> print "it should starts with 0x and ends with a character less than F: ";
^^^^^^^^^^^^^^^^^^^^^^^^
This is not true. '0x' is not required for hex() to work.
$ perl -le' print "$_ " . hex( $_ ) for qw( abcd 0xabcd ) '
abcd 43981
0xabcd 43981
> my $nmber= <STDIN>;
Input from STDIN will have a newline at the end of every line. You have
to remove it if you don't want it there.
chomp $nmber;
> print "\$$nmber converts to decimal number: ", hex("$nmber"), "\n";
^ ^
perldoc -q quoting
John
--
use Perl;
program
fulfillment
------------------------------
Date: Tue, 02 Sep 2003 06:58:01 GMT
From: Michael Budash <mbudash@sonic.net>
Subject: Re: Redirecting via LWP
Message-Id: <mbudash-1164EB.23580201092003@typhoon.sonic.net>
In article <bivpab$mhk@newton.cc.rl.ac.uk>,
"Bigus" <someone@somewhere.com> wrote:
> "Bigus" <someone@somewhere.com> wrote in message
> news:bivnb6$ovm@newton.cc.rl.ac.uk...
> > Hi
> >
> > I've written a script which performs some background authentication to
> > control access to a files directory on the web server. The final action in
> > the script, assuming the user authenticates correctly, is to take them to
> > the files directory. I do this with LWP.
> >
> > However, when they then go to click on a file it looks for it in the
> > cgi-bin, which of course is not where it is! How can I make it so that the
> > browser thinks it's in the intended directory rather than the cgi-bin?
>
> For info, here's the sub that does the redirect bit:
>
> sub gotofilearea()
> {
> $url = "http://mydomain.com/files/$listname/";
> use LWP::UserAgent;
> $ua = new LWP::UserAgent;
> $req = HTTP::Request->new(GET => $url);
> $req->authorization_basic("$listname", "password");
> $resp = $ua->request($req);
> $response = $resp->content;
> print "Content-type:text/html\n\n";
> print $response;
> exit;
> }
>
> Bigus
>
>
look into the <base href="..."> html tag, then do this:
$response = $resp->content;
$response =~
s{(</head>)}{<base href="http://mydomain.com/files/$listname/">$1}i;
it's what i do and it works like a champ.
--
Michael Budash
------------------------------
Date: Tue, 02 Sep 2003 04:54:51 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: Replacing IP's in ./etc/hosts
Message-Id: <3F54228A.AA4B7AF0@acm.org>
Alex wrote:
>
> I have several Sun boxes that get their ip via DHCP. Once in a while,
> when the ip's change, then I have to manually edit the /etc/hosts
> files on all the boxes to correlate with the new IP. This is kind of
> a hassle, so I wanted to use Perl to try and create a script that can
> do this automatically.
Have you thought about running DNS?
> I am new to Perl, and scripting for that
> matter, so I was hoping for some assistance. Here is what I have so
> far for a machine named Morphine:
>
> #!/usr/bin/perl -w
>
> $ip = `ifconfig hme0 | grep inet | cut -f 2 -d " "`;
>
> $ip_hostfile = `less /etc/hosts | grep Morphine | cut -f 1`;
Ick.
#!/usr/bin/perl -w
use strict;
use Socket;
my ( $ip ) = `ifconfig hme0` =~ /inet addr:\s*(\S+)/;
my $ip_hostfile = do {
my @temp;
while ( @temp = gethostent ) { $temp[0] =~ /Morphine/ and last }
inet_ntoa $temp[-1];
};
> print "The current ip is: $ip\n";
> print "The ip in /etc/hosts is: $ip_hostfile\n";
>
> if ($ip eq $ip_hostfile)
> {
> print "The ip's are the same. No changes made.\n";
> }
> else
> {
> print "The ip's are different, writing new ip to
> /etc/hosts\n";
> open(INPUT, "/etc/hosts");
> open(OUTPUT, ">/etc/newhosts");
>
> while (<INPUT>)
> {
> s/$ip_hostfile/$ip/g;
> print OUTPUT;
> }
>
> close(INPUT);
> close(OUTPUT);
> }
if ( $ip eq $ip_hostfile ) {
print "The ip's are the same. No changes made.\n";
exit 0;
}
print "The ip's are different, writing new ip to /etc/hosts\n";
( $^I, @ARGV ) = ( '.back', '/etc/hosts' );
while ( <> ) {
s/^\Q$ip_hostfile\E\b/$ip/;
print;
}
__END__
> Obviously, I haven't gotten to the part where I actually replace the
> newhosts file with the /etc/hosts file, because the replacement of the
> $ip_hostfile with the $ip is not working. It creates the new file,
> and populates it with the contents of the INPUT file, but the new ip
> doesn't get placed in the newhosts file. The ip that needs to be
> changed doesn't get changed, it stays the same value as in the INPUT
> file. However, what I have found is that in this line:
> s/$ip_hostfile/$ip/g, if I replace the variables with actual ip's,
> then the script works fine...the values are switched like they are
> supposed to. So the problem seems to be that the variables are not
> working in that line for some reason. The variables are initializing
> correctly, bacause the print statements correctly show the ip's. So,
> any help would be much appreciated.
First off, you don't need the /g modifier because you are only replacing
one thing and it has to be at the beginning of the line so you should
use ^ and contents of $ip_hostfile has dots which are special in regular
expressions so you have to quotemeta the variable and you should mark
the end of $ip_hostfile with \b so you get an exact match.
John
--
use Perl;
program
fulfillment
------------------------------
Date: Mon, 01 Sep 2003 21:23:07 -0400
From: Benjamin Goldberg <ben.goldberg@hotpop.com>
Subject: Re: Resend: using Getopt::Long with option value having spaces
Message-Id: <3F53F0FB.2B1DD7FE@hotpop.com>
Sunil wrote:
>
> All,
>
> I have a text file which has some metadata, like
> ----
> t1.pl -frwk=perl -mode=1 -args=a,b,c -comments="This is comment 1"
> t2.sql -frwk=sql -mode=2 -args=x -comments="This is comment 2"
> ----
>
> I need to read this file line by line and parse it to get the values of
> frwk, -mode and comments, so that I can create another string depending
> on the different values for this string and pass it on to the
> corresponding perl api I have which will execute it for me.
>
> I am stuck because I am not able to pass spaces as part of comments. Is
> there a workaround?
>
> I am doing something like the following.
> ####################################################
> my $eval_string = '@ARGV = qw (' . "$scriptOptions" . ' )' ;
> eval $eval_string;
Eww. What happens if $scriptOptions happens to contain a ")" in it?
Anyway, the proper solution would be to do:
use Text::ParseWords qw(shellwords);
@ARGV = shellwords($scriptOptions);
> GetOptions("fwk=s" => \$framework,
> "mode=s" => \$errMode,
> "args=s" => \@arguments,
> "comments=s" => \$comments );
This part is ok, though.
> ####################################################
>
> I am using GetOptions as in future the metadata file may have new or
> changed options.
--
$a=24;split//,240513;s/\B/ => /for@@=qw(ac ab bc ba cb ca
);{push(@b,$a),($a-=6)^=1 for 2..$a/6x--$|;print "$@[$a%6
]\n";((6<=($a-=6))?$a+=$_[$a%6]-$a%6:($a=pop @b))&&redo;}
------------------------------
Date: Mon, 01 Sep 2003 22:22:49 -0400
From: Benjamin Goldberg <ben.goldberg@hotpop.com>
Subject: Re: Safely eval code from text file--suggestions?
Message-Id: <3F53FEF9.F9701E91@hotpop.com>
JS Bangs wrote:
>
> All,
>
> I've got a module that will read an XML file that has code as the
> contents of some elements. I'd like to be able to capture this code as a
> code reference and pass that code reference to a function, without risking
> any internals. The following code works, but doesn't seem foolproof:
>
> # %code, $self, and $parse defined elsewhere
> if (exists $code{$_}) {
> my $c;
> my $code = '$c = sub {' . $parse->{$_} . '}';
>
> # Prevent $code from modifying in-scope variables we need to keep
> {
> local($self, $parse);
> eval $code;
> }
>
> if ($@) {
> err("Errors processing $_ : $@");
> }
> else {
> $self->$_($c);
> }
> }
>
> Suggestions very welcome.
use Safe;
if( exists $code{$_} ) {
(my $safe = Safe->new)->permit_only(qw(:default));
my $c = $safe->reval("return sub { $parse->{$_} }");
if ($@) {
err("Errors processing $_ : $@");
} else {
$self->$_($c);
}
}
[untested; might not *really* be Safe]
Actually, I know for a fact that in some versions of perl, you can do some
really odd things in spite of being inside of a Safe object. For example,
[Windows 95] C:\WINDOWS>perl -MSafe -wle "LOOP: { print 1; Safe->new->reval('last LOOP'); print 2 } print 3"
1
Exiting eval via last at (eval 2) line 2.
Exiting subroutine via last at (eval 2) line 2.
Exiting eval via last at (eval 2) line 2.
Exiting subroutine via last at (eval 2) line 2.
3
Can't return outside a subroutine.
Of course, since you've been wholly trusting the contents of $parse->{$_}
so far (meaning, *anything* could have been done in it's code), you wouldn't
be doing any *worse* to eval the code inside of a Safe object.
--
$a=24;split//,240513;s/\B/ => /for@@=qw(ac ab bc ba cb ca
);{push(@b,$a),($a-=6)^=1 for 2..$a/6x--$|;print "$@[$a%6
]\n";((6<=($a-=6))?$a+=$_[$a%6]-$a%6:($a=pop @b))&&redo;}
------------------------------
Date: Mon, 01 Sep 2003 21:50:31 -0400
From: Benjamin Goldberg <ben.goldberg@hotpop.com>
Subject: Re: Sorting an array of hashes by 2 values
Message-Id: <3F53F767.E0355FF5@hotpop.com>
Paul Tomlinson wrote:
[snip]
> > # Untested
> >
> >
> > @Stats = sort {$b->{Program}{Count} <=> $a->{Program}{Count} ||
> > $b->{Program}{Name} cmp $a->{Program}{Name}} @Stats;
>
> Thanks Bernard that kinda worked, however in the sort capital "X" comes
> BEFORE lowercase "a" which is not as I desire, is there anyway to get around
> this perculiarity? and have it listed as "A" ... "a" ... "B" ... "b" ....
> "X" ... "x"
@Stats = sort {$b->{Program}{Count} <=> $a->{Program}{Count} ||
uc($a->{Program}{Name}) cmp uc($b->{Program}{Name}) ||
$a->{Program}{Name} cmp $b->{Program}{Name}} @Stats;
--
$a=24;split//,240513;s/\B/ => /for@@=qw(ac ab bc ba cb ca
);{push(@b,$a),($a-=6)^=1 for 2..$a/6x--$|;print "$@[$a%6
]\n";((6<=($a-=6))?$a+=$_[$a%6]-$a%6:($a=pop @b))&&redo;}
------------------------------
Date: Tue, 02 Sep 2003 02:08:04 GMT
From: mooseshoes <mooseshoes@gmx.net>
Subject: Trouble With IPC::Shareable
Message-Id: <8YS4b.8672$UF7.723@newssvr27.news.prodigy.com>
All:
I have been using IPC::Shareable successfully to tie hashes to shared memory
and I have been experimenting with using it for a Perl script that has been
placed in my mod_perl scripts directory as part of some Apache-related
programming I'm doing.
When the script attempts to run as a call from an HTML page it fails and I
have been able to trace the error to the statement:
tie %hash, 'IPC::Shareable', $glue, { %options } or die "server: tie
failed\n";
Since I'm able to use the module successfully in other directories I am
curious if there is something I am overlooking.
Thanks in advance,
Moose
------------------------------
Date: 02 Sep 2003 03:53:42 GMT
From: Nicholas Dronen <ndronen@io.frii.com>
Subject: Re: Trouble With IPC::Shareable
Message-Id: <3f541445$0$62080$75868355@news.frii.net>
mooseshoes <mooseshoes@gmx.net> wrote:
m> All:
m> I have been using IPC::Shareable successfully to tie hashes to shared memory
m> and I have been experimenting with using it for a Perl script that has been
m> placed in my mod_perl scripts directory as part of some Apache-related
m> programming I'm doing.
m> When the script attempts to run as a call from an HTML page it fails and I
m> have been able to trace the error to the statement:
m> tie %hash, 'IPC::Shareable', $glue, { %options } or die "server: tie
m> failed\n";
Have you checked $! after tie fails?
Regards,
Nicholas
--
"Why shouldn't I top-post?" http://www.aglami.com/tpfaq.html
"Meanings are another story." http://www.ifas.org/wa/glossolalia.html
------------------------------
Date: Tue, 02 Sep 2003 04:55:55 GMT
From: mooseshoes <mooseshoes@gmx.net>
Subject: Re: Trouble With IPC::Shareable
Message-Id: <upV4b.10159$j%6.2715@newssvr25.news.prodigy.com>
<snip>
> Hum ... $! ... holds the latest OS error.
> I'm thinking that - your code is _not_ printing this wonderful
> variable - and what Nicholas was alluding to.
>
> For example:
> tie %hash, 'IPC::Shareable', $glue, { %options } or die "server: tie
> failed - $!\n";
>
> Notice the $! variable in the line.
>
> perldoc perlvar for more info
>
> HTH
<<< James, the output, including that of $! in this case would normally go
to the web page but the error message does not appear. Perhaps I am
missing your meaning.
Moose
------------------------------
Date: Tue, 02 Sep 2003 04:26:59 GMT
From: mooseshoes <mooseshoes@gmx.net>
Subject: Re: Trouble With IPC::Shareable
Message-Id: <n_U4b.10152$Om6.2860@newssvr25.news.prodigy.com>
<snip>
> Have you checked $! after tie fails?
<<< It doesn't print in the web page. I'll try running an eval on it and
capturing it somehow.
Moose
------------------------------
Date: Tue, 02 Sep 2003 04:47:23 GMT
From: James Willmore <jwillmore@cyberia.com>
Subject: Re: Trouble With IPC::Shareable
Message-Id: <20030902004712.25fede0f.jwillmore@cyberia.com>
On Tue, 02 Sep 2003 04:26:59 GMT
mooseshoes <mooseshoes@gmx.net> wrote:
> <snip>
> > Have you checked $! after tie fails?
>
> <<< It doesn't print in the web page. I'll try running an eval on
> it and capturing it somehow.
Hum ... $! ... holds the latest OS error.
I'm thinking that - your code is _not_ printing this wonderful
variable - and what Nicholas was alluding to.
For example:
tie %hash, 'IPC::Shareable', $glue, { %options } or die "server: tie
failed - $!\n";
Notice the $! variable in the line.
perldoc perlvar for more info
HTH
--
Jim
---
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
---
a real quote ...
Linus Torvalids: "They are somking crack ...."
(http://www.eweek.com/article2/0,3959,1227150,00.asp)
---
a fortune quote ...
"Today, of course, it is considered very poor taste to use the
F-word except in major motion pictures." -- Dave Barry,
"$#$%#^%!^%&@%@!"
------------------------------
Date: Sat, 19 Jul 2003 01:59:56 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re:
Message-Id: <3F18A600.3040306@rochester.rr.com>
Ron wrote:
> Tried this code get a server 500 error.
>
> Anyone know what's wrong with it?
>
> if $DayName eq "Select a Day" or $RouteName eq "Select A Route") {
(---^
> dienice("Please use the back button on your browser to fill out the Day
> & Route fields.");
> }
...
> Ron
...
--
Bob Walton
------------------------------
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 5426
***************************************
