[25034] in Perl-Users-Digest
Perl-Users Digest, Issue: 7284 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Oct 22 03:07:21 2004
Date: Fri, 22 Oct 2004 00:05:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 22 Oct 2004 Volume: 10 Number: 7284
Today's topics:
Re: case INsensitive regular expressions <abigail@abigail.nl>
Re: case INsensitive regular expressions <jurgenex@hotmail.com>
date time manipulation perl (siddhartha mulpuru)
Re: date time manipulation perl <tadmc@augustmail.com>
Re: date time manipulation perl <noreply@gunnar.cc>
deciphering emails in PERL <nospam@nospam.com>
Re: deciphering emails in PERL <see@sig.invalid>
Re: deciphering emails in PERL <nospam@nospam.com>
Re: deciphering emails in PERL <nospam@nospam.com>
Re: deciphering emails in PERL <spamtrap@dot-app.org>
Re: deciphering emails in PERL <nospam@nospam.com>
Re: fatalsToBrowser (David Efflandt)
Re: fatalsToBrowser <tintin@invalid.invalid>
Re: Help on Perl Split Function <jgibson@mail.arc.nasa.gov>
help with net pop3 <nospam@nospam.com>
How to insert new lines in string? <joey01@cfl.rr.com>
Re: How to insert new lines in string? <tadmc@augustmail.com>
Re: How to insert new lines in string? <Jon.Ericson@jpl.nasa.gov>
Re: How to redefine warnings on recursion level <Jon.Ericson@jpl.nasa.gov>
Re: How to redefine warnings on recursion level (Gerhard M)
Re: HTML::Parser and <p> behaviour? (krakle)
Re: options to shrink-wrap a perl script <troc@pobox.com>
Re: Perl "Split" Function help <tadmc@augustmail.com>
Re: Perl "Split" Function help <tadmc@augustmail.com>
Re: Perl "Split" Function help <bik.mido@tiscalinet.it>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 21 Oct 2004 22:52:27 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: case INsensitive regular expressions
Message-Id: <slrncngfdb.3ac.abigail@alexandra.abigail.nl>
sabinosa (maurof78@aol.com) wrote on MMMMLXIX September MCMXCIII in
<URL:news:e2d435fa.0410210905.14d25ea9@posting.google.com>:
:) Hi everyone,
:) I am working with a RegularExpressionValidator in Visual Studio.NET.
:) I would like to define a custom regular expression that ignores the
:) letter case and therefore is case INsensitive. I have seen that the
:) syntax might be something like "(?i)" or "/i". However, when I try to
:) use that as part of my regular expression (ex. (?i)^(CSV|ZIP|TXT)$)
:) the result is a javascript error. The error says: "Syntax error in
:) regular expression"
:) (^(CSV|ZIP|TXT)$/i does not work)
:)
:) Any idea what I am doing wrong? Thanks in advance for your responses!
You are using the wrong language. Perl regular expressions should
be used in Perl, not in javascript.
Abigail
--
sub f{sprintf$_[0],$_[1],$_[2]}print f('%c%s',74,f('%c%s',117,f('%c%s',115,f(
'%c%s',116,f('%c%s',32,f('%c%s',97,f('%c%s',0x6e,f('%c%s',111,f('%c%s',116,f(
'%c%s',104,f('%c%s',0x65,f('%c%s',114,f('%c%s',32,f('%c%s',80,f('%c%s',101,f(
'%c%s',114,f('%c%s',0x6c,f('%c%s',32,f('%c%s',0x48,f('%c%s',97,f('%c%s',99,f(
'%c%s',107,f('%c%s',101,f('%c%s',114,f('%c%s',10,)))))))))))))))))))))))))
------------------------------
Date: Fri, 22 Oct 2004 06:36:03 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: case INsensitive regular expressions
Message-Id: <nT1ed.12744$n81.3370@trnddc08>
sabinosa wrote:
> I am working with a RegularExpressionValidator in Visual Studio.NET.
Interesting! I didn't know that Visual Studio.NET supports Perl. I guess
there is always something new to learn.
> I would like to define a custom regular expression that ignores the
> letter case and therefore is case INsensitive. I have seen that the
> syntax might be something like "(?i)" or "/i".
Why don't you check the readily available documentation?
From "perldoc perlre":
Matching operations can have various modifiers. Modifiers that relate to
the interpretation of the regular expression inside are listed below.
Modifiers that alter the way a regular expression is used by Perl are
detailed in the section on "Regexp Quote-Like Operators" in the perlop
manpage and the section on "Gory details of parsing quoted constructs"
in the perlop manpage.
i Do case-insensitive pattern matching.
> However, when I try to
> use that as part of my regular expression (ex. (?i)^(CSV|ZIP|TXT)$)
This is not a regular expression. Well, it might be, but ...
> the result is a javascript error.
Your system must be badly screwed up. Why would perl report a javascript
error?
> The error says: "Syntax error in
> regular expression"
> (^(CSV|ZIP|TXT)$/i does not work)
At least the trailing /i is the correct syntax.
Please post a short, but selfcontained program that exposes the problem,
together with a description of what you expect the program to do versus what
behaviour you are observing. Then we may be able to determine if the problem
is with your code or your expectation.
> Any idea what I am doing wrong?
For once: not posting any actual code. How are we supposed to reproduce and
analyse your problem if you don't tell us how.
jue
------------------------------
Date: 21 Oct 2004 16:02:13 -0700
From: justkule@yahoo.com (siddhartha mulpuru)
Subject: date time manipulation perl
Message-Id: <78e9cb22.0410211502.2f8b2d05@posting.google.com>
Hi,
I need to generate all the dates between a range of dates eg.. I need
all the dates between date A say 1/1/2004 and date B say 3/3/2004. Can
i get some code samples how i can implement this?
I had been looking for any date time modules that are installed but i
am not sure if there are any , below is the list of modules installed
Archive::Tar -- 1.04
CGI -- 3.00
CPAN -- 1.76
Compress::Zlib -- 1.22
Convert::BER -- 1.31
Devel::CoreStack -- 1.3
Devel::Symdump -- 2.03
Digest::MD5 -- 2.27
File::Spec -- 0.85
HTML::Parser -- 3.31
HTML::Tagset -- 3.03
IO-stringy -- ???
MIME-tools -- ???
MIME::Base64 -- 2.20
MIME::Lite -- 3.01
Mail -- ???
Net -- ???
Net::Telnet -- 3.03
Parse::RecDescent -- 1.94
Perl -- 5.8.0
Spreadsheet::WriteExcel -- 0.41
Term::ReadKey -- 2.21
Term::ReadLine -- 1.00
URI -- 1.25
libwww-perl -- ???
If possible i would like something to work using these modules since i
do not have the admin rights and a new module installation would take
a lot of time to get through.
Thanks so much for your time and appreciate your time
Sid
------------------------------
Date: Thu, 21 Oct 2004 18:51:17 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: date time manipulation perl
Message-Id: <slrncngirl.8li.tadmc@magna.augustmail.com>
siddhartha mulpuru <justkule@yahoo.com> wrote:
> I need to generate all the dates between a range of dates
I'd use one of the Date::* modules for that:
http://search.cpan.org
> If possible i would like something to work using these modules since i
> do not have the admin rights
You do not need admin rights to install modules.
perldoc -q module
How do I keep my own module/library directory?
> and a new module installation would take
> a lot of time to get through.
How long would it take to type the below?
perl Makefile.PL PREFIX=/home/justkule/modules
make
make test
make install
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 22 Oct 2004 02:59:58 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: date time manipulation perl
Message-Id: <2tr4e6F23ihuiU1@uni-berlin.de>
siddhartha mulpuru wrote:
> Hi,
Do not multi-post!!
http://www.uwasa.fi/~ts/http/crospost.html
I've seen the same question in comp.lang.perl.misc and
comp.lang.perl.modules, and who knows whereelse you posted it. Read the
above document to learn why doing so is considered very rude.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Thu, 21 Oct 2004 20:54:22 -0400
From: "daniel kaplan" <nospam@nospam.com>
Subject: deciphering emails in PERL
Message-Id: <1098406472.601670@nntp.acecape.com>
i am using net::pop3 to read from my email server, but am having some
difficulties...
for instance i can easily find the FROM and TO and SUBJECT
but deiphering where the BODY of the message itself is kind of hard....so
manny headers, and they change depending on the format (HTML vs. NON) and
the sending app...OE, AOL, etc
i have to think, with the vast exapnse of lib. i see out there for PERL,
someone has written something? no?
------------------------------
Date: Thu, 21 Oct 2004 22:04:28 -0400
From: Bob Walton <see@sig.invalid>
Subject: Re: deciphering emails in PERL
Message-Id: <4178688e$1_2@127.0.0.1>
daniel kaplan wrote:
> i am using net::pop3 to read from my email server, but am having some
> difficulties...
>
> for instance i can easily find the FROM and TO and SUBJECT
>
> but deiphering where the BODY of the message itself is kind of hard....so
> manny headers, and they change depending on the format (HTML vs. NON) and
> the sending app...OE, AOL, etc
>
> i have to think, with the vast exapnse of lib. i see out there for PERL,
> someone has written something? no?
Did you miss the FAQ "How do I parse a mail header"? (in perlfaq9). It
points you to some stuff on CPAN, which is an excellent place to look
for pre-written code to do common tasks in Perl.
The body of a mail message starts after the first null line. You should
be able separate the header from the body with something like:
my $header;my $body;
($header,$body)=split "\n\n",$msg,2;
This assumes you have one message in $msg -- mail messages in a standard
mail file each start with the characters "From " starting in column 1,
without the quotes but including the space (not to be confused with the
"From:" header line). Text lines starting with those characters is
prohibited in messages, and is commonly handled by replacing "From " in
the message body with ">From " if it occurs in column 1.
HTH.
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: Thu, 21 Oct 2004 22:14:02 -0400
From: "daniel kaplan" <nospam@nospam.com>
Subject: Re: deciphering emails in PERL
Message-Id: <1098411253.968431@nntp.acecape.com>
i reposted this, my OE never picked up my post, but now your reply showed
up...weird
------------------------------
Date: Thu, 21 Oct 2004 23:10:25 -0400
From: "daniel kaplan" <nospam@nospam.com>
Subject: Re: deciphering emails in PERL
Message-Id: <1098414638.41532@nntp.acecape.com>
gotta say, can't find the dox for Mail::Header
the onlp place i found via google,
http://search.cpan.org/~markov/MailTools-1.64/Mail/Header.pm doesn't come up
------------------------------
Date: Fri, 22 Oct 2004 00:14:15 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: deciphering emails in PERL
Message-Id: <5OudnQStsNGFFOXcRVn-og@adelphia.com>
daniel kaplan wrote:
> the onlp place i found via google,
If you're looking for Perl-related stuff, the best place to search is:
<http://search.cpan.org>
Don't get me wrong - Google is *great* for general web-wide searches,
but for searching for Perl modules you want to restrict your focus a
bit. Any modules worth considering are on CPAN, so you don't need to
worry about missing anything.
> http://search.cpan.org/~markov/MailTools-1.64/Mail/Header.pm doesn't come up
CPAN's not going to disappear permanently. Give it a few hours and try
again later. Or is this homework due in the morning? :-)
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Fri, 22 Oct 2004 00:34:57 -0400
From: "daniel kaplan" <nospam@nospam.com>
Subject: Re: deciphering emails in PERL
Message-Id: <1098419708.343316@nntp.acecape.com>
lol, no homework....but am in a small rush
i really have bneen programming for years, C and Win32...but no C++ and no
PERL
so my brain is stuck in C mode for 20 years...hard to just chnge direction
------------------------------
Date: Fri, 22 Oct 2004 04:35:51 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: fatalsToBrowser
Message-Id: <slrncnh3h7.nsq.efflandt@typhoon.xnet.com>
On Thu, 21 Oct 2004 17:10:25 -0400, daniel kaplan <nospam@nospam.com> wrote:
> use CGI::Carp qw(fatalsToBrowser);
>
> i still JUST get the Internal 500 error, am i suing the above line wrong? i
> wanted so that all errors go to web browser, for debugging, thanks
That only traps errors while the script is running. It will not tell you
precompile errors like bad shebang line, missing semicolon, mismatched
brackets, quotes, etc. Failing to strip carriage returns out of a Win
file on a Unix server can kill it (shell cannot find "perl^M").
You should test the script in the server shell first (or similar OS).
Otherwise a working wrapper script that calls it and returns STOUT and
STDERR to the browser can help.
------------------------------
Date: Fri, 22 Oct 2004 18:54:45 +1300
From: "Tintin" <tintin@invalid.invalid>
Subject: Re: fatalsToBrowser
Message-Id: <2trlj4F242iurU1@uni-berlin.de>
"daniel kaplan" <nospam@nospam.com> wrote in message
news:1098393046.69531@nntp.acecape.com...
> use CGI::Carp qw(fatalsToBrowser);
>
> i still JUST get the Internal 500 error, am i suing the above line wrong?
> i
> wanted so that all errors go to web browser, for debugging, thanks
In that case, it means the script doesn't even get to the point where it can
run.
Typically this is due to:
1. Incorrect #! line
2. Wrong permissions.
3. FTPing the script in binary mode from your PC.
------------------------------
Date: Thu, 21 Oct 2004 15:07:35 -0700
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: Help on Perl Split Function
Message-Id: <211020041507350154%jgibson@mail.arc.nasa.gov>
In article <e3b96026.0410211312.556efd1b@posting.google.com>, Vishal
<vishalanand20@gmail.com> wrote:
> Her is a simple PERL file: spl.pl
>
[Perl program that splits its first argument on commas snipped]
>
> When I execute the above perl file; it's give the following output :
>
> perl spl.pl a,abc,"def,ijhk",lmn
>
> in_arr 0 is a
> in_arr 1 is abc
> in_arr 2 is def
> in_arr 3 is ijhk
> in_arr 4 is lmn
>
>
>
> But I want the output as:
>
> in_arr 0 is a
> in_arr 1 is abc
> in_arr 2 is def,ijhk
> in_arr 3 is lmn
> in_arr 4 is
By the time perl sees the command line argument, the shell has already
removed the double quote marks. Print out the argument before you split
it to verify. If you want perl to get the quotes, you will have to
escape them or put the whole parameter in single quotes. Then follow
Sinan's advice.
------------------------------
Date: Thu, 21 Oct 2004 22:05:46 -0400
From: "daniel kaplan" <nospam@nospam.com>
Subject: help with net pop3
Message-Id: <1098411015.529921@nntp.acecape.com>
i am using net::pop3 to read from my email server, but am having some
difficulties...
for instance i can easily find the FROM and TO and SUBJECT
but deiphering where the BODY of the message itself is kind of hard....so
manny headers, and they change depending on the format (HTML vs. NON) and
the sending app...OE, AOL, etc
i have to think, with the vast exapnse of lib. i see out there for PERL,
someone has written something? no?
------------------------------
Date: Thu, 21 Oct 2004 23:02:45 GMT
From: "roach" <joey01@cfl.rr.com>
Subject: How to insert new lines in string?
Message-Id: <peXdd.19$Mc.18@tornado.tampabay.rr.com>
Hi
I have a file that is 1 line but 1000's of characters long.
How can I insert a newline every nth character? or would sed be better for
this?
Thanks
------------------------------
Date: Thu, 21 Oct 2004 18:46:49 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: How to insert new lines in string?
Message-Id: <slrncngij9.8li.tadmc@magna.augustmail.com>
roach <joey01@cfl.rr.com> wrote:
> How can I insert a newline every nth character?
$string =~ s/(.{$n})/$1\n/g;
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 21 Oct 2004 17:05:01 -0700
From: Jon Ericson <Jon.Ericson@jpl.nasa.gov>
Subject: Re: How to insert new lines in string?
Message-Id: <rcgy8hzzkgi.fsf@Jon-Ericson.sdsio.prv>
"roach" <joey01@cfl.rr.com> writes:
> I have a file that is 1 line but 1000's of characters long. How can
> I insert a newline every nth character? or would sed be better for
> this?
fold or fmt would be better. There is a perl implementation of fold
as a part of the Perl Power Tools bundle, which is available on CPAN.
(search.cpan.org isn't responding at the moment or I'd give you a
direct link.)
Jon
------------------------------
Date: Thu, 21 Oct 2004 16:49:59 -0700
From: Jon Ericson <Jon.Ericson@jpl.nasa.gov>
Subject: Re: How to redefine warnings on recursion level
Message-Id: <rcg3c071viw.fsf@Jon-Ericson.sdsio.prv>
"Paul Lalli" <mritty@gmail.com> writes:
> I think the question has to be asked - why are you doing this? If this
> was just a sample to show us the warning message, that's fine. But if
> this is how you're actually calculating a factoral (which is the
> mathematical term for what you're doing - not "faculty"), have you
> considered an iterative algorithm instead?
>
> my $fact = 1;
> $fact *= $_ for (1..100);
^ 2 saves a cycle here.
> print "100! = $fact\n";
Depending on how often a script calculates factorial, it's possible a
memoized recursive algorithm would be a win. Consider 100! - 98!, for
instance.
Jon
------------------------------
Date: 21 Oct 2004 23:04:59 -0700
From: notruf_1102003@yahoo.de (Gerhard M)
Subject: Re: How to redefine warnings on recursion level
Message-Id: <942c5b0d.0410212204.5e21f81c@posting.google.com>
"Paul Lalli" <mritty@gmail.com> wrote in message news:<YPSdd.3818$EL5.1324@trndny09>...
>
> no warnings 'recursion';
thanks, meanwhile i've found it in perldoc perllexwarn
> Check out %SIG as described in perldoc perlvar
...have to look at this
>
> I think the question has to be asked - why are you doing this? If this
> was just a sample to show us the warning message, that's fine. But if
> this is how you're actually calculating a factoral (which is the
> mathematical term for what you're doing - not "faculty")
oops... used the dictionary and simply picked a word wo/ checking it
> , have you
> considered an iterative algorithm instead?
>
Yes, i've thougt about it. Thats my code:
%all=();
...
sub insert ($$$) {
my ($key,$data;$cnt)=@_;
if (defined $all{$_[0]."[".$_[2]."]"}) { # already exists
insert($key, $data, ++$cnt);
} else { # insert data
$all{$_[0]."[".$_[2]."]"} = $data
}
}
This also could be done with an iterative algorithm. The recursion was
my first idea and it works (except the warning). It's easy to
understand so why to change it?
remark:
It's a stupid way build up "a kind of" arrays. Better it should have
be done with something like "push (@{$all{key}}, $data)". But the
other routines using %all are only able to handle simple variables in
%all.
gerhard
------------------------------
Date: 21 Oct 2004 17:16:41 -0700
From: krakle@visto.com (krakle)
Subject: Re: HTML::Parser and <p> behaviour?
Message-Id: <237aaff8.0410211616.5fc4f392@posting.google.com>
"Alfred Z. Newmane" <a.newmane.remove@eastcoastcz.com> wrote in message news:<2tnr42F212vt3U1@uni-berlin.de>...
> krakle wrote:
> > Tad McClellan <tadmc@augustmail.com> wrote in message
> > news:<slrncmssf8.3ss.tadmc@magna.augustmail.com>...
> >> Pinocchio (aka: Fred Canis, aka: 187, aka: krakle...)
> >
> > uhh no.
>
> It too suprises me how someone as smart as Tad can make such mistakes as
> this. (I'm formerly 187, my old nick name - my /only/ other usenet/forum
> name.) If someone wants to cast doubt, then post some actual evidence -
> which obviously doesn't exist, for hopefully obvious reaons.
This isn't the first time Tad thought I was someone else... He's fixated on me...
------------------------------
Date: Fri, 22 Oct 2004 04:09:14 GMT
From: Rocco Caputo <troc@pobox.com>
Subject: Re: options to shrink-wrap a perl script
Message-Id: <slrncnh20m.hdf.troc@eyrie.homenet>
On 21 Oct 2004 07:25:06 -0700, dan baker wrote:
> Tad McClellan <tadmc@augustmail.com> wrote in message
>> > didn't your mother ever teach you to keep your mouth shut if you dont
>> > have anything nice (or helpful) to say?
>>
>> Where is the nice or helpful part in *your* followup, huh?
>
> in that I am attempting to clue you guys into acceptable public
> behavior. You might get a lot further in life and have more friends.
It's a rude tourist that lectures the natives on their behavior.
We understand your language.
You don't need to repeat yourself.
You don't need to talk louder.
We just don't agree.
When do you return home?
--
Rocco Caputo - http://poe.perl.org/
------------------------------
Date: Thu, 21 Oct 2004 17:11:58 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Perl "Split" Function help
Message-Id: <slrncngd1e.8f3.tadmc@magna.augustmail.com>
A. Sinan Unur <1usa@llenroc.ude.invalid> wrote:
> vishalanand20@gmail.com (Vishal) wrote in news:e3b96026.0410211315.5abd7812
> @posting.google.com:
>
>> Her is a simple PERL file: spl.pl
>
> Don't repeatedly post the same message (with variations in the subject line
> no less).
And do not post Frequently Asked Questions, as they have already
been answered.
perldoc -q split
How can I split a [character] delimited string except when inside
[character]? (Comma-separated files)
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 21 Oct 2004 17:15:33 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Perl "Split" Function help
Message-Id: <slrncngd85.8f3.tadmc@magna.augustmail.com>
Vishal <vishalanand20@gmail.com> wrote:
> Or if you know any Perl guy
> then pass me his/her mail ID.
What is a "mail ID"?
If you meant "email address" then you can send email to my
address in the Reply-To header above to discuss my
contract programming rates.
> Please reply ASAP.
Volunteers do not take orders, it is best not to attempt to
give them orders as it is likely to annoy them.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 22 Oct 2004 08:59:45 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Perl "Split" Function help
Message-Id: <e0dgn0l30f0es1nmk983a2oe10hg6fri2c@4ax.com>
On 21 Oct 2004 14:15:39 -0700, vishalanand20@gmail.com (Vishal) wrote:
>Subject: Perl "Split" Function help
[snip]
>Her is a simple PERL file: spl.pl
D'Oh! You got it right in the Subject: line. Worse luck it went wrong
in the body of the article...
While we're at it, what about avoiding to post the same article
twice?!?
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 7284
***************************************
