[28588] in Perl-Users-Digest
Perl-Users Digest, Issue: 9952 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Nov 10 18:06:06 2006
Date: Fri, 10 Nov 2006 15:05:13 -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 Fri, 10 Nov 2006 Volume: 10 Number: 9952
Today's topics:
Re: FAQ 6.9 What is "/o" really for? <rvtol+news@isolution.nl>
Re: FAQ 6.9 What is "/o" really for? <mark.clementsREMOVETHIS@wanadoo.fr>
Re: How to reference memory address returned from Win32 <u8526505@gmail.com>
Re: is there a reliable cross-platform method for testi <simon.chao@gmail.com>
Re: is there a reliable cross-platform method for testi <simon.chao@gmail.com>
Re: LAN Crawler <chris-usenet@roaima.co.uk>
Re: perl & lsof kind <chris-usenet@roaima.co.uk>
Re: Perl runtime error after installing oracle 10g <quetzalcotl@consultant.com>
Re: Permission Denied error when moving files - Perl <kstulce@gmail.com>
Re: Permission Denied error when moving files - Perl <nobull67@gmail.com>
Re: Permission Denied error when moving files - Perl <nobull67@gmail.com>
Re: Permission Denied error when moving files - Perl <kstulce@gmail.com>
Re: Permission Denied error when moving files - Perl anno4000@radom.zrz.tu-berlin.de
Re: Permission Denied error when moving files - Perl <kstulce@gmail.com>
Re: Permission Denied error when moving files - Perl <someone@example.com>
Re: Permission Denied error when moving files - Perl <kstulce@gmail.com>
Re: Permission Denied error when moving files - Perl <kstulce@gmail.com>
Re: Reading config file with line break character? <someone@example.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 10 Nov 2006 20:30:43 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: FAQ 6.9 What is "/o" really for?
Message-Id: <ej2nph.15c.1@news.isolution.nl>
John Bokma schreef:
> Dr.Ruud:
>> print if /$regex/;
>
> if this similar to /o, and maybe can this
> considered to be more clear, especially to novice users?
The /o is not for novice users. :)
AFAIK, in general it is no longer needed.
But the case that is branded "more rarely" still applies.
And that $regex can also be volatile, so it depends.
#!/usr/bin/perl
use warnings ;
use strict ;
my $regex = qr/[3-5]/ ;
while ( <DATA> )
{
/$regex/o and print ;
$regex .= 'x' ;
}
print "$regex\n" ;
__DATA__
0
1
2
3
4
5
6
7
8
9
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Fri, 10 Nov 2006 21:51:41 +0100
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: FAQ 6.9 What is "/o" really for?
Message-Id: <4554e654$0$25921$ba4acef3@news.orange.fr>
Mark Clements wrote:
> Dr.Ruud wrote:
>> John Bokma schreef:
>>
>>> print if $regex;
>>
>> ITYM:
>>
>> print if /$regex/;
>>
>
> It works OK if the match is written out longhand.
<snip>
Just as a matter of interest, I ran some timing tests:
mark@owl:~$ cat testretimings.pl
use strict;
use warnings;
use Benchmark;
my $regex = qr(s\s[\w{1,2}]\s);
my $regexo = qr(s\s[\w{1,2}]\s)o;
my $text = "this is a fairly short string";
my $count = 1000000;
timethese (
$count,
{
form1 => q( $text =~ /$regex/ ),
form2 => q( $text =~ /$regex/o ),
form3 => q( $text =~ $regex ),
form4 => q( $text =~ /$regexo/ ),
form5 => q( $text =~ /$regexo/o ),
form6 => q( $text =~ $regexo ),
}
);
mark@owl:~$ perl testretimings.pl
Benchmark: timing 1000000 iterations of form1, form2, form3, form4,
form5, form6...
form1: 1 wallclock secs ( 0.82 usr + 0.00 sys = 0.82 CPU) @
1219512.20/s (n=1000000)
form2: 0 wallclock secs ( 0.71 usr + 0.00 sys = 0.71 CPU) @
1408450.70/s (n=1000000)
form3: 1 wallclock secs ( 0.80 usr + 0.00 sys = 0.80 CPU) @
1250000.00/s (n=1000000)
form4: 1 wallclock secs ( 0.81 usr + 0.00 sys = 0.81 CPU) @
1234567.90/s (n=1000000)
form5: 0 wallclock secs ( 0.72 usr + 0.00 sys = 0.72 CPU) @
1388888.89/s (n=1000000)
form6: 1 wallclock secs ( 0.80 usr + 0.00 sys = 0.80 CPU) @
1250000.00/s (n=1000000)
Within the limited testing done here, form2 and form 5 are consistently
marginally faster than the other two. However, the doc for qr (man
perlop) says:
<quote>
Precompilation of the pattern into an internal representation at the
moment of qr() avoids a need to recompile the pattern every time a match
"/$pat/" is attempted. (Perl has many other internal optimizations, but
none would be triggered in the above example if we did not use
qr() operator.)
</quote>
I don't understand why /o makes a different (albeit a minor one) in
cases form2 and form5 if the pattern has already been compiled. Am I
missing something obvious?
Mark
------------------------------
Date: 10 Nov 2006 13:55:57 -0800
From: "cyl" <u8526505@gmail.com>
Subject: Re: How to reference memory address returned from Win32::API call
Message-Id: <1163195757.896769.76570@b28g2000cwb.googlegroups.com>
Sisyphus =BCg=B9D=A1G
> > my $lpServiceName_buffer =3D " " x $size_of_lpServiceName; # or longer
> > my $lpDisplayName =3D " " x $size_of_lpDisplayName; # or longer
> > my $lpServices =3D pack('ppP', $lpServiceName, $lpDisplayName,
> > $service_status_struct);
> >
>
> me that you need to specify the size of the structure - hence 'ppP' should
> be changed to 'ppP28'.
>
doesn't work for me. perl crashed if I use
$lpServices =3D pack('ppP28', $lpServiceName,
$lpDisplayName,$service_status);
as the parameter.
However, I did succeed with the following
my $lpServiceName =3D " "x128;
my $lpDisplayName =3D " "x128;
my $lpServices =3D pack('C128C128I7', $lpServiceName,
$lpDisplayName,0,0,0,0,0,0,0);
while(1){
my $ret =3D $fnEnumServicesStatus->Call( $hSCManager,
0x3B,
0x3,
$lpServices,
283,
$pcbBytesNeeded,
$lpServicesReturned,
$lpResumeHandle
);
my $BytesNeeded =3D unpack('I',$pcbBytesNeeded);
my $NumOfServices =3D unpack('I',$lpServicesReturned);
my $ResumeHandle =3D unpack('I',$lpResumeHandle);
my @x =3D unpack('ppI7' x $NumOfServices,$lpServices);
for my $i (0 .. $NumOfServices){
print "$x[$i*9]\n";
}
last if (0 =3D=3D $ResumeHandle);
}
__END__
I don't know why. I tried dozens of ways to pack the $lpServices
parameter and finally got it to work. The pack thing is really
confusing to me.
I considered to pack this way before but never tried it (I should have)
because I thought to pack this way means your returned buffer looked
like this
servive_name1{128bytes},display_name1{128bytes},{28bytes},
servive_name2{128bytes},display_name2{128bytes},{28bytes},
.=2E.
but if you dump the $lpServices you will find that it look like this
pointer_to_service_name1{4bytes},pointer_to_display_name1{4bytes},{28bytes},
pointer_to_service_name2{4bytes},pointer_to_display_name2{4bytes},{28bytes},
.=2E. {variable length of bytes} ...
service_nameN{variable length of bytes}, display_nameN{variable length
of bytes}
service_nameN-1{variable length of bytes}, display_nameN-1{variable
length of bytes}
.=2E.
service_name1{variable length of bytes}, display_name1{variable length
of bytes}
Not sure if it's clear enough. If you dump the buffer, you know what I
mean. Very appreciate for the help to motivate the solution anyway.
------------------------------
Date: 10 Nov 2006 13:20:07 -0800
From: "it_says_BALLS_on_your_forehead" <simon.chao@gmail.com>
Subject: Re: is there a reliable cross-platform method for testing if a file is compressed?
Message-Id: <1163193607.232695.185050@h54g2000cwb.googlegroups.com>
Randal L. Schwartz wrote:
> >>>>> "it" == it says BALLS on your forehead <simon.chao@gmail.com> writes:
>
> it> ...so, I was wondering if there existed a reliable, consistent way of
> it> testing the file_type of a file within Perl that would not vary across
> it> OS.
>
> You mean, *besides* File::Mimeinfo, which a simple CPAN search
> would have shown you?
>
> If you didn't look, shame on you.
>
Shame on me.
I'll check it out. Thanks Randall.
------------------------------
Date: 10 Nov 2006 13:20:19 -0800
From: "it_says_BALLS_on_your_forehead" <simon.chao@gmail.com>
Subject: Re: is there a reliable cross-platform method for testing if a file is compressed?
Message-Id: <1163193619.696040.262360@b28g2000cwb.googlegroups.com>
Randal L. Schwartz wrote:
> >>>>> "it" == it says BALLS on your forehead <simon.chao@gmail.com> writes:
>
> it> ...so, I was wondering if there existed a reliable, consistent way of
> it> testing the file_type of a file within Perl that would not vary across
> it> OS.
>
> You mean, *besides* File::Mimeinfo, which a simple CPAN search
> would have shown you?
>
> If you didn't look, shame on you.
>
Shame on me.
I'll check it out. Thanks Randal.
------------------------------
Date: Fri, 10 Nov 2006 21:38:53 +0000
From: Chris Davies <chris-usenet@roaima.co.uk>
Subject: Re: LAN Crawler
Message-Id: <d48f24-994.ln1@news.roaima.co.uk>
Maneesh <mmanocha@gmail.com> wrote:
> I am looking some pointer to a perl script which can crawl through the
> shared direcotries on the LAN and get me the list of files are which
> are shared.
Uh. If the files are in a shared directory then surely they are
implicitly shared? (If they're not shared then how can they be in a
shared directory?)
I think you need to revisit your requirements, or at least your
explanation of them. Then you need to try writing some perl. Finally,
come back here and ask for help fixing the bits that are broken.
Chris
------------------------------
Date: Fri, 10 Nov 2006 21:33:12 +0000
From: Chris Davies <chris-usenet@roaima.co.uk>
Subject: Re: perl & lsof kind
Message-Id: <op7f24-994.ln1@news.roaima.co.uk>
Joe Smith <joe@inwap.com> wrote:
> Is there a perl module that will give me process name for a port?
> I would give it open port and it would give me executable name that
> listens on that port.
gmlvsk2@gmail.com wrote:
> This is what I use:
> linux% perl -e 's/\s+(TCP|UDP) / $1 /&&print for `lsof`'
Just bear in mind that you can have multiple processes listening on the
same port (just on different interfaces). For example, 127.0.0.1:80 is
different to 192.168.1.1:80, and both are different to the wildcarded *:80
Chris
------------------------------
Date: 10 Nov 2006 11:28:35 -0800
From: "Ingo Menger" <quetzalcotl@consultant.com>
Subject: Re: Perl runtime error after installing oracle 10g
Message-Id: <1163186914.968386.117520@h54g2000cwb.googlegroups.com>
enigma schrieb:
> Hi,
>
> Thanks alot..I did something similar...unsetting an environment
> variable by:
> @set PERL5LIB=
Yes, I forgot to mention that one. It's most important.
------------------------------
Date: 10 Nov 2006 11:16:30 -0800
From: "Ken" <kstulce@gmail.com>
Subject: Re: Permission Denied error when moving files - Perl
Message-Id: <1163186190.472004.201560@e3g2000cwe.googlegroups.com>
Anno,
Thanks for your reply.
In using your suggestions, the last item
"do_the_dirty_job_on("$cwd/$pdfFile");", ended up producing the file
error message from the CP:
############
D:\Scripts>perl Copy_pdf_pages.pl
File D:\Scripts\mcp_1678576.pdf has 3 pages
D:\Scripts\mcp_1678576.pdf:3
move(mcp_1678576.pdf, D:\Scripts\1\D:\Scripts\mcp_1678576.pdf) failed:
No such f
ile or directory at Copy_pdf_pages.pl line 75.
D:\Scripts>
############
Notice the destination move path:
"D:\Scripts\1\D:\Scripts\mcp_1678576.pdf".
In keeping with your suggestions, I began thinking that maybe Perl
needed the absolute path to pull in the pdf file for the subroutine,
but when moving, I only needed the file name, so I added another couple
of lines right before the point when I was going to move the file.
Here are the lines:
############
foreach $pdfFile(@pdfname)
{
#print "$cwd\\$pdfFile\n";
do_the_dirty_job_on("$cwd\\$pdfFile");
}
exit(1);
sub do_the_dirty_job_on
{
my $file = shift;
my $PDFfile = PDF->new($file);
if ($PDFfile->IsaPDF)
{
print "File $file has ",$PDFfile->Pages," page",$PDFfile->Pages > 1
? "s" :"","\n";
print $file,":",$PDFfile->Pages,"\n";
my $PDFPages = $PDFfile->Pages;
my $newpgcount = $PDFPages -2;
my $newfile;
my @nameonly = split(/\\/,$file); ######### splits by \\
my $filenameonly = $nameonly[2]; ######### Grab only the
filename
unless (-d $newpgcount)
{
mkdir($newpgcount);
$newfile = "$cwd\\$newpgcount\\$filenameonly";
move($filenameonly,$newfile) or die "move($filenameonly, $newfile)
failed: $!";
}
else
{
$newfile = "$cwd\\$newpgcount\\$filenameonly";
move($filenameonly,$newfile) or die "move($filenameonly, $newfile)
failed: $!";
}
}
}
############
This line of thinking didn't work. This time I got my same original
error message.
Thanks again.
--Ken
------------------------------
Date: 10 Nov 2006 11:29:10 -0800
From: "Brian McCauley" <nobull67@gmail.com>
Subject: Re: Permission Denied error when moving files - Perl
Message-Id: <1163186950.856802.192840@b28g2000cwb.googlegroups.com>
On Nov 10, 6:22 pm, anno4...@radom.zrz.tu-berlin.de wrote:
> Ken <kstu...@gmail.com> wrote in comp.lang.perl.misc:
> > do_the_dirty_job_on($pdfFile);
> ^^^^^^^^
> This is probably your error. $pdfFile holds only the file name relative
> to the directory $cwd. So to access the file, you'd need
>
> do_the_dirty_job_on("$cwd/$pdfFile");
But, Anno, the directory $cwd is the CWD.
------------------------------
Date: 10 Nov 2006 11:37:48 -0800
From: "Brian McCauley" <nobull67@gmail.com>
Subject: Re: Permission Denied error when moving files - Perl
Message-Id: <1163187468.125757.271670@h48g2000cwc.googlegroups.com>
On Nov 10, 6:31 pm, "J. Gleixner" <glex_no-s...@qwest-spam-no.invalid>
wrote:
> Ken wrote:
>
> > unless (-d '$newpgcount')
>
> Change that to:
>
> unless( -d $newpgcount )
Better still get rid of it altogether since you are not bothering to
check if the mkdir() succeded anyhow just let it fail if the directory
already exists.
------------------------------
Date: 10 Nov 2006 12:13:43 -0800
From: "Ken" <kstulce@gmail.com>
Subject: Re: Permission Denied error when moving files - Perl
Message-Id: <1163189623.645350.179520@f16g2000cwb.googlegroups.com>
J. Gleixner,
Thanks again for your reply.
In trying your last suggestions, with a simple move script, this worked
perfectly. Now with using those same fundamentals, I need to figure
out where the problem is starting in my current script.
The one thing that is consistantly working, is the creation or the
checking on the "1" directory. The change to the Unless, didn't seem
to make a different, but I did leave off the single quotes.
This is just so bizarre. It's probably something so simple that's
being missed! :)
--Ken
------------------------------
Date: 10 Nov 2006 20:37:27 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Permission Denied error when moving files - Perl
Message-Id: <4rk687FrjciiU1@mid.dfncis.de>
Brian McCauley <nobull67@gmail.com> wrote in comp.lang.perl.misc:
>
>
> On Nov 10, 6:22 pm, anno4...@radom.zrz.tu-berlin.de wrote:
> > Ken <kstu...@gmail.com> wrote in comp.lang.perl.misc:
> > > do_the_dirty_job_on($pdfFile);
> > ^^^^^^^^
> > This is probably your error. $pdfFile holds only the file name relative
> > to the directory $cwd. So to access the file, you'd need
> >
> > do_the_dirty_job_on("$cwd/$pdfFile");
>
> But, Anno, the directory $cwd is the CWD.
Oh, right. The only case where the file name doesn't need the directory
prefix.
Anno
------------------------------
Date: 10 Nov 2006 12:42:38 -0800
From: "Ken" <kstulce@gmail.com>
Subject: Re: Permission Denied error when moving files - Perl
Message-Id: <1163191358.453846.54150@h54g2000cwb.googlegroups.com>
> But, Anno, the directory $cwd is the CWD.
Correct, since I'm using the module CWD:getcwd. A poster from Tek-Tips
suggested that I use an explicit path variable versus the CWD to test
the results.
Thanks,
--Ken
------------------------------
Date: Fri, 10 Nov 2006 20:44:24 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Permission Denied error when moving files - Perl
Message-Id: <Iw55h.482$ae6.444@clgrps13>
Ken wrote:
> J. Gleixner,
>
> Thanks again for your reply.
>
> In trying your last suggestions, with a simple move script, this worked
> perfectly. Now with using those same fundamentals, I need to figure
> out where the problem is starting in my current script.
>
> The one thing that is consistantly working, is the creation or the
> checking on the "1" directory. The change to the Unless, didn't seem
> to make a different, but I did leave off the single quotes.
>
> This is just so bizarre. It's probably something so simple that's
> being missed! :)
I haven't used Windows in a while but it could be because the PDF module has
an open filehandle on the file and Windows will not let the file be modified
by another process while the file is in use?
Try something like:
my $PDFPages = do {
my $PDFfile = PDF->new( $file );
$PDFfile->IsaPDF ? $PDFfile->Pages : undef;
};
To limit the scope of the PDF object.
John
--
Perl isn't a toolbox, but a small machine shop where you can special-order
certain sorts of tools at low cost and in short order. -- Larry Wall
------------------------------
Date: 10 Nov 2006 12:46:45 -0800
From: "Ken" <kstulce@gmail.com>
Subject: Re: Permission Denied error when moving files - Perl
Message-Id: <1163191605.365398.237220@i42g2000cwa.googlegroups.com>
> > unless( -d $newpgcount )Better still get rid of it altogether since you are not bothering to
> check if the mkdir() succeded anyhow just let it fail if the directory
> already exists.
Brian,
Good point! I'll add some error checking to the mkdir line to make
sure it isn't failing for sure. Supposedly, by default, if you don't
add the permissions to the mkdir command, 0777 is added. Does this
work with Windows as well, especially since 0777 is Unix based?
Thanks,
--Ken
------------------------------
Date: 10 Nov 2006 13:29:25 -0800
From: "Ken" <kstulce@gmail.com>
Subject: Re: Permission Denied error when moving files - Perl
Message-Id: <1163194165.366107.75850@i42g2000cwa.googlegroups.com>
John,
You were right on target. The PDF was being held open and couldn't be
moved. What I ended up having to do was take the sub
"do_the_dirty_job_on" and make it strictly for determining where a file
was a PDF and getting the number of pages, then after that, call the
new sub "pdfmove", which contains the commands to move the pdfs. Some
of the variables, I needed to make global, but the problem is results.
Below is the new code to review.
################
use strict;
use warnings;
use File::chmod;
use Cwd;
use Carp;
use Getopt::Long;
use PDF;
use POSIX;
use File::Copy;
use File::Basename;
# find out current working directory
my $cwd = getcwd;
#print "$cwd\n";
opendir(DIR, "$cwd") || die ("Unable to open directory");
my @pdfname = grep { /\.pdf$/ } readdir(DIR);
closedir(DIR);
# Find all files with "*.pdf" extension
#my @pdfname = glob("*.pdf");
my $pdfcount = @pdfname;
my $pdfFile;
my $PDFPages;
my $file;
foreach $pdfFile(@pdfname)
{
#print "$cwd\\$pdfFile\n";
do_the_dirty_job_on("$cwd\\$pdfFile");
pdfmove();
}
sub do_the_dirty_job_on
{
$file = shift;
#print "File:$file\n";
my $PDFfile = PDF->new($file);
if ($PDFfile->IsaPDF)
{
#print "File $file has ",$PDFfile->Pages," page",$PDFfile->Pages > 1
? "s" :"","\n";
#print $file,":",$PDFfile->Pages,"\n";
$PDFPages = $PDFfile->Pages;
}
else
{
print "File $file isn't a PDF file\n";
}
}
sub pdfmove
{
my $newpgcount = $PDFPages -2;
my $newfile;
my @nameonly = split(/\\/,$file);
#print "NameOnly\: @nameonly\n";
my $filenameonly = $nameonly[2];
unless (-d $newpgcount)
{
mkdir("$newpgcount") or die "mkdir failed: $!";
$newfile = "$newpgcount/$filenameonly";
move($filenameonly,$newfile) or die "move($filenameonly, $newfile)
failed: $!";
#File::Copy::move($file,$newfile) or die "move failed: $!";
#rename($file,$newfile) or die "move failed: $!";
#system("move","$file","/$newpgcount/$file") or die "move failed:
$!";
#unlink($file) or die "delete failed: $!";
}
else
{
$newfile = "$newpgcount/$filenameonly";
move($filenameonly,$newfile) or die "move($filenameonly, $newfile)
failed: $!";
#File::Copy::move($file,$newfile) or die "move failed: $!";
#rename($file,$newfile) or die "move failed: $!";
#system("move","$file","/$newpgcount/$file") or die "move failed:
$!";
#unlink($file) or die "delete failed: $!";
}
}
################
BIG THANKS to everyone for their help and input!
--Ken
------------------------------
Date: Fri, 10 Nov 2006 20:12:07 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Reading config file with line break character?
Message-Id: <r255h.31$gy2.27@edtnps90>
Bernd Fischer wrote:
>
> I have a config file with a key value pair
>
> KEY = VALUE
>
> which I read in with
>
> while ( <CONFIG> ) {
> chomp; # no newline
> s/#.*//; # no comment
> s/^\s+//; # no leading withespaces
> s/\s+$//; # no ending withespaces
> next unless length; # unless something to read
> ( $var, $value ) = split( /\s*=\s*/, $_, 2 );
> $preferences{ $var } = $value;
> }
>
> I'm now looking for a solution to read something like
>
> KEY = VALUE1 VALUE2 VALUE3 \
> VALUE4 VALUE5
while ( <CONFIG> ) {
if ( s/\\\n// ) { # if line ends in \
$_ .= <CONFIG>; # append next line
redo; # and continue
}
s/#.*//; # no comment
s/^\s+//; # no leading whitespaces
s/\s+\z//; # no ending whitespaces including newline
next unless length; # unless something to read
my ( $var, $value ) = split /\s*=\s*/, $_, 2;
$preferences{ $var } = $value;
}
John
--
Perl isn't a toolbox, but a small machine shop where you can special-order
certain sorts of tools at low cost and in short order. -- Larry Wall
------------------------------
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 9952
***************************************
