[31674] in Perl-Users-Digest
Perl-Users Digest, Issue: 2937 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun May 9 00:09:27 2010
Date: Sat, 8 May 2010 21:09:08 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 8 May 2010 Volume: 11 Number: 2937
Today's topics:
Re: find/copy most recent version of file? sln@netherlands.com
Re: find/copy most recent version of file? <john@castleamber.com>
Re: find/copy most recent version of file? <john@castleamber.com>
Re: find/copy most recent version of file? <geoff@invalid.invalid>
Re: find/copy most recent version of file? <uri@StemSystems.com>
Re: find/copy most recent version of file? <uri@StemSystems.com>
Re: find/copy most recent version of file? <jurgenex@hotmail.com>
Re: find/copy most recent version of file? <tadmc@seesig.invalid>
Re: find/copy most recent version of file? <tadmc@seesig.invalid>
Re: find/copy most recent version of file? <uri@StemSystems.com>
Re: find/copy most recent version of file? <john@castleamber.com>
Re: find/copy most recent version of file? <john@castleamber.com>
Re: find/copy most recent version of file? <john@castleamber.com>
Re: how do i find the max value out of an array? <xhoster@gmail.com>
Re: how do i find the max value out of an array? <john@castleamber.com>
Re: how do i find the max value out of an array? <jurgenex@hotmail.com>
Re: how do i find the max value out of an array? <uri@StemSystems.com>
Search pattern not terminated jidanni@jidanni.org
Re: Search pattern not terminated <uri@StemSystems.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 08 May 2010 12:40:29 -0700
From: sln@netherlands.com
Subject: Re: find/copy most recent version of file?
Message-Id: <h9fbu5ldi91q7h0gma50uiibde3he1v5ir@4ax.com>
On Sat, 08 May 2010 15:29:51 +0100, Geoff <geoff@invalid.invalid> wrote:
>On Fri, 07 May 2010 12:32:09 -0500, John Bokma <john@castleamber.com>
>wrote:
>
>I have the code below working but I wonder if someone could just talk
>me through what is happening in function sub?
>
>Cheers
>
>Geoff
>
>
>use strict;
>use warnings;
>use File::Find;
>use File::Copy;
>
>my $file_name ='';
>my %file_access;
>my %file_full;
>my $destiny = "c:/0-c1/$file_name";
>#print $destiny;
>
>die "dirs required\n" unless @ARGV;
>
>find(\&wanted, @ARGV);
>
>foreach $file_name (values %file_full) {
> #print "path/file = " . $file_name . " destiny = " . $destiny;
> copy( $file_name, $destiny )
> or die "Copy of '$file_name' to '$destiny' failed: $!";
>}
>
>sub wanted {
> return unless /^video_c1_\d+\.mp4$/;
> my $access_time = (stat($_))[9];
> return if ($file_access{$_} and $access_time < $file_access{$_});
> $file_full{$_} = $File::Find::name;
> $file_access{$_} = $access_time;
>}
I think you need to be more descriptive in both
comments and variable names.
Instead of talking you through it, read this out loud.
-sln
------------
use strict;
use warnings;
use File::Find;
use File::Copy;
@ARGV || die "Search directories required !!\n";
##
my %Source = ();
my $Destdir = "c:/0-c1/";
my $RxFileFilter = qr /^ video_c1_\d+\.mp4 $/xi;
find(\&wanted, @ARGV);
for my $filename (keys %Source)
{
my $from = $Source{ $filename }{ fullpath };
my $to = $Destdir . $filename;
if (!copy( $from, $to )) {
warn "\nFailed .. from: $from\n", ' 'x 10, "to: $to\n", ' 'x 10,"$!";
}
else {
print "\nOK .. from: $from\n", ' 'x 6, "to: $to\n";
}
}
##
sub wanted
{
my $filename = $_;
return unless $filename =~ /$RxFileFilter/;
my $time = (stat( $filename ))[9];
if ($Source{ $filename }{ access } && $time < $Source{ $filename }{ access }) {
return;
}
$Source{ $filename }{ fullpath } = $File::Find::name;
$Source{ $filename }{ access } = $time;
}
------------------------------
Date: Sat, 08 May 2010 14:55:21 -0500
From: John Bokma <john@castleamber.com>
Subject: Re: find/copy most recent version of file?
Message-Id: <877hne88ye.fsf@castleamber.com>
"Peter J. Holzer" <hjp-usenet2@hjp.at> writes:
> On 2010-05-08 04:33, John Bokma <john@castleamber.com> wrote:
>> Jürgen Exner <jurgenex@hotmail.com> writes:
>>
>>> "that doesn't work" is about the worst possible error description.
>>
>> You haven't met some of my customers then :-)
>
> They tell you "everything is fine" and expect you to fix the problems
> anyway?
:-)
I've one customer who tells me now and then that a program "bitches"
despite the countless times I've told him that copy pasting the message
saves us both time.
On top of that: "bitching" can be:
- just the verbose output
- a non-fatal warning
- an actual error
- him doing something wrong
--
John Bokma j3b
Hacking & Hiking in Mexico - http://johnbokma.com/
http://castleamber.com/ - Perl & Python Development
------------------------------
Date: Sat, 08 May 2010 14:58:36 -0500
From: John Bokma <john@castleamber.com>
Subject: Re: find/copy most recent version of file?
Message-Id: <8739y288sz.fsf@castleamber.com>
"Uri Guttman" <uri@StemSystems.com> writes:
>>>>>> "G" == Geoff <geoff@invalid.invalid> writes:
>
> G> The code below works, i.e. I get the latest set of files!
>
> for some value of work.
>
> G> my $file_name ='';
> G> my %file_access;
> G> my %file_full;
> G> my $destiny = "c:/a-temp3/$file_name";
>
> what do you think is in $destiny now? what was in $file_name? this does
> not do what you seem to think it does. interpolation is not delayed.
Per Ben's explanation [1], this does actually what OP wants, but I agree
that it's confusing. Just
my $destiny = 'c:/a-temp3/';
is better.
[1] if dest is a dir, the file is copied into the dir, what's what the
OP want.
--
John Bokma j3b
Hacking & Hiking in Mexico - http://johnbokma.com/
http://castleamber.com/ - Perl & Python Development
------------------------------
Date: Sat, 08 May 2010 22:46:31 +0100
From: Geoff <geoff@invalid.invalid>
Subject: Re: find/copy most recent version of file?
Message-Id: <gnmbu51o8n1s4f4b8mcfsc7n5e4as52309@4ax.com>
On Sat, 08 May 2010 12:40:29 -0700, sln@netherlands.com wrote:
>On Sat, 08 May 2010 15:29:51 +0100, Geoff <geoff@invalid.invalid> wrote:
>
>>On Fri, 07 May 2010 12:32:09 -0500, John Bokma <john@castleamber.com>
>>wrote:
>>
>>I have the code below working but I wonder if someone could just talk
>>me through what is happening in function sub?
>>
>>Cheers
>>
>>Geoff
>>
>>
>>use strict;
>>use warnings;
>>use File::Find;
>>use File::Copy;
>>
>>my $file_name ='';
>>my %file_access;
>>my %file_full;
>>my $destiny = "c:/0-c1/$file_name";
>>#print $destiny;
>>
>>die "dirs required\n" unless @ARGV;
>>
>>find(\&wanted, @ARGV);
>>
>>foreach $file_name (values %file_full) {
>> #print "path/file = " . $file_name . " destiny = " . $destiny;
>> copy( $file_name, $destiny )
>> or die "Copy of '$file_name' to '$destiny' failed: $!";
>>}
>>
>>sub wanted {
>> return unless /^video_c1_\d+\.mp4$/;
>> my $access_time = (stat($_))[9];
>> return if ($file_access{$_} and $access_time < $file_access{$_});
>> $file_full{$_} = $File::Find::name;
>> $file_access{$_} = $access_time;
>>}
>
>I think you need to be more descriptive in both
>comments and variable names.
>Instead of talking you through it, read this out loud.
>
>-sln
>------------
>use strict;
>use warnings;
>use File::Find;
>use File::Copy;
>
>@ARGV || die "Search directories required !!\n";
>
>##
> my %Source = ();
> my $Destdir = "c:/0-c1/";
>
> my $RxFileFilter = qr /^ video_c1_\d+\.mp4 $/xi;
>
> find(\&wanted, @ARGV);
>
> for my $filename (keys %Source)
> {
> my $from = $Source{ $filename }{ fullpath };
> my $to = $Destdir . $filename;
> if (!copy( $from, $to )) {
> warn "\nFailed .. from: $from\n", ' 'x 10, "to: $to\n", ' 'x 10,"$!";
> }
> else {
> print "\nOK .. from: $from\n", ' 'x 6, "to: $to\n";
> }
> }
>
>##
> sub wanted
> {
> my $filename = $_;
> return unless $filename =~ /$RxFileFilter/;
> my $time = (stat( $filename ))[9];
> if ($Source{ $filename }{ access } && $time < $Source{ $filename }{ access }) {
> return;
> }
> $Source{ $filename }{ fullpath } = $File::Find::name;
> $Source{ $filename }{ access } = $time;
> }
Thanks for the above.
I made a mistake in my email - I meant to ask for an explanation of
what the sub wanted does. Can you help with that?
Cheers
Geoff
------------------------------
Date: Sat, 08 May 2010 18:03:12 -0400
From: "Uri Guttman" <uri@StemSystems.com>
Subject: Re: find/copy most recent version of file?
Message-Id: <87mxwarqzj.fsf@quad.sysarch.com>
>>>>> "JB" == John Bokma <john@castleamber.com> writes:
JB> "Uri Guttman" <uri@StemSystems.com> writes:
>>>>>>> "G" == Geoff <geoff@invalid.invalid> writes:
>>
G> The code below works, i.e. I get the latest set of files!
>>
>> for some value of work.
>>
G> my $file_name ='';
G> my %file_access;
G> my %file_full;
G> my $destiny = "c:/a-temp3/$file_name";
>>
>> what do you think is in $destiny now? what was in $file_name? this does
>> not do what you seem to think it does. interpolation is not delayed.
JB> [1] if dest is a dir, the file is copied into the dir, what's what the
JB> OP want.
my concern (docs not checked) is whether file::copy will handle a
filename in the dest dir with missing dir parts. as in the dest is /foo
and the file is found in bar/baz.text. will copy work with
/foo/bar/baz.text is bar isn't there? unix cp won't handle that. this
was my guess as to some of the errors the OP was getting but given no
proper debug printing and the usual nonsense from the OP, i wasn't sure.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Sat, 08 May 2010 18:03:58 -0400
From: "Uri Guttman" <uri@StemSystems.com>
Subject: Re: find/copy most recent version of file?
Message-Id: <87iq6yrqy9.fsf@quad.sysarch.com>
>>>>> "JB" == John Bokma <john@castleamber.com> writes:
JB> I've one customer who tells me now and then that a program "bitches"
JB> despite the countless times I've told him that copy pasting the message
JB> saves us both time.
JB> On top of that: "bitching" can be:
JB> - just the verbose output
JB> - a non-fatal warning
JB> - an actual error
JB> - him doing something wrong
stop your bitchin' about customers!!
:)
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Sat, 08 May 2010 16:27:11 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: find/copy most recent version of file?
Message-Id: <pnsbu5tve5oq1litbeq54h904ftuo3nuvd@4ax.com>
"Uri Guttman" <uri@StemSystems.com> wrote:
>my concern (docs not checked) is whether file::copy will handle a
>filename in the dest dir with missing dir parts. as in the dest is /foo
>and the file is found in bar/baz.text. will copy work with
>/foo/bar/baz.text is bar isn't there?
AFAIR it doesn't. However there is File::Path which will happily create
a directory path with a single command.
jue
------------------------------
Date: Sat, 08 May 2010 18:41:57 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: find/copy most recent version of file?
Message-Id: <slrnhubtck.jd5.tadmc@tadbox.sbcglobal.net>
Geoff <geoff@invalid.invalid> wrote:
> I made a mistake in my email
That is OK, because none of us has seen any email from you.
This is Usenet.
Usenet is not email.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.liamg\100cm.j.dat/"
The above message is a Usenet post.
I don't recall having given anyone permission to use it on a Web site.
------------------------------
Date: Sat, 08 May 2010 18:42:54 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: find/copy most recent version of file?
Message-Id: <slrnhubted.jd5.tadmc@tadbox.sbcglobal.net>
Geoff <geoff@invalid.invalid> wrote:
> I meant to ask for an explanation of
> what the sub wanted does.
It determines whether the file under consideration is wanted or not.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.liamg\100cm.j.dat/"
The above message is a Usenet post.
I don't recall having given anyone permission to use it on a Web site.
------------------------------
Date: Sat, 08 May 2010 20:28:58 -0400
From: "Uri Guttman" <uri@StemSystems.com>
Subject: Re: find/copy most recent version of file?
Message-Id: <874oihrk8l.fsf@quad.sysarch.com>
>>>>> "JE" == Jürgen Exner <jurgenex@hotmail.com> writes:
JE> "Uri Guttman" <uri@StemSystems.com> wrote:
>> my concern (docs not checked) is whether file::copy will handle a
>> filename in the dest dir with missing dir parts. as in the dest is /foo
>> and the file is found in bar/baz.text. will copy work with
>> /foo/bar/baz.text is bar isn't there?
JE> AFAIR it doesn't. However there is File::Path which will happily create
JE> a directory path with a single command.
oh i know about mkpath but the OP doesn't i am sure. and even then you
need to get the proper path part if you want the tree to look sort of
the same.
again, i keep saying and few have commented, merging dir trees is always
a bitch since there are so many possible rules. what if two same named
files with differing dates are very in different paths? do you merge
based on which path? if all you want are the latest copy of the
filename, then a single level target dir will do but you lose all the
tree shapes you had before. the point is you need a proper goal to make
sure you achieve it.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Sat, 08 May 2010 22:54:12 -0500
From: John Bokma <john@castleamber.com>
Subject: Re: find/copy most recent version of file?
Message-Id: <878w7t91cr.fsf@castleamber.com>
"Uri Guttman" <uri@StemSystems.com> writes:
>>>>>> "JB" == John Bokma <john@castleamber.com> writes:
>
> JB> "Uri Guttman" <uri@StemSystems.com> writes:
> >>>>>>> "G" == Geoff <geoff@invalid.invalid> writes:
> >>
> G> The code below works, i.e. I get the latest set of files!
> >>
> >> for some value of work.
> >>
> G> my $file_name ='';
> G> my %file_access;
> G> my %file_full;
> G> my $destiny = "c:/a-temp3/$file_name";
> >>
> >> what do you think is in $destiny now? what was in $file_name? this does
> >> not do what you seem to think it does. interpolation is not delayed.
>
> JB> [1] if dest is a dir, the file is copied into the dir, what's what the
> JB> OP want.
>
> my concern (docs not checked) is whether file::copy will handle a
> filename in the dest dir with missing dir parts. as in the dest is /foo
> and the file is found in bar/baz.text. will copy work with
> /foo/bar/baz.text is bar isn't there? unix cp won't handle that.
I guess (!) neither will File::Copy.
> this
> was my guess as to some of the errors the OP was getting but given no
> proper debug printing and the usual nonsense from the OP, i wasn't
> sure.
:-) Same here.
--
John Bokma j3b
Hacking & Hiking in Mexico - http://johnbokma.com/
http://castleamber.com/ - Perl & Python Development
------------------------------
Date: Sat, 08 May 2010 22:56:07 -0500
From: John Bokma <john@castleamber.com>
Subject: Re: find/copy most recent version of file?
Message-Id: <874oih919k.fsf@castleamber.com>
"Uri Guttman" <uri@StemSystems.com> writes:
>>>>>> "JE" == Jürgen Exner <jurgenex@hotmail.com> writes:
>
> JE> "Uri Guttman" <uri@StemSystems.com> wrote:
> >> my concern (docs not checked) is whether file::copy will handle a
> >> filename in the dest dir with missing dir parts. as in the dest is /foo
> >> and the file is found in bar/baz.text. will copy work with
> >> /foo/bar/baz.text is bar isn't there?
>
> JE> AFAIR it doesn't. However there is File::Path which will happily create
> JE> a directory path with a single command.
>
> oh i know about mkpath but the OP doesn't i am sure.
Then the OP missed my earlier post ;-)
> again, i keep saying and few have commented, merging dir trees is always
> a bitch since there are so many possible rules. what if two same named
> files with differing dates are very in different paths? do you merge
> based on which path? if all you want are the latest copy of the
> filename, then a single level target dir will do but you lose all the
> tree shapes you had before. the point is you need a proper goal to make
> sure you achieve it.
To me it sounded like the OP had several "backup" dirs with roughly the
same files and wanted to end up with the most fresh version. A version
control system might be the best solution, but yeah, still guessing here.
--
John Bokma j3b
Hacking & Hiking in Mexico - http://johnbokma.com/
http://castleamber.com/ - Perl & Python Development
------------------------------
Date: Sat, 08 May 2010 22:57:46 -0500
From: John Bokma <john@castleamber.com>
Subject: Re: find/copy most recent version of file?
Message-Id: <87zl097mmd.fsf@castleamber.com>
"Uri Guttman" <uri@StemSystems.com> writes:
>>>>>> "JB" == John Bokma <john@castleamber.com> writes:
>
> JB> I've one customer who tells me now and then that a program "bitches"
> JB> despite the countless times I've told him that copy pasting the message
> JB> saves us both time.
>
> JB> On top of that: "bitching" can be:
>
> JB> - just the verbose output
> JB> - a non-fatal warning
> JB> - an actual error
> JB> - him doing something wrong
>
> stop your bitchin' about customers!!
>
> :)
LOL. He's been with me for years, but sometimes I just wish I had a
button somewhere I could push and give him an non-lethal electric
shock. (And don't worry, if he reads this he will nod and agree with me).
--
John Bokma j3b
Hacking & Hiking in Mexico - http://johnbokma.com/
http://castleamber.com/ - Perl & Python Development
------------------------------
Date: Fri, 07 May 2010 20:51:11 -0700
From: Xho Jingleheimerschmidt <xhoster@gmail.com>
Subject: Re: how do i find the max value out of an array?
Message-Id: <4be5da83$0$32279$ed362ca5@nr5-q3a.newsreader.com>
Jürgen Exner wrote:
> "sopan.shewale@gmail.com" <sopan.shewale@gmail.com> wrote:
>> Once you have array, how about?
>> my $max = (sort { $b <=> $a } @array)[0];
>
> If you insist on being inefficient,
We are discussing Perl, aren't we?
> then that is certainly a good
> solution.
> Sort is O(n*log n), while computing the max value can easily be done in
> O(n).
Xho
------------------------------
Date: Sat, 08 May 2010 16:40:33 -0500
From: John Bokma <john@castleamber.com>
Subject: Re: how do i find the max value out of an array?
Message-Id: <87ljbut6lq.fsf@castleamber.com>
Xho Jingleheimerschmidt <xhoster@gmail.com> writes:
> Jürgen Exner wrote:
>> "sopan.shewale@gmail.com" <sopan.shewale@gmail.com> wrote:
>>> Once you have array, how about?
>>> my $max = (sort { $b <=> $a } @array)[0];
>>
>> If you insist on being inefficient,
>
> We are discussing Perl, aren't we?
Yup, and my experience is that good Perl runs fast enough. I suspect
Python to be a bit slower, but note that that's just a suspicion. On top
of that I don't care.
--
John Bokma j3b
Hacking & Hiking in Mexico - http://johnbokma.com/
http://castleamber.com/ - Perl & Python Development
------------------------------
Date: Sat, 08 May 2010 16:38:00 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: how do i find the max value out of an array?
Message-Id: <6tsbu5dfpf7pbl6jaclls739oi91s9gpcj@4ax.com>
Xho Jingleheimerschmidt <xhoster@gmail.com> wrote:
>Jürgen Exner wrote:
>> "sopan.shewale@gmail.com" <sopan.shewale@gmail.com> wrote:
>>> Once you have array, how about?
>>> my $max = (sort { $b <=> $a } @array)[0];
>>
>> If you insist on being inefficient,
>
>We are discussing Perl, aren't we?
Well, yeah, so? Are you implying that people should use inefficent
algorithms when programming in Perl?
Of course the cost for designing, writing, and maintaining the code is
an important factor, too, and it often justifies the use of a less
efficient algorithm.
However in this case where there are trivial, short and well-known
algorithms for computing the largest element there is really no excuse
for using a poor algorithm(*).
*: Well, except that Tad noticed the "only 4 element list" and thus
efficieny is REALLY totally irrelevant.
jue
------------------------------
Date: Sat, 08 May 2010 20:30:00 -0400
From: "Uri Guttman" <uri@StemSystems.com>
Subject: Re: how do i find the max value out of an array?
Message-Id: <87zl09q5mf.fsf@quad.sysarch.com>
>>>>> "JE" == Jürgen Exner <jurgenex@hotmail.com> writes:
JE> Xho Jingleheimerschmidt <xhoster@gmail.com> wrote:
>> Jürgen Exner wrote:
>>> "sopan.shewale@gmail.com" <sopan.shewale@gmail.com> wrote:
>>>> Once you have array, how about?
>>>> my $max = (sort { $b <=> $a } @array)[0];
>>>
>>> If you insist on being inefficient,
>>
>> We are discussing Perl, aren't we?
JE> Well, yeah, so? Are you implying that people should use inefficent
JE> algorithms when programming in Perl?
JE> Of course the cost for designing, writing, and maintaining the
JE> code is an important factor, too, and it often justifies the use
JE> of a less efficient algorithm. However in this case where there
JE> are trivial, short and well-known algorithms for computing the
JE> largest element there is really no excuse for using a poor
JE> algorithm(*).
JE> *: Well, except that Tad noticed the "only 4 element list" and thus
JE> efficieny is REALLY totally irrelevant.
so you think applying Sort::Maker on this list is not worth the effort?
:)
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Sun, 09 May 2010 11:12:05 +0800
From: jidanni@jidanni.org
Subject: Search pattern not terminated
Message-Id: <hs597a$64s$1@news.datemas.de>
Is this really a search pattern, or do they need a better error message
about the typo of $++m for ++$m?
$ perl -we '$r=$++m'
Search pattern not terminated at -e line 1.
------------------------------
Date: Sat, 08 May 2010 23:27:18 -0400
From: "Uri Guttman" <uri@StemSystems.com>
Subject: Re: Search pattern not terminated
Message-Id: <87iq6xpxex.fsf@quad.sysarch.com>
>>>>> "j" == jidanni <jidanni@jidanni.org> writes:
j> Is this really a search pattern, or do they need a better error message
j> about the typo of $++m for ++$m?
j> $ perl -we '$r=$++m'
j> Search pattern not terminated at -e line 1.
that is parsed as $+ + m
the m starts an m// regex but it never finds the terminator. hell, it
should have even found the starting delimiter.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
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:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#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 V11 Issue 2937
***************************************
