[32238] in Perl-Users-Digest
Perl-Users Digest, Issue: 3503 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Sep 21 06:09:27 2011
Date: Wed, 21 Sep 2011 03: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 Wed, 21 Sep 2011 Volume: 11 Number: 3503
Today's topics:
Re: Can't rename or move files <rweikusat@mssgmbh.com>
Re: Can't rename or move files <jwkrahn@example.com>
Re: Can't rename or move files <rweikusat@mssgmbh.com>
Re: Can't rename or move files <news@lawshouse.org>
Re: Can't rename or move files <glennj@ncf.ca>
Re: Can't rename or move files <news@lawshouse.org>
Re: Can't rename or move files <willem@toad.stack.nl>
Re: Can't rename or move files <Joey@still_Learning.invalid>
Re: Can't rename or move files <uri@StemSystems.com>
Re: Can't rename or move files <Joey@still_Learning.invalid>
Re: Can't rename or move files <jwkrahn@example.com>
defined $var <nospam.gravitalsun@hotmail.com.nospam>
Re: defined $var <peter@makholm.net>
Re: defined $var <jurgenex@hotmail.com>
Re: defined $var <nospam.gravitalsun@hotmail.com.nospam>
Is there a discussion forum for the EPIC eclipse plug-i <news@lawshouse.org>
Re: Is there a discussion forum for the EPIC eclipse pl <news@lawshouse.org>
Re: Is there a discussion forum for the EPIC eclipse pl <tadmc@seesig.invalid>
Re: Is there a discussion forum for the EPIC eclipse pl <ken@swiss-soccer.net>
Re: Question about range of Lines <dba1_no_spam@csi.it>
Re: Question about range of Lines <dba1_no_spam@csi.it>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 20 Sep 2011 12:17:16 +0100
From: Rainer Weikusat <rweikusat@mssgmbh.com>
Subject: Re: Can't rename or move files
Message-Id: <871uvbqx8j.fsf@sapphire.mobileactivedefense.com>
"Joey@still_Learning.invalid" <Joey@still_Learning.invalid> writes:
[...]
> foreach $file (readdir(DH)) {
> if (length($file gt 4)) {
[...]
> }
> }
[...]
> Filenames change and moves to folderB don't work when the original
> filenames are of the form:
>
> 2011-09-15 Doe, John - Right Side.ext
>
> It works properly if the filenames are of the form:
>
> Doe, John - Right Side.ext
As Tad McClellan already pointed out: length($file gt 4) stringfies
the result of $file gt 4 and calculates the length of that. This
implies that the complete expression will have a value of one if the
first character of the filename is stringwise greater than the
character 4. Which happens to be true the second kind of filename but
not for the first ('D' gt '4' is true, '2' gt '4' is false).
------------------------------
Date: Tue, 20 Sep 2011 05:59:08 -0700
From: "John W. Krahn" <jwkrahn@example.com>
Subject: Re: Can't rename or move files
Message-Id: <x60eq.5826$Un7.5382@newsfe13.iad>
Joey@still_Learning.invalid wrote:
> I'm using MIME::Parser and FILE::Copy modules to parse an uploaded
> multi-part file and move the parsed files to a new folder on my server, as
> follows:
>
> Select multiple files and send to Perl script. Perl creates a folder ("A")
> on the server and uploads the multi-part package to folderA. MIME::Parser
> decodes the package and places the parsed files in the folderA. The file
> names are changed and the renamed files are moved to another folder ("B"),
> and folderA that was created, now empty, is deleted. Code follows:
>
> chdir $filePathNew or die "Can't change dir: $!";
> my $i=0;
> opendir DH,$filePathNew or die "Can't opendir $filePathNew $!";
That won't work correctly if you have a relative path in $filePathNew
instaed of an absolute path.
Since you already chdir() to this path you could always just do:
opendir DH, '.' or die "Can't opendir $filePathNew $!";
> foreach $file (readdir(DH)) {
> if (length($file gt 4)) {
Tad already pointed out that error.
> $indx = index($file,'.');
What if you have either no '.' characters in $file or more than one '.'
character?
> $lngth = length($file);
> $extLength = $lngth - ($indx + 1);
> $fileXt = substr($file,$indx+1,$extLength);
You don't need $extLength there, you could just do:
$fileXt = substr $file, $indx + 1,;
> $makeExt = $i.'.'.$fileXt;
> $newFileName = $imgCode.$makeExt;
> rename($file,$newFileName) or die "Could not rename file: $!";
> move($newFileName, "$filePath/$newFileName") or die "File cannot be
> moved.";
> $i++;
> }
> }
> #delete new unique upload folder
> rmdir $filePathNew or die "Can't remove $filePathNew $!";
>
> Filenames change and moves to folderB don't work when the original
> filenames are of the form:
>
> 2011-09-15 Doe, John - Right Side.ext
>
> It works properly if the filenames are of the form:
>
> Doe, John - Right Side.ext
>
> I am not receiving error messages informing me the names couldn't be
> changed or that the files can't be moved. I am receiving an error message
> telling me the created folderA can't be deleted, because the folder isn't
> empty.
>
> Does anyone know what the problem/solution might be?
Perhaps the file system you are storing them on has problems with some
the characters in the file names? Maybe the file system is corrupted?
John
--
Any intelligent fool can make things bigger and
more complex... It takes a touch of genius -
and a lot of courage to move in the opposite
direction. -- Albert Einstein
------------------------------
Date: Tue, 20 Sep 2011 14:18:27 +0100
From: Rainer Weikusat <rweikusat@mssgmbh.com>
Subject: Re: Can't rename or move files
Message-Id: <87hb47pd24.fsf@sapphire.mobileactivedefense.com>
"John W. Krahn" <jwkrahn@example.com> writes:
[...]
>> if (length($file gt 4)) {
>
> Tad already pointed out that error.
[...]
>> Filenames change and moves to folderB don't work when the original
>> filenames are of the form:
>>
>> 2011-09-15 Doe, John - Right Side.ext
>>
>> It works properly if the filenames are of the form:
>>
>> Doe, John - Right Side.ext
>>
>> I am not receiving error messages informing me the names couldn't be
>> changed or that the files can't be moved. I am receiving an error message
>> telling me the created folderA can't be deleted, because the folder isn't
>> empty.
>>
>> Does anyone know what the problem/solution might be?
>
> Perhaps the file system you are storing them on has problems with some
> the characters in the file names?
[rw@splittermine]~ $perl -e 'print(length("2011-09-15 Doe, John - Right Side.ext" gt 4), "\n");'
0
[rw@splittermine]~ $perl -e 'print(length("Doe, John - Right Side.ext" gt 4), "\n");'
1
------------------------------
Date: Tue, 20 Sep 2011 15:53:52 +0100
From: Henry Law <news@lawshouse.org>
Subject: Re: Can't rename or move files
Message-Id: <N7-dncnqzadgNeXTnZ2dnUVZ8q6dnZ2d@giganews.com>
On 19/09/11 22:25, Joey@still_Learning.invalid wrote:
> Code follows:
We're all still learning, Joey. But I recognise the kind of code you're
writing because it's like the stuff I used to write. It's a little like
speaking broken (English/French/Spanish ...): the locals will understand
(the Perl compiler in this case) but it's laborious and not very
elegant. So here are some suggestions (not related to finding your
logic problem, which I think has already been covered).
> chdir $filePathNew or die "Can't change dir: $!";
No need to chdir to it; opendir will work without. Unless your
intention was to check that it's there; in that case use the -d test.
> foreach $file (readdir(DH)) {
Personally I'd code
while ( my $file = readdir DH ) {
Yours is perfectly correct, but I grew up in days when it was a matter
of honour not to use memory if you didn't have to!
> if (length($file)>4) {
Since you're testing the length you don't have to think about it, but in
future you may find it handy to code something like
next if $file =~ /^\.{1,2}$/;
unless you're actually interested in . and ..
Your next section is extracting the file extension. File::Basename does
this very well and is easy to use. My one line is based on the perldoc
for it.
> $indx = index($file,'.');
> $lngth = length($file);
> $extLength = $lngth - ($indx + 1);
> $fileXt = substr($file,$indx+1,$extLength);
my ( undef, undef, $fileXt ) = fileparse( $file, qr/\.[^.]*/ );
String interpolation will make your next two lines shorter and easier to
read:
> $makeExt = $i.'.'.$fileXt;
> $newFileName = $imgCode.$makeExt;
$newFileName = "$imgCode$i.$fileXt";
While writing this for you I myself have realised something. In a "for"
loop you don't have to test the value of the loop variable, which is
what we nearly always do. So you could increment your $i variable AND
read the directory handle all in one go if you code this:
for ( my $i=0; my $file = readdir DH; $i++ ) {
etc ...
--
Henry Law Manchester, England
------------------------------
Date: 20 Sep 2011 16:19:14 GMT
From: Glenn Jackman <glennj@ncf.ca>
Subject: Re: Can't rename or move files
Message-Id: <slrnj7hf83.mos.glennj@smeagol.ncf.ca>
At 2011-09-20 10:53AM, "Henry Law" wrote:
> for ( my $i=0; my $file = readdir DH; $i++ ) {
Won't that have $file undefined on the first iteration? Perhaps this
will be better
for ( my $i=0, $file = readdir DH;
defined $file;
$i++, $file = readdir DH )
{...}
--
Glenn Jackman
Write a wise saying and your name will live forever. -- Anonymous
------------------------------
Date: Tue, 20 Sep 2011 17:41:10 +0100
From: Henry Law <news@lawshouse.org>
Subject: Re: Can't rename or move files
Message-Id: <gtqdnYZG2sq-X-XTnZ2dnUVZ8rydnZ2d@giganews.com>
On 20/09/11 17:19, Glenn Jackman wrote:
> At 2011-09-20 10:53AM, "Henry Law" wrote:
>> for ( my $i=0; my $file = readdir DH; $i++ ) {
>
> Won't that have $file undefined on the first iteration?
I wondered that, but I tried it:
#!/usr/bin/perl
use strict; use warnings;
opendir DOT, '.' or die "opendir failed: $!";
for ( my $i=0; my $file = readdir DOT; $i++ ) {
print "\$file: '$file', \$i: $i\n";
}
And it starts with $i as zero and accounts for all the files in the
current directory.
--
Henry Law Manchester, England
------------------------------
Date: Tue, 20 Sep 2011 16:53:03 +0000 (UTC)
From: Willem <willem@toad.stack.nl>
Subject: Re: Can't rename or move files
Message-Id: <slrnj7hh7f.2a8d.willem@toad.stack.nl>
Glenn Jackman wrote:
) At 2011-09-20 10:53AM, "Henry Law" wrote:
)> for ( my $i=0; my $file = readdir DH; $i++ ) {
)
) Won't that have $file undefined on the first iteration?
No, why would it ?
How many times do you think
for (my $i = 0; $i < 0; $i++) { ... }
will execute the loop ?
SaSW, Willem
--
Disclaimer: I am in no way responsible for any of the statements
made in the above text. For all I know I might be
drugged or something..
No I'm not paranoid. You all think I'm paranoid, don't you !
#EOT
------------------------------
Date: Tue, 20 Sep 2011 13:39:42 -0700
From: "Joey@still_Learning.invalid" <Joey@still_Learning.invalid>
Subject: Re: Can't rename or move files
Message-Id: <qbuh77pnj4mr2u63jqjo3bihuu1751sg7m@4ax.com>
Joey@still_Learning.invalid wrote:
>chdir $filePathNew or die "Can't change dir: $!";
>my $i=0;
>opendir DH,$filePathNew or die "Can't opendir $filePathNew $!";
>foreach $file (readdir(DH)) {
>if (length($file gt 4)) {
>$indx = index($file,'.');
>$lngth = length($file);
>$extLength = $lngth - ($indx + 1);
>$fileXt = substr($file,$indx+1,$extLength);
>$makeExt = $i.'.'.$fileXt;
>$newFileName = $imgCode.$makeExt;
>rename($file,$newFileName) or die "Could not rename file: $!";
>move($newFileName, "$filePath/$newFileName") or die "File cannot be
>moved.";
>$i++;
>}
>}
>#delete new unique upload folder
>rmdir $filePathNew or die "Can't remove $filePathNew $!";
>
Thanks to all who responded. Ended up with the following, which works
properly.
my $i=0;
opendir DH,$filePathNew or die "Can't opendir $filePathNew $!";
while (my $file = readdir DH) {
if (length($file) > 4) {
my ( undef, undef, $fileXt ) = fileparse($file, qr/\.[^.]*/);
$newFileName = $imgCode.$i.$fileXt;
rename($file,$newFileName) or die "Could not rename file: $!";
move($newFileName, "$filePath/$newFileName") or die "File cannot be
moved.";
$i++;
}
}
rmdir $filePathNew or die "Can't remove $filePathNew $!";
Thanks again!
--
Joey
------------------------------
Date: Tue, 20 Sep 2011 16:51:32 -0400
From: "Uri Guttman" <uri@StemSystems.com>
Subject: Re: Can't rename or move files
Message-Id: <87sjnrx7hn.fsf@quad.sysarch.com>
>>>>> "JLi" == Joey@still Learning invalid <Joey@still_Learning.invalid> writes:
JLi> Thanks to all who responded. Ended up with the following, which works
JLi> properly.
it can still be improved.
first off, learn to indent your code. it is very important when reading it.
show the complete program if you can. you don't show strict and warnings
so we don't know if you are using them. you don't show the fileparse sub
too if you wrote that or where it came from.
JLi> my $i=0;
horizontal whitespace is your friend!
JLi> opendir DH,$filePathNew or die "Can't opendir $filePathNew $!";
don't use bareword file (or dir) handles. lexicals are better. even
simpler is File::Slurp read_dir:
use File::Slurp ;
foreach my $dir( read_dir, $filePathNew ) {
don't use mixed case for var names. perl style is underscore
my $file_path_new = 'path/to/dir' ;
also that is a dir path, not a file path so name it accordingly.
JLi> while (my $file = readdir DH) {
JLi> if (length($file) > 4) {
JLi> my ( undef, undef, $fileXt ) = fileparse($file, qr/\.[^.]*/);
JLi> $newFileName = $imgCode.$i.$fileXt;
my $new_file_name = "$imgCode$i$fileXt" ;
uri
--
Uri Guttman -- uri AT perlhunter DOT com --- http://www.perlhunter.com --
------------ Perl Developer Recruiting and Placement Services -------------
----- Perl Code Review, Architecture, Development, Training, Support -------
------------------------------
Date: Tue, 20 Sep 2011 16:41:12 -0700
From: "Joey@still_Learning.invalid" <Joey@still_Learning.invalid>
Subject: Re: Can't rename or move files
Message-Id: <t39i779keapfks6hgvmuen9v8gf368h3is@4ax.com>
Uri Guttman wrote:
>>>>>> "JLi" == Joey@still Learning invalid <Joey@still_Learning.invalid> writes:
>
> JLi> Thanks to all who responded. Ended up with the following, which works
> JLi> properly.
>
>it can still be improved.
>
>first off, learn to indent your code. it is very important when reading it.
>
>show the complete program if you can. you don't show strict and warnings
>so we don't know if you are using them. you don't show the fileparse sub
>too if you wrote that or where it came from.
>
> JLi> my $i=0;
>
>horizontal whitespace is your friend!
>
> JLi> opendir DH,$filePathNew or die "Can't opendir $filePathNew $!";
>
>don't use bareword file (or dir) handles. lexicals are better. even
>simpler is File::Slurp read_dir:
>
>use File::Slurp ;
>
> foreach my $dir( read_dir, $filePathNew ) {
>
>don't use mixed case for var names. perl style is underscore
>
>my $file_path_new = 'path/to/dir' ;
>
>also that is a dir path, not a file path so name it accordingly.
>
> JLi> while (my $file = readdir DH) {
> JLi> if (length($file) > 4) {
> JLi> my ( undef, undef, $fileXt ) = fileparse($file, qr/\.[^.]*/);
> JLi> $newFileName = $imgCode.$i.$fileXt;
>
>my $new_file_name = "$imgCode$i$fileXt" ;
>
Thank you.
--
Joey
------------------------------
Date: Tue, 20 Sep 2011 18:52:03 -0700
From: "John W. Krahn" <jwkrahn@example.com>
Subject: Re: Can't rename or move files
Message-Id: <8rbeq.8256$mA3.7759@newsfe19.iad>
Glenn Jackman wrote:
> At 2011-09-20 10:53AM, "Henry Law" wrote:
>> for ( my $i=0; my $file = readdir DH; $i++ ) {
>
> Won't that have $file undefined on the first iteration?
No.
John
--
Any intelligent fool can make things bigger and
more complex... It takes a touch of genius -
and a lot of courage to move in the opposite
direction. -- Albert Einstein
------------------------------
Date: Wed, 21 Sep 2011 11:38:14 +0300
From: "George Mpouras" <nospam.gravitalsun@hotmail.com.nospam>
Subject: defined $var
Message-Id: <j5c7oj$44$1@news.ntua.gr>
why this give errors ?
use strict;
use warnings;
#my $var=1;
unless (defined $var) {die "variable \$var is undefined\n"}
print $var;
------------------------------
Date: Wed, 21 Sep 2011 11:02:46 +0200
From: Peter Makholm <peter@makholm.net>
Subject: Re: defined $var
Message-Id: <878vpijmix.fsf@vps1.hacking.dk>
"George Mpouras" <nospam.gravitalsun@hotmail.com.nospam> writes:
> why this give errors ?
>
> use strict;
> use warnings;
> #my $var=1;
> unless (defined $var) {die "variable \$var is undefined\n"}
> print $var;
Because 'use strict' forces you to declare variables. I thinks you are
confused about the difference between not declaring a variable and a
variable having the undefined value. It is two different things.
//Makholm
------------------------------
Date: Wed, 21 Sep 2011 02:11:41 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: defined $var
Message-Id: <scaj77t2ol08r3okdo0cof2bk73k96t6ga@4ax.com>
"George Mpouras" <nospam.gravitalsun@hotmail.com.nospam> wrote:
>why this give errors ?
>
>use strict;
>use warnings;
>#my $var=1;
>unless (defined $var) {die "variable \$var is undefined\n"}
>print $var;
Because you didn't declare $var.
"defined()" is about the value of a variable, it has nothing to do with
the existence i.e. declaration of a variable.
jue
------------------------------
Date: Wed, 21 Sep 2011 12:32:50 +0300
From: "George Mpouras" <nospam.gravitalsun@hotmail.com.nospam>
Subject: Re: defined $var
Message-Id: <j5cav1$t63$1@news.ntua.gr>
"Jurgen Exner" <jurgenex@hotmail.com> wrote in message
news:scaj77t2ol08r3okdo0cof2bk73k96t6ga@4ax.com...
> "George Mpouras" <nospam.gravitalsun@hotmail.com.nospam> wrote:
>>why this give errors ?
>>
>>use strict;
>>use warnings;
>>#my $var=1;
>>unless (defined $var) {die "variable \$var is undefined\n"}
>>print $var;
>
> Because you didn't declare $var.
>
> "defined()" is about the value of a variable, it has nothing to do with
> the existence i.e. declaration of a variable.
>
> jue
Ok , then what about the existence ?!
------------------------------
Date: Tue, 20 Sep 2011 12:59:03 +0100
From: Henry Law <news@lawshouse.org>
Subject: Is there a discussion forum for the EPIC eclipse plug-in for Perl development?
Message-Id: <9rGdnXVg2aObHeXTnZ2dnUVZ7o2dnZ2d@giganews.com>
I'm looking for a discussion list or something -- anything -- which
might help me resolve some of the detailed questions I have about using
EPIC, now that I've passed beyond the "getting started" stage.
I like EPIC a lot, but there's little in the way of detailed
documentation and AFAICS the only Sourceforge list is for announcements,
not discussion.
--
Henry Law Manchester, England
------------------------------
Date: Tue, 20 Sep 2011 13:01:57 +0100
From: Henry Law <news@lawshouse.org>
Subject: Re: Is there a discussion forum for the EPIC eclipse plug-in for Perl development?
Message-Id: <9rGdnXRg2aMuHeXTnZ2dnUVZ7o2dnZ2d@giganews.com>
On 20/09/11 12:59, Henry Law wrote:
> I'm looking for a discussion list or something -- anything -- which
> might help me resolve some of the detailed questions I have about using
> EPIC, now that I've passed beyond the "getting started" stage.
Uh, why is that pressing the "send" button often prompts you to do
something which resolves the query you just sent off? There are EPIC
forums at http://sourceforge.net/projects/e-p-i-c/forums
Sorry.
--
Henry Law Manchester, England
------------------------------
Date: Tue, 20 Sep 2011 13:36:50 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Is there a discussion forum for the EPIC eclipse plug-in for Perl development?
Message-Id: <slrnj7hmhf.ku2.tadmc@tadbox.sbcglobal.net>
Henry Law <news@lawshouse.org> wrote:
> why is that pressing the "send" button often prompts you to do
> something which resolves the query you just sent off?
That happens so often that it should be a law named after
somebody, like "Godwin's Law", "Murphy's Law" and "Moore's Law".
Since you pointed it out, I guess it would be "Law's Law" ?
That would be kinda confusing though...
SCNR.
--
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: Tue, 20 Sep 2011 18:39:02 -0400
From: Ken Butler <ken@swiss-soccer.net>
Subject: Re: Is there a discussion forum for the EPIC eclipse plug-in for Perl development?
Message-Id: <alpine.DEB.2.00.1109201838160.15235@ken-laptop>
On Tue, 20 Sep 2011, Tad McClellan wrote:
> Henry Law <news@lawshouse.org> wrote:
>
>> why is that pressing the "send" button often prompts you to do
>> something which resolves the query you just sent off?
>
> That happens so often that it should be a law named after
> somebody, like "Godwin's Law", "Murphy's Law" and "Moore's Law".
>
> Since you pointed it out, I guess it would be "Law's Law" ?
I like that. "Law's Law" it is.
Cheers,
Ken.
------------------------------
Date: Tue, 20 Sep 2011 15:31:25 +0200
From: Mauro <dba1_no_spam@csi.it>
Subject: Re: Question about range of Lines
Message-Id: <j5a4jk$qjp$1@mophus.csi.it>
On 19/09/2011 21.39, sln@netherlands.com wrote:
> "but for too much long files, perhaps"
>
> I would give this credibility if you can show some code that
> guarantees there is a 'Friday'.
>
> while (<>) {
> if (/Tuesday/ .. /Friday/) {}
> }
>
> In this case, the operator .. flips true on $_=~/Tuesday/ and remains
> so until after it finds $_=~/Friday/ or, until the while() is false.
>
> I can see why you would be interested in how the range operator
> works in this case, but don't promote it to something perfect.
>
> -sln
I had expressed that doubt ( about long files ) since, if I understand
correctly, that solution read the whole file in memory.
The example I posted was an artificial oversimplified case, just to have
something concrete to apply code, not the real case ( where there is no
friday at all ).
Thank you
Regards
Mauro
------------------------------
Date: Tue, 20 Sep 2011 15:35:07 +0200
From: Mauro <dba1_no_spam@csi.it>
Subject: Re: Question about range of Lines
Message-Id: <j5a4qi$qop$1@mophus.csi.it>
>>
>> There's no problem here because the end pattern can't appear in the
>> range -- by definition. And since this is what the OP asked for, a rang
>> and regex does seem like the way to go.
>>
>
> And this is true too. But, I believe using the range operator in this
> context does not imply a 'Friday' exists in the data, where 'Tuesday'
> must if the condition is satisfied. Thats not saying anything is wrong
> using the range operator like this, just that some extra buffering
> might/might-not be needed. There is usually more to posters questions
> than an academic translation.
>
> -sln
As a matter of fact, as I said in the other reply of mine, the original
problem was quite different, although it was always about a range of lines.
Perhaps I simplified a bit too much ...
Regards
Mauro
------------------------------
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 3503
***************************************
