[18088] in Perl-Users-Digest
Perl-Users Digest, Issue: 248 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Feb 8 18:11:06 2001
Date: Thu, 8 Feb 2001 15:10:24 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <981673824-v10-i248@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 8 Feb 2001 Volume: 10 Number: 248
Today's topics:
Re: MP3 metainfo from filename <elijah@workspot.net>
Re: MP3 metainfo from filename <bjoern@hoehrmann.de>
New 0.9 release of HTTP::Request::Form <gb@hugo.westfalen.de>
Re: Newbie question on assoc array (Mark Jason Dominus)
Re: perl editor <john_lague@hotmail.com.nospam>
Re: perl editor <bingalls@panix.com>
Re: perlmail vs procmail <bingalls@panix.com>
Re: perlmail vs procmail (Abigail)
Printing to Windows default printer? <karlt@pine-grove.com>
Re: Problems with Perl on Apache? <pkrupa@redwood.rsc.raytheon.com>
reading config file with do <cote71@home.com>
Re: reading config file with do <aqumsieh@hyperchip.com>
Regular Expression Question bonjaa@my-deja.com
Re: Regular Expression Question <godzilla@stomp.stomp.tokyo>
Re: Regular Expression Question <dpc29@sheetmusic.org.uk>
Re: Regular Expression Question (Peter J. Acklam)
Re: Regular Expression Question (David H. Adler)
Re: Regular Expression Question <godzilla@stomp.stomp.tokyo>
Re: Regular Expression Question (Rudolf Polzer)
Specifying the length of regular expression bonjaa@my-deja.com
Using regex to match numbers (not digits)? nukes666@my-deja.com
Re: When is an array @f allowed in a string? (Mark Jason Dominus)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 8 Feb 2001 19:08:41 GMT
From: Eli the Bearded <elijah@workspot.net>
Subject: Re: MP3 metainfo from filename
Message-Id: <eli$0102081406@qz.little-neck.ny.us>
In comp.lang.perl.misc, Bjoern Hoehrmann <derhoermi@gmx.net> wrote:
> * Eli the Bearded wrote in comp.lang.perl.misc:
> >If you are on a Windows box, try the auto-tagger of QCD. It
> >uses CDDB to do the identification.
> I'd like to know how you think this would work. It should be rather hard
> to get information out of the CDDB database without knowing at least
> artist and title or the CDDBID.
Roughly what happens (as I understand it) is QCD sends the filename
to CDDB and they do the match and send back the results. QCD then
adds ID3 tags to the MP3 file.
Elijah
------
but this is getting off-topic for a perl group
------------------------------
Date: Thu, 08 Feb 2001 20:47:42 +0100
From: Bjoern Hoehrmann <bjoern@hoehrmann.de>
Subject: Re: MP3 metainfo from filename
Message-Id: <3aa9f75a.30447050@news.bjoern.hoehrmann.de>
* Eli the Bearded wrote in comp.lang.perl.misc:
>> >If you are on a Windows box, try the auto-tagger of QCD. It
>> >uses CDDB to do the identification.
>> I'd like to know how you think this would work. It should be rather hard
>> to get information out of the CDDB database without knowing at least
>> artist and title or the CDDBID.
>
>Roughly what happens (as I understand it) is QCD sends the filename
>to CDDB and they do the match and send back the results. QCD then
>adds ID3 tags to the MP3 file.
Thanks, it actually works quite good if the filename provides useable
information. Is there someone who currently implements a CDDB2 interface
in Perl?
x'post and f'up to comp.lang.perl.modules
--
Björn Höhrmann ^ mailto:bjoern@hoehrmann.de ^ http://www.bjoernsworld.de
am Badedeich 7 ° Telefon: +49(0)4667/981028 ° http://bjoern.hoehrmann.de
25899 Dagebüll # PGP Pub. KeyID: 0xA4357E78 # http://learn.to/quote [!]e
~~ will code for food. ~~
------------------------------
Date: Thu, 8 Feb 2001 19:07:05 GMT
From: Georg Bauer <gb@hugo.westfalen.de>
Subject: New 0.9 release of HTTP::Request::Form
Message-Id: <t85s2skblff623@corp.supernews.com>
Hi!
Almost a year after the 0.7 I have a new release ready (0.8 was an
internal release because I forogt to upload it :-) ). This new release
includes some bugfixes and new features.
0.8 had some bugfixes and some extensions:
- textarea should now work in both forms. Before there was either
a problem with textareas that included some default text, or
with empty textareas. Now Form.pm does look wether the contents
of a textarea is able to perform as_HTML and only uses it if
it is able to do it. Should fix some longstanding problems with
textareas.
- ex/yahoo.pl wasn't in the MANIFEST
- added a simple test procedure that just checks if it can be
loaded
0.9 has some bugfixes and some extensions by Sean M. Burke:
- ISINDEX is supported
- a new constructor new_many is available that parses all forms of
a HTML file so you don't have to manually extract links any
more. This constructor handles stray form elements outside of
forms.
- the name of form elements is cached and can be queried
The new features of 0.9 aren't fully tested by me, so take some care if
you use them. I would like to be informed wether everything works as
expected. Sorry for the long delay of the new release.
bye, Georg
--
http://www.westfalen.de/hugo/
------------------------------
Date: Thu, 08 Feb 2001 21:01:32 GMT
From: mjd@plover.com (Mark Jason Dominus)
Subject: Re: Newbie question on assoc array
Message-Id: <3a83092c.6125$1ae@news.op.net>
Keywords: facial, mean, stumpage, til
[Mailed and posted]
In article <95rv5j$mh6$1@nnrp1.deja.com>, <abstkc@my-deja.com> wrote:
>Here's how I load my array:
>
>($item,$name,$field) = split(/,/, $_, 2);
>$ptrcd{$item} = $field;
If what you have told us is correct, then you are loading the hash
incorrectly. The '2' argument to 'split' tells it to return no more
than 2 items. If a typical input record is
ITEM1,NAME1,FIELD1
then the return value from 'split' will be a list of *two* items:
'ITEM1'
and
'NAME1,FIELD1'
So $name becomes 'NAME1,FIELD1' and $field is undefined.
Then you store this undefined field value into the hash. Perhaps you
wanted to use
split (/,/, $_, 3);
or
split (/,/, $_);
instead.
This diagnosis is inconsistent with some the what you say in the rest
of your article. But the article is also inconsistent with
itself--what you describe cannot be happening the way you say it is.
So I have to conclude that you made a mistake somewhere in your
report, and there is no point in pursuiing it further until you make a
correct report.
>I can not get a value for $ptrcd{590475T0064} -- even manually. My
>associative array doesn't like my string -- but I thought that was
>one of the beuties of associative arrays -- the ability to handle
>strings as keys...???
Yes. The problem is elsewhere; you've made a mistake somewhere that
will probably be very difficult for anyone to guess unless they can see
the real code.
Good luck.
--
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
------------------------------
Date: Thu, 8 Feb 2001 14:56:59 -0600
From: "john L" <john_lague@hotmail.com.nospam>
Subject: Re: perl editor
Message-Id: <95v1kg$kvv$1@hovis.rdc.noaa.gov>
"hotschi" <jenshoja@t-online.de> wrote in message
news:981573506.2016234987@news.t-online.de...
> Hello out there,
> can anyone recommend me a good perl editor for linux.
> hotschi
Try "nedit", a good all purpose editor, esp. for Unix/Linux. Also has
syntax highlighting.
http://nedit.org/
john l
------------------------------
Date: 08 Feb 2001 17:10:46 -0500
From: Bruce Ingalls <bingalls@panix.com>
Subject: Re: perl editor
Message-Id: <wi2elx8hlll.fsf@mail.conde-dev.com>
> "hotschi" <jenshoja@t-online.de> wrote in message
> > can anyone recommend me a good perl editor for linux.
Emacs works with most languages & most OSes.
There is some work on getting it to use perl as its macro language.
Beyond syntax highlighting, there is a debugger, and tiny-tools add-on supports
POD and some contextual help.
nedit is a fast, small editor; emacs / xemacs are complete environments.
See EMacro's emacs.html at the url at bottom for links.
--
EMacro remakes Emacs http://www.sourceforge.net/projects/emacro/
------------------------------
Date: 08 Feb 2001 16:22:48 -0500
From: Bruce Ingalls <bingalls@panix.com>
Subject: Re: perlmail vs procmail
Message-Id: <wi2k870hntj.fsf@mail.conde-dev.com>
Eric, Chris:
Thank you for the time to expound your enlightenment.
I felt that I was restraining my anger at being sent a "please go away"
message. Apparently, I needed more effort.
Perhaps you will chew over my "strong" language, and consider that, if Perl is
to be backed more by a community than by an industry, and if that community is
to be open, it needs to consider steps welcome acceptable members.
ebohlman@omsdev.com (Eric Bohlman) writes:
> Chris Stith <mischief@velma.motion.net> wrote:
> > It is friendly for people to try to help someone by giving a
> > possibly correct group... should we pretend instead
> > of mentioning that this is not a good place to ask? Telling
> > someone he is wrong is not a personal attack.
> And it needs to be pointed out again and again that a "friendly" wrong
> answer is worth less than nothing, whereas a brusque or even rude right
> answer is worth plenty.
If I tell you that you are fat & stupid, I can point to IQ charts and insurance
health charts to back up my facts.
If you respond by punching me in the face, I got some sense knocked into me,
and I doubt that you will have had an epiphany.
If I say instead, "Aren't you concerned about your health?" "Consider spending
more time studying Perl", I, for one, would be more receptive to such
knowledge.
It does not have to be an either-or situation.
Frankly, I am certain that I am not the first to post a topic that did not
narrowly conform to language-lawyer analysis of the core perl syntax.
I am just as certain that I will not be the last. Except for spammers, I
believe that most people want to do the right thing. You can avoid these
problems by creating a clear place for people to go to.
This newsgroup has an unfortunate name. When looking to post my question about
Perl tools, I noticed that it did not fit with perlTk, modules, moderated or
announce. What's left? comp.lang.perl.misc. I did notice that there is a
comp.lang.java.softwaretools, but no comp.lang.perl.softwaretools. In fact, I
even see other discussions currently on Perl tools.
I am just as unfamiliar with the process of Calling For Votes.
Rather than expending effort policing users who do not conform, create an other
outlet. It seems that comp.lang.perl.web might be good; I'm sure you folks have
better ideas.
My recommendation, is to find the most satisfaction, for the least effort, than
to strive for perfection, even if there is no perl syntax that describes the
web.
--
EMacro remakes Emacs http://www.sourceforge.net/projects/emacro/
------------------------------
Date: 8 Feb 2001 21:46:19 GMT
From: abigail@foad.org (Abigail)
Subject: Re: perlmail vs procmail
Message-Id: <slrn9864tb.o8o.abigail@tsathoggua.rlyeh.net>
Bruce Ingalls (bingalls@panix.com) wrote on MMDCCXVIII September MCMXCIII
in <URL:news:wi2k870hntj.fsf@mail.conde-dev.com>:
~~
~~ I am just as unfamiliar with the process of Calling For Votes.
~~ Rather than expending effort policing users who do not conform, create an oth
~~ outlet. It seems that comp.lang.perl.web might be good; I'm sure you folks ha
~~ better ideas.
~~ My recommendation, is to find the most satisfaction, for the least effort, th
~~ to strive for perfection, even if there is no perl syntax that describes the
~~ web.
Why is it that so many newcomers think we should do the work to change
what we've created in the past to suit their needs?
I first suggested that you ask elsewhere, as this group is off-topic
for that question. I didn't suggest you would leave and not return.
But now, I've changed my mind. Please fuck off and die.
Abigail
--
tie $" => A; $, = " "; $\ = "\n"; @a = ("") x 2; print map {"@a"} 1 .. 4;
sub A::TIESCALAR {bless \my $A => A} # Yet Another silly JAPH by Abigail
sub A::FETCH {@q = qw /Just Another Perl Hacker/ unless @q; shift @q}
------------------------------
Date: Thu, 08 Feb 2001 22:53:09 GMT
From: "Karl Thompson" <karlt@pine-grove.com>
Subject: Printing to Windows default printer?
Message-Id: <prFg6.239383$w35.41218438@news1.rdc1.nj.home.com>
Hi,
I'm familiar with opening a device such as LPT1 and printing to the device.
I don't understand how to print to Windows' default printer, whether it be a
local printer or located on the network.
What's the syntax for doing this please?
Thanks,
Karl
------------------------------
Date: Thu, 08 Feb 2001 13:28:46 -0700
From: "Peter A. Krupa" <pkrupa@redwood.rsc.raytheon.com>
Subject: Re: Problems with Perl on Apache?
Message-Id: <3A83017E.EA784D63@redwood.rsc.raytheon.com>
This question probably belongs in comp.infosystems.www.servers.ms-windows... :-o
What you're trying to do is a server side include (SSI). In the documentation
that came with Apache server is a topic titled "Configuring your server to
permit SSI".
Bascially you need to modify your httpd.conf file to:
1. Add "Includes" to your "Options".
2. Add (or uncomment) "AddType text/html .shtml".
3. Add (or uncomment) "AddHandler server-parsed .shtml".
And your testperl.shtl should look like this:
<html>
<!--#include virtual="/cgi-bin/helloworld.pl"-->
</html>
Good luck!
------------------------------
Date: Thu, 08 Feb 2001 15:30:08 -0500
From: tjc <cote71@home.com>
Subject: reading config file with do
Message-Id: <3A8301D0.86EBF4B@seismo.nrcan.gc.ca>
The perl cookbook recipe 8.16 describes how to read a config file with
do.
I have noticed some different behavior depending on whether or not
the do is called from a function. Here are some simplified examples.
I have a config file named 'bar' that contains
$t = 1;
My script to read it is:
#!/usr/local/bin/perl -w
use vars qw($t);
$t = 0; snarfle (); print "t = $t\n";
sub snarfle { do 'bar' }
It works as expected printing out 1. By accident, I originally had
my ($t) instead of use vars qw($t) as follows.
#!/usr/local/bin/perl -w
my ($t); # This line is different.
$t = 0; snarfle (); print "t = $t\n";
sub snarfle { do 'bar' }
To my surprise it also printed out 1 and not 0. This is different from
what I expected, since do is not supposed to work in a separate and
unrelated lexical scope and should not be able to affect lexical (my)
variables. I modified this second script to call do directly and not
via a function, as follows.
#!/usr/local/bin/perl -w
my ($t);
$t = 0; do 'bar'; print "t = $t\n"; # No snarfle, call direct
Sure enough it prints out 0, as I would expect. I realize that the
second and third versions are not proper since I'm using my($t) instead
of use vars, but it surprises me that do works differently with my
depending on whether or not it is called from a function.
Any reason for this?
I would expect the second and third scripts to both print out 0.
I'm running Solaris 7 and perl 5.005_03
thanks, tim
------------------------------
Date: Thu, 08 Feb 2001 21:19:11 GMT
From: Ala Qumsieh <aqumsieh@hyperchip.com>
Subject: Re: reading config file with do
Message-Id: <7aitmkyisv.fsf@merlin.hyperchip.com>
tjc <cote71@home.com> writes:
> #!/usr/local/bin/perl -w
> my ($t); # This line is different.
>
> $t = 0; snarfle (); print "t = $t\n";
> sub snarfle { do 'bar' }
>
> To my surprise it also printed out 1 and not 0.
No. This prints 0 for me. What version of Perl are you using? I'm using
5.6.0.
--Ala
------------------------------
Date: Thu, 08 Feb 2001 19:51:48 GMT
From: bonjaa@my-deja.com
Subject: Regular Expression Question
Message-Id: <95utch$a1k$1@nnrp1.deja.com>
How can I write a regular expression for the following:
One or more A followed by zero or more B followed by one or more C,
with the total length (all A's + B's + C's) greater than 10?
Simply saying A+B*C+ is apparently not enough, because the final
condition (length greater than 10) is not met.
Thanks.
Bon
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Thu, 08 Feb 2001 12:09:55 -0800
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Regular Expression Question
Message-Id: <3A82FD13.268BC07E@stomp.stomp.tokyo>
bonjaa@my-deja.com wrote:
> How can I write a regular expression for the following:
> One or more A followed by zero or more B followed by one or more C,
> with the total length (all A's + B's + C's) greater than 10?
> Simply saying A+B*C+ is apparently not enough, because the final
> condition (length greater than 10) is not met.
Could you rephrase your question so it
is understandable? Your,
"One or more A followed by zero or more B followed by one or more C"
doesn't make one cowlick of sense.
Godzilla!
------------------------------
Date: Thu, 8 Feb 2001 21:02:29 +0000
From: David Chan <dpc29@sheetmusic.org.uk>
Subject: Re: Regular Expression Question
Message-Id: <Pine.SOL.4.21.0102082100330.17395-100000@yellow.csi.cam.ac.uk>
On Thu, 8 Feb 2001 bonjaa@my-deja.com wrote:
> How can I write a regular expression for the following:
>
> One or more A followed by zero or more B followed by one or more C,
> with the total length (all A's + B's + C's) greater than 10?
> Simply saying A+B*C+ is apparently not enough, because the final
> condition (length greater than 10) is not met.
It is possible to write such a regex, but are you sure that's what you
want to do? I.e., can you not make do with something like this?:
(/(A+B*C+)/ and length $1 > 10)
What is the context of what you are doing?
David
--
Lbh unir gbb zhpu serr gvzr.
------------------------------
Date: 08 Feb 2001 22:14:39 +0100
From: jacklam@math.uio.no (Peter J. Acklam)
Subject: Re: Regular Expression Question
Message-Id: <wkwvb098v1.fsf@math.uio.no>
"Godzilla!" <godzilla@stomp.stomp.tokyo> writes:
> bonjaa@my-deja.com wrote:
>
> > How can I write a regular expression for the following:
>
> > One or more A followed by zero or more B followed by one or
> > more C, with the total length (all A's + B's + C's) greater
> > than 10? Simply saying A+B*C+ is apparently not enough,
> > because the final condition (length greater than 10) is not
> > met.
>
> Could you rephrase your question so it is understandable?
I didn't have any problems understanding it, so here is my
suggestion,
\A(?=.{10}\z)A+B*C+
Peter
--
sub int2roman{@x=split//,sprintf'%04d',shift;@r=('','I','V','X','L','C','D'
,'M');@p=([],[1],[1,1],[1,1,1],[1,2],[2],[2,1],[2,1,1],[2,1,1,1],[1,3],[3])
;join'',@r[map($_+6,@{$p[$x[0]]}),map($_+4,@{$p[$x[1]]}),map($_+2,@{$p[$x[2
]]}),map($_+0,@{$p[$x[3]]})];}print "@{[map{int2roman($_)}@ARGV]}\n";#JAPH!
------------------------------
Date: 8 Feb 2001 21:22:18 GMT
From: dha@panix2.panix.com (David H. Adler)
Subject: Re: Regular Expression Question
Message-Id: <slrn9863ga.eju.dha@panix2.panix.com>
On Thu, 08 Feb 2001 19:51:48 GMT, bonjaa@my-deja.com
<bonjaa@my-deja.com> wrote:
>How can I write a regular expression for the following:
>
>One or more A followed by zero or more B followed by one or more C,
>with the total length (all A's + B's + C's) greater than 10?
>Simply saying A+B*C+ is apparently not enough, because the final
>condition (length greater than 10) is not met.
You could always combine two separate tests:
/(A+B*C+)/ and length($1) > 10;
dha
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
All the study in the world doesn't make it science - Paul Weller
------------------------------
Date: Thu, 08 Feb 2001 14:34:34 -0800
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Regular Expression Question
Message-Id: <3A831EFA.CFF46214@stomp.stomp.tokyo>
Peter J. Acklam wrote:
> Godzilla! wrote:
> > bonjaa@my-deja.com wrote:
> > > How can I write a regular expression for the following:
> > > One or more A followed by zero or more B followed by one or
> > > more C, with the total length (all A's + B's + C's) greater
> > > than 10? Simply saying A+B*C+ is apparently not enough,
> > > because the final condition (length greater than 10) is not
> > > met.
> > Could you rephrase your question so it is understandable?
> I didn't have any problems understanding it, so here is my
> suggestion,
> \A(?=.{10}\z)A+B*C+
Really? I read no coding to compensate for
A followed by zero nor coding to compensate
for B followed by one.
Understand or would you like me to draw
pictures to help you understand?
One of my golden rules is to ask if I am
not sure of my understanding another,
especially in cases dealing with a person
who exhibits difficulty in clear and
concise communication.
Godzilla!
------------------------------
Date: Thu, 8 Feb 2001 22:00:33 +0100
From: rpolzer@web.de (Rudolf Polzer)
Subject: Re: Regular Expression Question
Message-Id: <slrn98627h.2va.rpolzer@rebounce.rpolzer-lx>
bonjaa@my-deja.com <bonjaa@my-deja.com> schrieb Folgendes:
> How can I write a regular expression for the following:
>
> One or more A followed by zero or more B followed by one or more C,
> with the total length (all A's + B's + C's) greater than 10?
> Simply saying A+B*C+ is apparently not enough, because the final
> condition (length greater than 10) is not met.
Why a regex?
length $_ > 10 and /A+B*C+/ will do, too.
--
#!/usr/bin/perl -w
$0=q{$0="\n".'$0=q{'.$0.'};eval$0;'."\n";for(<*.pl>){open X,">>$_";print
X$0;close X;}print ''.reverse"\n!suriv lreP rehtona tsuJ>RH<\n"};eval$0;
######################## http://learn.to/quote/ ########################
------------------------------
Date: Thu, 08 Feb 2001 21:41:21 GMT
From: bonjaa@my-deja.com
Subject: Specifying the length of regular expression
Message-Id: <95v3pv$fhp$1@nnrp1.deja.com>
How can I write a regular expression for the following:
One or more A followed by zero or more B followed by one or more C,
with the total length (all A's + B's + C's) greater than 10?
Simply saying A+B*C+ is apparently not enough, because the final
condition (length greater than 10) is not met.
Thanks.
Bon
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Thu, 08 Feb 2001 22:30:55 GMT
From: nukes666@my-deja.com
Subject: Using regex to match numbers (not digits)?
Message-Id: <95v6n0$hud$1@nnrp1.deja.com>
Greetings.
I apologize if this question is elementary, which I suspect it is.
However, I am struggling with it and have searched the web and also
checked the regex section of Learning Perl.
I need to search a file which has, let's say, 2000 numbers in it
between 1 & 2000, each on it's own line. I want to only print numbers
700 through 900 and 1200 through 1500.
I need something which would do something that in my "mind" might look
like this:
while (<FILE>) {
print if /[700-900][1200-1500]/;
}
Apparently, though, this returns any lines based on digit matches, and
not numbers. Could someone suggest the appropriate regex to return
ranges of numbers?
Regards.
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Thu, 08 Feb 2001 20:44:16 GMT
From: mjd@plover.com (Mark Jason Dominus)
Subject: Re: When is an array @f allowed in a string?
Message-Id: <3a83051f.60c0$130@news.op.net>
In article <95ug68$smm$1@nnrp1.deja.com>, <aramis1631@my-deja.com> wrote:
>Had you been using strict, you could not have
>made the error.
Of course, that's nonsense. using 'strict' doesn't prevent you from
making errors; the only thing it does is sometimes emit an error
message.
In this case, the original poster was already getting an error
message. The only difference with 'use strict' is that he would have
gotten a *different* error message.
--
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
------------------------------
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 V10 Issue 248
**************************************
