[22784] in Perl-Users-Digest
Perl-Users Digest, Issue: 5005 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon May 19 11:05:39 2003
Date: Mon, 19 May 2003 08:05:11 -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 Mon, 19 May 2003 Volume: 10 Number: 5005
Today's topics:
Re: A script that can (conditionally) return 3 differen (A Epstein)
Re: A script that can (conditionally) return 3 differen <tassilo.parseval@rwth-aachen.de>
can't open perl script ??? <thron@sundr.at>
Re: compile error for Time-HoRes-1.47 using perl 5.8.0 (Eric)
Re: find and replace script... please help. (Helgi Briem)
Re: gotta be a better way (rab)
Re: How do I pop this? (Tad McClellan)
Locate a module (Ryan)
Re: Locate a module <res1uzbe@verizon.net>
Re: Locate a module <wksmith@optonline.net>
Re: making scalar variables from array elements, put in (bryan)
Re: multiple sort subroutine (Tad McClellan)
Re: multiple sort subroutine (Veky)
Re: novice programmer <anthony_r_au@yahoo.com.au>
Re: Paths relative to a module (Anno Siegel)
Re: Paths relative to a module <res1uzbe@verizon.net>
Re: Process Multiple Files ? (Veky)
tail -f or equivalent <spp@monaco377.com>
Re: tail -f or equivalent <w.koenig@acm.org>
Re: why key is added to hash after defined ? (Veky)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 19 May 2003 06:48:12 -0700
From: epstein_asaf@emc.com (A Epstein)
Subject: Re: A script that can (conditionally) return 3 different exit codes
Message-Id: <a82b1086.0305190548.17432745@posting.google.com>
inwap@inwap.com (Joe Smith) wrote in message news:<VjIxa.17733$io.348390@iad-read.news.verio.net>...
> In article <a82b1086.0305161309.671dd53a@posting.google.com>,
> A Epstein <epstein_asaf@emc.com> wrote:
> >I mean do I just have to go through my code and add a bunch of 'or die
> >"..."' statements to every place I can concieve a failure might happen?
>
> Yes.
>
> If you are observering good programming practices, then your code
> should already have "or die" everywhere a failure can occur.
> -Joe
I understand people. You all make good points and I was being a bit
vague in my question. My program's concept is simple. It takes files
on the command line, does some paring and grammer checking, prints
errors if any.
all goes well, exit 0 - easy.
a syntax error in the file that is detected by the parser, exit 1 -
easy.
otherwise, exit 2 - less easy.
now, i do check if the files exist, have content, and have read
permission. if not, i exit with code 2. but as far as anything that
kills the program when it runs that i cannot anticipate, i don't know.
let me ask it this way, if something system-related kills the program,
can i make sure that i at least control the exit code in that case?
do i have to just think of a lot of signals and trap them?
thanks...
------------------------------
Date: 19 May 2003 13:53:02 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: A script that can (conditionally) return 3 different exit codes
Message-Id: <baanju$8qq$1@nets3.rz.RWTH-Aachen.DE>
Also sprach A Epstein:
> I understand people. You all make good points and I was being a bit
> vague in my question. My program's concept is simple. It takes files
> on the command line, does some paring and grammer checking, prints
> errors if any.
> all goes well, exit 0 - easy.
> a syntax error in the file that is detected by the parser, exit 1 -
> easy.
> otherwise, exit 2 - less easy.
> now, i do check if the files exist, have content, and have read
> permission. if not, i exit with code 2. but as far as anything that
> kills the program when it runs that i cannot anticipate, i don't know.
> let me ask it this way, if something system-related kills the program,
> can i make sure that i at least control the exit code in that case?
> do i have to just think of a lot of signals and trap them?
If something system-related kills your program, it will most certainly
be a signal. SIGKILL and SIGSTOP are not trappable but you can write
handlers for all the others and do an 'exit 2' in them.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Mon, 19 May 2003 13:02:52 +0200
From: "throni" <thron@sundr.at>
Subject: can't open perl script ???
Message-Id: <3ec8b98f$0$14746$91cee783@newsreader02.highway.telekom.at>
Hallo,
ich habe folgendes Problem:
wenn ich mein CGI Script "allform.pl" aufrufe, bekomme ich folgende
Fehlermeldung:
"The specified CGI application misbehaved by not returning a complete set of
HTTP headers. The header it did return are:
Can't open perl script "???????????????": Invalid argument."
Kann mir bitte jemand helfen?
------------------------------
Date: 19 May 2003 07:58:16 -0700
From: eric.chin@pinnacle.co.uk (Eric)
Subject: Re: compile error for Time-HoRes-1.47 using perl 5.8.0
Message-Id: <d8c847cd.0305190658.394fde2d@posting.google.com>
Thanks for the info. Much appreciated.
Rafael Garcia-Suarez <rgarciasuarez@free.fr> wrote in message news:<slrnbcahdv.73l.rgarciasuarez@dat.local>...
> Eric wrote in comp.lang.perl.misc :
> > Download perl 5.8.0 from CPAN and compiled it on RH 9.0. Recompile
> > Time-HiRes-1.47 and the compilation was sucessfull. It seems to
> > suggest perl 5.8.0-88, RH 9.0 distribution not generating the Makefile
> > correctly. Looking at the Makefile generated by perl 5.8.0, RH 9
> > distribution, it either mis quoted some string or missing bits and
> > peices of directories assingned to variable.
>
> Yes, that's correct, since RH 9.0 comes with a modified perl 5.8.0,
> containing further bug fixes.
>
> The workaround for your original problem is probably to execute the
> Makefile.PL and the make/make test phase with the locale set to LC_ALL=C.
------------------------------
Date: Mon, 19 May 2003 10:12:37 GMT
From: helgi@decode.is (Helgi Briem)
Subject: Re: find and replace script... please help.
Message-Id: <3ec8ae03.3352936327@news.cis.dfn.de>
On Fri, 16 May 2003 17:12:59 GMT, Brad Murray
<bjm-nntp@vsca.ca> wrote:
>Helgi Briem <helgi@decode.is> wrote:
>HB> Use a hash to store the replacements, i.e.+
>HB> my ($old,$new) = split /:/,$line;
>HB> %replacement_for{$old} = $new;
>
>%repl = ( %repl,split(/:/,$line));
>
>/me hides
Sure, but readability is always more important
to me than compactness.
--
Regards, Helgi Briem
helgi DOT briem AT decode DOT is
------------------------------
Date: 19 May 2003 07:08:45 -0700
From: unix@att.com (rab)
Subject: Re: gotta be a better way
Message-Id: <9bb5fc.0305190608.5b42d918@posting.google.com>
"J. Gleixner" <glex_nospam@qwest.net> wrote in message news:<46wwa.379$202.38799@news.uswest.net>...
> > some help?
> You forgot the chunk of code you use to print out @types. You need
> to loop through an array reference.
>
> foreach my $type (@types)
> {
> foreach (@$type) { print "$_\n"; }
> }
I sure did. That's it exactly. THANKS!
rab
------------------------------
Date: Mon, 19 May 2003 07:42:24 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: How do I pop this?
Message-Id: <slrnbchk9g.21q.tadmc@magna.augustmail.com>
Joe Creaney <mail@annuna.com> wrote:
> Thanks alot!
Please do not top-post.
http://web.presby.edu/~nnqadmin/nnq/nquote.html
Text rearranged into preferred (chronological) order.
> Sam Holden wrote:
>> On Sun, 18 May 2003 18:41:29 -0500, Joe Creaney <mail@annuna.com> wrote:
>>
>>>I am using a 2d array in an object with syntax like this:
>>>$play->{bag}->[$drp][$loop+1]
>>>
>>>My problem is that I want to pop off the last element in the array.
>> pop @{$play->{bag}[$drp]}
>>
>> or
>>
>> pop @{$play->{bag}[$drp][$loop+1]}
> I muissed that one in the book.
It is an application of "Use Rule 1" from:
perldoc perlreftut
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 19 May 2003 06:07:39 -0700
From: scheller@student.umass.edu (Ryan)
Subject: Locate a module
Message-Id: <1edcb178.0305190507.2be0d86f@posting.google.com>
I've just installed a new perl module in a non-standard location (say
/home/ryan/) and of course my perl script can't find it when I make do
a;
use Image::Magick
So, can someone please tell me how to point to the right location??!!
Thanks so much,
--Ryan
------------------------------
Date: Mon, 19 May 2003 13:41:26 GMT
From: emcee <res1uzbe@verizon.net>
Subject: Re: Locate a module
Message-Id: <aa5ya.3574$Ov2.635@nwrddc04.gnilink.net>
Ryan wrote:
> I've just installed a new perl module in a non-standard location (say
> /home/ryan/) and of course my perl script can't find it when I make do
> a;
> use Image::Magick
> So, can someone please tell me how to point to the right location??!!
> Thanks so much,
> --Ryan
use lib "module location";
------------------------------
Date: Mon, 19 May 2003 14:13:33 GMT
From: "Bill Smith" <wksmith@optonline.net>
Subject: Re: Locate a module
Message-Id: <hE5ya.2811$OB5.745804@news4.srv.hcvlny.cv.net>
"Ryan" <scheller@student.umass.edu> wrote in message
news:1edcb178.0305190507.2be0d86f@posting.google.com...
> I've just installed a new perl module in a non-standard location (say
> /home/ryan/) and of course my perl script can't find it when I make do
> a;
> use Image::Magick
> So, can someone please tell me how to point to the right location??!!
There are several options in the FAQ.
Refer perldoc -q "my own module\/library directory"
Bill
------------------------------
Date: 19 May 2003 06:41:22 -0700
From: lepore@brandeis.edu (bryan)
Subject: Re: making scalar variables from array elements, put into table
Message-Id: <dc6e7ce5.0305190541.78fb5a7f@posting.google.com>
tiltonj@erols.com (Jay Tilton) wrote in message
> Is that the real code or pseudocode?
here's an excerpt of the real code:
##-- begin excerpt --##
$SITE_B_X_COORD_1 = ($SITE_B_X_COORD);
$SITE_B_Z_COORD_1 = ($SITE_B_Z_COORD);
$SITE_B_X_COORD_2 = (0.5 + $SITE_B_X_COORD);
$SITE_B_Z_COORD_2 = ($SITE_B_Z_COORD);
$SITE_B_X_COORD_3 = (0 - $SITE_B_X_COORD);
$SITE_B_Z_COORD_3 = (0 - $SITE_B_Z_COORD);
$SITE_B_X_COORD_4 = (0.5 - $SITE_B_X_COORD);
$SITE_B_Z_COORD_4 = (0 -$SITE_B_Z_COORD);
@equivalent_positions = (
$SITE_B_X_COORD_1,
$SITE_B_Z_COORD_1,
$SITE_B_X_COORD_2,
$SITE_B_Z_COORD_2,
$SITE_B_X_COORD_3,
$SITE_B_Z_COORD_3,
$SITE_B_X_COORD_4,
$SITE_B_Z_COORD_4,
);
foreach $i (@equivalent_positions){
if ( $i < 0 ) {
$i_alternate = (1+$i);
}
else {
$i_alternate = (-1+$i);
}
##--- end excerpt ---##
so the array elements are "$SITE_B_X_COORD" etc., and the scalar
variables are in the foreach loop. so i THINK i want to initialize
some scalar variables by performing an operation on array elements. i
want the scalar variables to be read into a table.
>> i do get warnings about the modified elements being used only once,
i presume >> from the table - so the loop isn't getting parsed or
something.
>Why presume? The warning should be telling you the program line
>number where the variable is used.
that was stupid not to include what i knew about the errors, i
shouldn't have used the word "presume". it certainly IS from the
table. but still, it's as if the loop isn't getting parsed or
something. but the loop in fact does the correct calculations, and...
vide supra.
--> the simple question <--
so i guess the simple question is, can i make scalar variables from
array elements?
btw, i just bought "programming perl", and i'll have to look at
"scope" - thanks.
-bryan
------------------------------
Date: Mon, 19 May 2003 07:33:59 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: multiple sort subroutine
Message-Id: <slrnbchjpn.21q.tadmc@magna.augustmail.com>
Vilmos Soti <vilmos@vilmos.org> wrote:
> tadmc@augustmail.com (Tad McClellan) writes:
>
>>> $a->{"$sort1"} <=> $b->{"$sort1"}
>>
>> A useless use of double quotes:
>>
>> $a->{$sort1} <=> $b->{$sort1}
>
> Could you elaborate why the double quotes are useless there?
I'll let the Perl FAQ do the elaboration :-)
Note that the uselessness is not only for hash keys, but for any
double-quoting of nothing but a scalar variable, eg:
open(FILE, "$fname") ... # UUODQ
> I
> also don't use double quotes in such circumstances, but I saw way
> too many codes that do use them and sometimes I felt that I am
> the one who is wrong.
^^^^^
^^^^^
perldoc -q wrong
"What's wrong with always quoting "$vars"?"
> I would be happy to have an expert and authorative answer to this
> question.
The FAQ has that kind of answers. :-)
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 19 May 2003 13:06:34 +0000 (UTC)
From: veky@cromath.math.hr (Veky)
Subject: Re: multiple sort subroutine
Message-Id: <baaksq$46a$1@bagan.srce.hr>
Dok je Veky citao comp.lang.perl.misc, pod PIDom 29792 (290259 off, 4 to go...),
primijetio je kreaturu zvanu Vilmos Soti <vilmos@vilmos.org>,
ispod cijih su prstiju izasle (izmedu ostalih) sljedece rijeci:
|>> $a->{"$sort1"} <=> $b->{"$sort1"}
|> A useless use of double quotes:
|> $a->{$sort1} <=> $b->{$sort1}
|
|Could you elaborate why the double quotes are useless there? I
|also don't use double quotes in such circumstances, but I saw way
|too many codes that do use them and sometimes I felt that I am
|the one who is wrong.
|
|I would be happy to have an expert and authorative answer to this
|question.
http://www.perldoc.com/perl5.8.0/pod/perlfaq4.html
#What's-wrong-with-always-quoting--%24vars--
I suppose this is authoritative enough... :-)
--
\#{% Sad gradi svoj grad iz snova... znaj da mozes i znaj da znas...
------------------------------
Date: Mon, 19 May 2003 11:16:46 GMT
From: "Anthony" <anthony_r_au@yahoo.com.au>
Subject: Re: novice programmer
Message-Id: <3ec8bd0e$1@news.syd.ip.net.au>
Thanks for the help. I do appreciate it.
Could you explain what this means in words, finding it hard to understand.
Sorry for my ignorance .........Am still trying to work perl out
Thanks again
> > my $num = 1;
> > my $filename = "ABCDEFF.TXT";
> > my $time = time();
>
> some variables are really superfluous...
>
> > my ($min, $hour, $day, $mon, $year) = (localtime($time))[1..5]; $mon++;
$year+=1900;
>
> my ($min, $hour, $day, $mon, $year) = (localtime time)[1..5];
> $mon++; $year+=1900;
>
> > $num = $num<10?"0$num":$num;
> > $min = $min<10?"0$min":$min;
> > my $h2 = $hour%10;
> > my $h1 = ($hour - $hour%10)/10;
> > $day = $day<10?"0$day":$day;
> > $mon = $mon<10?"0$mon":$mon;
> > $year = $year%1000;
> >
> > my $stamp = "${num}${day}${mon}${year}${h1}.${h2}${min}";
"Richard Voss" <erutiurf@web.de> wrote in message
news:ba38ck$qq6$02$1@news.t-online.com...
> nospam4me wrote:
> > Anthony wrote:
> >
> >>My objective is to
> >>rename a file named ABCDEFF.TXT to nnddmmyh.hmm
> >>
> >>nn= number 0-9
> >>dd= day
> >>mm= month
> >>y=year
> >>h.h=hour
> >>mm= minutes
> >>
> >
> > #!/bin/perl
> > use strict;
> > use warnings;
> > use Time::Local;
>
> that's not neccessary here.
>
> > ## rename a file named ABCDEFF.TXT to nnddmmyh.hmm
> > ## nn= number 0-9
> > ## dd= day
> > ## mm= month
> > ## y= year
> > ## h.h=hour
> > ## mm= minutes
> >
> > my $num = 1;
> > my $filename = "ABCDEFF.TXT";
> > my $time = time();
>
> some variables are really superfluous...
>
> > my ($min, $hour, $day, $mon, $year) = (localtime($time))[1..5]; $mon++;
$year+=1900;
>
> my ($min, $hour, $day, $mon, $year) = (localtime time)[1..5];
> $mon++; $year+=1900;
>
> > $num = $num<10?"0$num":$num;
> > $min = $min<10?"0$min":$min;
> > my $h2 = $hour%10;
> > my $h1 = ($hour - $hour%10)/10;
> > $day = $day<10?"0$day":$day;
> > $mon = $mon<10?"0$mon":$mon;
> > $year = $year%1000;
> >
> > my $stamp = "${num}${day}${mon}${year}${h1}.${h2}${min}";
>
> Do you know sprintf?
>
> my $stamp = sprintf "%02d%02d%02d%1d%1d.%1d%02d",
> $num, $day , $mon , $year % 1000 , $hour%10 , int($hour/10) ,
$min;
>
> > # print("$stamp\n");
> > rename($filename, $stamp) or die("RENAME: $!");
>
> HTH
>
> --
> sub{use strict;local$@=sub{select($,,$,,$,,pop)};unshift@_,(45)x 24,split
q=8==>
> 55.52.56.49.49.55.56.49.49.53;do{print
map(chr,@_[0..(@_/2-1)]),"\r";$@->(1/6)=>
> push@_=>shift}for@_,++$|}->(map{$_+=$_%2?-1:1}map
ord,split//,'u!`onuids!Qdsm!'.
> 'i`bjds') #my email-address is reversed! <http://fruiture.de>
>
------------------------------
Date: 19 May 2003 10:30:24 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Paths relative to a module
Message-Id: <baabo0$oot$1@mamenchi.zrz.TU-Berlin.DE>
emcee <res1uzbe@verizon.net> wrote in comp.lang.perl.misc:
> I have a module that, more or less, takes the contents of a hash and
> puts into a file. It works fine, but I want it to save the file relative
> to the location of the module rather than the script, is there anyway to
^^^^^^^^^^
It is an error to assume that the current directory of a job will
always be the directory where the executable lives. Sometimes it
is, sometimes it isn't. You want to store a file in a location other
than the current directory, which is independent of the location
of the script.
> do this?
Look up the %INC hash in perlvar. It contains the path names of all
modules that have been loaded. A bit of fiddling with File::Spec
should give you the directory where the module is located, so you
can create files there.
Anno
------------------------------
Date: Mon, 19 May 2003 13:47:20 GMT
From: emcee <res1uzbe@verizon.net>
Subject: Re: Paths relative to a module
Message-Id: <If5ya.3602$Ov2.1774@nwrddc04.gnilink.net>
Anno Siegel wrote:
> It is an error to assume that the current directory of a job will
> always be the directory where the executable lives. Sometimes it
> is, sometimes it isn't. You want to store a file in a location other
> than the current directory, which is independent of the location
> of the script.
In this case the current directory is the location of the script, its a
cgi script and the server software should be configured to chdir to the
proper directory before launching the script.
> Look up the %INC hash in perlvar. It contains the path names of all
> modules that have been loaded.
I'm using use lib to load the module, so all thats in $INC{'module'} is
what I sent to use lib.
>A bit of fiddling with File::Spec
> should give you the directory where the module is located, so you
> can create files there.
Installing additional modules isn't really an option, since I will run
it on a remote server where done have that permission.
------------------------------
Date: Mon, 19 May 2003 12:47:59 +0000 (UTC)
From: veky@cromath.math.hr (Veky)
Subject: Re: Process Multiple Files ?
Message-Id: <baajpv$ame$1@bagan.srce.hr>
Dok je Veky citao comp.lang.perl.misc,
pod PIDom 29792 (290201 off, 63 to go...),
primijetio je kreaturu zvanu Barry Kimelman <barryk2@SPAM-KILLER.mts.net>,
ispod cijih su prstiju izasle (izmedu ostalih) sljedece rijeci:
|$dirname = $ARGV[0];
|opendir(DIR,"$dirname") or
| die("opendir failed for $dirname : $!\n");
|@entries = readdir(DIR);
|closedir DIR;
|foreach $entry ( @entries ) {
| $filepath = $dirname . "/" . $entry;
| unless ( -d $filepath ) {
| # process a file
| }
|}
... or just use @ARGV=<"$ARGV[0]/*">;while(<>){... :-)
--
\#{% Sad gradi svoj grad iz snova... znaj da mozes i znaj da znas...
------------------------------
Date: Mon, 19 May 2003 15:13:50 +0200
From: =?ISO-8859-15?Q?S=E9bastien?= Cottalorda <spp@monaco377.com>
Subject: tail -f or equivalent
Message-Id: <3ec8d934$0$238$626a54ce@news.free.fr>
Hi all,
I actually use the "tail -f $filename |" in a perl script under Linux.
The problem is the following:
When the script finished, the tail -f command still run on the processus
table.
Is there a way to have this command stop at the same time than the perl
script ?
Or is there another way to get exactly the same result as tail -f (for
example with the IO::Select module => send me an example if you can)
without using shell commands.
Thanks in advance for any kind of help.
Sebastien
------------------------------
Date: Mon, 19 May 2003 15:35:29 +0200
From: Winfried Koenig <w.koenig@acm.org>
Subject: Re: tail -f or equivalent
Message-Id: <3EC8DDA1.60902@acm.org>
Sébastien Cottalorda wrote:
>
> Or is there another way to get exactly the same result as tail -f (for
> example with the IO::Select module => send me an example if you can)
> without using shell commands.
see: perldoc -q tail
"How do I do a "tail -f" in perl?"
Winfried Koenig
------------------------------
Date: Mon, 19 May 2003 12:28:46 +0000 (UTC)
From: veky@cromath.math.hr (Veky)
Subject: Re: why key is added to hash after defined ?
Message-Id: <baailu$j9m$1@bagan.srce.hr>
Dok je Veky citao comp.lang.perl.misc,
pod PIDom 29792 (290141 off, 149 to go...),
primijetio je kreaturu zvanu Matija Papec <mpapec@yahoo.com>,
ispod cijih su prstiju izasle (izmedu ostalih) sljedece rijeci:
|>|It prints foo1 as key.
|>|What I want to do is just check if $hash{foo1}{foo2}, which should be a
|>|string has already been defined. But why it add a key in %hash ?
|>|So what's the proper way of checking undef if I don't want to add any extra
|>|key ?
|>Test for defined $hash{foo1} && defined $hash{foo1}{foo2} ...
|>this way, if there is no foo1 key in hash, short-circuiting of "&&" will
| ^^^^^^^^^^^^^^^^^^^
|Actually 'exists' does that, although defined is just fine most of the time.
Yes, but original poster tested with defined, so I thought that would be
fine for him...
BTW, my statement is mathematically correct. I said "if...then", and
that direction really holds. I never said anything about the
converse...:-)
--
\#{% Sad gradi svoj grad iz snova... znaj da mozes i znaj da znas...
------------------------------
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 5005
***************************************
