[25451] in Perl-Users-Digest
Perl-Users Digest, Issue: 7696 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jan 26 18:05:43 2005
Date: Wed, 26 Jan 2005 15:05:16 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 26 Jan 2005 Volume: 10 Number: 7696
Today's topics:
Re: 20050126 find replace strings in file takarov2003@yahoo.com
Re: 20050126 find replace strings in file <danperl@rogers.com>
Re: 20050126 find replace strings in file <notvalid@email.com>
[perl-python] 20050126 find replace strings in file <xah@xahlee.org>
Re: [perl-python] 20050126 find replace strings in file <tanghaibao@gmail.com>
Compare string and eventually store <nono@spam.dk>
Re: Compare string and eventually store xhoster@gmail.com
Re: Compare string and eventually store <jl_post@hotmail.com>
Re: FAQ 6.17 Why don't word-boundary searches with "\b" (Anno Siegel)
Re: File::Find gives me current dir (.)? <someone@example.com>
Re: Grep Text File for Lines Containing 1 or 2 Words <someone@example.com>
Re: HAVE YOU HEARD THE GOOD NEWS! <someone@example.com>
Re: How can I call a subroutine / function and not wait bayxarea-usenet@yahoo.com
Re: How can I call a subroutine / function and not wait (Anno Siegel)
Re: How can I call a subroutine / function and not wait xhoster@gmail.com
Re: How can I call a subroutine / function and not wait xhoster@gmail.com
Re: How can I call a subroutine / function and not wait bayxarea-usenet@yahoo.com
Re: How can I call a subroutine / function and not wait (Jay Tilton)
how do u convert a string to a date (colin_lyse)
Re: how do u convert a string to a date <1usa@llenroc.ude.invalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 26 Jan 2005 14:00:36 -0800
From: takarov2003@yahoo.com
Subject: Re: 20050126 find replace strings in file
Message-Id: <1106776836.679242.167880@c13g2000cwb.googlegroups.com>
Xah Lee wrote:
> =A9 # -*- coding: utf-8 -*-
> =A9 # Python
> =A9
> =A9 import sys
> =A9
> =A9 nn =3D len(sys.argv)
> =A9
> =A9 if not nn=3D=3D5:
> =A9 print "error: %s search_text replace_text in_file out_file" %
> sys.argv[0]
> =A9 else:
> =A9 stext =3D sys.argv[1]
> =A9 rtext =3D sys.argv[2]
> =A9 input =3D open(sys.argv[3])
> =A9 output =3D open(sys.argv[4],'w')
I guess there is no way to check if the file opened fine? What if the
filesystem or file is locked for this user/session. Pretty puny
language if it cannot tell you that it cannot do what you tell it to.
> =A9
> =A9 for s in input:
> =A9 output.write(s.replace(stext,rtext))
> =A9 output.close()
> =A9 input.close()
Same for the close. Is there no way check a good close?
>
> -------------------------
> save this code as find_replace.py
> run it like this:
> python find_replace.py findtext replacetext in_file out_file
>
> the sys.argv is from sys. sys.argv[0] is the program's name itself.
>
> note the idiom
> "for variable_name in file_object"
>
> note that since this code reads each
> line in turn, so huge file is of no-problemo
>
> the code is based from Python
> Cookbook of Alex Martelli & David
> Ascher, page 121
>
> in Python terminal, type help() then
> 'FILES' and or 'sys'
> for reference.
>
> try to modify this file for your
> needs.
> --------------------------------------
> In perl, similar code can be achieved.
> the following code illustrates.
>
> if (scalar @ARGV !=3D 4) {die "Wrong arg! Unix BNF: $0 <sstr> <rstr>
> <file id1> <file id2>\n"}
> $stext=3D$ARGV[0];
> $rtext=3D$ARGV[1];
> $infile =3D $ARGV[2];
> $outfile =3D $ARGV[3];
> open(F1, "<$infile") or die "Perl fucked up. Reason: $!";
> open(F2, ">$outfile") or die "Perl fucked up. Reason: $!";
In 7 years of perl programming, I have never seen an open error that
had anything to do with perl processing. Normally, if I get an error,
the file does not exist, or has permissions set so that the current
user/session is not allowed to open the file.
> while ($line =3D <F1>) {
> chomp($line);
> $line =3D~ s/$stext/$rtext/g;
> print F2 "$line\n";
> }
> close(F1) or die "Perl fucked up. Reason: $!";
> close(F2) or die "Perl fucked up. Reason: $!";
Same here. Never seen Perl fuck up on closing a file. Usually
something in the OS or file system that does it.
> Xah
> xah@xahlee.org
> http://xahlee.org/PageTwo_dir/more.html
------------------------------
Date: Wed, 26 Jan 2005 17:50:59 -0500
From: "Dan Perl" <danperl@rogers.com>
Subject: Re: 20050126 find replace strings in file
Message-Id: <wKidnU26vr5Kg2XcRVn-jA@rogers.com>
<takarov2003@yahoo.com> wrote in message
news:1106776836.679242.167880@c13g2000cwb.googlegroups.com...
> I guess there is no way to check if the file opened fine? What if the
> filesystem or file is locked for this user/session. Pretty puny
> language if it cannot tell you that it cannot do what you tell it to.
> ..........
> Same for the close. Is there no way check a good close?
An exception (IOError) is raised when a file operation fails. The open()
and and close() statements should be enclosed in a try-except statement.
Please, take Xah Lee's postings with more than just a grain of salt. As a
matter of fact, you are better off ignoring them than trying to learn from
them. He is an egomaniac who is learning python and who thinks that he can
already teach others. Personally I doubt he will ever learn python well
enough to teach others. Just look at his English. He has a similar list
with a-word-a-day just like the perl-python a-lesson-a-day and he seems
indeed to know a lot of words. But his grammar is horrendous (there's a
word for you, Xah Lee!). And according to his own website he's been living
in North America for more than 15 years! English is a second language for
me too but you won't see me writing something like "this groups is for
Perlers who wants to learn Python".
It may be unfair to pick on his English, but it is the best way I can make
the point to someone who does not know python that Xah Lee does not know
what he's talking about. I find Xah Lee annoying and I could just ignore
him, but I am concerned that some people may actually take his statements
seriously and learn from them. I can't imagine why or how, but there are
actually 26 members in the perl-python Yahoo! group who have registered to
get these bogus lessons sent to them daily!
Dan
------------------------------
Date: Wed, 26 Jan 2005 22:52:15 GMT
From: Ala Qumsieh <notvalid@email.com>
Subject: Re: 20050126 find replace strings in file
Message-Id: <zaVJd.15376$wZ2.6636@newssvr13.news.prodigy.com>
takarov2003@yahoo.com wrote:
> Xah Lee wrote:
>>close(F1) or die "Perl fucked up. Reason: $!";
>>close(F2) or die "Perl fucked up. Reason: $!";
>
>
> Same here. Never seen Perl fuck up on closing a file. Usually
> something in the OS or file system that does it.
In this case, I'm pretty sure it's the user.
--Ala
------------------------------
Date: 26 Jan 2005 11:19:00 -0800
From: "Xah Lee" <xah@xahlee.org>
Subject: [perl-python] 20050126 find replace strings in file
Message-Id: <1106767140.027944.93380@c13g2000cwb.googlegroups.com>
=A9 # -*- coding: utf-8 -*-
=A9 # Python
=A9
=A9 import sys
=A9
=A9 nn =3D len(sys.argv)
=A9
=A9 if not nn=3D=3D5:
=A9 print "error: %s search_text replace_text in_file out_file" %
sys.argv[0]
=A9 else:
=A9 stext =3D sys.argv[1]
=A9 rtext =3D sys.argv[2]
=A9 input =3D open(sys.argv[3])
=A9 output =3D open(sys.argv[4],'w')
=A9
=A9 for s in input:
=A9 output.write(s.replace(stext,rtext))
=A9 output.close()
=A9 input.close()
-------------------------
save this code as find_replace.py
run it like this:
python find_replace.py findtext replacetext in_file out_file
the sys.argv is from sys. sys.argv[0] is the program's name itself.
note the idiom
"for variable_name in file_object"
note that since this code reads each
line in turn, so huge file is of no-problemo
the code is based from Python
Cookbook of Alex Martelli & David
Ascher, page 121
in Python terminal, type help() then
'FILES' and or 'sys'
for reference.
try to modify this file for your
needs.
--------------------------------------
In perl, similar code can be achieved.
the following code illustrates.
if (scalar @ARGV !=3D 4) {die "Wrong arg! Unix BNF: $0 <sstr> <rstr>
<file id1> <file id2>\n"}
$stext=3D$ARGV[0];
$rtext=3D$ARGV[1];
$infile =3D $ARGV[2];
$outfile =3D $ARGV[3];
open(F1, "<$infile") or die "Perl fucked up. Reason: $!";
open(F2, ">$outfile") or die "Perl fucked up. Reason: $!";
while ($line =3D <F1>) {
chomp($line);
$line =3D~ s/$stext/$rtext/g;
print F2 "$line\n";
}
close(F1) or die "Perl fucked up. Reason: $!";
close(F2) or die "Perl fucked up. Reason: $!";
Xah
xah@xahlee.org
http://xahlee.org/PageTwo_dir/more.html
------------------------------
Date: 26 Jan 2005 12:43:19 -0800
From: "Haibao Tang" <tanghaibao@gmail.com>
Subject: Re: [perl-python] 20050126 find replace strings in file
Message-Id: <1106772199.500554.117700@z14g2000cwz.googlegroups.com>
OK. But please don't die throwing that string, or this post will lose
its educational purpose as it was meant to be.
------------------------------
Date: Wed, 26 Jan 2005 20:48:35 +0100
From: Jacks <nono@spam.dk>
Subject: Compare string and eventually store
Message-Id: <nnsfv0h2kqssru6k8n36mt87s38gpaaac8@4ax.com>
Hi newsgroup I have two files, "file1" and "file2".
They contain string data like:
h:/test/test.test
i:/test2/test.test
Seperated by newlines.
I would like to read in one line from file1 and check whether this
line exists in somewhere in file2. If it doesnt I would like to write
the line in file1 that did not find at match in file2 in a file called
e.g. "diff.test"
I know that this is proparbly rather straight forward and a novice
question but could someone please help me?
Best Regards
J
------------------------------
Date: 26 Jan 2005 20:07:01 GMT
From: xhoster@gmail.com
Subject: Re: Compare string and eventually store
Message-Id: <20050126150701.849$ZH@newsreader.com>
Jacks <nono@spam.dk> wrote:
> Hi newsgroup I have two files, "file1" and "file2".
> They contain string data like:
>
> h:/test/test.test
> i:/test2/test.test
>
> Seperated by newlines.
>
> I would like to read in one line from file1 and check whether this
> line exists in somewhere in file2. If it doesnt I would like to write
> the line in file1 that did not find at match in file2 in a file called
> e.g. "diff.test"
How big is "file2"? If small (relative to your RAM), just create a hash
holding each line of file2. Then for each line of file1, probe the hash.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 26 Jan 2005 13:14:12 -0800
From: "jl_post@hotmail.com" <jl_post@hotmail.com>
Subject: Re: Compare string and eventually store
Message-Id: <1106774052.909823.287850@c13g2000cwb.googlegroups.com>
Jacks wrote:
> Hi newsgroup I have two files, "file1" and "file2".
> They contain string data like:
>
> h:/test/test.test
> i:/test2/test.test
>
> Seperated by newlines.
>
> I would like to read in one line from file1 and check whether this
> line exists in somewhere in file2. If it doesnt I would like to write
> the line in file1 that did not find at match in file2 in a file
called
> e.g. "diff.test"
>
> I know that this is proparbly rather straight forward and a novice
> question but could someone please help me?
If the files are not tremendously huge, I would recommend reading
the lines of each file into separate arrays, and then printing the
difference of the arrays. If you can figure out how to read the lines
of each file into its own array, you can find the difference by reading
the information you get when you type:
perldoc -q "compute the difference"
at the command line.
Just for fun, I decided to write a simple one-liner that should do
what you want (it's one whole line):
perl -e "{local @ARGV=shift; @h{<>}=()} delete @h{<>}; print sort
keys %h" file1 file2 > diff.test
-- Jean-Luc
------------------------------
Date: 26 Jan 2005 21:21:40 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: FAQ 6.17 Why don't word-boundary searches with "\b" work for me?
Message-Id: <ct91l4$49q$2@mamenchi.zrz.TU-Berlin.DE>
brian d foy <comdog@panix.com> wrote in comp.lang.perl.misc:
> In article <U9uJd.169457$Xk.119808@pd7tw3no>, Peter Scott
> <peter@PSDT.com> wrote:
>
> > In article <ct39o5$an5$1@reader2.panix.com>,
> > PerlFAQ Server <comdog@panix.com> writes:
>
> > >6.17: Why don't word-boundary searches with "\b" work for me?
>
> > > Two common misconceptions are that "\b" is a synonym for "\s+" and that
> > > it's the edge between whitespace characters and non-whitespace
> > > characters. Neither is correct. "\b" is the place between a "\w"
> > > character and a "\W" character (that is, "\b" is the edge of a "word").
>
> > That seems unnecessarily misleading.
>
> I wonder if those two things are even common misconceptions. What
> have you run into in your classes? In the Stonehenge classes I
Ah, classes... The misconceptions you get to see there are carefully
guided misconceptions. Some are even of didactical value. Tame
misconceptions, in a word. The FAQ must fight the wild (grrrr)
misconceptions that grow in the jungles script kiddies mistake for
their minds.
Anno
------------------------------
Date: Wed, 26 Jan 2005 22:47:28 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: File::Find gives me current dir (.)?
Message-Id: <46VJd.153117$KO5.102322@clgrps13>
Bernie Cosell wrote:
> Tad McClellan <tadmc@augustmail.com> wrote:
>
> } And
> }
> } use warnings;
> }
> } is better than -w.
>
> I thought they were the same... what's the difference??
perldoc perllexwarn
John
--
use Perl;
program
fulfillment
------------------------------
Date: Wed, 26 Jan 2005 22:54:39 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Grep Text File for Lines Containing 1 or 2 Words
Message-Id: <PcVJd.153146$KO5.149145@clgrps13>
Buck Turgidson wrote:
> Looking for help in writing a perl that will pull from a text file those
> lines containing one or two "words". I want to reject any line that
> contains more than 2 words (a sentence).
>
> Appreciate any help from text processing experts.
perl -ane'@F<3&&print' yourfile.txt
John
--
use Perl;
program
fulfillment
------------------------------
Date: Wed, 26 Jan 2005 23:04:48 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: HAVE YOU HEARD THE GOOD NEWS!
Message-Id: <kmVJd.153187$KO5.112133@clgrps13>
Hendrik Maryns wrote:
> Is there something we can do against this? Where to report this abuse?
> spamcop.net doesn't accept newsgroup spam...
Yes it does.
John
--
use Perl;
program
fulfillment
------------------------------
Date: 26 Jan 2005 11:16:38 -0800
From: bayxarea-usenet@yahoo.com
Subject: Re: How can I call a subroutine / function and not wait for it to return?
Message-Id: <1106766998.441507.46240@z14g2000cwz.googlegroups.com>
This is not another process or system call - this is a subroutine - so
IPC and fork are not relavent (AFAIK)
Imagine:
my_sub(args);
$timer = 10;
while($timer) {
# check to see if flag is found in file
} # end while
sub my_sub {
# do something
# write output to a file --- blah blah blah
} # end sub
I want to call my_sub and immediately enter the while loop.
Thanks,
John
------------------------------
Date: 26 Jan 2005 19:40:57 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: How can I call a subroutine / function and not wait for it to return?
Message-Id: <ct8ro9$1ah$3@mamenchi.zrz.TU-Berlin.DE>
<bayxarea-usenet@yahoo.com> wrote in comp.lang.perl.misc:
> This is not another process or system call - this is a subroutine - so
What is "this"? Please show some consideration and provide context.
> IPC and fork are not relavent (AFAIK)
Sure they are.
> Imagine:
>
> my_sub(args);
>
> $timer = 10;
>
> while($timer) {
How is $timer ever decremented?
> # check to see if flag is found in file
>
> } # end while
>
>
> sub my_sub {
>
> # do something
> # write output to a file --- blah blah blah
>
> } # end sub
>
>
>
> I want to call my_sub and immediately enter the while loop.
Yes. So fork a process and let it run the sub. Use IPC to talk back to
the parent process. Your best bet may be for the sub not to write to a
file but to STDOUT and use open( ..., '-|') for the fork, so the main
process can read the output directly.
Then again, you may be looking for threads. No advice from me there.
Until I'm running a multi-processor and need the extra power, I'm not
touching threads.
Anno
------------------------------
Date: 26 Jan 2005 20:11:21 GMT
From: xhoster@gmail.com
Subject: Re: How can I call a subroutine / function and not wait for it to return?
Message-Id: <20050126151121.188$MC@newsreader.com>
bayxarea-usenet@yahoo.com wrote:
> How can I call a subroutine / function that is either local to the .pl
> or from a module and not wait for it to return - rather continue on ...
>
> I have a routine that is already wrapped in a function I wrote in a
> module I 'use'. My program needs to call it and then I want to enter a
> loop to monitor an output file at the OS that will be created from this
> function (interacts with other software) - but I don't know how to
> enter the loop after the call to the subroutine since Perl will wait
> there at that line until it returns....
perldoc -q background
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 26 Jan 2005 20:14:03 GMT
From: xhoster@gmail.com
Subject: Re: How can I call a subroutine / function and not wait for it to return?
Message-Id: <20050126151403.316$ga@newsreader.com>
bayxarea-usenet@yahoo.com wrote:
> This is not another process or system call - this is a subroutine - so
> IPC and fork are not relavent (AFAIK)
So, you want to solve a certain type of problem in Perl, but you do not
want to use the tools which perl provides for solving that type of problem?
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 26 Jan 2005 13:51:15 -0800
From: bayxarea-usenet@yahoo.com
Subject: Re: How can I call a subroutine / function and not wait for it to return?
Message-Id: <1106776275.031068.127210@c13g2000cwb.googlegroups.com>
Uh ... no.. it is NOT that I don't want to use the tools .. it is that
AFAIK (as far as I know) these are not relevant
What I know -
IPC - will allow me to call communicate with another process - ok -
great - but this isn't another process.
fork - will allow me to spawn the current process as a seperate child -
ok - great but this isn't what I thought I would need - perhaps it is -
hence the AFAIK in my reply!
after reading the post from Anno regarding fork - I suppose I could do
it that way - I was just hoping there was a way to handle it without
starting an entire new version of the original code - this is a large
program and I only want to exectute one tiny subroutine
John
------------------------------
Date: Wed, 26 Jan 2005 22:51:50 GMT
From: tiltonj@erols.com (Jay Tilton)
Subject: Re: How can I call a subroutine / function and not wait for it to return?
Message-Id: <41f81ba5.172436280@news.erols.com>
Usenet tradition is to supply context for your comments by quoting relevant
parts of the article you are replying to. Your audience of clpm readers is
dramatically less eager to assist those who do not observe this tradition.
See http://mail.augustmail.com/~tadmc/clpmisc.shtml for good advices.
bayxarea-usenet@yahoo.com wrote:
: Uh ... no.. it is NOT that I don't want to use the tools .. it is that
: AFAIK (as far as I know) these are not relevant
You want a portion of the program to perform its assigned task while the
larger portion of the program carries on its own processing. You exactly
describe the type of problem that forking was designed to solve.
: IPC - will allow me to call communicate with another process - ok -
: great - but this isn't another process.
It needs to be.
: fork - will allow me to spawn the current process as a seperate child -
: ok - great but this isn't what I thought I would need - perhaps it is
It is.
------------------------------
Date: 26 Jan 2005 15:14:12 -0600
From: colin_lyse@98fgfgs.com (colin_lyse)
Subject: how do u convert a string to a date
Message-Id: <41f8077a$0$94842$45beb828@newscene.com>
using perl on Win2k box
have a file with the following lines (total of 50)
I. 12/16 22:33:17. <thread 1.5>: Ready to handle requests
E. 01/11 18:29:12. <thread 1.1>: Ready to handle requests
I. 01/12 11:29:12. <thread 1.2>: Ready to handle requests
I. 01/12 13:29:12. <thread 1.3>: Ready to handle requests
E. 01/26 19:29:12.<Main>: Error: [-10002] ODBC: [Microsoft] ODBC Driver
I. 01/26 19:29:12. <thread 1.5>: Ready to handle requests
what i need to do is for dates and times within the last hour fine any line
with E.
what i looking for is how to convert the timestamp in the line to an actual
timestamp i can compare to the localtime. have seen lots of info on
converting dates to string but not other way around
------------------------------
Date: Wed, 26 Jan 2005 21:57:37 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: how do u convert a string to a date
Message-Id: <Xns95EAAC914982Basu1cornelledu@127.0.0.1>
colin_lyse@98fgfgs.com (colin_lyse) wrote in
news:41f8077a$0$94842$45beb828@newscene.com:
> have a file with the following lines (total of 50)
>
> I. 12/16 22:33:17. <thread 1.5>: Ready to handle requests
> E. 01/11 18:29:12. <thread 1.1>: Ready to handle requests
> I. 01/12 11:29:12. <thread 1.2>: Ready to handle requests
> I. 01/12 13:29:12. <thread 1.3>: Ready to handle requests
> E. 01/26 19:29:12.<Main>: Error: [-10002] ODBC: [Microsoft] ODBC
> Driver I. 01/26 19:29:12. <thread 1.5>: Ready to handle requests
>
> what i need to do is for dates and times within the last hour fine any
> line with E.
>
> what i looking for is how to convert the timestamp in the line to an
> actual timestamp i can compare to the localtime. have seen lots of
> info on converting dates to string but not other way around
Take a look at the Date::Calc module:
#! /usr/bin/perl
use strict;
use warnings;
use Date::Calc 'Mktime';
my $this_year = 1900 + (localtime time)[5];
while(my $line = <DATA>) {
chomp $line;
last unless $line;
if($line =~ m{^E\. (\d+\d+)/(\d+\d+) (\d+\d+):(\d+\d+):(\d+\d+)}) {
my($mon, $day, $hr, $min, $sec)
= (0 + $1, 0 + $2, 0 + $3, 0 + $4, 0 + $5);
my $parsed = localtime(
Mktime($this_year, $mon, $day, $hr, $min, $sec)
);
print "$line =>\n\t$parsed\n\n";
}
}
__DATA__
I. 12/16 22:33:17. <thread 1.5>: Ready to handle requests
E. 01/11 18:29:12. <thread 1.1>: Ready to handle requests
I. 01/12 11:29:12. <thread 1.2>: Ready to handle requests
I. 01/12 13:29:12. <thread 1.3>: Ready to handle requests
E. 01/26 19:29:12.<Main>: Error: [-10002] ODBC: [Microsoft] ODBC Driver
I. 01/26 19:29:12. <thread 1.5>: Ready to handle requests
C:\Dload> q
E. 01/11 18:29:12. <thread 1.1>: Ready to handle requests =>
Tue Jan 11 18:29:12 2005
E. 01/26 19:29:12.<Main>: Error: [-10002] ODBC: [Microsoft] ODBC Driver
=>
Wed Jan 26 19:29:12 2005
Sinan
------------------------------
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 7696
***************************************
