[16792] in Perl-Users-Digest
Perl-Users Digest, Issue: 4204 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Sep 1 21:05:44 2000
Date: Fri, 1 Sep 2000 18:05:21 -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: <967856720-v9-i4204@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 1 Sep 2000 Volume: 9 Number: 4204
Today's topics:
Re: "Premature end of script headers" (Gwyn Judd)
Re: $LIST_SEPARATOR bug?? <smerr612@mailandnews.com>
Re: $LIST_SEPARATOR bug?? <uri@sysarch.com>
a wannabe <neil.jones2@virgin.net>
Re: a wannabe (Abigail)
Re: a wannabe michaeljgardner@my-deja.com
Re: a wannabe <jeff@vpservices.com>
Re: appending to files michaeljgardner@my-deja.com
APPLICATION NEEDED for E-COMMERCE <xtremex@telusplanet.net>
Re: Can I reach my modem through Perl? (David Efflandt)
DB_File / DB_RECNO errors and inefficiencies <biow@verity.com>
Help! my comma's are comma%27s <perspiring@nuts.com>
Re: Help! my comma's are comma%27s <mahnke@uni-freiburg.de>
Help: file type name to write to a file <gary.macindoe@ia.nsc.com>
Re: Help: file type name to write to a file <lr@hpl.hp.com>
Re: How do I make a client to talk to a telnet server? (David Efflandt)
Interesting perl behavior <charan@ptdcs2.intel.com>
Re: learning perl (Gwyn Judd)
Re: learning perl michaeljgardner@my-deja.com
Net::SMTP error codes <heinig@cs.ucdavis.edu>
Re: open web file (Gwyn Judd)
Re: open web file (Gwyn Judd)
Re: open web file (Abigail)
Re: open web file <jeff@vpservices.com>
Re: open web file <jeff@vpservices.com>
Re: open web file (Gwyn Judd)
Re: output fun (Gwyn Judd)
Re: print before exec (David Efflandt)
Re: Q. relating to perlfaq(4) / sort <ren.maddox@tivoli.com>
Re: Regular Expression Help (Daniel Chetlin)
Re: Regular Expression Help (Jakob Schmidt)
Re: Regular Expression Help (Daniel Chetlin)
Re: Regular Expression Help (Jakob Schmidt)
Re: Sun Solaris Serial Port Question (David Efflandt)
Re: why is my perl script using so much memory <elijah@workspot.net>
Re: working out signatures <yanick@babyl.sympatico.ca>
Re: working out signatures <elijah@workspot.net>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 01 Sep 2000 23:15:45 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: "Premature end of script headers"
Message-Id: <slrn8r0e4u.ioe.tjla@thislove.dyndns.org>
I was shocked! How could reschramz@my-deja.com <reschramz@my-deja.com>
say such a terrible thing:
>In article <slrn8qu76l.ci6.tjla@thislove.dyndns.org>,
> tjla@guvfybir.qlaqaf.bet (Gwyn Judd) wrote:
>>
>> #!/usr/bin/perl -w
>> use strict;
>> use CGI qw/:standard/;
>> use CGI::Carp 'fatalsToBrowser';
>>
>> always eliminates this problem.
>>
>
>Do you meant that unbuffering errors doesn't _always_ work? Why?
Well if your script is outputting stuff before the headers before you
unbuffered errors, then your script will still be outputting stuff
before the headers after you have unbuffered them. One common case is
when your script fails to compile correctly or die()'s before it
output's the headers. Doing the above will enable headers to be
correctly sent to the browser as well as a helpful error message (more
helpful at least than a 500 server error).
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
Sometimes I wake up grumpy; Other times I let her sleep.
------------------------------
Date: Fri, 01 Sep 2000 23:04:33 GMT
From: Steven Merritt <smerr612@mailandnews.com>
Subject: Re: $LIST_SEPARATOR bug??
Message-Id: <8opcll$pdi$1@nnrp1.deja.com>
In article <MPG.1419ba89ebf2698a98ad15@nntp.hpl.hp.com>,
Larry Rosler <lr@hpl.hp.com> wrote:
> In article <8op1e5$c42$1@nnrp1.deja.com> on Fri, 01 Sep 2000 19:52:47
> GMT, Steven Merritt <smerr612@mailandnews.com> says...
>
> > Not sure exactly what would cause something like the mutation you're
> > seeing in your Linux docs. I'd guess you're just mis-intrepreting
what
> > the ActiveState docs say and thinking a double quote is two single
> > quotes. Most built-in variables are single characters $. $; $$ $@
etc,
> > and when they're not they're typically pretty discriptive like $ARGV
>
> Overstatement. There is a set of variables formed like $^T, which is
> the dollar sign plus two characters.
This style of representing a class of characters is just non-printing
characters like the newline and the ctrl-c character expressed in terms
of printing characters. Typically I don't refer to them as two
characters, but yes, technically they do take two keystrokes to type.
Steven
--
King of Casual Play
The One and Only Defender of Cards That Blow
My newsreader limits sigs to four lines, but I cleverly bypassed this by
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 01 Sep 2000 23:26:48 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: $LIST_SEPARATOR bug??
Message-Id: <x71yz3pubs.fsf@home.sysarch.com>
>>>>> "AJ" == Andrew Johnson <andrew-johnson@home.com> writes:
AJ> Well, the 5.6.0 installation on my linux box has this:
AJ> =item $"
AJ> in the raw perlvar.pod, and pod2text shows $" as well -- but both
AJ> 'perldoc perlvar' and 'man perlvar' show it as $"" (I didn't check
AJ> pod2html) -- it seems formatting errors are not limited to redmond.
on solaris i get $" in 5.6 and 5.005_03. man perlvar works as well.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Sat, 2 Sep 2000 00:25:33 +0100
From: "Neil Jones" <neil.jones2@virgin.net>
Subject: a wannabe
Message-Id: <zUWr5.6270$il3.115105@news6-win.server.ntlworld.com>
give me a clue where do i start
i know zero
i want to know much
------------------------------
Date: 02 Sep 2000 00:12:18 GMT
From: abigail@foad.org (Abigail)
Subject: Re: a wannabe
Message-Id: <slrn8r0hde.8ac.abigail@alexandra.foad.org>
Neil Jones (neil.jones2@virgin.net) wrote on MMDLVIII September MCMXCIII
in <URL:news:zUWr5.6270$il3.115105@news6-win.server.ntlworld.com>:
][ give me a clue where do i start
][ i know zero
][ i want to know much
Dr. Seuss.
Abigail
--
$_ = "\x3C\x3C\x45\x4F\x54";
print if s/<<EOT/<<EOT/e;
Just another Perl Hacker
EOT
------------------------------
Date: Sat, 02 Sep 2000 00:09:24 GMT
From: michaeljgardner@my-deja.com
Subject: Re: a wannabe
Message-Id: <8opgf9$tdg$1@nnrp1.deja.com>
In article <zUWr5.6270$il3.115105@news6-win.server.ntlworld.com>,
"Neil Jones" <neil.jones2@virgin.net> wrote:
> give me a clue where do i start
Said the straight man to the late man, "Where have you been?"
"I've been here, and I've been there, and I've been inbetween."
King Crimson
> i know zero
"Everything means less than zero"
Elvis Costello
> i want to know much
"When everything is said and done, much more is said than done"
Anon
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 01 Sep 2000 17:44:24 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: a wannabe
Message-Id: <39B04D68.74E734A4@vpservices.com>
Neil Jones wrote:
>
> give me a clue where do i start
> i know zero
> i want to know much
Colonel Mustard, in the library, with a printout of perldoc.
--
Jeff
------------------------------
Date: Sat, 02 Sep 2000 00:19:00 GMT
From: michaeljgardner@my-deja.com
Subject: Re: appending to files
Message-Id: <8oph15$u22$1@nnrp1.deja.com>
In article <8odd8c$mld$1@nnrp1.deja.com>,
Manuel Ho <mslho@my-deja.com> wrote:
> hi all,
>
> how can i achieve appending to the second last line of a file?
> and is there a function in perl that reads a line at a time?
> thanks all.
>
> manuel.
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
>
Manuel,
When you say "appending to the second last line of a file" it's a
little confusing. I am used to hearing "append" to a file, or
modifying a line of a file.
I really think you're modifying a line of file, and overwriting what
used to be in the file. i.e. append adds to the end, and modify
overwrites, and really doesn't append...
I've done some of this using a combination of seek, and syswrite.
HTH
Michael
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sat, 02 Sep 2000 00:53:33 GMT
From: "Irene Facchin" <xtremex@telusplanet.net>
Subject: APPLICATION NEEDED for E-COMMERCE
Message-Id: <hcYr5.284$7F3.204516@news0.telusplanet.net>
I am looking for a perl application for E-Commerce,
I am not concerned if it is completed. But I would like something that I
can complete
I am very familiar with Perl, and would like to see if there is somethign
that can expediate the work I need to do\
thank you
------------------------------
Date: Fri, 1 Sep 2000 23:41:16 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: Can I reach my modem through Perl?
Message-Id: <slrn8r0fk2.8hs.efflandt@efflandt.xnet.com>
On Fri, 1 Sep 2000 10:23:27 -0700, Dave Ressler <news@nettenna.com> wrote:
>I'm anxious to be able to ask my modem to dial a number for me using Perl.
>Can someone point me in the right direction if this is possible? I'm using
>Windows 2000 and the Phone Dialer that comes with it is terrible!
Possibly Win32::SerialPort module. But I am not familiar with W2k, and
this would only work if you were connecting to a login shell or something,
not PPP.
This has also been ported to Unix (Linux, etc.) as Device::SerialPort,
which I have used to communicate with a modem using AT commands.
--
David Efflandt efflandt@xnet.com http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://hammer.prohosting.com/~cgi-wiz/ http://cgi-help.virtualave.net/
------------------------------
Date: Fri, 01 Sep 2000 18:56:36 -0400
From: Christopher Biow <biow@verity.com>
Subject: DB_File / DB_RECNO errors and inefficiencies
Message-Id: <crc0rs4ufrhmpqe2sbpc27lj6s26vk4g0o@4ax.com>
I'm using SunOS 5.6, perl 5.005_03, and DB_File 1.065.
This fails with null result, on an existing text file:
|DB<1> print $B = tie(@b, 'DB_File', 'bigfile', O_RDONLY, 0644, $DB_RECNO) . $!
|
Is there any way to get a true, read-only DB_RECNO tie?
Modified like this, it works:
|DB<2> undef $B; untie @b;print $B = tie(@b, 'DB_File', 'bigfile', O_RDONLY|O_CREAT, 0, $DB_RECNO)
|DB_File=SCALAR(0x1ea5ac)
It then gives very good efficiency jumping among arbitrary line locations.
This takes a little while, but works nicely:
|DB<3> print "$b[5] $b[450000] $b[2000]"
|line 5
|line 450000
|line 2000
However, for a 450,000 line file, this takes just as long as the above:
|DB<4> undef $B; untie @b;
As noted in a post about a year ago, upon dereferencing and untying,
DB_File's destructor proceeds to rewrite the *entire* file, even though it
was opened O_RDONLY|O_CREAT and no changes have occurred. Good idea to
close STDIN before this happens, if it's a CGI, so the server doesn't hold
the output for the duration of the rewrite!
Any suggestions for avoiding this needless rewrite of a file that's been
opened as "read only"? Is there a safe way to sabotage the deconstuctor? As
a CGI process that is ready to terminate, I can't see how any resource
leaks could occur.
Finally, in case anyone should ever be faced with the same problem, I ran
into a system-specific limitation:
|DB<5> print "$b[500000] $!"
| No space left on device
|% df -k /var/tmp
|Filesystem kbytes used avail capacity Mounted on
|/dev/md/dsk/d3 204239 202885 1150 100% /var
|DB<8> undef $B; untie @b
|% df -k /var/tmp
|Filesystem kbytes used avail capacity Mounted on
|/dev/md/dsk/d3 204239 190684 13351 94% /var
Any easy way to set DB_File's tempspace to /tmp? All that lovely space,
unused:
|% df -k /tmp
|Filesystem kbytes used avail capacity Mounted on
|swap 2081520 3040 2078480 1% /tmp
------------------------------
Date: Fri, 1 Sep 2000 19:47:49 -0400
From: "perspiring goth" <perspiring@nuts.com>
Subject: Help! my comma's are comma%27s
Message-Id: <39b03f0f_2@news.newsfeeds.com>
Form input won't print commas, semi-colons, etc... just %27s and the like.
See for yourself at www.asd-1817.org/test.html.
Any help would be truly appreciated. I'm just trying to do forms for a
school intranet site.
Thanks
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 80,000 Newsgroups - 16 Different Servers! =-----
------------------------------
Date: Sat, 2 Sep 2000 02:47:51 +0100
From: "Christian Mahnke" <mahnke@uni-freiburg.de>
Subject: Re: Help! my comma's are comma%27s
Message-Id: <8opidg$9di$1@news.online.de>
You have to decode it. Commas, semicolons and the like are encoded by the
Browser.
Do it with "CGI::unescape($yourvar)".
If you don't need CGI for the rest of your program, just look up the
subroutine "unescape ()" in CGI.pm and use this.
Cheers,
Christian
perspiring goth <perspiring@nuts.com> schrieb in im Newsbeitrag:
39b03f0f_2@news.newsfeeds.com...
> Form input won't print commas, semi-colons, etc... just %27s and the like.
> See for yourself at www.asd-1817.org/test.html.
>
> Any help would be truly appreciated. I'm just trying to do forms for a
> school intranet site.
>
> Thanks
>
>
>
>
> -----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
> http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
> -----== Over 80,000 Newsgroups - 16 Different Servers! =-----
------------------------------
Date: Fri, 01 Sep 2000 16:25:19 -0600
From: Gary MacIndoe <gary.macindoe@ia.nsc.com>
Subject: Help: file type name to write to a file
Message-Id: <39B02CCF.5334289@ia.nsc.com>
Hi all,
I'm just starting to learn perl, but need to get a certain script up and
running as soon as posible. I'm having trouble figuring out how to
search a directory for a certain file type (.art) in order to write the
name of it to a file.
First of all, the CAD system I use for PCB Design (Cadence Allegro) can
create scripts by "recording" all the steps you do for any given
procedure. In my case, reading the gerber files (*.art) into a
database. Running this Allegro script over and over would be fine if
the number and names of these gerber files was always the same, but
they're not.
So, what I need to do is have a perl script build an Allegro script.
The Allegro script will be made up mainly of blocks, each one importing
a .art file and placing it down. I guess to build the Allegro script
with perl, I could have the perl script write to a file the steps to
start importing the first .art file, then have the perl script look for
the first .art file and plug it in, then write to the perl script the
steps to start importing the next .art file, have perl find the next
.art file etc.
Does any of this make sense to anyone? I guess if I just knew how to
have perl search in a specific directory for all files, one by one, that
end in .art, that would be a big part of it. So how do I get perl to do
this?
Thanks for any help!
Gary
Gary E. MacIndoe
CAD/PCB Designer
National Semiconductor Corp.
1351 S. Sunset Street
Longmont, CO 80503
Phone: (303) 774-5159
FAX: (303) 774-5022
Contract for Judge T.S., Inc.
------------------------------
Date: Fri, 1 Sep 2000 16:02:26 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Help: file type name to write to a file
Message-Id: <MPG.1419d5611ef4c51798ad17@nntp.hpl.hp.com>
In article <39B02CCF.5334289@ia.nsc.com> on Fri, 01 Sep 2000 16:25:19 -
0600, Gary MacIndoe <gary.macindoe@ia.nsc.com> says...
...
> Does any of this make sense to anyone? I guess if I just knew how to
> have perl search in a specific directory for all files, one by one, that
> end in .art, that would be a big part of it. So how do I get perl to do
> this?
my $dir = '/path/to/directory';
chdir $dir or die "Couldn't chdir to '$dir'. $!\n";
opendir DIR, '.' or die "Couldn't open '$dir'. $!\n";
my @art_files = grep /\.art$/ && -f => readdir DIR;
closedir DIR;
> Thanks for any help!
You're welcome. Here's more lasting help.
At a command prompt, type the following:
perldoc perldoc
perldoc -f chdir
perldoc -f opendir
perldoc -f readdir
perldoc -f grep
perldoc -f -X
perldoc perlre
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 1 Sep 2000 23:52:04 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: How do I make a client to talk to a telnet server?
Message-Id: <slrn8r0g8b.8hs.efflandt@efflandt.xnet.com>
On Fri, 01 Sep 2000 16:47:34 -0400, Rick <lotsacoffee@visto.com> wrote:
(a complicated script using IO::Socket)
Wouldn't it be easier to use or refer to Net::Telnet for more info about
how to do this? A telnet client sends and receives on 2 different ports.
--
David Efflandt efflandt@xnet.com http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://hammer.prohosting.com/~cgi-wiz/ http://cgi-help.virtualave.net/
------------------------------
Date: Fri, 01 Sep 2000 17:38:38 -0700
From: Ramacharan Sundararaman <charan@ptdcs2.intel.com>
Subject: Interesting perl behavior
Message-Id: <39B04C0E.91421526@ptdcs2.intel.com>
Hi,
I tried this short perl program on AIX & Linux and found this
interesting erroneous behaviour. It looks like perl has rounding errors
for numbers with a mantissa(close to) powers of 2. Can anyone
knowledgeable on this please enlighten me about this behavior? Is it a
bug in perl's internal FP format?
perl
for ($i=0; $i<20; $i++) {
$x = 2**$i + .2;
$y = 2**$i + .1;
print "x=$x, y=$y, diff=", $x-$y, "\n";
}
x=1.2, y=1.1, diff=0.0999999999999999
x=2.2, y=2.1, diff=0.1
x=4.2, y=4.1, diff=0.100000000000001
x=8.2, y=8.1, diff=0.0999999999999996
x=16.2, y=16.1, diff=0.0999999999999979
x=32.2, y=32.1, diff=0.100000000000001
x=64.2, y=64.1, diff=0.100000000000009
x=128.2, y=128.1, diff=0.0999999999999943
x=256.2, y=256.1, diff=0.0999999999999659
x=512.2, y=512.1, diff=0.100000000000023
x=1024.2, y=1024.1, diff=0.100000000000136
x=2048.2, y=2048.1, diff=0.0999999999999091
x=4096.2, y=4096.1, diff=0.0999999999994543
x=8192.2, y=8192.1, diff=0.100000000000364
x=16384.2, y=16384.1, diff=0.100000000002183
x=32768.2, y=32768.1, diff=0.0999999999985448
x=65536.2, y=65536.1, diff=0.0999999999912689
x=131072.2, y=131072.1, diff=0.100000000005821
x=262144.2, y=262144.1, diff=0.100000000034925
x=524288.2, y=524288.1, diff=0.0999999999767169
thanks
--
_ |_ _ _ _ _
(_ | |(_[ ] (_[ ] |
Standard Disclaimer:
"I do not speak for my employer"
------------------------------
Date: Sat, 02 Sep 2000 00:10:47 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: learning perl
Message-Id: <slrn8r0hc5.ioe.tjla@thislove.dyndns.org>
I was shocked! How could Abigail <abigail@foad.org>
say such a terrible thing:
>Simon Voorwinde (svavevav@idx.com.au) wrote on MMDLVIII September
>MCMXCIII in <URL:news:39af9495@news1.idx.com.au>:
>// Where's is the best place to learn perl ?
>
>On a comfy chair.
The Monty Python thread is that way --->
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
Organic chemistry is the chemistry of carbon compounds. Biochemistry
is the study of carbon compounds that crawl.
-- Mike Adams
------------------------------
Date: Sat, 02 Sep 2000 00:31:50 GMT
From: michaeljgardner@my-deja.com
Subject: Re: learning perl
Message-Id: <8ophpn$uvj$1@nnrp1.deja.com>
In article <8oohbo$9sn$1@newsg3.svr.pol.co.uk>,
"Justin Flavin" <justin.flavin@ntlworld.com> wrote:
> I'm learning Perl at the moment, and this seems to be working for me:
>
> 1. Buy Perl In 24 Hours
I agree, Clinton's book is a great start.
> 2. Work through each chapter from chapter 1 right through - don't skip
> anything.
>
> 3. At the same time, make notes in whatever text editor you're using.
I'm
> using windoze, so i'm
> using WordPad - i'm coloring in the code, highlight important bits
etc etc
>
> 4. At the same time, i've got a dos prompt up and running, and another
> notepad window open.
> In notepad, anytime I come across a code snippet in the book I TYPE
IT IN
> and run it.
>
> 5. I then change the code snippet e.g. instead of a single if, what
happens
> if i try a nested if
>
> 6. At the start of each code segment I do a little comment e.g.
>
> #Increment and decrement
> # The following code segment shows how to use the ++ and --
> increment/decrement operators
> $counter=10;
> $counter++;
> print $counter;
> print "\n";
> $counter--;
> print $counter;
>
> By doing things this way, the stuff is REALLY starting to sink in. I
started
> doing things this way a few days ago, and i'm now
> getting to grips with hashes, but the previous stuff is really
starting to
> stick in my head.
>
> That's the important thing about Perl (or indeed any language) - its
no good
> just reading about it - YOU'VE GOT TO CODE - and you've got to make
LOTS of
> notes....
>
> Hope this might help..
>
> oh btw - i'll move on to the Camel book later - it's just that Perl
in 24
> hours, whilst not in depth, it's short/snappy and a good
> intro to Perl.
I'll add that the Camel book, while a great reference, seems to be full
of inside-jokes for ex-C-programmers, and Linux officianados. I am
neither, so at times it's difficult to understand what they are talking
about when they say malloc(3), etc. Perl in 24 Hours, was written by
Clinton Pierce, he is active in this newsgroup and accessible by email.
It's also a good idea to lurk on this newsgroup. Between and amongst
the flames there's a lot of talent. Once you pick up on the vocabulary
of the language, you can learn a lot, or be awestruck by the code
submitted to this group.
Regards,
Michael
>
> Regards,
> Justin Flavin
> future Perl monger (i hope!)
>
> Simon Voorwinde <svavevav@idx.com.au> wrote in message
> news:39af9495@news1.idx.com.au...
> > Where's is the best place to learn perl ?
> >
> >
>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 1 Sep 2000 23:25:10 GMT
From: Lael Matthew Heinig <heinig@cs.ucdavis.edu>
Subject: Net::SMTP error codes
Message-Id: <8opdsl$9q2$1@mark.ucdavis.edu>
Occasionally after doing an $smtp->to ( 'some_address' ) ; I get an error
code of 000. Unfortunately, I get that error about 10% of the time. I
checked the documentation for Net::Cmd and it says the following:
code ()
Returns the 3-digit code from the last command. If a
command is pending then the value 0 is returned
What does it mean for a command to be "pending?" My program treats that
return value as an error. How do I solve this problem? How does it
come about?
Thanks.
Lael
------------------------------
Date: Fri, 01 Sep 2000 23:22:08 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: open web file
Message-Id: <slrn8r0egu.ioe.tjla@thislove.dyndns.org>
I was shocked! How could Abigail <abigail@foad.org>
say such a terrible thing:
>Gwyn Judd (tjla@guvfybir.qlaqaf.bet) wrote on MMDLVIII September MCMXCIII
>in <URL:news:slrn8qu84c.ci6.tjla@thislove.dyndns.org>:
>`' I was shocked! How could Abigail <abigail@foad.org>
>`' say such a terrible thing:
>`' >
>`' >open() has lots of magic, but only C-API specific and, unfortunally,
>`' >no HTTP semantics. It would be useful though.
>`'
>`' Useful or confusing? What if you happen to have a directory called
>`' "http://www.slashdot.org"? Sometimes it's a good thing to have a
>`' seperation between functions that do two somewhat different things.
>
>
>So, you'd use "./http://www.slashdot.org".
>
>That's what you do if you have a file called '-', or '> foo', or
>'&<4' or '| wc -l'. Why would "http://www.slashdot.org" suddenly
>be an obstacle?
I never said it wouldn't be possible, I did say it would be confusing.
What is wrong with having the programmer be explicit about what they
want to do, if they want to open a file from the web, have them use LWP.
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
If you were arrested for kindness, would there be enough evidence to
convict you?
-- Unknown
------------------------------
Date: Fri, 01 Sep 2000 23:24:21 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: open web file
Message-Id: <slrn8r0el3.ioe.tjla@thislove.dyndns.org>
I was shocked! How could Larry Rosler <lr@hpl.hp.com>
say such a terrible thing:
>Wouldn't the scheme part of a URI ('http://' for example) uniquely
>disambiguate it from a file-system pathname, absolute or relative?
perversely, no it wouldn't. 'http://www.blah.com' is a perfectly valid
filename on my system at least.
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
As love becomes more confident, respect recedes.
-- Baltasar Gracian
------------------------------
Date: 02 Sep 2000 00:09:47 GMT
From: abigail@foad.org (Abigail)
Subject: Re: open web file
Message-Id: <slrn8r0h8m.8ac.abigail@alexandra.foad.org>
Gwyn Judd (tjla@guvfybir.qlaqaf.bet) wrote on MMDLVIII September MCMXCIII
in <URL:news:slrn8r0egu.ioe.tjla@thislove.dyndns.org>:
|| I was shocked! How could Abigail <abigail@foad.org>
|| say such a terrible thing:
|| >Gwyn Judd (tjla@guvfybir.qlaqaf.bet) wrote on MMDLVIII September MCMXCIII
|| >in <URL:news:slrn8qu84c.ci6.tjla@thislove.dyndns.org>:
|| >`' I was shocked! How could Abigail <abigail@foad.org>
|| >`' say such a terrible thing:
|| >`' >
|| >`' >open() has lots of magic, but only C-API specific and, unfortunally,
|| >`' >no HTTP semantics. It would be useful though.
|| >`'
|| >`' Useful or confusing? What if you happen to have a directory called
|| >`' "http://www.slashdot.org"? Sometimes it's a good thing to have a
|| >`' seperation between functions that do two somewhat different things.
|| >
|| >
|| >So, you'd use "./http://www.slashdot.org".
|| >
|| >That's what you do if you have a file called '-', or '> foo', or
|| >'&<4' or '| wc -l'. Why would "http://www.slashdot.org" suddenly
|| >be an obstacle?
||
|| I never said it wouldn't be possible, I did say it would be confusing.
|| What is wrong with having the programmer be explicit about what they
|| want to do, if they want to open a file from the web, have them use LWP.
I don't know. What's wrong with the programmer having to write assembler?
What's wrong with the programmer using sysopen and read? What's wrong with
having the programmer add code in case the program needs to read from
STDIN? What wrong with having the programmer open a pipe if you want to
read from a pipe? What's wrong with having the programmer use fork() if he
wants to process his output? What's wrong with coding in Java or Python?
What's wrong with coding in C without libc?
Consider why open() has all this wonderful magic like "-", pipe opens,
opening file descriptor, or duplicating file descriptors. Consider that
we are talking about Perl, the DWIM language, the language that serves
the programmer instead of having the programmer serve the language.
In the context of Perl being Perl, and open as it is, the only question I
have is, why hasn't this magic here since 5.000?
As for confusing, ask yourself, how often do people have a file called
"www.slashdot.org" in a directory "http:", while at the same moment writing
two path separators between directory name and file name. Isn't that a bit
far fetched?
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
------------------------------
Date: Fri, 01 Sep 2000 17:41:21 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: open web file
Message-Id: <39B04CB1.2F39FA79@vpservices.com>
Gwyn Judd wrote:
>
> I was shocked! How could Larry Rosler <lr@hpl.hp.com>
> say such a terrible thing:
> >Wouldn't the scheme part of a URI ('http://' for example) uniquely
> >disambiguate it from a file-system pathname, absolute or relative?
>
> perversely, no it wouldn't. 'http://www.blah.com' is a perfectly valid
> filename on my system at least.
Sure, and if your hometown had a famous general named "R.D. Bus" you
could name the train station after him. Then when your friends came to
town, they'd have to guess where you meant when you told them you'd meet
them at the Bus Station. There would be no law against naming the train
station that.
--
Jeff
------------------------------
Date: Fri, 01 Sep 2000 17:52:31 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: open web file
Message-Id: <39B04F4F.80C94C4F@vpservices.com>
Gwyn Judd wrote:
>
> I was shocked! How could Larry Rosler <lr@hpl.hp.com>
> say such a terrible thing:
> >Wouldn't the scheme part of a URI ('http://' for example) uniquely
> >disambiguate it from a file-system pathname, absolute or relative?
>
> perversely, no it wouldn't. 'http://www.blah.com' is a perfectly valid
> filename on my system at least.
The URI of that file would be something like
"file:///http://www.blah.com".
--
Jeff
------------------------------
Date: Sat, 02 Sep 2000 01:00:31 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: open web file
Message-Id: <slrn8r0k9b.ioe.tjla@thislove.dyndns.org>
I was shocked! How could Abigail <abigail@foad.org>
say such a terrible thing:
>Gwyn Judd (tjla@guvfybir.qlaqaf.bet) wrote on MMDLVIII September MCMXCIII
>in <URL:news:slrn8r0egu.ioe.tjla@thislove.dyndns.org>:
>Consider why open() has all this wonderful magic like "-", pipe opens,
>opening file descriptor, or duplicating file descriptors. Consider that
>we are talking about Perl, the DWIM language, the language that serves
>the programmer instead of having the programmer serve the language.
Okay so how would you handle stuff like authentication, customising
headers, POST and so on?
>As for confusing, ask yourself, how often do people have a file called
>"www.slashdot.org" in a directory "http:", while at the same moment writing
>two path separators between directory name and file name. Isn't that a bit
>far fetched?
Not at all. I have one there right now. Do you think it is right that
for the difference of two characters in the open statement it would
either read from a local file or go out on the web?
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
An economist is an expert who will know tomorrow why the things he
predicted yesterday didn't happen today.
-- Laurence J. Peter
------------------------------
Date: Fri, 01 Sep 2000 23:34:43 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: output fun
Message-Id: <slrn8r0f8g.ioe.tjla@thislove.dyndns.org>
I was shocked! How could Logan Shaw <logan@cs.utexas.edu>
say such a terrible thing:
>In article <slrn8qu8t4.ci6.tjla@thislove.dyndns.org>,
>Gwyn Judd <tjla@guvfybir.qlaqaf.bet> wrote:
>>I was shocked! How could Logan Shaw <logan@cs.utexas.edu>
>>say such a terrible thing:
>>>In article <8ogdcm$56v$1@nnrp1.deja.com>, <ankban4@my-deja.com> wrote:
>>
>>>Well, my code is a little longer than others' code, but here it is:
>>
>>> select (undef, undef, undef, rand * rand);
>>
>>ITYM:
>> select(undef, undef, undef, rand() * rand());
>
>O.K. Honest question: why would I need to do that? I mean,
>you see code like this all the time:
Here:
[gwyn@thislove:~]$ perl -w -MO=Deparse,-p
select undef, undef, undef, rand() * rand();
select(undef, undef, undef, rand * rand);
Name "main::rand" used only once: possible typo at - line 2.
select(undef, undef, undef, (rand() * rand()));
select(undef, undef, undef, rand(*rand));
- syntax OK
[gwyn@thislove:~]$
Now I'm not enough of a perl guru to say for sure, but what I think it
is doing in the second case is taking the value of the typeglob *rand
and using that as the paramenter for the rand() function. Hence the
undefined value warnings you get when you ran your program under -w.
> while (<>)
> { $l += length; }
>
>So, how is using length() without parenthesis any different from using
>rand() without parenthesis?
It all depends on what comes next. perl will try to disambiguate things
for you but sometimes (as in the prvious case) it gets it wrong. If you
did $l += length * length you'd get the same error.
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
"The voters have spoken, the bastards..."
-- unknown
------------------------------
Date: Sat, 2 Sep 2000 00:07:52 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: print before exec
Message-Id: <slrn8r0h5u.8hs.efflandt@efflandt.xnet.com>
On Fri, 1 Sep 2000 19:27:47 +0200, tuple <bachelart.pierre@skynet.be> wrote:
>#!/usr/bin/perl !
>some code
> ...
> ...
>print "hello\n";
>exec("another perl program"); # last line of my script
>
>When i start this in a cron i don't see the result of the print
>statement. Any idea ?
>If i replace exec by system i have no problem but i don't
>like this solution.
You don't say where you are expecting to see "hello\n", since there is no
terminal for cron? Does "another perl program" print anything to STDOUT
that you can see? If your smtp server is working and you print to STDERR
(or warn "hello\n";) instead, maybe your system would send the output to
you as e-mail.
--
David Efflandt efflandt@xnet.com http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://hammer.prohosting.com/~cgi-wiz/ http://cgi-help.virtualave.net/
------------------------------
Date: 01 Sep 2000 16:27:48 -0500
From: Ren Maddox <ren.maddox@tivoli.com>
Subject: Re: Q. relating to perlfaq(4) / sort
Message-Id: <m3snrj3iqz.fsf@dhcp11-177.support.tivoli.com>
Larry Rosler <lr@hpl.hp.com> writes:
> In article <m34s4041q9.fsf@dhcp11-177.support.tivoli.com> on 01 Sep 2000
> 09:37:50 -0500, Ren Maddox <ren.maddox@tivoli.com> says...
> > Ren Maddox <ren.maddox@tivoli.com> writes:
> >
> > > I read through this again (though I didn't go through the slides
> > > again), and I didn't see anything about arbitrary length signed
> > > "string" numbers. I suppose it would be simple to just make it a
> > > two-key sort. Sort by sign, then by magnitude. Throwing in decimal
> > > places would, I suppose, necessitate either some clever handling to
> > > get the length right, or simply split the fractional portion into a
> > > third key.
> >
> > Silly me... as long as you get the length right (which may be tricky),
> > the fractional portion should take care of itself (assuming you stick
> > a trailing null in before the original data).
>
> One can use a fixed-width sprintf format for non-negative floating-point
> numbers. For an extreme example, sprintf '%40.20f'. But one can more
> compactly use binary double-precision (8 bytes), provided the
> representation is big-endian (and byte-reversed otherwise). That also
> handles signed floating-point numbers. No trailing null is needed,
> provided any other sortkeys are also fixed-width.
>
> All this is shown in Appendix B of the paper, including an experiment to
> determine endian-ness.
I'm sure I'm just missing something, but I still do not see how to
apply the information in Appendix B to arbitrary length "string"
numbers (and not just integers, to boot).
I am referring to a numerical-style sort of something like:
my @data = (
"123.342",
"-23234",
"2347872347878273878984527636598264368234",
"1234878234" x 100,
"-" . "23423423" x 50,
);
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: Fri, 01 Sep 2000 22:19:57 GMT
From: daniel@chetlin.com (Daniel Chetlin)
Subject: Re: Regular Expression Help
Message-Id: <hYVr5.7678$f65.367366@news-west.usenetserver.com>
On Fri, 01 Sep 2000 15:28:20 GMT, dangerous dan <dangerar@my-deja.com> wrote:
>Now s#(.*)/.*$#$1#; works, but strangely(?)
> s#(.*)/.*\z#$1#; doesn't (no substitution at all).
>
>Care to answer that one?
Please post your replies _after_ quoted text, and trim the parts that aren't
necessary.
I don't believe you. This is the code you gave at the beginning of this
thread:
$_ = "/aaaa/bbbb/cccc/dddd.snork";
$lev = 2;
for ($i = $lev; $i >= 0; $i--) {
s#(.*)/.*?#$1#;
print "DIR: $_\n";
print "DL1: $1\n";
}
If I replace the s/// with 's#(.*)/.*\z#$1#', which you claim above doesn't
work, it works exactly the same as if I replace it with 's#(.*)/.*$#$1#'.
Regardless, here is the part of perlre.pod which explains these things.
Perl defines the following zero-width assertions:
\A Match only at beginning of string
\Z Match only at end of string, or before newline at the end
\z Match only at end of string
The C<\A> and C<\Z> are just like "^" and "$", except that they
won't match multiple times when the C</m> modifier is used, while
"^" and "$" will match at every internal line boundary. To match
the actual end of the string and not ignore an optional trailing
newline, use C<\z>.
So with '$' or '\Z' at the end of your s///, it will implicitly match a
newline if it's there. With '\z', it won't match a newline, so if one is
present at the end of your string, it won't match. The behavior you describe
("no substitution at all") suggests to me that your real target string
contains a newline.
-dlc
------------------------------
Date: Sat, 2 Sep 2000 00:54:06 +0200
From: sumus@aut.dk (Jakob Schmidt)
Subject: Re: Regular Expression Help
Message-Id: <1egb3j2.rse4oup9kxa8N@[192.168.88.117]>
Daniel Chetlin <daniel@chetlin.com> wrote:
> On Fri, 01 Sep 2000 15:28:20 GMT, dangerous dan <dangerar@my-deja.com> wrote:
> >Now s#(.*)/.*$#$1#; works, but strangely(?)
> > s#(.*)/.*\z#$1#; doesn't (no substitution at all).
> >
> >Care to answer that one?
>
[...]
>
> I don't believe you.
[snip]
> Perl defines the following zero-width assertions:
>
> \A Match only at beginning of string
> \Z Match only at end of string, or before newline at the end
> \z Match only at end of string
I believe him anyway 'cos I see the same thing happening when I run my
script in MacPerl. I suspect it's a matter of Perl version number.
Jakob
--
$_="rka rPrhoatuJs nte elHce\n";0while[$s=-int.5
-.5*length]&&s&(.{$s})(.)(.{$s})&$1$3&s&&print$2
------------------------------
Date: Fri, 01 Sep 2000 23:29:06 GMT
From: daniel@chetlin.com (Daniel Chetlin)
Subject: Re: Regular Expression Help
Message-Id: <6ZWr5.7810$f65.383801@news-west.usenetserver.com>
On Sat, 2 Sep 2000 00:54:06 +0200, Jakob Schmidt <sumus@aut.dk> wrote:
>Daniel Chetlin <daniel@chetlin.com> wrote:
>> On Fri, 01 Sep 2000 15:28:20 GMT, dangerous dan <dangerar@my-deja.com> wrote:
>>>Now s#(.*)/.*$#$1#; works, but strangely(?)
>>> s#(.*)/.*\z#$1#; doesn't (no substitution at all).
>>
>> I don't believe you.
>
>I believe him anyway 'cos I see the same thing happening when I run my
>script in MacPerl. I suspect it's a matter of Perl version number.
Yup, you're right. I tested with 5.005_03, AP616, and bleadperl. I didn't
consider that 5.004 is still in use, but now that I do some investigation,
MacPerl is based on 5.004. So my apologies for the terseness about not
believing "dangerous dan".
However, the terseness for his jeopardy posting stands :-).
-dlc
------------------------------
Date: Sat, 2 Sep 2000 02:09:27 +0200
From: sumus@aut.dk (Jakob Schmidt)
Subject: Re: Regular Expression Help
Message-Id: <1egb763.1f579ew6fl57oN@[192.168.88.117]>
Daniel Chetlin <daniel@chetlin.com> wrote:
> So my apologies for the terseness about not
> believing "dangerous dan".
>
> However, the terseness for his jeopardy posting stands :-).
Yeah. And you know, it can be really hard to trust a man who posts
jeopardy style (he might be dangerous!) so I guess the not-believing is
understandable ;-)
--
Jakob
------------------------------
Date: Sat, 2 Sep 2000 00:30:41 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: Sun Solaris Serial Port Question
Message-Id: <slrn8r0igo.8hs.efflandt@efflandt.xnet.com>
On Fri, 01 Sep 2000 10:28:49 -0500, Elbert Liu <liuels@usa.alcatel.com> wrote:
>I am a little new in experimenting with com (serial) ports on Sun Spac 5
>with sun OS 2.6. Is there any FAQ on this? I am trying to talk to a
>device with RS-232c interface. Please help... Currently runing perl
>5.6.0.
The Device::Serial module is a Unix port of Win32::SerialPort. Not sure
if it works in Solaris, but I was able to get responses to AT commands
from a modem in Linux.
--
David Efflandt efflandt@xnet.com http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://hammer.prohosting.com/~cgi-wiz/ http://cgi-help.virtualave.net/
------------------------------
Date: 1 Sep 2000 23:27:59 GMT
From: Eli the Bearded <elijah@workspot.net>
Subject: Re: why is my perl script using so much memory
Message-Id: <eli$0009011927@qz.little-neck.ny.us>
In comp.lang.perl.misc, Abigail <abigail@foad.org> wrote:
> Eli the Bearded (elijah@workspot.net) wrote on MMDLVIII September
> MCMXCIII in <URL:news:eli$0008312106@qz.little-neck.ny.us>:
> == With perl5.6.0 built for i686-linux-thread, the output diagnostics are:
> == With perl5.00503 built for i386-linux, the output diagnostics are:
> If you want to compare behaviours of Perls when it comes to speed and
> memory usuage between different versions, the least you should do is
> build similar perls. It's generally known that threaded perls take
My comparison of speed was incidental. I refered to it as the
'cost of progress', I believe, which is what threading is: progress.
My example showed that the memory grew in both cases.
More thinking about the script has turned up several ways to reduce
memory usage at the cost of CPU time, and CPU time is much easier to
come by for this.
(quoting removed for line length reasons)
sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@);
print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.| |d)&&$llama."\n");
Sneaky JAPH, there.
Elijah
------
got it after seeing the tr/// command
------------------------------
Date: Fri, 01 Sep 2000 22:16:30 GMT
From: Yanick Champoux <yanick@babyl.sympatico.ca>
Subject: Re: working out signatures
Message-Id: <2VVr5.2725$PL.174655@news20.bellglobal.com>
Decklin Foster <decklin+usenet@red-bean.com> wrote:
: 4. Mathematicians probably hate Perl.
<snip>
: [P.S. Number 4 is important]
Oh no. I can at least assure you that a finite subset of
the mathematical population doesn't. :)
(but then, I guess it's trivial to prove that
another subset does)
And, of course, the intersection
of those two subsets are the mathematicians
that love to hate Perl...
Joy,
Yanick
--
eval" use 'that poor Yanick' ";
print map{ (sort keys %{{ map({$_=>1}split'',$@) }})[hex] }
qw/8 b 15 1 9 10 11 15 c b 13 1 12 b 13 f 1 c 9 a e b 13 0/;
------------------------------
Date: 1 Sep 2000 23:38:16 GMT
From: Eli the Bearded <elijah@workspot.net>
Subject: Re: working out signatures
Message-Id: <eli$0009011932@qz.little-neck.ny.us>
In comp.lang.perl.misc, matt venn <matt@cipherdesign.com> wrote:
> im sure i read in a post to this newsgroup details on how to get perl
> to show you what is has parsed the script to. this would help me out,
> as i dont even understand how this particular script is parsed.
perl -MO=Deparse
> ive checked out the switches you can supply perl with, but nothing
> strikes me as useful in this case. or do i need the debugger?
You need a module, the "O" one in this case:
NAME
O - Generic interface to Perl Compiler backends
SYNOPSIS
perl -MO=Backend[,OPTIONS] foo.pl
DESCRIPTION
This is the module that is used as a frontend to the Perl
Compiler.
...
> the particular signature im working on is:
>
> perl -e '$_ = q *4a75737420616e6f74686572205065726c204861636b65720a*;
> for ($*=******;$**=******;$**=******) {$**=*******s*..*qq}
> print chr 0x$& and q
> qq}*excess********}'
:r! perl -MO=Deparse sigfile
$_ = '4a75737420616e6f74686572205065726c204861636b65720a';
$* = ** ** **;
while ($* *= ** ** **) {
$* *= ** ** ** *
s/../"\n print chr 0x$& and q\n qq";/exes ** ** ** **;
}
continue {
$* *= ** ** **
}
sigfile syntax OK
That should help a lot in understanding this.
Elijah
------
used that trick on this sig a long time ago to figure it out
------------------------------
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 4204
**************************************
