[19780] in Perl-Users-Digest
Perl-Users Digest, Issue: 1975 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Oct 21 21:05:40 2001
Date: Sun, 21 Oct 2001 18:05:08 -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: <1003712708-v10-i1975@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sun, 21 Oct 2001 Volume: 10 Number: 1975
Today's topics:
Re: Config data not as text file but as module code -- (Ralph Snart)
Re: ez program question (Tad McClellan)
Re: Filename case... <iltzu@sci.invalid>
Re: Hex characters like a form submit? (Tad McClellan)
Re: Hex characters like a form submit? <please@no.spam>
Re: Hex characters like a form submit? <me@REMOVETHIStoao.net>
Re: How to display text file in cgi-bin? <please@no.spam>
Re: lookingglass.pl (Martien Verbruggen)
mod_perl : namespace-confusion <pilsl_@goldfisch.at>
Need multiple matches in a regular expression (Linux_303)
Re: Need multiple matches in a regular expression (Chris Fedde)
Re: Need multiple matches in a regular expression ctcgag@hotmail.com
Re: Need multiple matches in a regular expression <thelma@alpha2.csd.uwm.edu>
Re: Need multiple matches in a regular expression (Mark Jason Dominus)
need some help to begin....urgent (rumi_red)
Re: need some help to begin....urgent (Garry Williams)
Re: need some help to begin....urgent <bwalton@rochester.rr.com>
Re: need some help to begin....urgent <please@no.spam>
perl algorithm (Ivan Kozik)
Re: perl algorithm (Garry Williams)
Re: Printing tif files <thunderbear@bigfoot.com>
Problem with making directories (Peter Kirby)
Re: Problem with making directories (Mark Taylor)
Remove duplicates from a logfile <nospam@newsranger.com>
Re: traversing directories (Tad McClellan)
Re: traversing directories (Mark Jason Dominus)
Re: Truncation of array through reference (Damian James)
Re: xsub - does anything work? (Tad McClellan)
Re: xsub - does anything work? <joe+usenet@sunstarsys.com>
Re: xsub - does anything work? (Mark Jason Dominus)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 22 Oct 2001 00:14:45 GMT
From: jsd@cluttered.com (Ralph Snart)
Subject: Re: Config data not as text file but as module code -- Oops!
Message-Id: <slrn9t6p7q.2ol4.jsd@cluttered.com>
On Sat, 20 Oct 2001 17:38:36 +0200, Markus Dehmann <markus.cl@gmx.de> wrote:
>no, this isn't a metaphor! I start the script that uses the 20MB module and
>wait a minute or so. But then, the script ends and I can read "Getötet."
>which is German and means "Killed.".
>
>So, the process is killed. And "Exporter" is not the problem, I found out.
>
>With some test data, some KB, it works and the module way is much faster
>than the data file way. But a module with >20MB source code seems to be too
>much for the interpreter...? That's bad...
it's almost certainly a per-process limit on the system you're using.
when you try to use more memory than you're allowed, your program just
gets killed. that's the unix way.
are you the administrator on this machine? if so, you can increase
your per-process limits. if you are just an ordinary user with no root
access you may still be able to increase your personal limit with the
shell command "limit" (or "ulimit" depending on your shell).
i use tcsh on freebsd 4 and here's what i see:
> limit
cputime unlimited
filesize unlimited
datasize 524288 kbytes
stacksize 65536 kbytes
coredumpsize unlimited
memoryuse unlimited
descriptors 4136
memorylocked unlimited
maxproc 2067
of course this is my own personal box and memory limits make no sense
for me personally. system administrators can tune these limits systemwide
as they see fit.
anyway there's nothing built in to perl that would limit its ability to
parse your data. the "Killed" message is coming from the operating system
(well, the shell).
you might want to read the unix man pages for the getrlimit and setrlimit
system calls. these will tell you more about how your particular unix
handles per-process limits.
-jsd-
------------------------------
Date: Sun, 21 Oct 2001 22:14:44 GMT
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: ez program question
Message-Id: <slrn9t6fem.a7o.tadmc@tadmc26.august.net>
Mike Ritner <michael@onair.com> wrote:
>I know this is ez to do, but can't find my perl book to look up syntax.
You do not need your Perl book to look up syntax.
You can use the standard Perl docs that got installed on your
hard disk along with perl itself.
>what I am looking to do is use a cgi script to forward to a webpage.
>ie when someone clicks a text link, it will call on "link.cgi" and
>then that script will send them to the appropriate URL.
perldoc -q redirect
"How do I redirect to another page?"
>Please besides posting to this would you also send me an e-mail to
Ask it here, get the answer here (maybe).
>mritner@hotmail.co thanks in advance!
That address does not appear to be valid.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 21 Oct 2001 22:27:48 GMT
From: Ilmari Karonen <iltzu@sci.invalid>
Subject: Re: Filename case...
Message-Id: <1003702637.874@itz.pp.sci.fi>
In article <slrn9t4v7v.cnu.mgjv@martien.heliotrope.home>, Martien Verbruggen wrote:
>
>The original reason why I jumped in this thread was yet another use of
>A-Z and/or a-z to express the character class "all
>(uppercase|lowercase|)alphabetic characters". What A-Z expresses in a RE
>character class is the 26 letters of the English alphabet (one has to
>assume), no more, no less, regardless of locale. That is NOT the same as
>"all alphabetic characters".
>
>It is an important distinction, and therefore should be decently and
>more completely documented. The difference may not matter to anyone who
>only works with English text or other languages where these 26 letters
>express everything, but should matter to anyone who works with other
>languages.
This I can entirely agree with. Character ranges are not the right tool
for matching alphabetic characters. They work in ASCII, because the
code has been deliberately designed that way, but this is a specific
property of ASCII which doesn't extend to other character encodings, not
even those which are extensions of ASCII, such as ISO-8859-n or Unicode.
The EBCDIC hack is probably useful, and important for compatibility.
But it's still a single special case, and has little general relevance.
--
Ilmari Karonen -- http://www.sci.fi/~iltzu/
"Get real! This is a discussion group, not a helpdesk. You post something,
we discuss its implications. If the discussion happens to answer a question
you've asked, that's incidental." -- nobull in comp.lang.perl.misc
------------------------------
Date: Sun, 21 Oct 2001 22:14:42 GMT
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Hex characters like a form submit?
Message-Id: <slrn9t6eah.a7o.tadmc@tadmc26.august.net>
Graham W. Boyes <me@REMOVETHIStoao.net> wrote:
>> Tad McClellan, you are hereby charged with writing the following:
>>>>Hi- need to convert characters in a string that are not valid for use
>>>>in a file name
>>
>>> What characters are not valid in filenames?
>>
>> Okay, say, any character that's not a letter or number.
>
>Which is exactly what you gave me. Thanks! Works great.
^^^^^^^
Not "exactly".
My code allows a character that is not a letter nor a digit.
I'll let you figure out what the additional character is :-)
Note that it will break horribly (and be unreversable) for
filenames that start off with hex-looking filename parts.
Also note that it will break filename extensions, 'cause
it replaces dots.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 21 Oct 2001 23:28:53 GMT
From: Andrew Cady <please@no.spam>
Subject: Re: Hex characters like a form submit?
Message-Id: <87hessa82h.fsf@homer.cghm>
tadmc@augustmail.com (Tad McClellan) writes:
>>> Tad McClellan, you are hereby charged with writing the following:
>>>
>>>> s/(\W)/ sprintf '%%%X', ord $1/ge;
[...]
> Note that it will break horribly (and be unreversable) for filenames
> that start off with hex-looking filename parts.
Which is why it should be:
s/(\W)/ sprintf '%%%.2X', ord $1 /ge;
Might also be better style to make it obvious that % must be included
as an escape:
s/([ \W % ])/ ...
------------------------------
Date: Mon, 22 Oct 2001 00:14:23 GMT
From: "Graham W. Boyes" <me@REMOVETHIStoao.net>
Subject: Re: Hex characters like a form submit?
Message-Id: <Xns9141AF7FAC78115497002270367234@24.2.10.79>
Tad McClellan, you are hereby charged with writing the following:
> My code allows a character that is not a letter nor a digit.
> I'll let you figure out what the additional character is :-)
A _. :)
Graham W. Boyes
--
Health warning: diet soft drinks, Equal sweetener and NutraSweet contain the
artificial sweetener Aspartame WHICH CAN CAUSE CANCER, DIABETES, OBESITY,
EYE DISEASE, PARKINSON'S AND MORE. Read more here: http://www.dorway.com/
------------------------------
Date: Sun, 21 Oct 2001 23:05:59 GMT
From: Andrew Cady <please@no.spam>
Subject: Re: How to display text file in cgi-bin?
Message-Id: <87lmi4a94o.fsf@homer.cghm>
Jerry McEwen <mail@mail.com> writes:
> On Sun, 21 Oct 2001 12:51:59 -0500, Tony Curtis
> <tony_curtis32@yahoo.com> wrote:
>
> >>> On Sun, 21 Oct 2001 12:34:01 -0500,
> >>> Jerry McEwen <mail@mail.com> said:
> >
> >>> Ignoring the looming danger of off-topicality...
> >
> >> My cgi contains this: #!/bin/sh printf "Content-type:
> >> text/plain\n\n"; cat "orders.txt"; # EOF Permissions on
> >> this file are 755 and other CGI's in the folder work.
> >
> >Not relevant to perl. You don't need the ; at line's-end
> >either. And "echo" is more usual than "printf" when
> >there's no interpolation.
>
> According to the other replies, this has everything to do with Perl.
No, it really doesn't have anything to do with perl, or even shell
scripting. The problem is on your server. You should ask your
webmaster. It would only be on-topic if the problem was in the perl
script. You didn't even use the perl script, so obviously it isn't.
------------------------------
Date: Sun, 21 Oct 2001 23:13:19 GMT
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: lookingglass.pl
Message-Id: <slrn9t6lkf.e62.mgjv@verbruggen.comdyn.com.au>
On Sat, 20 Oct 2001 20:10:08 +0200,
Steffen Müller <tsee@gmx.net> wrote:
> "Tad McClellan" <tadmc@augustmail.com> schrieb im Newsbeitrag
> news:slrn9t17in.v1c.tadmc@tadmc26.august.net...
>
> [snip]
>
>| 3) uses scalar(@array)-1 instead of $#array ( $#{$local_files[1]} )
>
> Though I generally agree with you that the program isn't well written, I
> recall there being some discussion about the use of $#{} versus @{}-1. IIRC,
> there are a bunch of not-so-bad programmers out there who use @array-1.
Hmm.. I can't really think of a reason to prefer @array-1 above
$#array. I can think of one (deprecated) reason of preferring $#array
above @array-1, because $[ .. $#array isn't necessarily the same range
as 0 .. @array-1. not that I've ever writte code that sets $[..
I generally use @array (in scalar context) if I need the number of
elements, and $#array if I need the index of the last element.
Maybe you're thinking of a discussion where people stated a preference
for @array instead of $#array + 1? or where people preferred
for (my $i = 0; $i < @array; $i++) {}
above
for (my $i = 0; $i <= $#array; $i++) {}
Martien
--
Martien Verbruggen |
| Unix is the answer, but only if you
Trading Post Australia Pty Ltd | phrase the question very carefully
|
------------------------------
Date: Mon, 22 Oct 2001 02:33:32 +0200
From: peter pilsl <pilsl_@goldfisch.at>
Subject: mod_perl : namespace-confusion
Message-Id: <3bd3695d$1@e-post.inode.at>
I have several domains running under my apache-mod_perl-servers.
Now it happens that several domains are using a perl-script that has the
same name or requires a library that has the same name than a other library.
This seems to confuse my mod_perl server. Is this possible or do I have a
different problem in my scripts ?
I just faced the problem, that I had identical scripts under two different
domains (mainscript and a library - both identically) and I got very
strange perlerrors. Renaming one set (script+lib) solved the problem..
How can it be ?
thnx,
peter
--
peter pilsl
pilsl_@goldfisch.at
http://www.goldfisch.at
------------------------------
Date: 21 Oct 2001 15:36:58 -0700
From: linux_303@yahoo.com (Linux_303)
Subject: Need multiple matches in a regular expression
Message-Id: <77aaac7e.0110211436.34a4524e@posting.google.com>
Hello all,
Here is my situation. I have a cron job that checks the status of
three web server instances and writes this to a file. In this log is
all the diagnostics with the phrase "Server passsed checks" for each
web server. What I want to do is tell the script that if it finds 3
"Server passsed checks", everything is good and then I will go from
there. I'm having a hard time finding the call for this though. I
cannot find the regular expression that tells it I need three of these
before giving it an A-ok. Here is what I am working with:
open(VIEW,"file.$date");
@lines = <VIEW>;
foreach $line (@lines) {
if ($line =~ /Server passed checks/g) {
print "Passed\n";
}
else {
print "Failed\n";
}
}
As written, it does report with a Passed but it is only parsing the
first "Server passed checks" and reporting it as Passed. I need to
make sure it finds three though.
Can someone help?
Thank you very much,
Sistem
------------------------------
Date: Sun, 21 Oct 2001 22:55:58 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: Need multiple matches in a regular expression
Message-Id: <2oIA7.247$1L8.171136512@news.frii.net>
In article <77aaac7e.0110211436.34a4524e@posting.google.com>,
Linux_303 <linux_303@yahoo.com> wrote:
>Hello all,
>
>
>Here is my situation. I have a cron job that checks the status of
>three web server instances and writes this to a file. In this log is
>all the diagnostics with the phrase "Server passsed checks" for each
>web server. What I want to do is tell the script that if it finds 3
>"Server passsed checks", everything is good and then I will go from
>there. I'm having a hard time finding the call for this though. I
>cannot find the regular expression that tells it I need three of these
>before giving it an A-ok. Here is what I am working with:
>
Here is my very slight re-formatting of your code
open( VIEW, "file.date" );
@lines = <VIEW>;
foreach $line (@lines) {
if ( $line =~ /Server passed checks/g ) {
print "Passed\n";
}
else {
print "Failed\n";
}
}
And here is contents of file.date that I ran it with.
Server passed checks
Server passed checks
Server passed checks
Server passed checks
Server passed checks
Server passed checks
Server passed checks
Server passed checks
Nopass
Server passed checks
Finaly here is the output that it generated:
perl openlay
Passed
Passed
Passed
Passed
Passed
Passed
Passed
Passed
Failed
Passed
It looks to me as if this works as I would expect.
What is the problem?
--
This space intentionally left blank
------------------------------
Date: 21 Oct 2001 23:07:14 GMT
From: ctcgag@hotmail.com
Subject: Re: Need multiple matches in a regular expression
Message-Id: <20011021190714.851$9L@newsreader.com>
linux_303@yahoo.com (Linux_303) wrote:
>
> open(VIEW,"file.$date");
> @lines = <VIEW>;
> foreach $line (@lines) {
> if ($line =~ /Server passed checks/g) {
if ($line =~ /Server passed checksServer passed checksServer passed
checks/g) {
> print "Passed\n";
> }
> else {
> print "Failed\n";
> }
> }
>
> As written, it does report with a Passed but it is only parsing the
> first "Server passed checks" and reporting it as Passed. I need to
> make sure it finds three though.
>
> Can someone help?
>
> Thank you very much,
You're welcome. Try formating your program a little more consistently.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service
------------------------------
Date: 21 Oct 2001 23:24:41 GMT
From: Thelma Lubkin <thelma@alpha2.csd.uwm.edu>
Subject: Re: Need multiple matches in a regular expression
Message-Id: <9qvlfp$tcu$1@uwm.edu>
Linux_303 <linux_303@yahoo.com> wrote:
: Hello all,
: Here is my situation. I have a cron job that checks the status of
: three web server instances and writes this to a file. In this log is
: all the diagnostics with the phrase "Server passsed checks" for each
: web server. What I want to do is tell the script that if it finds 3
: "Server passsed checks", everything is good and then I will go from
: there. I'm having a hard time finding the call for this though. I
: cannot find the regular expression that tells it I need three of these
: before giving it an A-ok. Here is what I am working with:
: open(VIEW,"file.$date");
: @lines = <VIEW>;
: foreach $line (@lines) {
: if ($line =~ /Server passed checks/g) {
: print "Passed\n";
: }
: else {
: print "Failed\n";
: }
: }
: As written, it does report with a Passed but it is only parsing the
: first "Server passed checks" and reporting it as Passed. I need to
: make sure it finds three though.
: Can someone help?
minimal change -- try this:
if ($line =~ /Server passed checks{3}/)
--thelma
: Thank you very much,
: Sistem
------------------------------
Date: Mon, 22 Oct 2001 00:16:18 GMT
From: mjd@plover.com (Mark Jason Dominus)
Subject: Re: Need multiple matches in a regular expression
Message-Id: <3bd36552.1b9f$17f@news.op.net>
In article <77aaac7e.0110211436.34a4524e@posting.google.com>,
Linux_303 <linux_303@yahoo.com> wrote:
>open(VIEW,"file.$date");
>@lines = <VIEW>;
>foreach $line (@lines) {
>if ($line =~ /Server passed checks/g) {
>print "Passed\n";
>}
>else {
> print "Failed\n";
>}
>}
>
>As written, it does report with a Passed but it is only parsing the
>first "Server passed checks" and reporting it as Passed. I need to
>make sure it finds three though.
You mean you want to find 'Server passed checks' three times, but the
three appearances might be in different places in the file, yes?
Try this:
$passed = 0;
LINE:
foreach $line (@lines) {
while ($line =~ /Server passed checks/g) {
$passed++;
if ($passed >= 3) { last LINE }
}
}
if ($passed >= 3) {
print "Passed\n";
} else {
print "Failed\n";
}
If "Server passed checks" will appear no more than once per line, you
can make the code a little simpler:
$passed = 0;
LINE:
foreach $line (@lines) {
if ($line =~ /Server passed checks/) {
$passed++;
if ($passed >= 3) { last LINE }
}
}
if ($passed >= 3) {
print "Passed\n";
} else {
print "Failed\n";
}
I hope this is helpful.
--
@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: 21 Oct 2001 15:43:37 -0700
From: rumi_red@yahoo.com (rumi_red)
Subject: need some help to begin....urgent
Message-Id: <4af158c4.0110211443.14e179df@posting.google.com>
Hi!
I need some direction writing a perl script and would apprecitiate
any help I could get.
Okay, this is what I need to do...
I've a text file that has kept a log of information. Here is some
actual data from the file.
--
- - - - - - - - - - - - - - - - - - - - Frame 1 - - - - - - - - - - -
- - - - - - - - -
Scaned Delta Time: 0.000.000
Delta Time: 0.000000 ms
time_stamp_hi: d; time_stamp_lo: 693a40.
00 00 0c 07 ac 05 00 e0 0c c8 86 67 08 00 45 80
00 26 f7 ed 00 00 40 11 e0 d0 0a 96 48 d6 0a 96
43 87 ea 60 ea 64 00 12 db 2a 12 12 39 67 0d 10
ff ff 55 c7
THE UDP PACKET ...
MAC_HDR: Pkt SIZE = 56, MAC DES = 00000c07ac05, MAC SRC =
00e00cc88667, Type/Len = 0800.
IP_HDR: 45800026f7ed00004011, IP DES = 0a964387, IP SRC =
0a9648d6
UDP_HDR: UDP SRC = ea60, UDP DES = ea64, UDP LEN = 0012
IOS CRC: 55c7
FORWARD LINK PACKET:
IOS_HDR-FCH/DCCH: Msg Type = 12, SHO = 1, FSN = 2, FPC:GR = 0x39,
RPC:OLT = 0x67,
Frm CONT = 0d, FIM = 10.
Mux PDU 1: RLP FRAME length: 2
RLP FRAME: ff ff
DECODED RLP RATE: 3.
BAD CTRL FRAME FCS!
** DECODED RLP FRAME TYPE: DISCARD.
- - - - - - - - - - - - - - - - - - - - Frame 2 - - - - - - - - - - -
- - - - - - - - -
Scaned Delta Time: 0.000.053
Delta Time: 0.053000 ms
time_stamp_hi: d; time_stamp_lo: 6949c7.
00 e0 0c c8 e6 e0 00 04 de 1a f4 00 08 00 45 80
00 26 f7 ed 00 00 3f 11 e1 d0 0a 96 48 d6 0a 96
43 87 ea 60 ea 64 00 12 db 2a 12 12 39 67 0d 10
ff ff 55 c7
THE UDP PACKET ...
MAC_HDR: Pkt SIZE = 56, MAC DES = 00e00cc8e6e0, MAC SRC =
0004de1af400, Type/Len = 0800.
IP_HDR: 45800026f7ed00003f11, IP DES = 0a964387, IP SRC =
0a9648d6
UDP_HDR: UDP SRC = ea60, UDP DES = ea64, UDP LEN = 0012
IOS CRC: 55c7
FORWARD LINK PACKET:
IOS_HDR-FCH/DCCH: Msg Type = 12, SHO = 1, FSN = 2, FPC:GR = 0x39,
RPC:OLT = 0x67,
Frm CONT = 0d, FIM = 10.
Mux PDU 1: RLP FRAME length: 2
RLP FRAME: ff ff
DECODED RLP RATE: 3.
BAD CTRL FRAME FCS!
** DECODED RLP FRAME TYPE: DISCARD.
- - - - - - - - - - - - - - - - - - - - Frame 3 - - - - - - - - - - -
- - - - - - - - -
Scaned Delta Time: 0.019.940
Delta Time: 19.940000 ms
time_stamp_hi: d; time_stamp_lo: 801b93.
00 00 0c 07 ac 05 00 e0 0c c8 86 67 08 00 45 80
00 26 f7 ee 00 00 40 11 e0 cf 0a 96 48 d6 0a 96
43 87 ea 60 ea 64 00 12 43 4a 12 13 39 67 0d 10
ff ff ed a6
THE UDP PACKET ...
MAC_HDR: Pkt SIZE = 56, MAC DES = 00000c07ac05, MAC SRC =
00e00cc88667, Type/Len = 0800.
IP_HDR: 45800026f7ee00004011, IP DES = 0a964387, IP SRC =
0a9648d6
UDP_HDR: UDP SRC = ea60, UDP DES = ea64, UDP LEN = 0012
IOS CRC: eda6
FORWARD LINK PACKET:
IOS_HDR-FCH/DCCH: Msg Type = 12, SHO = 1, FSN = 3, FPC:GR = 0x39,
RPC:OLT = 0x67,
Frm CONT = 0d, FIM = 10.
Mux PDU 1: RLP FRAME length: 2
RLP FRAME: ff ff
DECODED RLP RATE: 3.
BAD CTRL FRAME FCS!
** DECODED RLP FRAME TYPE: DISCARD.
- - - - - - - - - - - - - - - - - - - - Frame 4 - - - - - - - - - - -
- - - - - - - - -
Scaned Delta Time: 0.000.019
Delta Time: 0.019000 ms
time_stamp_hi: d; time_stamp_lo: 802124.
00 e0 0c c8 e6 e0 00 04 de 1a f4 00 08 00 45 80
00 26 f7 ee 00 00 3f 11 e1 cf 0a 96 48 d6 0a 96
43 87 ea 60 ea 64 00 12 43 4a 12 13 39 67 0d 10
ff ff ed a6
THE UDP PACKET ...
MAC_HDR: Pkt SIZE = 56, MAC DES = 00e00cc8e6e0, MAC SRC =
0004de1af400, Type/Len = 0800.
IP_HDR: 45800026f7ee00003f11, IP DES = 0a964387, IP SRC =
0a9648d6
UDP_HDR: UDP SRC = ea60, UDP DES = ea64, UDP LEN = 0012
IOS CRC: eda6
FORWARD LINK PACKET:
IOS_HDR-FCH/DCCH: Msg Type = 12, SHO = 1, FSN = 3, FPC:GR = 0x39,
RPC:OLT = 0x67,
Frm CONT = 0d, FIM = 10.
Mux PDU 1: RLP FRAME length: 2
RLP FRAME: ff ff
DECODED RLP RATE: 3.
BAD CTRL FRAME FCS!
** DECODED RLP FRAME TYPE: DISCARD.
--
Okay the file contains an undertimmed amount of frames and what I need
to do
is record the following for each frame:
1) frame number
2) what kind of link packet
3) what kind of '** decoded rlp frame type:'
I have to do this for all the frames in the file and would like to
output
the data in a new text file in the following format or a similar one.
--
Frame Link Packet ** Decoded RLD FRAME Type
------ -------------- ---------------------------
1 Forward Discard
2 Forward Discard
3 Forward Discard
--
Well I hope you get the jest of what needs to be done. I know some
PERL but not that a lot. And before I continue, let me say that
not every frame in the file has the same format (ie. some are missing
UDP_HDR and IOS CRC, for example) and there is an undertimmed amount
of frames too.
Okay here are my ideas to code the script.
1) Open the file
2) Have regulart expressions that search for the needed info. My
question is how what type of varibale should i store each
record? I'm confused.
Well that's all I can think of and would like your suggestions.
Thanks a lot!!!!!!
Tom
------------------------------
Date: Mon, 22 Oct 2001 00:12:40 GMT
From: garry@ifr.zvolve.net (Garry Williams)
Subject: Re: need some help to begin....urgent
Message-Id: <slrn9t6p3n.omc.garry@zfw.zvolve.net>
On 21 Oct 2001 15:43:37 -0700, rumi_red <rumi_red@yahoo.com> wrote:
> I need some direction writing a perl script and would apprecitiate
> any help I could get.
[ snip ]
> Okay here are my ideas to code the script.
>
> 1) Open the file
I skipped that step since Perl takes care of it for me. :-)
> 2) Have regulart expressions that search for the needed info. My
> question is how what type of varibale should i store each
> record? I'm confused.
I don't know what that question means. I'm confused.
> Well that's all I can think of and would like your suggestions.
Here's one way:
I just collected the data you want as I encountered it on each line of
STDIN. I print a detail line, once I encounter the new header and
after the input is exahausted.
#!/usr/bin/perl
use warnings;
use strict;
my ($frame_number, $link_type, $rlp_type);
my $last_frame;
while (<>) {
# Do a control break
if ( /^(?:- ){20}Frame (\d+)/ ) {
my $save_n = $1;
$last_frame = 1;
do_output() if defined $frame_number;
$frame_number = $save_n;
$link_type = "unknown";
$rlp_type = "unknown";
next;
}
# Collect link_type
if ( /(\w+) LINK PACKET:/ ) {
$link_type = $1;
next;
}
# Collect rlp_type
elsif ( /\*\* DECODED RLP FRAME TYPE: (\w+)/ ) {
$rlp_type = $1;
next;
}
}
# Print last record
do_output() if $last_frame;
sub do_output {
printf "%6d %14s %27s\n", $frame_number,
$link_type, $rlp_type;
}
This is a filter. It will read your input file on STDIN and transform
it to your output specification on its STDOUT.
I leave it to you to adjust the format and supply a header line in the
output.
See the following manual pages:
perlop ("Quote and Quote-like Operators")
perlre
perlform (for reports)
--
Garry Williams
------------------------------
Date: Mon, 22 Oct 2001 00:35:16 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: need some help to begin....urgent
Message-Id: <3BD369E0.67179C1@rochester.rr.com>
rumi_red wrote:
...
> I need some direction writing a perl script and would apprecitiate
> any help I could get.
>
> Okay, this is what I need to do...
>
> I've a text file that has kept a log of information. Here is some
> actual data from the file.
...
>
> Okay the file contains an undertimmed amount of frames and what I need
> to do
> is record the following for each frame:
>
> 1) frame number
> 2) what kind of link packet
> 3) what kind of '** decoded rlp frame type:'
>
> I have to do this for all the frames in the file and would like to
> output
> the data in a new text file in the following format or a similar one.
>
> --
>
> Frame Link Packet ** Decoded RLD FRAME Type
> ------ -------------- ---------------------------
> 1 Forward Discard
>
> 2 Forward Discard
>
> 3 Forward Discard
>
> --
>
> Well I hope you get the jest of what needs to be done. I know some
> PERL but not that a lot. And before I continue, let me say that
> not every frame in the file has the same format (ie. some are missing
> UDP_HDR and IOS CRC, for example) and there is an undertimmed amount
> of frames too.
>
> Okay here are my ideas to code the script.
>
> 1) Open the file
> 2) Have regulart expressions that search for the needed info. My
> question is how what type of varibale should i store each
> record? I'm confused.
...
> Tom
Here is a starting point, making some reasonable assumptions about your
data:
$/='Frame '; #new record each frame
format STDOUT_TOP=
Frame Link Packet ** Decoded RLD FRAME Type
------ -------------- ---------------------------
.
format STDOUT=
@>>>>> @<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<
$1 $2 $3
.
while(<>){
write if /^(\d+).*?(\w+) LINK PACKET.*?FRAME TYPE: (\w+)/s;
}
__END__
--
Bob Walton
------------------------------
Date: Mon, 22 Oct 2001 00:41:52 GMT
From: Andrew Cady <please@no.spam>
Subject: Re: need some help to begin....urgent
Message-Id: <871yjwa4ou.fsf@homer.cghm>
rumi_red@yahoo.com (rumi_red) writes:
> I need some direction writing a perl script and would apprecitiate
> any help I could get.
>
> Okay, this is what I need to do...
>
> I've a text file that has kept a log of information. Here is some
> actual data from the file.
[...]
> Okay the file contains an undertimmed amount of frames and what I
> need to do is record the following for each frame:
>
> 1) frame number
> 2) what kind of link packet
> 3) what kind of '** decoded rlp frame type:'
[...]
I'll assume the two values you want are always present in the same
order and you always want exactly one word from each of them. You
want to number the frames yourself, right?
Here's a full program:
#!/usr/bin/perl -wn
BEGIN {
@H = ( "Frame",
"Link Packet",
"** Decoded RLF FRAME Type" );
printf " %5s %-30s%-35s\n", @H;
printf " %5s %-30s%-35s\n\n", map { '-' x length } @H;
}
if (/(\w+) LINK PACKET:/) {
$packtype = ucfirst lc $1;
}
if (/DECODED RLP FRAME TYPE: (\w+)/) {
die "unknown input format" unless defined $packtype;
printf " %5s %-30s%-35s\n\n", ++$frame_number, $packtype, ucfirst lc $1;
undef $packtype;
}
$frame_number = $frame_number; #disable stupid warning
#EOF
The -n switch means perl will run the code once on every line (except
the BEGIN block, which only runs once) of the input file. Specify the
input file on the command line, i.e.: file.pl input.txt
You'll probably want to change the formatting. You also might want to
modify it to use strict, I was too lazy.
------------------------------
Date: 21 Oct 2001 17:06:19 -0700
From: ivank@2xtreme.net (Ivan Kozik)
Subject: perl algorithm
Message-Id: <6c60f4b9.0110211606.256f0388@posting.google.com>
Hello-
I'm having trouble writing an algorithm in perl.
I have a tab delimited file that looks like this:
<snip>
100039 2129881 3e-28 100.000
100039 128401 3e-28 100.000
100039 587509 3e-28 100.000
100039 169084 3e-28 100.000
100039 7442093 2.2e-20 80.000
100039 2499217 2.2e-20 80.000
100039 1167892 2.2e-20 80.000
100039 3914100 1.7e-16 61.947
100039 22649 1.7e-16 61.947
<snip>
2129881 100039 3e-30 100.000
2129881 2129881 3e-30 100.000
2129881 128401 3e-28 100.000
2129881 587509 3e-28 100.000
2129881 169084 3e-28 100.000
2129881 7442093 2.2e-20 80.000
2129881 2499217 2.2e-20 80.000
2129881 1167892 2.2e-20 80.000
<snip>
... several dozen thousand lines that look like that.
What I'm trying to do is remove one of pairs of "identical" lines that
have identical columns 1, 2, and 4.
The third column should be completely ignored. In my sample of the
file, there are two lines that look like this:
100039 2129881 3e-28 100.000
2129881 100039 3e-30 100.000
one of them should be removed by the script.
The best i could do was this:
foreach $x (@file) {
print $x;
foreach $n (@file) {
($blah, $blah2, $blah3, $blah4) = split "\t", $n;
if ($x eq "$blah2\t$blah\t$blah3\t$blah4") { print
"identical found\n"; undef $x; }
}
}
This didn't work because it compared the third column too, and the
algorithm was extremely slow.
If anyone could write something or give me an idea, i'd greatly
appreciate it.
Ivan
------------------------------
Date: Mon, 22 Oct 2001 00:45:45 GMT
From: garry@ifr.zvolve.net (Garry Williams)
Subject: Re: perl algorithm
Message-Id: <slrn9t6r1a.omc.garry@zfw.zvolve.net>
On 21 Oct 2001 17:06:19 -0700, Ivan Kozik <ivank@2xtreme.net> wrote:
> I'm having trouble writing an algorithm in perl.
> I have a tab delimited file that looks like this:
>
> <snip>
> 100039 2129881 3e-28 100.000
> 100039 128401 3e-28 100.000
> 100039 587509 3e-28 100.000
> 100039 169084 3e-28 100.000
> 100039 7442093 2.2e-20 80.000
> 100039 2499217 2.2e-20 80.000
> 100039 1167892 2.2e-20 80.000
> 100039 3914100 1.7e-16 61.947
> 100039 22649 1.7e-16 61.947
> <snip>
> 2129881 100039 3e-30 100.000
> 2129881 2129881 3e-30 100.000
> 2129881 128401 3e-28 100.000
> 2129881 587509 3e-28 100.000
> 2129881 169084 3e-28 100.000
> 2129881 7442093 2.2e-20 80.000
> 2129881 2499217 2.2e-20 80.000
> 2129881 1167892 2.2e-20 80.000
> <snip>
>
> ... several dozen thousand lines that look like that.
> What I'm trying to do is remove one of pairs of "identical" lines that
> have identical columns 1, 2, and 4.
> The third column should be completely ignored. In my sample of the
> file, there are two lines that look like this:
>
> 100039 2129881 3e-28 100.000
> 2129881 100039 3e-30 100.000
>
> one of them should be removed by the script.
That criteria does not match what you said above: "remove one of pairs
of "identical" lines that have identical columns 1, 2, and 4."
I think you mean that A B - D will be paired with B A - D and that you
want the second one removed from the file. Right?
Here's a way that discards the first (and subsequent) B A - D record
after encountering a A B - D record. I guess you could call it
dumping the BAD records:
#!/usr/bin/perl
use warnings;
use strict;
my %seen;
while (<>) {
next if $seen{ join "|", (split)[0, 1, 3] }; # BAD record
$seen{ join "|", (split)[1, 0, 3] } ++;
print;
}
> The best i could do was this:
>
>
> foreach $x (@file) {
> print $x;
> foreach $n (@file) {
> ($blah, $blah2, $blah3, $blah4) = split "\t", $n;
> if ($x eq "$blah2\t$blah\t$blah3\t$blah4") { print
> "identical found\n"; undef $x; }
> }
> }
Oof! O(n**2).
> This didn't work because it compared the third column too, and the
> algorithm was extremely slow.
Why include the third column, then?
Take a look at the FAQ: the perlfaq4 manual page, "How can I remove
duplicate elements from a list or array?"
Not quite the same, but the principle is the same: use a hash to keep
track of what you've already seen. The access to the hash is O(1), so
your algorithm goes to O(n), since you only have to visit each record
once instead of n times.
Hope this helps.
--
Garry Williams
------------------------------
Date: Mon, 22 Oct 2001 02:59:33 +0200
From: =?iso-8859-1?Q?Thorbj=F8rn?= Ravn Andersen <thunderbear@bigfoot.com>
Subject: Re: Printing tif files
Message-Id: <3BD36F75.6EEB95A@bigfoot.com>
Francis Derive wrote:
>
> Bonjour !
>
> It would be helpful a lot to automatically send to the printer these tif
> image files from a perl script.
Depends on your platform.
Under Unix convert to PostScript and submit that to a PostScript printer
queue.
Under Windows, I cannot help you.
--
Thorbjørn Ravn Andersen "...plus... Tubular Bells!"
http://bigfoot.com/~thunderbear
------------------------------
Date: 21 Oct 2001 15:27:05 -0700
From: kirby@earthlink.net (Peter Kirby)
Subject: Problem with making directories
Message-Id: <51b9ea9e.0110211427.1529131f@posting.google.com>
Hello,
When I make a directory with mkdir in a Perl script, the program runs
without errors. I can see the directory through ftp. However, when I
try to look inside the directory or to delete the directory, it tells
me that the directory does not exist. Does anyone else have any
experience with this kind of problem?
thanks,
Peter Kirby
------------------------------
Date: 21 Oct 2001 18:39:35 -0500
From: mtaylor@lrim.com (Mark Taylor)
Subject: Re: Problem with making directories
Message-Id: <Xns9141C05467E17maintainersetifaqorg@128.242.171.114>
kirby@earthlink.net (Peter Kirby) wrote in
<51b9ea9e.0110211427.1529131f@posting.google.com>:
>Hello,
>
>
>When I make a directory with mkdir in a Perl script, the program runs
>without errors. I can see the directory through ftp. However, when I
>try to look inside the directory or to delete the directory, it tells
>me that the directory does not exist. Does anyone else have any
>experience with this kind of problem?
>
>thanks,
>Peter Kirby
>
It sounds like you are running a perl script through cgi and apache. If
that is the case then the perl script is running as the user that apache is
running as. So the directories would be created as owned by another user,
not you. You would not necessarily have permissions to browse the
directory, unless you specifically set the permissions or change the owner
within your script when it's created.
Just a thought...
Mark
______________________________________________________________________________
Posted Via Binaries.net = SPEED+RETENTION+COMPLETION = http://www.binaries.net
------------------------------
Date: Mon, 22 Oct 2001 00:48:34 GMT
From: jdcfan <nospam@newsranger.com>
Subject: Remove duplicates from a logfile
Message-Id: <C1KA7.37706$ev2.44251@www.newsranger.com>
I wrote a piece of code to remove duplicate IP addresses from a log file. It
seems to work fine, but I think I may have done more than I needed to do.
The log would contain data in this format:
Date - Time - IP Address
09/21/2001 - 19:06.14 - xxx.xxx.xxx.xxx
Here is the code I used:
open LOGFILE, $logfile;
@IPLogArray = <LOGFILE>;
close (LOGFILE);
@IPLogArrayCopy=@IPLogArray; # Copy the original array
foreach $IPAddress (@IPLogArray)
{
$IPAddress=~s/(.*)-(.*)-\s//g; # Remove all other info except for IP Address
push (@ParsedIPLogArray, $IPAddress); # Add IP address into a new array
}
# The original total number of elements in the IP Log
$totalIPLogElements=$#IPLogArrayCopy;
for ($x=0; $x <= $#ParsedIPLogArray; $x++)
{
$hash{$ParsedIPLogArray[$x]}++; # Increment IP occurance counter
if ($hash{$ParsedIPLogArray[$x]} > 1)
{
# Current no. of elements in the array and subtract the original total no.
$elementNumber = $x + ($#IPLogArrayCopy-$totalIPLogElements);
splice (@IPLogArrayCopy, $elementNumber, 1);
}
}
print @IPLogArrayCopy;
---
Is there a better way to do this? It seems to me like I made it more difficult
than it should be.
Thanks,
Dan L.
------------------------------
Date: Sun, 21 Oct 2001 22:14:40 GMT
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: traversing directories
Message-Id: <slrn9t6e32.a7o.tadmc@tadmc26.august.net>
Ashley M. Kirchner <ashley@pcraft.com> wrote:
> How can I have that same script,
It cannot be the same script. You will need to modify it.
>be able to traverse the whole tree
use File::Find;
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 22 Oct 2001 00:31:02 GMT
From: mjd@plover.com (Mark Jason Dominus)
Subject: Re: traversing directories
Message-Id: <3bd368c6.1be1$16@news.op.net>
In article <3BD3277A.29B43E08@pcraft.com>,
Ashley M. Kirchner <ashley@pcraft.com> wrote:
>
> I have the following script to play MP3s on my server:
>
>#!/usr/bin/perl
>
>srand;
>for (;;)
>{
> @f = <*.mp3>;
> @s=();
> (push(@s,splice(@f,rand @f,1))) while (@f);
> map {system ("/usr/freeware/bin/amp","-p",$_) && exit;} @s;
>}
>
> However, I'm going to start splitting up my collections into
>subdirectories, ala:
>
> /mp3s/<artist>/<album>/<songs>
>
Perhaps just replace
@f = <*.mp3>;
with
@f = </mp3s/*/*/*.mp3>;
? Or am I missing something important?
--
@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: 21 Oct 2001 23:41:37 GMT
From: damian@qimr.edu.au (Damian James)
Subject: Re: Truncation of array through reference
Message-Id: <slrn9t6n33.ibv.damian@puma.qimr.edu.au>
On Sat, 20 Oct 2001 15:24:28 -0700, Roger Levy said:
>On Fri, 19 Oct 2001, Tad McClellan wrote:
>
>> Roger Levy <rog@stanford.edu> wrote:
>> >Hi friends,
>> >... if I have @ARRAY, and $A points
>> >to it, then
>> >
>> >$#$A,
>>
>> access via a reference ( a special case of $#{$A} )
>>
>> >$#ARRAY,
>>
>> access via a name
>>
>> > and $#{\@ARRAY}
>>
>> access via a reference
>>
>>
>> >are the same thing. To me this was pretty non-intuitive, since ARRAY
>> >can't be used equivalently to \@ARRAY in general.
>>
>
>Yes, this I understand. So would I be correct to say that @ and $# as
>symbols are overloaded between dereferencing and name lookup?
>
No. Since @ARRAY exists, $#ARRAY is just $#ARRAY. There is no
deferencing involved. It would be more correct to say:
$#$A, $#{$A}, $#{\@ARRAY}
are all the same thing, in that they are all dereferencing a
reference to @ARRAY ( and not caring whether that's $A or \@ARRAY),
then using $# to get the last index.
$#ARRAY is the plain old, as advertised use of $# to get the last index
of @ARRAY. No reference involved. Taking a reference to @ARRAY doesn't
mean that it no longer exists, so long as it is in scope.
At least, I think this is where you're confused. Maybe I misread?
HTH,
Cheers,
Damian
--
@:=grep!(m!$/|#!..$|),split//,<DATA>;@;=0..$#:;while($:=@;){$;=rand
$:--,@;[$;,$:]=@;[$:,$;]while$:;push@|,shift@;if$;[0]==@|;select$,,
$,,$,,1/80;print qq x\bxx((@;+@|)*$|++),@:[@|,@;],!@;&&$/} __END__
Just another Perl Hacker,### http://home.pacific.net.au/~djames.hub
------------------------------
Date: Sun, 21 Oct 2001 22:14:43 GMT
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: xsub - does anything work?
Message-Id: <slrn9t6f31.a7o.tadmc@tadmc26.august.net>
Richard Trahan <rtrahan@monmouth.com> wrote:
>Mark Jason Dominus wrote:
>> >More generally, is there any software, anywhere, of any type, written
>> >by anyone for any purpose, that actually works? Please point me to it
>> >so I can study it for my edification.
>>
>> http://www.qmail.org/
>
>>
>> Works great.
>>
>Great. Send me the source code.
The source code is available at the URL that you were given.
This isn't a fetch-some-code-for me service. You can go
get it yourself.
>Or better, post it.
Can't do that here, it would be off-topic in this newsgroup.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 21 Oct 2001 18:58:00 -0400
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Re: xsub - does anything work?
Message-Id: <m3d73g8utj.fsf@mumonkan.sunstarsys.com>
Richard Trahan <rtrahan@monmouth.com> writes:
> But just to satisfy your curiosity, the very first example in
> perlxstut, using Visual C++ nmake on Windows 98, gives the following
> error:
>
> Code is not inside a function (maybe last function was ended by a blank
> line followed by a statement on column one?) my Mytest.xs, line 6.
>
> I copied the code verbatim from perlxstut, and tried tweaking the
> aberrant line, with no success.
Did you try left-justifying the sample code? There should be no
leading spaces in your function declaration. Also, although it's
not documented, you can use ANSI C declarations for functions
rather than the old K&R variety in the docs:
void hello()
CODE:
printf("Hello, world!\n");
You will no doubt run into other problems as well, but IMHO XS is
less mysterious than the docs make it appear. XS is simply a collection
of macros for generating the relevant *.c files. Unfortunately it's
largely a process of trial and error until you get some feel for what
stub code the macros generate. Eventually you'll have to figure
out how the typemap system works, but as Dan Sugalski suggested, you
can avoid a lot of stumbling blocks by basing your .xs and typemap
files on a similarly featured CPAN module that's known to work for your
platform.
> The fact that you may be able to to figure out what's wrong is
> besides the point. I claim the XS system is not working if the
> documentation falsely describes it.
If you are expecting the perl documentation to be free of false
statements, you are in for a very painful experience. The collection
forms a _descriptive_ picture of Perl painted by many different
pracitioners over a span of many years. It is an uneven and eclectic
mix of ideas that reflects the Perl community as a whole. But it is
*not* a coherent, precise, _prescriptive_ manifesto on the Perl language.
In this and many other respects, Perl is more like a natural language
than a computer language.
[...]
> Oh, and BTW, I corresponded with the author of perlxstut a couple
> of times; his email address has recently stopped working, but he
> said he had not kept perlxstut up to date for a long time because
> there didn't seem to be much demand for it.
"Patches welcome" is a common phrase- there's always a need for
better documentation.
> That opens another issue which will get me royally flamed if I
> comment on it, so I won't. I'll just let all you hackers thunk on it.
In my book, anyone that uses the language is partly responsible for
its upkeep. If the Windows user community doesn't pony up to the
table with doc patches, don't expect the rest of us to do it for you.
--
Joe Schaefer "Freedom without responsibility belongs to children."
-- Grega Bremec in c.o.l.s
------------------------------
Date: Mon, 22 Oct 2001 00:04:24 GMT
From: mjd@plover.com (Mark Jason Dominus)
Subject: Re: xsub - does anything work?
Message-Id: <3bd36288.1b56$2a1@news.op.net>
In article <3BD35A15.853FC1C5@monmouth.com>,
Richard Trahan <rtrahan@monmouth.com> wrote:
>Mark Jason Dominus wrote:
>But you didn't answer the question.
You're right. I foolishly assumed that you were trying to write an XS
module. I was trying to address what I thought was your real goal.
I apologize for trying to assist you. I promise I'll never do it again.
--
@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: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 1975
***************************************
