[16957] in Perl-Users-Digest
Perl-Users Digest, Issue: 4369 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 18 21:15:33 2000
Date: Mon, 18 Sep 2000 18:15:20 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <969326120-v9-i4369@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 18 Sep 2000 Volume: 9 Number: 4369
Today's topics:
Splitting data from a text file eddie_2001@my-deja.com
Re: Splitting data from a text file <david.obrien@ssmb.com.au>
Re: Splitting data from a text file rathmore@tierceron.com
Re: Splitting data from a text file <ren.maddox@tivoli.com>
Re: Splitting data from a text file <lr@hpl.hp.com>
Re: Splitting data from a text file (Abigail)
Re: Strange characters when using forms ^M <lr@hpl.hp.com>
Re: Teaching Perl <lr@hpl.hp.com>
Re: Teaching Perl (Martien Verbruggen)
The %b format specifier doesn't work? <jadestar@idiom.com>
Re: The %b format specifier doesn't work? <jeffp@crusoe.net>
Time Bandits rathmore@tierceron.com
Re: Time Bandits (Richard J. Rauenzahn)
Re: Time Bandits (Chris Fedde)
Re: Time Bandits (Colin Watson)
Re: Using SSI in PERL-CGI <david.obrien@ssmb.com.au>
Re: Why does * in a string glob? (Martien Verbruggen)
Win32::ODBC and CGI Help needed <quest@powersurfr.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 18 Sep 2000 22:07:26 GMT
From: eddie_2001@my-deja.com
Subject: Splitting data from a text file
Message-Id: <8q63md$i9b$1@nnrp1.deja.com>
Hi,
I have a text file which has three columns ID, Name and Email (i.e):
969300841|John Smith|John@smith.com
I'm trying to read this file and split the line up for further
processing, my code looks like this:
open (SEARCH, "data.txt");
while (<SEARCH>) {
@emailmatch = split ('|', $_);
print "id from file = $emailmatch[0]\n";
print "name from file = $emailmatch[1]\n";
print "email from file = $emailmatch[2]\n";
if ($useremail eq emailmatch[2]) {
#some processing stuff;
}
}
close(SEARCH);
This produces:
id from file = 9
name from file = 6
email from file = 9
instead of the desired:
id from file = 969300841
name from file = John Smith
email from file = John@smith.com
what am I doing wrong?????
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 19 Sep 2000 09:25:00 +1000
From: Dave O'Brien <david.obrien@ssmb.com.au>
Subject: Re: Splitting data from a text file
Message-Id: <39C6A44C.26476E38@ssmb.com.au>
eddie_2001@my-deja.com wrote:
>
> Hi,
> I have a text file which has three columns ID, Name and Email (i.e):
>
> 969300841|John Smith|John@smith.com
>
> I'm trying to read this file and split the line up for further
> processing, my code looks like this:
>
> open (SEARCH, "data.txt");
> while (<SEARCH>) {
> @emailmatch = split ('|', $_);
> print "id from file = $emailmatch[0]\n";
> print "name from file = $emailmatch[1]\n";
> print "email from file = $emailmatch[2]\n";
> if ($useremail eq emailmatch[2]) {
> #some processing stuff;
> }
> }
> close(SEARCH);
>
> This produces:
>
> id from file = 9
> name from file = 6
> email from file = 9
>
> instead of the desired:
> id from file = 969300841
> name from file = John Smith
> email from file = John@smith.com
>
> what am I doing wrong?????
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
Try escaping the pipe character, as in split ('\|', $_); The pipe
character means "or" in regular expressions
------------------------------
Date: Mon, 18 Sep 2000 22:57:06 GMT
From: rathmore@tierceron.com
Subject: Re: Splitting data from a text file
Message-Id: <8q66jo$lo9$1@nnrp1.deja.com>
> Try escaping the pipe character, as in split ('\|', $_); The pipe
> character means "or" in regular expressions
You might also want to add the line chomp($_); too.
open (SEARCH, "data.txt") or die "Unable to open data.txt for reading:
$!\n";
while (<SEARCH>) {
chomp($_);
@emailmatch = split ('\|', $_);
print "id from file = $emailmatch[0]\n";
print "name from file = $emailmatch[1]\n";
print "email from file = $emailmatch[2]\n";
}
close(SEARCH);
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 18 Sep 2000 17:53:19 -0500
From: Ren Maddox <ren.maddox@tivoli.com>
Subject: Re: Splitting data from a text file
Message-Id: <m3aed5wbvk.fsf@dhcp11-177.support.tivoli.com>
Dave O'Brien <david.obrien@ssmb.com.au> writes:
> eddie_2001@my-deja.com wrote:
> >
> > Hi,
> > I have a text file which has three columns ID, Name and Email (i.e):
> >
> > 969300841|John Smith|John@smith.com
> >
> > I'm trying to read this file and split the line up for further
> > processing, my code looks like this:
> >
> > open (SEARCH, "data.txt");
> > while (<SEARCH>) {
> > @emailmatch = split ('|', $_);
[other code skipped]
> > id from file = 9
> > name from file = 6
> > email from file = 9
> >
> > instead of the desired:
> > id from file = 969300841
> > name from file = John Smith
> > email from file = John@smith.com
> Try escaping the pipe character, as in split ('\|', $_); The pipe
> character means "or" in regular expressions
Which highlights the oft-recommended strategy of typing the first
argument to split as an regular expression (since it *is* a regular
expression):
@emailmatch = split /\|/;
Typing it as a string just leads to you (or someone else) *thinking*
about it as a string, which is just wrong.
Is it time to start lobbying for a warning if the first argument to
split is not a match?
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: Mon, 18 Sep 2000 16:44:41 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Splitting data from a text file
Message-Id: <MPG.143048c7c509c8dd98ad8a@nntp.hpl.hp.com>
In article <m3aed5wbvk.fsf@dhcp11-177.support.tivoli.com> on 18 Sep 2000
17:53:19 -0500, Ren Maddox <ren.maddox@tivoli.com> says...
> Dave O'Brien <david.obrien@ssmb.com.au> writes:
> > eddie_2001@my-deja.com wrote:
...
> > > @emailmatch = split ('|', $_);
That is high on the list of 'most frequent errors discussed in
c.l.p.misc'.
...
> > Try escaping the pipe character, as in split ('\|', $_); The pipe
> > character means "or" in regular expressions
>
> Which highlights the oft-recommended strategy of typing the first
> argument to split as an regular expression (since it *is* a regular
> expression):
>
> @emailmatch = split /\|/;
>
> Typing it as a string just leads to you (or someone else) *thinking*
> about it as a string, which is just wrong.
>
> Is it time to start lobbying for a warning if the first argument to
> split is not a match?
I have argued several times for a warning if the first argument to
split() is a literal string (other than "", of course). Others have
argues that that would induce warnings in legacy code.
A compromise might be to generate a warning if the first argument to
split() is a literal string that contains one or more regex
metacharacters. Yeah, that's it...
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 19 Sep 2000 00:07:44 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Splitting data from a text file
Message-Id: <slrn8sdbgb.5fq.abigail@alexandra.foad.org>
Larry Rosler (lr@hpl.hp.com) wrote on MMDLXXV September MCMXCIII in
<URL:news:MPG.143048c7c509c8dd98ad8a@nntp.hpl.hp.com>:
^^
^^ A compromise might be to generate a warning if the first argument to
^^ split() is a literal string that contains one or more regex
^^ metacharacters. Yeah, that's it...
Even a warning if the literal string equals "|" would be enough.
For that matter, any regex /|/ could omit a warning.
Abigail
--
sub A::TIESCALAR{bless\my$x=>A};package B;@q[0..3]=qw/Hacker Perl
Another Just/;use overload'""'=>sub{pop @q};sub A::FETCH{bless\my
$y=>B}; tie my $shoe => qq 'A';print "$shoe $shoe $shoe $shoe\n";
------------------------------
Date: Mon, 18 Sep 2000 15:11:59 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Strange characters when using forms ^M
Message-Id: <MPG.1430330575e0bd5698ad83@nntp.hpl.hp.com>
In article <39C67876.2C3FCD52@lighthouseNOTmarketingNOT.com> on 18 Sep
2000 20:16:25 GMT, kevin metcalf
<NOTkmetcalf@lighthouseNOTmarketingNOT.com> says...
>
>
>
> > > > ,when recieving info from a TEXT AREA, I get a couple of ^M
>
> > > The ^M is a control character representation of a return. When the data
> > > is returned, use something like:
> > > $value =~ s/%0D//g;
> >
> > That would remove every occurrence of the three-character string '%0D'.
>
> True, but if this is before you have stripped out the meta characters then
> this is EXACTLY what you wanted to do, no?
The '%0D'-type metacharacters occur in URLs only. A 'text area' is not
a URL.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 18 Sep 2000 15:13:59 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Teaching Perl
Message-Id: <MPG.1430337f86cd150698ad84@nntp.hpl.hp.com>
In article <brian-ya02408000R1809001546320001@news.panix.com> on Mon, 18
Sep 2000 15:46:32 -0400, brian d foy <brian@smithrenaud.com> says...
> In article <6mpcss4djdtnc8iqajc8ms0h12mqno5d2p@4ax.com>, Bart Lateur <bart.lateur@skynet.be> posted:
>
> > Sigvald Refsum wrote:
> >
> > >Start with the small point of what exactly "c" is on the left hand side of the
> > >"equal sign" compared to what "c" is on the rigth hand side.
> >
> > It's not an equal sign. Er... it does not symbolise an equal sign.
>
> this just made me realize that when i present the assignment operator
> is say "dollar foo equals ...". i suppose it makes sense in context
> since i haven't noticed a conceptual problem with it during an class.
>
> perhaps you say something different (and that doesn't take 50
> words to get out ;) ?
"Dollar foo gets the value ...". Fewer than 50 words. :-)
"Dollar foo becomes ..." Fewer yet.
...
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 18 Sep 2000 22:49:53 GMT
From: mgjv@verbruggen.comdyn.com.au (Martien Verbruggen)
Subject: Re: Teaching Perl
Message-Id: <slrn8sd700.2cp.mgjv@verbruggen.comdyn.com.au>
On Mon, 18 Sep 2000 15:46:32 -0400, brian d foy
<brian@smithrenaud.com> wrote:
> In article <6mpcss4djdtnc8iqajc8ms0h12mqno5d2p@4ax.com>, Bart Lateur
> <bart.lateur@skynet.be> posted:
>
> > Sigvald Refsum wrote:
> >
> > >Start with the small point of what exactly "c" is on the left
> > >hand side of the "equal sign" compared to what "c" is on the
> > >rigth hand side.
> >
> > It's not an equal sign. Er... it does not symbolise an equal sign.
>
> this just made me realize that when i present the assignment
> operator is say "dollar foo equals ...". i suppose it makes sense
> in context since i haven't noticed a conceptual problem with it
> during an class.
>
> perhaps you say something different (and that doesn't take 50 words
> to get out ;) ?
becomes.
There is a reason that Pascal uses := for this and = for equality.
Martien
--
Martien Verbruggen |
Interactive Media Division | 42.6% of statistics is made up on the
Commercial Dynamics Pty. Ltd. | spot.
NSW, Australia |
------------------------------
Date: 18 Sep 2000 23:44:00 GMT
From: "James T. Dennis" <jadestar@idiom.com>
Subject: The %b format specifier doesn't work?
Message-Id: <8q69c0$1o9l$1@news.idiom.com>
Keywords: bits printf binary digits bit vectors
I'm trying to print some simple scalar values (from 0 through
63) as bit patterns using something like:
for $i (0..63) { printf ("%b\n", $i); };
... and it's not recognizing the %b.
However, I can clearly see this format specifier listed on
page 798 of the 3rd Ed. Camel book (_Programming_Perl_,
by Larry Wall, Tom Christiansen & Jon Orwant; O'Reilly &
Associates).
I'm using perl, version 5.005_03 built for i386-linux
(as installed by Debian Potato).
So, is this an error in the book, an error in my binary,
or is the feature from a new version of PERL (or was it
deprecated and removed). I looked at my man pages
(perlfunc for "sprintf" shows most of the same specifiers,
but omits %b) and I searched on http://www.perldoc.org which
gave no relevant hits with various searching strings (all
including %b and/or binary).
Am I really going to have to use something like:
for $i (0..63) { print unpack("b6", chr($i)), "\n"; };
... for this?
(Actually I guess that will do... since I actually need to
pack these into a 128 bit number --- an MD5 checksum and
then print that. The loop as I've shown it was a bit of
test code so I could see what I'm doing).
My actual task at hand is to decode an MD5 shadow password hash
and salt into a decimal number and a hex string. MD5 hashes
on Linux/PAM systems (and presumably others, as well) are store
in a format that apparently encodes groups of six bits into the
character set ( "./", '0'..'9', 'A'..'Z', 'a'..'z'). I need
the hash decoded back into a hex string. (Note: I'm not trying
to recover the password or crack the hash, I just want to use
it as a shared secret in a variant of the APOP/CRAM-MD5 authentication
system. Obviously for that to work I have to use the decoded salt
as part of the challenge string and I have to ensure that the
shared secret hash is being respresented identically at both ends
of the connection.
------------------------------
Date: Mon, 18 Sep 2000 20:40:56 -0400
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: The %b format specifier doesn't work?
Message-Id: <Pine.GSO.4.21.0009182040310.29488-100000@crusoe.crusoe.net>
[posted & mailed]
On Sep 18, James T. Dennis said:
> I'm using perl, version 5.005_03 built for i386-linux
> (as installed by Debian Potato).
You have 5.005_03. %b was added in 5.6.
--
Jeff "japhy" Pinyan japhy@pobox.com http://www.pobox.com/~japhy/
PerlMonth - An Online Perl Magazine http://www.perlmonth.com/
The Perl Archive - Articles, Forums, etc. http://www.perlarchive.com/
CPAN - #1 Perl Resource (my id: PINYAN) http://search.cpan.org/
------------------------------
Date: Mon, 18 Sep 2000 22:24:20 GMT
From: rathmore@tierceron.com
Subject: Time Bandits
Message-Id: <8q64lt$jc6$1@nnrp1.deja.com>
use Time::localtime;
$tm = localtime($time);
printf ("Dateline: %02d:%02d:%02d-%04d/%02d/%02d\n",
$tm->hour, $tm->min, $tm->sec, $tm->year+1900,
$tm->mon+1, $tm->mday);
The result of the above code is:
Dateline: 16:00:00-1969/12/31
I just want to be able to write the time a file is processed into a log
file. What gives?
Rathmore
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 18 Sep 2000 23:02:45 GMT
From: nospam@hairball.cup.hp.com (Richard J. Rauenzahn)
Subject: Re: Time Bandits
Message-Id: <969318164.644128@hpvablab.cup.hp.com>
rathmore@tierceron.com writes:
>use Time::localtime;
>$tm = localtime($time);
>printf ("Dateline: %02d:%02d:%02d-%04d/%02d/%02d\n",
> $tm->hour, $tm->min, $tm->sec, $tm->year+1900,
> $tm->mon+1, $tm->mday);
Try that with perl -w and 'use strict' and you'll get your answer.
>The result of the above code is:
>
>Dateline: 16:00:00-1969/12/31
Oddly enough, $tm = localtime(0) gives the same results!
Rich
--
Rich Rauenzahn ----------+xrrauenza@cup.hp.comx+ Hewlett-Packard Company
Technical Consultant | I speak for me, | 19055 Pruneridge Ave.
Development Alliances Lab| *not* HP | MS 46TU2
ESPD / E-Serv. Partner Division +--------------+---- Cupertino, CA 95014
------------------------------
Date: Mon, 18 Sep 2000 23:13:58 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: Time Bandits
Message-Id: <Wkxx5.243$W3.188763136@news.frii.net>
In article <8q64lt$jc6$1@nnrp1.deja.com>, <rathmore@tierceron.com> wrote:
>use Time::localtime;
>$tm = localtime($time);
^^^^
You probably want time() rather than the uninitialized $time variable.
Using -w would have help to find this too.
chris
--
chris fedde
303 773 9134
------------------------------
Date: 18 Sep 2000 23:15:44 GMT
From: cjw44@flatline.org.uk (Colin Watson)
Subject: Re: Time Bandits
Message-Id: <8q67n0$h0c$1@riva.ucam.org>
rathmore@tierceron.com wrote:
>use Time::localtime;
>$tm = localtime($time);
[...]
>Dateline: 16:00:00-1969/12/31
Don't you mean 'localtime(time)'?
Above, $time is an undefined scalar variable. You want the builtin
function time().
--
Colin Watson [cjw44@flatline.org.uk]
"Ye GODS! NT crashed the microwave!" "Hmmm. Am thinkink we should put
Elder Sign seal on microwave now. Leave alone." - User Friendly
------------------------------
Date: Tue, 19 Sep 2000 09:37:14 +1000
From: Dave O'Brien <david.obrien@ssmb.com.au>
Subject: Re: Using SSI in PERL-CGI
Message-Id: <39C6A72A.1BACE8BC@ssmb.com.au>
a_b_c_d_e_fsadas@my-deja.com wrote:
>
> I have a small(?) problem.
>
> In one of my script i am opening a file that
> contains some html.
> I use this file as a header on my page.
> But the problem is that in that file i have a SSI
> command that executes another cgi-script.
> And the when the perl script reads the file it
> don't execute the SSI-command.
>
> Is there anyone that know how to solve this
> problem?
>
> Peter J
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
I had the same problem. The problem is you can't use parsed html on a
CGI script (well I think you can't). If you try, Apache (or whatever)
tries to intrepret the perl code as html.
I wasn't trying to exec anything, just do a file include (which I got
around by reading the file directly).
You could try using a system() call, or using requires "perlscript.pl"
The problem with second idea, is that it only allows you to call subs in
the script (it doesn't try to exec the script itself).
Also try using this
$file="perlscript.pl";
do $file;
I think the do operator will exec that script for you. I'm not sure
about the scope though.
Dave
------------------------------
Date: Mon, 18 Sep 2000 22:14:47 GMT
From: mgjv@verbruggen.comdyn.com.au (Martien Verbruggen)
Subject: Re: Why does * in a string glob?
Message-Id: <slrn8sd4u6.2cp.mgjv@verbruggen.comdyn.com.au>
On Mon, 18 Sep 2000 15:21:58 -0600,
David J Iannucci <dji@myriad.com> wrote:
> Martien Verbruggen wrote:
> > How do you get that string to your database? Any invocations of shell
> > with system(), backticks and/or qx//? Perl certainly will not glob a *
> > in a doublequoted string unless you ask for it explicitly.
>
> Nope, none of these. The database is Sybase ASE 11.5 and I'm using
> SybPerl (Sybase::DBlib) for database access from Perl.
>
> I'll check a little deeper and see what I can find, and will consult
> SybPerl's mailing list. I was hoping there'd be a straightforward
> answer related to Perl :-)
Just as an addition: We have many scripts here that have been running
for years with the various Sybase modules (sybperl, Sybase::DBlib,
Sybase::CTlib and DBD::Sybase). We've never seen any globing oddities.
I doubt it's a Sybperl issue either. I really suspect that you
unwittingly pass a string with a * off to a shell, or something like
that. I can't think of anything else, unless the modules (which I
doubt) would pass SQL strings off to a shell. AFAIK all the modules
mentioned above directly use the Sybase client libraries, so they
should display that problem.
Martien
--
Martien Verbruggen |
Interactive Media Division | Can't say that it is, 'cause it
Commercial Dynamics Pty. Ltd. | ain't.
NSW, Australia |
------------------------------
Date: Mon, 18 Sep 2000 18:27:37 -0600
From: "Stephane Zanoni" <quest@powersurfr.com>
Subject: Win32::ODBC and CGI Help needed
Message-Id: <8q6brv$n04$1@dagger.ab.videon.ca>
I have an access database, and about 4-6 times a week a colum is added to my
database of about 45 rows, is their a way to to select all the colums in a
row and numbering them by themselves because currently i have:
$db->Sql("SELECT * FROM Travail1");
while ($db->FetchRow()) {
($StudentName, $G00, $G01, $G02, $G03, $G04, $G05, $G06, $G07, $G08,
$G09) = $db->Data("StudentName", "Grade0", "Grade1", "Grade2", "Grade3",
"Grade4", "Grade5", "Grade6", "Grade7", "Grade8", "Grade9");
&HTML_Table_Body();
}
sub HTML_Table_Body {
print qq!
<tr>
<td width="150" bgcolor="#FFFFCC" valign="middle" align="right"
height="19"><b>$StudentName</b></td>
<td width="25" bgcolor="#FFFFCC" valign="middle" align="center" nowrap
height="19"><font face="Verdana" size="2">$G00</font></td>
<td width="25" bgcolor="#FFFFCC" valign="middle" align="center" nowrap
height="19"><font face="Verdana" size="2">$G01</font></td>
<td width="25" bgcolor="#FFFFCC" valign="middle" align="center" nowrap
height="19"><font face="Verdana" size="2">$G02</font></td>
<td width="25" bgcolor="#FFFFCC" valign="middle" align="center" nowrap
height="19"><font face="Verdana" size="2">$G03</font></td>
<td width="25" bgcolor="#FFFFCC" valign="middle" align="center" nowrap
height="19"><font face="Verdana" size="2">$G04</font></td>
<td width="25" bgcolor="#FFFFCC" valign="middle" align="center" nowrap
height="19"><font face="Verdana" size="2">$G05</font></td>
<td width="25" bgcolor="#FFFFCC" valign="middle" align="center" nowrap
height="19"><font face="Verdana" size="2">$G06</font></td>
<td width="25" bgcolor="#FFFFCC" valign="middle" align="center" nowrap
height="19"><font face="Verdana" size="2">$G07</font></td>
<td width="25" bgcolor="#FFFFCC" valign="middle" align="center" nowrap
height="19"><font face="Verdana" size="2">$G08</font></td>
<td width="25" bgcolor="#FFFFCC" valign="middle" align="center" nowrap
height="19"><font face="Verdana" size="2">$G09</font></td>
</tr>
!;
}
Is their a way to have only it automaticly increment?
Thanks
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 4369
**************************************
