[25695] in Perl-Users-Digest
Perl-Users Digest, Issue: 7936 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Apr 2 21:05:30 2005
Date: Sat, 2 Apr 2005 18:05:08 -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 Sat, 2 Apr 2005 Volume: 10 Number: 7936
Today's topics:
Re: $line = <FH> returns incomplete lines axel@white-eagle.invalid.uk
Can perl do this? rublind@gmail.com
Re: Can perl do this? <pilsl@goldfisch.at>
Re: Can perl do this? rublind@gmail.com
Re: Can perl do this? <1usa@llenroc.ude.invalid>
Re: Can perl do this? rublind@gmail.com
Re: Can perl do this? <1usa@llenroc.ude.invalid>
Re: Can perl do this? <No_4@dsl.pipex.com>
Re: Can perl do this? rublind@gmail.com
Re: Database -> Excel sigzero@gmail.com
Re: difference between two files <pilsl@goldfisch.at>
Re: difference between two files <toddrw69@excite.com>
How to get an external return value? <nope@nowhere.com>
Re: How to get an external return value? <1usa@llenroc.ude.invalid>
Re: How to get an external return value? <jurgenex@hotmail.com>
Re: How to get an external return value? <nope@nowhere.com>
Re: How to get an external return value? <nope@nowhere.com>
Re: To change the time stamp format... <someone@example.com>
Re: To change the time stamp format... <1usa@llenroc.ude.invalid>
Re: To change the time stamp format... <tadmc@augustmail.com>
Re: To change the time stamp format... <someone@example.com>
Re: To change the time stamp format... <1usa@llenroc.ude.invalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 02 Apr 2005 14:39:35 -0600
From: axel@white-eagle.invalid.uk
Subject: Re: $line = <FH> returns incomplete lines
Message-Id: <wd6dnXTsSsuantLfRVn-tg@adelphia.com>
Brian McCauley <nobull@mail.com> wrote:
> axel@white-eagle.invalid.uk wrote:
>>>That is missing the seek() that is needed to reset the EOF flag on MYLOG.
> > It works without the seek.
> I think you were right the first time. It _seems_ to work. My
> understanding is that it is undefined if Perl's readline() will or will
> not reset the EOF condition when more data appears in a file.
> Right now I can't find a platform on which your code fails but so long
> as it is officially undefined if it will work without the seek() I'd be
> inclined not to omit it.
Point taken.
>>>it will work, sort of, but only because you are
>>>simply printing the output.
>>
>> Each time some characters are picked up they are printed.
>
> Yes, that was my point. You rely on the behaviour of the output device
> to give the false impression that split lines are being reassembled.
> (Note reassembly of the split lines is the subject of this thread).
>>>If you wanted to do someting else - like
>>>selectively print lines by pattern match (as per OP) then it wouldn't work.
> Well, yes, of course, if you add the code that reassembles split lines
> then of course your solution is the same as all the others offered in
> this thread. (Remember, it is the reassembly of the split lines that is
> the subject of this thread).
I seem to have gone off at a tangent... puzzling as to where the
problem lay and why seek was considered necessary.
Axel
------------------------------
Date: 2 Apr 2005 12:33:16 -0800
From: rublind@gmail.com
Subject: Can perl do this?
Message-Id: <1112473996.478779.287820@f14g2000cwb.googlegroups.com>
Okay, I don't know perl yet, but I have a book to be read when I get
some time. But there is something I need soon and I'd like to know if
perl can do it.
Here's what I need:
* Whenever the contents of a directory chnage (filesize, date
modified, new file, anything) the script needs to call a system
command,
* The system command will require a password, so the STDIN and STDOUT
need to be played with so the password can be sent by the file
* after the command, the script needs to monitor the folder again, and
repeat after a change.
Is this possible? If it is, would it be that complicated of a script?
Or can I do it in five minutes after I learned the language?
Thanks.
------------------------------
Date: Sat, 02 Apr 2005 23:10:42 +0200
From: peter pilsl <pilsl@goldfisch.at>
Subject: Re: Can perl do this?
Message-Id: <424f0ac3$0$1945$79720d31@newsreader.inode.at>
rublind@gmail.com wrote:
> Okay, I don't know perl yet, but I have a book to be read when I get
> some time. But there is something I need soon and I'd like to know if
> perl can do it.
> Here's what I need:
> * Whenever the contents of a directory chnage (filesize, date
> modified, new file, anything) the script needs to call a system
> command,
> * The system command will require a password, so the STDIN and STDOUT
> need to be played with so the password can be sent by the file
> * after the command, the script needs to monitor the folder again, and
> repeat after a change.
>
> Is this possible? If it is, would it be that complicated of a script?
> Or can I do it in five minutes after I learned the language?
>
It is possible. When the password is read via STDIN, then its fairly
easy and done withing five minutes. Otherwise things get a bit more
complicated (like in any other language) and you'll want to take a look
at the Expect::Simple - Module to help you and it will take you 10minutes.
The problem ist - as with any other language - that learning the
language itself will take you much more than 10 minutes.
But your planned script look like a good way to start.
Below my unworthy script that monitors a given folder and reports if it
changes - it took three minutes to write and another three minutes to
comment. I did not implement the command-calling and password-stuff
cause this really depends on the command you'd like to call. Note that I
assumed a *nix-system and use the system-command ls to get the content
of the directory. There are other ways using perl-internas, but it seems
that calling ls might be suffient.
--------------------mon.pl-----------------------------
#!/usr/bin/perl -w
use strict;
my $folder=$ARGV[0]; # the first argument is the folder to watch
my $dir_old; # last version of the folder-content
my $dir_new; # this will hold the new version
while (1) { # run forever (until ctrl-c breaks)
$dir_new=`ls -l $folder`; # get the content of the folder
# if it's not the first loop where $dir_old ist still undefined and
# if there was a change
if ($dir_old and $dir_new ne $dir_old) {
print "change in $folder\n";
}
$dir_old=$dir_new; # let the new get old
sleep 1; # wait one second
}
------------------------------------------------------------
example:
$ ./mon.pl /tmp
change in /tmp
CTRL-C
$
best,
peter
--
http://www.goldfisch.at/know_list
------------------------------
Date: 2 Apr 2005 14:16:53 -0800
From: rublind@gmail.com
Subject: Re: Can perl do this?
Message-Id: <1112480213.186675.260900@o13g2000cwo.googlegroups.com>
The command I wanted to run was either an SVN update or a CVS update,
but even though I don't really know pel that will, I think I understand
what you are doing.
But what I don't get is where/how you are running the command. I see
how you made $dir_new equal to the ls command, so I'm assuming that
you're making it contain the folders contents, but I'm not sure.
I think I'll try the script out though. Thanks!
------------------------------
Date: Sat, 02 Apr 2005 22:32:28 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Can perl do this?
Message-Id: <Xns962CB2706C24Casu1cornelledu@127.0.0.1>
peter pilsl <pilsl@goldfisch.at> wrote in
news:424f0ac3$0$1945$79720d31@newsreader.inode.at:
> rublind@gmail.com wrote:
>> * Whenever the contents of a directory chnage (filesize, date
>> modified, new file, anything) the script needs to call a system
>> command,
> Below my unworthy script that monitors a given folder and reports if
> it changes - it took three minutes to write and another three minutes
> to comment.
> while (1) { # run forever (until ctrl-c breaks)
> $dir_new=`ls -l $folder`; # get the content of the folder
Polling like this, i.e. writing a busy loop is probably not a good idea.
Elsthread, the OP has pointed out that he wants to run a version control
program to be run every time the contents of the working directory
changes.
Humbly, I think it is better for humans to decide when it is a good time
to check sources in to a version control repository than having every
change you make be checked in regardless of what that change is, but
that's just me.
It might be useful to do this on a schedule, in which case the OS
dependent scheduling facilities (cron, at) ought to be used.
On the other hand, Windows has a directory change notification callback
API. Using that would avoid the busy loop.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: 2 Apr 2005 16:20:37 -0800
From: rublind@gmail.com
Subject: Re: Can perl do this?
Message-Id: <1112487637.856491.163600@l41g2000cwc.googlegroups.com>
Problem with using that windows api, is that the repository is on a
linux machine, so that does me no good.
------------------------------
Date: Sun, 03 Apr 2005 00:31:33 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Can perl do this?
Message-Id: <Xns962CC6A148F65asu1cornelledu@127.0.0.1>
rublind@gmail.com wrote in news:1112487637.856491.163600
@l41g2000cwc.googlegroups.com:
> Problem with using that windows api, is that the repository is on a
> linux machine, so that does me no good.
Please quote some context when you are replying.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Sun, 03 Apr 2005 01:37:44 +0100
From: Big and Blue <No_4@dsl.pipex.com>
Subject: Re: Can perl do this?
Message-Id: <sOWdnTfWodFEp9LfRVnyug@pipex.net>
rublind@gmail.com wrote:
> Problem with using that windows api, is that the repository is on a
> linux machine, so that does me no good.
A few quick things then.
1) Make sure you sleep in the loop. If you can accept a 30s delay between
new files arriving and being handled then sleep for 30s.
2) Don't use a system call to "ls -l" to look for changes.
i) stat the directory. Has the mtime changed since last time you
stat()ed it? If not, then no new file has arrived.
ii) If something has, the use readdir() to get the entries.
3) Try to make it so that you don't need to give id+password via STDIN.
Doesn't CVS allow you to set an environment variable or something?
--
Just because I've written it doesn't mean that
either you or I have to believe it.
------------------------------
Date: 2 Apr 2005 16:52:58 -0800
From: rublind@gmail.com
Subject: Re: Can perl do this?
Message-Id: <1112489578.821008.257970@f14g2000cwb.googlegroups.com>
I couldn't get anything working with cvs, I'm using SVN, and I don't
need to pass it a password. Another problem with checking if new files
were added or anything is that it uses Berkley DB's to keep all that
data, so I actually don't know how everything is stored...
------------------------------
Date: 2 Apr 2005 16:56:41 -0800
From: sigzero@gmail.com
Subject: Re: Database -> Excel
Message-Id: <1112489800.970000.293900@l41g2000cwc.googlegroups.com>
That is really close to what I am doing...
Robert
------------------------------
Date: Sat, 02 Apr 2005 23:17:06 +0200
From: peter pilsl <pilsl@goldfisch.at>
Subject: Re: difference between two files
Message-Id: <424f0c43$0$1945$79720d31@newsreader.inode.at>
Hendrik Maryns wrote:
>>
>> perl -MText::Diff -e "print diff @ARGV" file1.xml file2.xml
>
> Thanks fot this one. I really have to learn to write oneliners. All
> these four-line scripts aren't very useful & handy anyway.
>
oneliners are fast-written and often-written, cause I never save them to
disk and when I need em again I've to think them over again.
So on the longer term fourliners are maybe better ;)
best,
peter
--
http://www.goldfisch.at/know_list
------------------------------
Date: Sat, 02 Apr 2005 22:15:58 GMT
From: "Todd W" <toddrw69@excite.com>
Subject: Re: difference between two files
Message-Id: <yQE3e.28478$hU7.1859@newssvr33.news.prodigy.com>
"A. Sinan Unur" <1usa@llenroc.ude.invalid> wrote in message
news:Xns962B56096D8B3asu1cornelledu@127.0.0.1...
> anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote in
> news:d2jgb2$ksu$1@mamenchi.zrz.TU-Berlin.DE:
>
> > Tim Heaney <tim@mrbun.watterson> wrote in comp.lang.perl.misc:
> >> anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) writes:
> >> >
> >> > The algorithm in diff to produce a line-by-line comparison of files
> >> > is remarkably complex
>
> ...
> >> The CPAN module Algorithm::Diff seems to do all that and more. If you
> >> really want just diff, the Text::Diff module distills it for you.
>
> ...
>
> > Thanks for the correction. I never noticed those modules.
>
> OTOH, the OP might want to remember that XML files can have equivalent
> data, but not the same text.
>
Which is why there is XML::Diff:
http://search.cpan.org/~sdether/XML-Diff-0.04/Diff.pm
Todd W.
------------------------------
Date: Sat, 02 Apr 2005 18:53:05 -0500
From: topple <nope@nowhere.com>
Subject: How to get an external return value?
Message-Id: <pan.2005.04.02.23.53.05.696783@nowhere.com>
My books don't address the question. Lots of stuff about using backticks
to call system functions and getting return values, but how do I return a
value from one of my own external routines. Like so...
(The caller)
#!/usr/bin/perl -w
use strict;
my $dice = `./dice.pl 20 1`;
print "$dice\n";
(The called ./dice.pl)
#!/usr/bin/perl -w
use strict;
my $randresult = 0;
for (my $i=1; $i<= $ARGV[1]; ++$i){
$randresult = $randresult + int(rand $ARGV[0]) + 1;
}
The program runs ok and calls the dice function which also works but how
do I cause $randresult to be the return value?
Thanks all
Topple
------------------------------
Date: Sun, 03 Apr 2005 01:08:04 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: How to get an external return value?
Message-Id: <Xns962CCCD20AAAFasu1cornelledu@127.0.0.1>
topple <nope@nowhere.com> wrote in news:pan.2005.04.02.23.53.05.696783
@nowhere.com:
> My books don't address the question. Lots of stuff about using
> backticks to call system functions
That is exactly the facility you are using.
> and getting return values, but how do I return a
> value from one of my own external routines. Like so...
>
> (The caller)
> #!/usr/bin/perl -w
> use strict;
> my $dice = `./dice.pl 20 1`;
> print "$dice\n";
>
>
> (The called ./dice.pl)
> #!/usr/bin/perl -w
> use strict;
> my $randresult = 0;
> for (my $i=1; $i<= $ARGV[1]; ++$i){
> $randresult = $randresult + int(rand $ARGV[0]) + 1;
> }
>
> The program runs ok and calls the dice function which also works but
> how do I cause $randresult to be the return value?
There is no function called dice in the code you have posted.
I am at a loss here ... For the life of me, I cannot understand why you
would spawn another process to do something like this.
You should define a subroutine called dice in your program and call
that.
If it turns out that the subroutine is used by many different programs,
you can put it in its own package.
OTOH, if you really have a burning desire to do what you are doing, just
put a
print "$randresult\n";
at the end of dice.pl. After all, you *are* using backticks.
Sinan.
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Sun, 03 Apr 2005 01:35:58 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: How to get an external return value?
Message-Id: <2MH3e.4426$pU5.3381@trnddc06>
topple wrote:
> My books don't address the question. Lots of stuff about using
> backticks to call system functions and getting return values,
Dump those books immediately. backticks don't provide return values, they
merely capture the output of the external program.
If your books don't mention that, then they are not worth the paper they are
printed on.
BTW: Why aren't you simply consulting the documentation that comes with
Perl?
> but how
> do I return a value from one of my own external routines. Like so...
>
> (The caller)
> #!/usr/bin/perl -w
> use strict;
> my $dice = `./dice.pl 20 1`;
As mentioned before, backticks capture the output of the called program, not
its return value.
To get the return value you should use system(). But read the 3rd paragraph
of "perldoc -f system" carefully because the return value is not just the
plain exit status.
> print "$dice\n";
>
>
> (The called ./dice.pl)
> #!/usr/bin/perl -w
> use strict;
> my $randresult = 0;
> for (my $i=1; $i<= $ARGV[1]; ++$i){
> $randresult = $randresult + int(rand $ARGV[0]) + 1;
> }
>
> The program runs ok and calls the dice function which also works but
> how do I cause $randresult to be the return value?
Well, your program dice.pl never returns any value to begin with. See
"perldoc -f exit" for how to set the return value.
Having said that is actually appears as if you are not interested in the
return value but in the output of dice.pl. Well, in that case your program
dice.pl should better print something to STDOUT. Otherwise there wouldn't be
anything for the caller to capture.
jue
------------------------------
Date: Sat, 02 Apr 2005 19:45:26 -0500
From: topple <nope@nowhere.com>
Subject: Re: How to get an external return value?
Message-Id: <pan.2005.04.03.00.45.24.304899@nowhere.com>
> There is no function called dice in the code you have posted.
>
Correct.
I have no problem calling a subroutine within the same script.
However, in this case...
caller.pl is a perl script that calls dice.pl.
dice.pl is another standalone perl script.
> I am at a loss here ... For the life of me, I cannot understand why you
> would spawn another process to do something like this.
>
Sorry. I didn't give the reason for the question.
I am in learning mode and am just trying to find out how Perl
works overall with stuff that is not discussed in my books. So some of my
code may look (and is) ridiculous from a real coding standpoint.
Topple
------------------------------
Date: Sat, 02 Apr 2005 19:54:39 -0500
From: topple <nope@nowhere.com>
Subject: Re: How to get an external return value?
Message-Id: <pan.2005.04.03.00.54.37.289091@nowhere.com>
>
> Dump those books immediately. backticks don't provide return values, they
> merely capture the output of the external program. If your books don't
> mention that, then they are not worth the paper they are printed on.
I can't dump them. I have a stack of them so high that I use most to hold
up my open reference book:0
>
> BTW: Why aren't you simply consulting the documentation that comes with
> Perl?
>
Thanks. I realise that the question may be rather odd (ok, stupid). I am
a hobby programmer. Never made a nickle on it and like it that way - no
pressure, no deadlines. However, all my coding for years has been in
C++Builder, Delphi and Pascal and in those I know exactly what to expect
and where to look if I don't get it.
Perl is a whole lot different. I really like it so far, but I am
still in the learning segment where some of the differences don't make a
whole lot of sense. I realise that the embedded Perl docs have a ton of
info, but many times, if not most, I don't know what I am trying to find.
Just the backtick method of calling something took hours of searching
before I even knew it existed.
Topple
------------------------------
Date: Sat, 02 Apr 2005 22:30:58 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: To change the time stamp format...
Message-Id: <C2F3e.127630$ZO2.8180@edtnps84>
clearguy02@yahoo.com wrote:
>
> I need a function in my perl program that converts the given time stamp
> to a specific time stamp format.
>
> example: 15-Aug-04.19:03 should be converted to 2004-08-15 19:03:00
>
> Can some one tell me how to do this?
my $date = '15-Aug-04.19:03';
my %months = qw(
Jan 1
Feb 2
Mar 3
Apr 4
May 5
Jun 6
Jul 7
Aug 8
Sep 9
Oct 10
Nov 11
Dec 12
);
my $mon_lookup = join '|', keys %months;
if ( $date =~ /(\d+)-($mon_lookup)-(\d+)\.(\d+):(\d+)/ ) {
printf "20%02d-%02d-%02d %02d:%02d:00\n", $3, $months{$2}, $1, $4, $5;
}
John
--
use Perl;
program
fulfillment
------------------------------
Date: Sat, 02 Apr 2005 22:37:11 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: To change the time stamp format...
Message-Id: <Xns962CB33CEB84Easu1cornelledu@127.0.0.1>
"John W. Krahn" <someone@example.com> wrote in
news:C2F3e.127630$ZO2.8180@edtnps84:
> clearguy02@yahoo.com wrote:
>>
>> I need a function in my perl program that converts the given time
>> stamp to a specific time stamp format.
>>
>> example: 15-Aug-04.19:03 should be converted to 2004-08-15 19:03:00
>>
>> Can some one tell me how to do this?
>
>
> my $mon_lookup = join '|', keys %months;
>
> if ( $date =~ /(\d+)-($mon_lookup)-(\d+)\.(\d+):(\d+)/ ) {
>
> printf "20%02d-%02d-%02d %02d:%02d:00\n", $3, $months{$2}, $1,
> $4, $5;
Ooops! How about that Y2.1K bug?!
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Sat, 2 Apr 2005 16:46:17 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: To change the time stamp format...
Message-Id: <slrnd4u85p.78j.tadmc@magna.augustmail.com>
clearguy02@yahoo.com <clearguy02@yahoo.com> wrote:
> Thanks Felix,
>
> Do you have any example code to do this?
Post the code that you have tried so far, and we will help you fix it.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 03 Apr 2005 00:19:48 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: To change the time stamp format...
Message-Id: <EEG3e.127836$ZO2.94802@edtnps84>
A. Sinan Unur wrote:
> "John W. Krahn" <someone@example.com> wrote in
> news:C2F3e.127630$ZO2.8180@edtnps84:
>>
>>if ( $date =~ /(\d+)-($mon_lookup)-(\d+)\.(\d+):(\d+)/ ) {
>>
>> printf "20%02d-%02d-%02d %02d:%02d:00\n", $3, $months{$2}, $1,
>> $4, $5;
>
> Ooops! How about that Y2.1K bug?!
Is that thing still around? :-)
John
--
use Perl;
program
fulfillment
------------------------------
Date: Sun, 03 Apr 2005 00:34:19 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: To change the time stamp format...
Message-Id: <Xns962CC718EEB63asu1cornelledu@127.0.0.1>
"John W. Krahn" <someone@example.com> wrote in news:EEG3e.127836$ZO2.94802
@edtnps84:
> A. Sinan Unur wrote:
>> "John W. Krahn" <someone@example.com> wrote in
>> news:C2F3e.127630$ZO2.8180@edtnps84:
>>>
>>>if ( $date =~ /(\d+)-($mon_lookup)-(\d+)\.(\d+):(\d+)/ ) {
>>>
>>> printf "20%02d-%02d-%02d %02d:%02d:00\n", $3, $months{$2}, $1,
>>> $4, $5;
>>
>> Ooops! How about that Y2.1K bug?!
>
> Is that thing still around? :-)
Yeah, it seems like a new version is released every century :)
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
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 7936
***************************************
