[30383] in Perl-Users-Digest
Perl-Users Digest, Issue: 1626 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jun 9 21:14:25 2008
Date: Mon, 9 Jun 2008 18:14:17 -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 Mon, 9 Jun 2008 Volume: 11 Number: 1626
Today's topics:
OT: A dumb question but... <danrumney@warpmail.net>
Re: OT: A dumb question but... <bill@ts1000.us>
Re: OT: A dumb question but... <danrumney@warpmail.net>
Re: select count in perl <tadmc@seesig.invalid>
Re: select count in perl <dragnet\_@_/internalysis.com>
Re: Self extractor in perl <ced@blv-sam-01.ca.boeing.com>
System level file / directory comparion <syang8@gmail.com>
Re: System level file / directory comparion <glex_no-spam@qwest-spam-no.invalid>
Re: System level file / directory comparion <syang8@gmail.com>
Re: System level file / directory comparion <simon.chao@gmail.com>
Re: System level file / directory comparion <joost@zeekat.nl>
Re: System level file / directory comparion <glex_no-spam@qwest-spam-no.invalid>
Re: System level file / directory comparion <simon.chao@gmail.com>
Re: System level file / directory comparion <bill@ts1000.us>
Re: System level file / directory comparion <ben@morrow.me.uk>
Re: Tk with Thread <slick.users@gmail.com>
Re: use DBI <ben@morrow.me.uk>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 09 Jun 2008 17:21:30 -0400
From: Dan Rumney <danrumney@warpmail.net>
Subject: OT: A dumb question but...
Message-Id: <484d9ede$0$3369$4c368faf@roadrunner.com>
Bill H wrote:
> I have this perl script that I have been using for bout 10 years that
> sends out a mass email to one of my clients member list (about 4,000)
> people. I run it at a shell prompt on an Apache server and it will
> display back a "sent email address" for each one it processes. Takes
> about 2 hours to run through. I am not concerned about speeding it up
> or anything since I only do it once a week and usually off eating
> lunch while it runs, but I have always wondered. Would perl be
> notified and / or care if I closed that shell window or would it just
> continue on till it was done?
[snip]
This may or may not be 'off-topic' but it's a digression from what the
OP was asking.
I know you're not concerned about speeding it up, but 2 hours does seem
like a *very* long time to process 4,000 users.
That's about 1.8s per user. Naturally, it could be that your server is
extremely busy with other things, but it might be worth taking a look.
BTW, must be nice to have a 2 hour lunch break ;o)
------------------------------
Date: Mon, 9 Jun 2008 14:34:39 -0700 (PDT)
From: Bill H <bill@ts1000.us>
Subject: Re: OT: A dumb question but...
Message-Id: <363e5242-8b26-4061-87a3-f140ee32c2cd@m44g2000hsc.googlegroups.com>
On Jun 9, 5:21=A0pm, Dan Rumney <danrum...@warpmail.net> wrote:
> Bill H wrote:
> > I have this perl script that I have been using for bout 10 years that
> > sends out a mass email to one of my clients member list (about 4,000)
> > people. I run it at a shell prompt on an Apache server and it will
> > display back a "sent email address" for each one it processes. Takes
> > about 2 hours to run through. I am not concerned about speeding it up
> > or anything since I only do it once a week and usually off eating
> > lunch while it runs, but I have always wondered. Would perl be
> > notified and / or care if I closed that shell window or would it just
> > continue on till it was done?
>
> [snip]
>
> This may or may not be 'off-topic' but it's a digression from what the
> OP was asking.
>
> I know you're not concerned about speeding it up, but 2 hours does seem
> like a *very* long time to process 4,000 users.
>
> That's about 1.8s per user. Naturally, it could be that your server is
> extremely busy with other things, but it might be worth taking a look.
>
> BTW, must be nice to have a 2 hour lunch break ;o)
I run it via telnet and it's always taken this long. I am leary to
post the code cause even I know it is bad - but it has always worked
and I only use it for the client, so I don't really want to take the
time to change it. I wrote it back when I was into cut / paste perl
and it could be improved with a hand grenade.
Actually I will post the code in all its glory - no stricts, no
warnings, only change made is to hide the domain name to protect the
innocent. Maybe it will make it on thedailywtf.com?
#!/usr/bin/perl
use Env;
$test =3D 0;
$subject =3D "XXXXXXXXXXXXXXXXXXXXXXXXXXXXX";
$usewho =3D "goodlist0403.txt";
open(FILE,"06092008.htm");
@temp =3D <FILE>;
$message =3D join('',@temp);
close(FILE);
$mail_program =3D "/usr/sbin/sendmail -t";
$count =3D 0;
$sent =3D 0;
#$nosend =3D 0;
open(FILE,"$usewho");
$c =3D 0;
while(<FILE>)
{
$line =3D $_;
chop $line;
$dest =3D lc($line);
$count++;
if ($test =3D=3D 1){$stuff =3D $dest;$dest =3D "bill
\@XXXXXXXXXXXXXXX.com";}
$zz =3D eval {open(MAIL,"|$mail_program");
print MAIL "To: $dest\n";
print MAIL "From: announce\@XXXXXXX.org\n";
print MAIL "Subject: $subject\n";
print MAIL "Content-type: text/html\n\n";
print MAIL "$message\n";
close(MAIL);};
print "Sent to: $dest $stuff '$zz'\n";
$c++;
if ($test =3D=3D 1 && $c =3D=3D 10){goto ExitOut;}
}
ExitOut:
close(FILE);
exit;
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Be gentle with me :)
Bill H
------------------------------
Date: Mon, 09 Jun 2008 18:22:35 -0400
From: Dan Rumney <danrumney@warpmail.net>
Subject: Re: OT: A dumb question but...
Message-Id: <484dad29$0$3347$4c368faf@roadrunner.com>
Bill H wrote:
> On Jun 9, 5:21 pm, Dan Rumney <danrum...@warpmail.net> wrote:
>> Bill H wrote:
[snip]
I'll keep my comments confined to the performance of the script.
> #!/usr/bin/perl
>
> use Env;
>
> $test = 0;
> $subject = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXX";
>
> $usewho = "goodlist0403.txt";
>
>
> open(FILE,"06092008.htm");
> @temp = <FILE>;
> $message = join('',@temp);
> close(FILE);
>
> $mail_program = "/usr/sbin/sendmail -t";
try
$mail_program = "/usr/sbin/sendmail -t -odq";
That's a variation on Recipe 18.3 from the Perl Cookbook (available on
books.google.com)
That will queue up each message, instead of attempting to send it
immediately. I would hazard a guess that it will improve your performance.
[snip rest of code]
------------------------------
Date: Mon, 9 Jun 2008 19:46:49 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: select count in perl
Message-Id: <slrng4rjnp.ejb.tadmc@tadmc30.sbcglobal.net>
Marc Bissonnette <dragnet> wrote:
> #!/usr/bin/perl
use warnings;
use strict;
[ snip other code]
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Mon, 09 Jun 2008 19:37:23 -0500
From: Marc Bissonnette <dragnet\_@_/internalysis.com>
Subject: Re: select count in perl
Message-Id: <Xns9AB8D1C554890dragnetinternalysisc@216.196.97.131>
Tad J McClellan <tadmc@seesig.invalid> fell face-first on the keyboard.
This was the result: news:slrng4rjnp.ejb.tadmc@tadmc30.sbcglobal.net:
> Marc Bissonnette <dragnet> wrote:
>
>> #!/usr/bin/perl
>
> use warnings;
> use strict;
>
> [ snip other code]
Whoops - Thanks.
--
Marc Bissonnette
Looking for a new ISP? http://www.canadianisp.com
Largest ISP comparison site across Canada.
------------------------------
Date: Mon, 9 Jun 2008 13:28:45 -0700 (PDT)
From: "comp.llang.perl.moderated" <ced@blv-sam-01.ca.boeing.com>
Subject: Re: Self extractor in perl
Message-Id: <cd6b0fed-4335-44ea-aea9-560078d0ea31@y22g2000prd.googlegroups.com>
On Jun 8, 1:21 am, jis <jisma...@gmail.com> wrote:
> I want to attach files along with th e exe i generate using perl. is
> it possible for me to implement this.pls guide.
>
http://www.perlmonks.org/?node_id=317352
--
Charles DeRykus
------------------------------
Date: Mon, 9 Jun 2008 15:40:25 -0700 (PDT)
From: syang8 <syang8@gmail.com>
Subject: System level file / directory comparion
Message-Id: <3f14491e-0a1b-48e4-8bc4-c462bb1a5f61@d77g2000hsb.googlegroups.com>
Is there any command in perl that I can check if two files are the
same one?
For example, if there some file test at the directory: /usr/var/test,
and two strings $a = "./test" and $b ="../var/test". Is there any
function that returns true if I compare $a and $b?
Thanks.
-Steve
------------------------------
Date: Mon, 09 Jun 2008 17:51:18 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: System level file / directory comparion
Message-Id: <484db3e7$0$89872$815e3792@news.qwest.net>
syang8 wrote:
> Is there any command in perl that I can check if two files are the
> same one?
Define 'same one'.
Exactly the same contents?
Symbolic link?
Hard link?
What kind of file (text, binary, etc.)
>
> For example, if there some file test at the directory: /usr/var/test,
> and two strings $a = "./test" and $b ="../var/test". Is there any
> function that returns true if I compare $a and $b?
Possibly Text::Diff is what you want.
http://search.cpan.org/~rbs/Text-Diff-0.35/lib/Text/Diff.pm
------------------------------
Date: Mon, 9 Jun 2008 16:00:41 -0700 (PDT)
From: syang8 <syang8@gmail.com>
Subject: Re: System level file / directory comparion
Message-Id: <1e73a273-ea3c-4807-9717-feb388422c33@f36g2000hsa.googlegroups.com>
Sorry for the confusion. Let me clarify the question. I am NOT
comparing the contents of the file. I want to know if two variables
are actually refers to the same PHYSICAL node in the system. In the
above example, $a =3D "./test" and $b =3D "../var/test" should be the same
because they are actually refers to the same node. However, if $c
stores a link the test file, the function should return false.
On Jun 9, 6:51=A0pm, "J. Gleixner" <glex_no-s...@qwest-spam-no.invalid>
wrote:
> syang8 wrote:
> > Is there any command in perl that I can check if two files are the
> > same one?
>
> Define 'same one'.
>
> Exactly the same contents?
> Symbolic link?
> Hard link?
>
> What kind of file (text, binary, etc.)
>
>
>
> > For example, if there some file test =A0at the directory: /usr/var/test,=
> > and two strings $a =3D "./test" and $b =3D"../var/test". Is there any
> > function that returns true if I compare $a and $b?
>
> Possibly Text::Diff is what you want.
>
> http://search.cpan.org/~rbs/Text-Diff-0.35/lib/Text/Diff.pm
------------------------------
Date: Mon, 9 Jun 2008 16:08:09 -0700 (PDT)
From: nolo contendere <simon.chao@gmail.com>
Subject: Re: System level file / directory comparion
Message-Id: <30943b52-397d-4a9d-a6b1-665a6cdeebc1@c58g2000hsc.googlegroups.com>
On Jun 9, 6:51=A0pm, "J. Gleixner" <glex_no-s...@qwest-spam-no.invalid>
wrote:
> syang8 wrote:
> > Is there any command in perl that I can check if two files are the
> > same one?
>
> Define 'same one'.
>
> Exactly the same contents?
> Symbolic link?
> Hard link?
>
> What kind of file (text, binary, etc.)
>
>
>
> > For example, if there some file test =A0at the directory: /usr/var/test,=
> > and two strings $a =3D "./test" and $b =3D"../var/test". Is there any
> > function that returns true if I compare $a and $b?
>
> Possibly Text::Diff is what you want.
>
> http://search.cpan.org/~rbs/Text-Diff-0.35/lib/Text/Diff.pm
this is OT, but i was curious if there was a general rule about speed
for shelling out to system's utils and perl's. i.e. from Text::Diff:
diff() provides a basic set of services akin to the GNU diff utility.
It is not anywhere near as feature complete as GNU diff, but it is
better integrated with Perl and available on all platforms. It is
often faster than shelling out to a system's diff executable for small
files, and generally slower on larger files.
i realize the answer is probably going to be: benchmark it, but as an
estimation, if a util exists as a shell built-in, or a gnu tool, would
that be faster than a Perl module? a Perl module written in C? can the
above case be generalized so that it would be a fairly good rule of
thumb that if inputs are small and or few, a Perl module would be
faster, while if the inputs are large and/or many, the shell built-ins/
gnu tools would be faster? or is this just a ridiculous question since
there are too many factors influencing the answer?
------------------------------
Date: Tue, 10 Jun 2008 01:18:42 +0200
From: Joost Diepenmaat <joost@zeekat.nl>
Subject: Re: System level file / directory comparion
Message-Id: <87iqwi8ael.fsf@zeekat.nl>
syang8 <syang8@gmail.com> writes:
> Sorry for the confusion. Let me clarify the question. I am NOT
> comparing the contents of the file. I want to know if two variables
> are actually refers to the same PHYSICAL node in the system. In the
> above example, $a = "./test" and $b = "../var/test" should be the same
> because they are actually refers to the same node. However, if $c
> stores a link the test file, the function should return false.
That still doesn't explain if you want to differentiate between hard
links to the same node. If you want to consider hard links to the same
file to be the same file, and you don't care about the canonical path
(of which there may be more if hard links are involved, anyway) check
out stat()'s first and second return value (the device and inode
number).
--
Joost Diepenmaat | blog: http://joost.zeekat.nl/ | work: http://zeekat.nl/
------------------------------
Date: Mon, 09 Jun 2008 18:18:54 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: System level file / directory comparion
Message-Id: <484dba5f$0$33217$815e3792@news.qwest.net>
syang8 wrote:
> Sorry for the confusion. Let me clarify the question. I am NOT
> comparing the contents of the file. I want to know if two variables
> are actually refers to the same PHYSICAL node in the system. In the
> above example, $a = "./test" and $b = "../var/test" should be the same
> because they are actually refers to the same node. However, if $c
> stores a link the test file, the function should return false.
>
> On Jun 9, 6:51 pm, "J. Gleixner" <glex_no-s...@qwest-spam-no.invalid>
> wrote:
>> syang8 wrote:
>>> Is there any command in perl that I can check if two files are the
>>> same one?
>> Define 'same one'.
>>
>> Exactly the same contents?
>> Symbolic link?
>> Hard link?
>>
>> What kind of file (text, binary, etc.)
>>
>>
>>
>>> For example, if there some file test at the directory: /usr/var/test,
>>> and two strings $a = "./test" and $b ="../var/test". Is there any
>>> function that returns true if I compare $a and $b?
>> Possibly Text::Diff is what you want.
>>
>> http://search.cpan.org/~rbs/Text-Diff-0.35/lib/Text/Diff.pm
>
> Sorry for the confusion. Let me clarify the question. I am NOT
> comparing the contents of the file. I want to know if two variables
> are actually refers to the same PHYSICAL node in the system. In the
> above example, $a = "./test" and $b = "../var/test" should be the same
> because they are actually refers to the same node. However, if $c
> stores a link the test file, the function should return false.
>
That's a little clearer.
Take a look at perldoc -f stat, File::Spec, or just write your
own, probably using stat(), to match your specifications.
------------------------------
Date: Mon, 9 Jun 2008 16:19:18 -0700 (PDT)
From: nolo contendere <simon.chao@gmail.com>
Subject: Re: System level file / directory comparion
Message-Id: <c9a7d47c-e26e-4a45-aeaa-c9d67ae6a8d9@26g2000hsk.googlegroups.com>
On Jun 9, 7:00=A0pm, syang8 <sya...@gmail.com> wrote:
> Sorry for the confusion. Let me clarify the question. I am NOT
> comparing the contents of the file. I want to know if two variables
> are actually refers to the same PHYSICAL node in the system. =A0In the
> above example, $a =3D "./test" and $b =3D "../var/test" should be the same=
> because they are actually refers to the same node. However, if $c
> stores a link the test file, the function should return false.
>
use Perl's stat function, and compare the inode numbers. if they're
the same, return true, else return false.
http://perldoc.perl.org/functions/stat.html
------------------------------
Date: Mon, 9 Jun 2008 16:31:03 -0700 (PDT)
From: Bill H <bill@ts1000.us>
Subject: Re: System level file / directory comparion
Message-Id: <3d364913-9383-47b1-a2ba-5e7386d554ba@e39g2000hsf.googlegroups.com>
On Jun 9, 6:40=A0pm, syang8 <sya...@gmail.com> wrote:
> Is there any command in perl that I can check if two files are the
> same one?
>
> For example, if there some file test =A0at the directory: /usr/var/test,
> and two strings $a =3D "./test" and $b =3D"../var/test". Is there any
> function that returns true if I compare $a and $b?
>
> Thanks.
> -Steve
Are you trying to programatically fix a bunch of hard coded paths? If
so you may want to make a list of all the different paths and have a
substitution for them that is correct.
FYI it is hard to come up with an idea with the limited examples -
can you give real world examples of what you are trying to compare?
Bill H
------------------------------
Date: Tue, 10 Jun 2008 01:19:19 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: System level file / directory comparion
Message-Id: <7tt0i5-iq4.ln1@osiris.mauzo.dyndns.org>
Quoth syang8 <syang8@gmail.com>:
> Is there any command in perl that I can check if two files are the
> same one?
>
> For example, if there some file test at the directory: /usr/var/test,
> and two strings $a = "./test" and $b ="../var/test". Is there any
> function that returns true if I compare $a and $b?
If you want to test the actual filesystem, use the device and inode
values from stat (assuming a Unix system: they tend to be meaningless on
other systems). If you just want to check the paths, use Cwd::abs_path.
Ben
--
For the last month, a large number of PSNs in the Arpa[Inter-]net have been
reporting symptoms of congestion ... These reports have been accompanied by an
increasing number of user complaints ... As of June,... the Arpanet contained
47 nodes and 63 links. [ftp://rtfm.mit.edu/pub/arpaprob.txt] * ben@morrow.me.uk
------------------------------
Date: Mon, 9 Jun 2008 16:18:07 -0700 (PDT)
From: Slickuser <slick.users@gmail.com>
Subject: Re: Tk with Thread
Message-Id: <1c933d61-0b89-4dd8-bd48-ff31240d7927@e53g2000hsa.googlegroups.com>
Here is what I want to achieve:
Have the GUI up, use thread to process the data (read from file) and
Excel OLE to output the data.
I don't want my GUI to freeze up when it's running.
I got the script going but I got couple of errors below.
Any help would be great. Thanks a lot.
Attempt to free non-existent shared string '_TK_RESULT_', Perl
interpreter: 0x2e
e14dc at C:\Documents and Settings\slickuser\Desktop\thread3.pl line
22.
Tk::Error: Can't call method "Call" on an undefined value at C:/Perl/
site/lib/Tk
/After.pm line 89.
[once,[{},after#7,idle,once,[ConfigChanged,{},{}]]]
("after" script)
Tk::Error: Can't call method "Call" on an undefined value at C:/Perl/
site/lib/Tk
/After.pm line 89.
[once,[{},after#8,idle,once,[ConfigChanged,{},{}]]]
("after" script)
Attempt to free non-existent shared string 'Value', Perl interpreter:
0x22485c a
t (eval 9) line 1.
Free to wrong pool 222da8 not 2ed3ec8 at (eval 9) line 1.
Here is my code:
use strict;
use warnings;
use Tk;
use threads;
my $thr;
my $mainWindow = MainWindow->new;
my $textBox = $mainWindow->Scrolled("Text", -width=>80, -height=>7,
-scrollbars=>"ose", -wrap=>"word")->pack();
my $goBut = $mainWindow->Button(-foreground=>"blue", -text=>"Click",
-command=>sub { $thr = threads->new(\&excecute) } )-
>pack();
my $stopBut = $mainWindow->Button(-foreground=>"red", -text=>"Exit",
-command=>sub{ if(defined($thr)){ $thr->detach; }
exit; })->pack();
MainLoop;
sub excecute
{
$goBut->configure(-state=>"disabled");
$textBox->configure(-state=>"normal");
open(FILE,"C:/file.txt") or die "Can't open file.\n";
while(<FILE>)
{
my $message = $_;
$textBox->insert('end', $message);
}
close(FILE);
$textBox->configure(-state=>"disabled");
$textBox->see('end');
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
my ($Excel,$Workbook,$fileOutput,$CurrentSheet,$Range);
$fileOutput = "C:/test.xls";
$Excel = Win32::OLE->new('Excel.Application', 'Quit') || die "Can't
create Excel object. \n";
$Excel->{'Visible'} = 1; #0 is hidden, 1 is visible
$Excel->{DisplayAlerts} = 0; #0 is hide alerts
$Excel->{SheetsInNewWorkbook} = 1;
$Workbook = $Excel->Workbooks->Add();
$Workbook->SaveAs($fileOutput) or die "Can't save Excel.\n";
$CurrentSheet = $Workbook->Worksheets(1);
$CurrentSheet->Select;
for (my $i=1; $i<=65356; $i++)
{
$Range = $CurrentSheet->Range("A$i");
$Range->{Value} = $i;
sleep(0.01);
}
$Workbook->Save();
$Workbook->Close();
$Excel->Quit();
Win32::OLE->FreeUnusedLibraries();
$goBut->configure(-state=>"normal");
return;
}
------------------------------
Date: Mon, 9 Jun 2008 21:40:56 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: use DBI
Message-Id: <o3h0i5-vfn2.ln1@osiris.mauzo.dyndns.org>
Quoth Nene <rodbass63@gmail.com>:
> Greetings:
>
> I would like to put the DBI module on a linux box that does not have
> the mysql client installed, is that possible? Since I'm not allowed
> to install the module on the box, I did a perl MakeFile.pl prefex=/
> blah/blah on my box and copied it over to the other box. I'm getting
> the following error:
>
> Can't locate loadable object for module DBI in @INC (@INC contains: /c
Clearly you have only transferred DBI.pm itself. You also need all the
other files installed by the DBI distribution, which should be listed in
site_perl/5.8.5/x86_64-linux/auto/DBI/.packlist (adjust as appropriate
for wherever you installed it: if you can find a file called 'DBI.so',
the .packlist should be next to that). Note that this only has any
chance of working if the perls on your two machines are *completely*
identical, including perl version, OS version and compiler version used,
and you installed it on your own machine in the same place as it will be
installed on the production machine.
Given that you're using Linux, I would have expected that you have some
sort of binary packaging system available to you. It would be much
easier to install DBI directly on the target, using that system.
Ben
--
#!/bin/sh
quine="echo 'eval \$quine' >> \$0; echo quined"
eval $quine
# [ben@morrow.me.uk]
------------------------------
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 V11 Issue 1626
***************************************
