[29236] in Perl-Users-Digest
Perl-Users Digest, Issue: 480 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jun 3 03:10:09 2007
Date: Sun, 3 Jun 2007 00:09:04 -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 Sun, 3 Jun 2007 Volume: 11 Number: 480
Today's topics:
Re: Computer List (Pls hlp!) <shmh@bigpond.net.au>
Re: Deleting files <bart.lateur@pandora.be>
Re: Deleting files <mritty@gmail.com>
Re: Deleting files <tzz@lifelogs.com>
new CPAN modules on Sun Jun 3 2007 (Randal Schwartz)
perl hash - data processing <srigowrisn@hotmail.com>
Re: perl hash - data processing <mritty@gmail.com>
Re: perl hash - data processing <srigowrisn@hotmail.com>
Re: Processing a Computer List <see.sig@rochester.rr.com>
Re: Processing a Computer List <rvtol+news@isolution.nl>
question about socket and scalar. <none@libero.it>
Re: question about socket and scalar. <see.sig@rochester.rr.com>
Re: SendMail.pm: smtp and gmail <mgjv@tradingpost.com.au>
Re: stumped by graphics display problem... <mgjv@tradingpost.com.au>
urgent:reading 2 files into 2 different $ variables <george.titus@gmail.com>
Re: urgent:reading 2 files into 2 different $ variables <see.sig@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 03 Jun 2007 01:37:29 GMT
From: "SimonH" <shmh@bigpond.net.au>
Subject: Re: Computer List (Pls hlp!)
Message-Id: <tXo8i.7947$wH4.6602@news-server.bigpond.net.au>
Very interesting answer Wilbur!
I sense a tone about your answer.
"Charlton Wilbur" <cwilbur@chromatico.net> wrote in message
news:87ps4e2ysj.fsf@mithril.chromatico.net...
>>>>>> "A" == anno4000 <anno4000@radom.zrz.tu-berlin.de> writes:
>
> A> [specs snipped]
>
> A> We can help you with a program when you get stuck, but we're
> A> not in the business of writing programs to specification.
>
> Well, some of us *are*, but as it's a business we expect to get paid
> for that.
>
> Charlton
>
> --
> Charlton Wilbur
> cwilbur@chromatico.net
------------------------------
Date: Sat, 02 Jun 2007 20:22:01 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: Deleting files
Message-Id: <m4k36397a5bnuct77tvoq3ubvjvujurl0o@4ax.com>
Anders F wrote:
>Is there a Perl subroutine for deleting files?
There's a builtin. It's called "unlink".
http://perldoc.perl.org/functions/unlink.html
The reason for the odd name is because on Unix, there's no garantee that
if you succesfully apply this function on a file, that it will indeed be
deleted. There' something called a "hard link", so there can be multiple
directory entries, possibly in more than one directory, for the same
file. "unlink" will remove one such directory entry (called a "link").
Only when all links are gone, will the file contents indeed be deleted.
--
Bart.
------------------------------
Date: Sat, 02 Jun 2007 13:24:44 -0700
From: Paul Lalli <mritty@gmail.com>
Subject: Re: Deleting files
Message-Id: <1180815884.398467.200880@g4g2000hsf.googlegroups.com>
On Jun 2, 1:46 pm, "Anders F" <nos...@example.com> wrote:
> Is there a Perl subroutine for deleting files?
Sherm already gave you a fish, so I'll teach you how to fish instead.
`perldoc perlfunc` has a list of all Perl functions, grouped by
category. You can either open a command prompt and type
perldoc perlfunc
or you can go to your Start Menu, All Program, ActivePerl,
Documentation. And from there, click on 'perlfunc' on the left
frame.
Within that list of all Perl functions grouped by category, you'll
find:
Functions for filehandles, files, or directories
"-X", "chdir", "chmod", "chown", "chroot", "fcntl",
"glob", "ioctl", "link", "lstat", "mkdir", "open",
"opendir", "readlink", "rename", "rmdir", "stat",
"symlink", "sysopen", "umask", "unlink", "utime"
Hope this helps,
Paul Lalli
------------------------------
Date: Sat, 02 Jun 2007 20:23:00 -0400
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: Deleting files
Message-Id: <m2ira5lwd7.fsf@lifelogs.com>
On Sat, 02 Jun 2007 17:46:11 GMT "Anders F" <nospam@example.com> wrote:
AF> Is there a Perl subroutine for deleting files?
Sure, do `perldoc -f unlink'
AF> So I want some alternate way to delete files. If possible deleting
AF> a directory with all files and subdirectories in one command,
You probably want to use File::Path:
http://search.cpan.org/~dland/File-Path-1.99_02/Path.pm
AF> else it should not bee too difficult to make a recursive subroutine
AF> and delete the files one by one.
Sure, you can do that. It's very educational if you want to learn more
about files and directories.
Ted
------------------------------
Date: Sun, 3 Jun 2007 04:42:11 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sun Jun 3 2007
Message-Id: <JJ1MEB.1CMs@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Apache2-ASP-0.15
http://search.cpan.org/~johnd/Apache2-ASP-0.15/
ASP for a mod_perl2 environment.
----
AutoCons-0.01_03
http://search.cpan.org/~riddle/AutoCons-0.01_03/
Write a Construct file.
----
Bundle-Encode-0.04
http://search.cpan.org/~ski/Bundle-Encode-0.04/
A bundle to install Encode modules and dependencies
----
Bundle-Unicode-0.02
http://search.cpan.org/~ski/Bundle-Unicode-0.02/
A bundle to install Unicode modules and their dependencies
----
Bundle-Unicode-0.03
http://search.cpan.org/~ski/Bundle-Unicode-0.03/
A bundle to install Unicode modules and their dependencies
----
Config-Loader-1.01
http://search.cpan.org/~drtech/Config-Loader-1.01/
load a configuration directory tree containing YAML, JSON, XML, Perl, INI or Config::General files
----
Crypt-OpenSSL-X509-0.4.1
http://search.cpan.org/~daniel/Crypt-OpenSSL-X509-0.4.1/
Perl extension to OpenSSL's X509 API.
----
Crypt-OpenSSL-X509-0.5
http://search.cpan.org/~daniel/Crypt-OpenSSL-X509-0.5/
Perl extension to OpenSSL's X509 API.
----
DBIx-Class-InflateColumn-ISBN-0.04000
http://search.cpan.org/~penguin/DBIx-Class-InflateColumn-ISBN-0.04000/
Auto-create Business::ISBN objects from columns.
----
DBIx-ORM-Declarative-0.14
http://search.cpan.org/~jschneid/DBIx-ORM-Declarative-0.14/
Perl extension for object-oriented database access
----
Getopt-Whatever-0.01
http://search.cpan.org/~jmcada/Getopt-Whatever-0.01/
Collects whatever options you pass it!
----
Markaya-0.0.1
http://search.cpan.org/~gugod/Markaya-0.0.1/
Markup As YAML
----
Maypole-2.111
http://search.cpan.org/~teejay/Maypole-2.111/
MVC web application framework
----
ModelSim-List-0.05
http://search.cpan.org/~agent/ModelSim-List-0.05/
Analyse the 'list' output of the ModelSim simulator
----
ModelSim-List-0.06
http://search.cpan.org/~agent/ModelSim-List-0.06/
Analyse the 'list' output of the ModelSim simulator
----
Module-List-Pluggable-0.05
http://search.cpan.org/~doom/Module-List-Pluggable-0.05/
list or require sub-sets of modules
----
Net-Flickr-RDF-2.0
http://search.cpan.org/~ascope/Net-Flickr-RDF-2.0/
a.k.a RDF::Describes::Flickr
----
Sepia-0.76_02
http://search.cpan.org/~seano/Sepia-0.76_02/
Simple Emacs-Perl Interface
----
Sim-0.01
http://search.cpan.org/~agent/Sim-0.01/
Simulator engine for discrete events
----
Sim-0.02
http://search.cpan.org/~agent/Sim-0.02/
Simulator engine for discrete events
----
Sim-0.03
http://search.cpan.org/~agent/Sim-0.03/
Simulator engine for discrete events
----
SmokeRunner-Multi-0.12
http://search.cpan.org/~drolsky/SmokeRunner-Multi-0.12/
Manage smoke tests across multiple branches/checkouts/projects
----
SmokeRunner-Multi-0.13
http://search.cpan.org/~drolsky/SmokeRunner-Multi-0.13/
Manage smoke tests across multiple branches/checkouts/projects
----
Sort-Key-Radix-0.03
http://search.cpan.org/~salva/Sort-Key-Radix-0.03/
Radix sort implementation in XS
----
Sort-Key-Radix-0.04
http://search.cpan.org/~salva/Sort-Key-Radix-0.04/
Radix sort implementation in XS
----
WWW-Facebook-API-v0.2.2
http://search.cpan.org/~unobe/WWW-Facebook-API-v0.2.2/
Facebook API implementation
----
WWW-Facebook-API-v0.2.3
http://search.cpan.org/~unobe/WWW-Facebook-API-v0.2.3/
Facebook API implementation
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Sat, 02 Jun 2007 17:09:27 -0700
From: shree <srigowrisn@hotmail.com>
Subject: perl hash - data processing
Message-Id: <1180829367.539075.119770@m36g2000hse.googlegroups.com>
I have a data set that looks like this. It basically shows members
added to an organization on a monthly basis.
2007-01|member1
2007-01|member2
2007-01|member3
2007-02|member4
2007-03|member5
2007-03|member6
I wrote the following script to get monthly counts.
#!/usr/bin/perl
my %hash;
my $File_In = "Members.txt";
open (DATA, $File_In) or die "Cannot open File_In $!";
while( <DATA> ){
my($yyyy_mm, $member_name) = split /\|/;
$hash{$yyyy_mm}++;
}
print "yyyy-mm|members added\n";
foreach (sort keys %hash) {
print "$_|$hash{$_}\n";
}
yyyy-mm|members added
2007-01|3
2007-02|1
2007-03|2
Now I'm asked to add 2 more fields in the output. One is running
cumulative total and another is percentage increase over the
preceeding month. I'm not sure how to this and would appreciate any
tips. I have listed a mockup of the results - done in Excel for
illustration.
yyyy-mm|members added|cumulative total|% increase over last month
2007-01|3|3|-
2007-02|1|4|33.33%
2007-03|2|6|50.00%
Thanks,
Shree
------------------------------
Date: Sat, 02 Jun 2007 18:07:37 -0700
From: Paul Lalli <mritty@gmail.com>
Subject: Re: perl hash - data processing
Message-Id: <1180832857.294473.239810@h2g2000hsg.googlegroups.com>
On Jun 2, 8:09 pm, shree <srigowr...@hotmail.com> wrote:
> I have a data set that looks like this. It basically shows members
> added to an organization on a monthly basis.
>
> 2007-01|member1
> 2007-01|member2
> 2007-01|member3
> 2007-02|member4
> 2007-03|member5
> 2007-03|member6
>
> I wrote the following script to get monthly counts.
>
> #!/usr/bin/perl
> my %hash;
> my $File_In = "Members.txt";
> open (DATA, $File_In) or die "Cannot open File_In $!";
> while( <DATA> ){
> my($yyyy_mm, $member_name) = split /\|/;
> $hash{$yyyy_mm}++;}
>
> print "yyyy-mm|members added\n";
> foreach (sort keys %hash) {
> print "$_|$hash{$_}\n";
>
> }
>
> yyyy-mm|members added
> 2007-01|3
> 2007-02|1
> 2007-03|2
>
> Now I'm asked to add 2 more fields in the output. One is running
> cumulative total and another is percentage increase over the
> preceeding month. I'm not sure how to this and would appreciate any
> tips. I have listed a mockup of the results - done in Excel for
> illustration.
>
> yyyy-mm|members added|cumulative total|% increase over last month
> 2007-01|3|3|-
> 2007-02|1|4|33.33%
> 2007-03|2|6|50.00%
Fairly straightforward...
#!/usr/bin/env perl
use strict;
use warnings;
my %hash;
while( <DATA> ){
my($yyyy_mm, $member_name) = split /\|/;
$hash{$yyyy_mm}++;
}
my $total = 0;
print "yyyy-mm|members added|cum. total|increase\n";
foreach (sort keys %hash) {
my $incr = $total
? sprintf("%.2f%%", 100 * $hash{$_} / $total)
: '-';
$total += $hash{$_};
print "$_|$hash{$_}|$total|$incr\n";
}
__DATA__
2007-01|member1
2007-01|member2
2007-01|member3
2007-02|member4
2007-03|member5
2007-03|member6
Paul Lalli
------------------------------
Date: Sat, 02 Jun 2007 20:34:25 -0700
From: shree <srigowrisn@hotmail.com>
Subject: Re: perl hash - data processing
Message-Id: <1180841665.928713.67340@q69g2000hsb.googlegroups.com>
<snip>
> my $total = 0;
> print "yyyy-mm|members added|cum. total|increase\n";
> foreach (sort keys %hash) {
> my $incr = $total
> ? sprintf("%.2f%%", 100 * $hash{$_} / $total)
> : '-';
> $total += $hash{$_};
> print "$_|$hash{$_}|$total|$incr\n";
>
> }
</snip>
Dear Paul,
Thanks a million..this worked exactly as intended.
Shree
------------------------------
Date: Sat, 02 Jun 2007 18:29:05 -0400
From: Bob Walton <see.sig@rochester.rr.com>
Subject: Re: Processing a Computer List
Message-Id: <4661ef32$0$11763$4c368faf@roadrunner.com>
SimonH wrote:
> Hi Len!
>
> Thanks for this...but Im really looking at a perl solution for this. Thanks
> very much to you anyway. Appreciate it.
Well then [untested]:
perl -e "print `srvinfo.exe`"
...
>> C:\>srvinfo.exe
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: Sun, 3 Jun 2007 02:02:27 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Processing a Computer List
Message-Id: <f3t84n.qo.1@news.isolution.nl>
Beware, multi-posted here, with a different Subject:
"Computer List (Pls hlp!)".
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Sat, 02 Jun 2007 23:27:10 +0200
From: "_mario.lat" <none@libero.it>
Subject: question about socket and scalar.
Message-Id: <pan.2007.06.02.21.27.10.539855@libero.it>
Hammol,
I see an example about IPv6...
I'm a newby and I like to ask you someting about code:
-What can I put in the code(see following code) for writing what the
server says?
-What "scalar(@res)" do?
Thank you in advance,
Mario.
use Socket;
use Socket6;
@res = getaddrinfo('hishost.com', 'daytime', AF_UNSPEC, SOCK_STREAM);
$family = -1;
while (scalar(@res) >= 5) {
($family, $socktype, $proto, $saddr, $canonname, @res) = @res;
($host, $port) = getnameinfo($saddr, NI_NUMERICHOST | NI_NUMERICSERV);
print STDERR "Trying to connect to $host port port $port...\n";
socket(Socket_Handle, $family, $socktype, $proto) || next;
connect(Socket_Handle, $saddr) && last;
-----> WHAT CAN I PUT HERE TO PRINT WHAT SERVER SAYS?
close(Socket_Handle);
$family = -1;
}
if ($family != -1) {
print STDERR "connected to $host port port $port\n";
} else {
die "connect attempt failed\n";
}
------------------------------
Date: Sat, 02 Jun 2007 18:18:28 -0400
From: Bob Walton <see.sig@rochester.rr.com>
Subject: Re: question about socket and scalar.
Message-Id: <4661ecb5$0$9952$4c368faf@roadrunner.com>
_mario.lat wrote:
> ...
> I'm a newby and I like to ask you someting about code:
>
...
> -What "scalar(@res)" do?
The function scalar() returns its argument evaluated in scalar context.
In the case of an array as the argument, it returns the number of
elements in the array.
Please type:
perldoc -f scalar
at a command prompt on your computer, which will answer this question
much more quickly and thoroughly than asking a newsgroup.
>
> Mario.
...
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: Sun, 3 Jun 2007 07:57:05 +1000
From: Martien verbruggen <mgjv@tradingpost.com.au>
Subject: Re: SendMail.pm: smtp and gmail
Message-Id: <slrnf63pth.nu3.mgjv@martien.heliotrope.home>
On 31 May 2007 01:08:01 -0700,
Davidcollins001@gmail.com <Davidcollins001@gmail.com> wrote:
> Hi Martien, I have tried both, initially without using the Host label
> (I thought it might need it since that would seem logical) but I still
> get a cannot connect.
Next time, please reply in context, i.e. to the post that you're
replying to.
I get a very distinct difference between the following two:
$ perl -MNet::SMTP::SSL -wle \
'Net::SMTP::SSL->new("smtp.googlemail.com", Port => 465) and exit or die'
and
$ perl -MNet::SMTP::SSL -wle \
'Net::SMTP::SSL->new(Host => "smtp.googlemail.com", Port => 465) and exit or die'
The top one exits, the bottom one dies. This tells me that the top one
successfully connected, and the bottom one failed to connect. Looking at
the code for Net::SMTP::SSL also tells me that the bottom one is
incorrect.
If you get exactly the same response in both cases something esle is
wrong. Are you SURE you tried the correct combination of code, hostname
and port?
If you did, I suggest that there is something wrong with your network.
You're not behind a firewall that's blocking this, are you?
Martien
--
|
Martien Verbruggen | Unix is user friendly. It's just selective
| about its friends.
|
------------------------------
Date: Sun, 3 Jun 2007 08:08:22 +1000
From: Martien verbruggen <mgjv@tradingpost.com.au>
Subject: Re: stumped by graphics display problem...
Message-Id: <slrnf63qim.nu3.mgjv@martien.heliotrope.home>
On Thu, 31 May 2007 18:09:38 +0000 (UTC),
kj <socyl@987jk.com.invalid> wrote:
> In <oOD7i.11968$296.7986@newsread4.news.pas.earthlink.net> "Mumia W." <paduille.4061.mumia.w+nospam@earthlink.net> writes:
>
>>On 05/31/2007 08:53 AM, kj wrote:
>>> [...]
>>> open my $IMG, '|-', 'display';
>>> print $IMG $gd->png;
>>>
>>> # display won't happen without this line!
>>> close $IMG;
>>>
>>> ### script stalls before executing the next line
>>>
>>> print "Press any key to continue... ";
>>> ReadMode 'cbreak';
>>> ReadKey( 0 );
>>> ReadMode 'normal';
>>> print "\n";
>>> }
>>> [...]
>
>>The method used to remotely display X programs is different from the
>>method used to remotely display console programs, and Term::ReadKey
>>doesn't have internal support for remote displays.
>
>>Trying to mix console type user-interaction with graphical
>>user-interaction will confound you. It's best just to make your program
>>fully graphical with one of the toolkits available: Gtk, Perl-Tk, etc.
>
> There's no shortage of fully graphical programs for viewing PNG
> files, but what I need is a viewer that I can control *entirely*
> from the keyboard. Are you saying that this would be too difficult
> to program?
You could always use the Image::Magick module in a child process and
control that child from the parent via a pipe, or signals if control is
simple enough.
The Image::Magick module can do pretty much everything the command line
tools can do as well.
Of course, you can also fork and exec a child for the display command
line program, and then control that with a signal.
Martien
--
|
Martien Verbruggen | If it isn't broken, it doesn't have enough
| features yet.
|
------------------------------
Date: Sun, 03 Jun 2007 00:19:02 -0000
From: geot <george.titus@gmail.com>
Subject: urgent:reading 2 files into 2 different $ variables
Message-Id: <1180829942.319471.131140@m36g2000hse.googlegroups.com>
hi
i have intermediate knowledge in perl pls help me its urgent.
i have html file containing 2 parts
1 . javascript code
2 html table.
now i am asked to search all html files in the foldr to see whether
this 2 parts are found in the html files found in the folder if they
are found the replace it with null string.
i splited the first html file in to 2 one containing jscript.txt file
which contains the javascript and other file is table.txt which
contains the table. i read both files into 2 scalar variables. so i
have $jscript which contain jscript.txt and $table which contains
table.txt.
now i opened a third file (html ) into a scalar and tried to match
whether that file contains
$jscript & $table.
sub file_open {
my $name =shift;
local(undef $/);
open(FILE,"<$name");
my $content = <FILE>;
close(FILE);
return $content;
}
my $match_content = &file_open($match_file);
$match_content =~s/\b$jscript\b//gi;
$match_content =~s/$table//gi;
but its not working .
pls help...........
------------------------------
Date: Sat, 02 Jun 2007 22:31:58 -0400
From: Bob Walton <see.sig@rochester.rr.com>
Subject: Re: urgent:reading 2 files into 2 different $ variables
Message-Id: <4662281f$0$16679$4c368faf@roadrunner.com>
geot wrote:
...
> i have html file containing 2 parts
>
> 1 . javascript code
> 2 html table.
>
> now i am asked to search all html files in the foldr to see whether
> this 2 parts are found in the html files found in the folder if they
> are found the replace it with null string.
>
> i splited the first html file in to 2 one containing jscript.txt file
> which contains the javascript and other file is table.txt which
> contains the table. i read both files into 2 scalar variables. so i
> have $jscript which contain jscript.txt and $table which contains
> table.txt.
>
> now i opened a third file (html ) into a scalar and tried to match
> whether that file contains
> $jscript & $table.
Um, I assume you are counting on the Javascript and HTML table entries
remaining bit-for-bit the same in all your files, right? The problem
with this approach is that the Javascript and HTML table strings almost
certainly contain regular expression meta-characters. Those characters
need to be quoted so they don't have their meta-meanings, but are
considered as ordinary characters to be matched. This can be done with
the \Q and \E (note case) regular expression atoms, as in:
if($match_content=~s/\Q$jscript\E//){
#code to run if $javascript is present
}
Note that the g and i modifiers you show are probably not needed if the
text is verbatim and not repeated, which seems likely.
Alternatively you can use the quotemeta() function to add appropriate
quoting to your character strings. See:
perldoc -f quotemeta
Also, your post contains a red flag for responders -- the statement
"it's not working". This is next to meaningless, and we can't read your
mind. Please give copy/pasted error messages the are generated, and
state precisely what it is that your program is not doing that you think
it should do, or what it is doing that you think it should not do. Also
state why you think it should behave differently than it is.
For best results, include a short but complete Perl program that anyone
can copy/paste/run that demonstrates the problem you are having.
>
> sub file_open {
>
> my $name =shift;
> local(undef $/);
> open(FILE,"<$name");
> my $content = <FILE>;
> close(FILE);
> return $content;
> }
>
>
> my $match_content = &file_open($match_file);
> $match_content =~s/\b$jscript\b//gi;
> $match_content =~s/$table//gi;
>
> but its not working .
...
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
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 480
**************************************
