[29072] in Perl-Users-Digest
Perl-Users Digest, Issue: 316 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Apr 8 09:09:47 2007
Date: Sun, 8 Apr 2007 06:09:05 -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, 8 Apr 2007 Volume: 11 Number: 316
Today's topics:
Dynamically call built-in functions <balrog2000@o2.pl>
Re: Dynamically call built-in functions <someone@example.com>
Re: How to transparently download multiple files? <edMbj@aes-intl.com>
Re: How to transparently download multiple files? <edMbj@aes-intl.com>
Re: Internalisation support and dictionaries (Broke)
new CPAN modules on Sun Apr 8 2007 (Randal Schwartz)
Parallel::Pvm and Inline C <ilpavox@gmail.com>
perl DB (pgsql)I: problems searching text strings with <filippo2991@virgilio.it>
Re: perl DB (pgsql)I: problems searching text strings w <filippo2991@virgilio.it>
Re: perl DB (pgsql)I: problems searching text strings w <spamtrap@dot-app.org>
Re: Perl Developers Kit (Zip or Cab) <astewart1@cox.net>
Re: Should be a simple parsing problem <tbbooher@gmail.com>
Re: Should be a simple parsing problem <m@rtij.nl.invlalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 08 Apr 2007 00:40:45 +0200
From: Tomek <balrog2000@o2.pl>
Subject: Dynamically call built-in functions
Message-Id: <op.tqfql7q7bdw0a5@balrog>
Hello!
I am having I suppose basic problem, however couldn't Google it :(
What I want to do is to format variable depending on the need.
E.g.
my @formats = qw(uc uc_first lc lc_first);
my $str = 'My name is tom';
for my $fun_name (@formats) {
my $result = &$fun_name($str);
print $result."\n";
}
I would like it to print:
1. CAPITALIZED ALL
2. Capitalized first
3. lowercased all
4. lowercased first.
However, I am getting:
Undefined subroutine &Resources::Words::uc called at Resources/Words.pm
line 60.
Please send me to appropiate FAQ if it has been already disputed here...
Best regards, T. Kraus
------------------------------
Date: Sat, 07 Apr 2007 23:42:42 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Dynamically call built-in functions
Message-Id: <S%VRh.6419$hO2.3643@edtnps82>
Tomek wrote:
>
> I am having I suppose basic problem, however couldn't Google it :(
>
> What I want to do is to format variable depending on the need.
>
> E.g.
>
> my @formats = qw(uc uc_first lc lc_first);
> my $str = 'My name is tom';
> for my $fun_name (@formats) {
> my $result = &$fun_name($str);
> print $result."\n";
> }
my @formats = (
sub { uc $_[0] },
sub { ucfirst $_[0] },
sub { lc $_[0] },
sub { lcfirst $_[0] },
);
my $str = 'My name is tom';
for my $fun_name ( @formats ) {
my $result = $fun_name->( $str );
print "$result\n";
}
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: Sat, 07 Apr 2007 13:35:45 -0700
From: Ed Jay <edMbj@aes-intl.com>
Subject: Re: How to transparently download multiple files?
Message-Id: <i40g1353fflv4qijod61ni9v9qqhrmsn4k@4ax.com>
Purl Gurl scribed:
>Ed Jay wrote:
>
>> I have 'n' files, sequentially numbered, on my server. I wish to download
>> the files without operator intervention to a local folder of my choice.
>
>Use the LWP module for this operation.
>
>Stein's CGI.pm is not your best choice for this operation.
>
>
>> Issue first is that it asks me whether to open/save. I want the script to
>> automatically either save or open without asking.
>
>This is a result of the content type you are using in your script.
>
>
>> Issue second is that while the below script indeed downloads all the files,
>> it downloads them as a single file with the identity of filename0. IOW, all
>> three files are contained within filename0.
>
>This is expected. You are opening and printing three files. Upon flushing
>your print via CGI, all three files are printed as one. You cannot print
>three separate files to a single browser instance, even if a download print.
>
>You are also printing your content type, three times.
>
>A lack of "binmode" for your open and your print _might_ create issues
>even if you only open and print a single file.
>
>
>> my $imgCnt = 3;
>
>You never use this variable.
>
>
>What you are trying to perform is simply impossible. You cannot send three
>"downloads" to a browser in a single httpd transaction. What you are doing
>is sending three files, combined as one. Even if you download and save,
>this file will be corrupted and impossible to open for viewing.
>
>Research and learn about the LWP module. This LWP will perform precisely
>your task, with no intervention needed on your part. You only need to
>invoke your script through a browser, print some message to yourself,
>then LWP will fetch files and store files for you, in the background.
>
>You can also invoke your LWP script from a command line; no browser
>is needed for this task of yours. If you do not have command line
>access, maybe your site is hosted on a server, then use a browser
>to access and invoke your cgi based script.
>
>http://www.perlmonks.org/?node_id=18565
>
>http://search.cpan.org/dist/libwww-perl/bin/lwp-download
>
>http://perl.active-venture.com/lib/LWP/Simple.html
>
>
>The "Image-Grab" module might prove even better for your task.
>This module is dedicated specifically to your task,
>
>http://mah.everybody.org/hacks/perl/Image-Grab/
>
>----
>
>Here is a simple example cgi script which will allow you to download
>your images and look at your images, in one shot. You only need
>to decide if to use LWP, LWP::Simple or Image-Grab, maybe some
>other technique you learn about during your research.
>
>
>#!perl
>
># here you invoke a module, LWP, Image-Grab, whatever
># coding examples are all over the web for you to use
># you can add a "success" print to your html output
>
>print "Content-type: text/html\n\n";
>print "<HTML>";
>
># change $imgPath to your server location:
>
>$imgPath = "http://localhost/~test/";
>$imgCode = 'Threeimages040407';
>
>for (my $i = 0; $i < 3; $i++)
> {
> $imgName = $imgPath.$imgCode.$i.'.jpg';
> print "<img src = \"$imgName\"><BR>";
> }
>
># if download by a module is successful you
># could print a "success" message here
>
>if ($return eq "success")
> { print "<BR><H2> Download Successful </H2>"; }
>else
> { print "<BR><H2> FUBAR! </H2>"; }
>
>print "</HTML>";
>
Thank you very much.
--
Ed Jay (remove 'M' to respond by email)
------------------------------
Date: Sat, 07 Apr 2007 13:36:46 -0700
From: Ed Jay <edMbj@aes-intl.com>
Subject: Re: How to transparently download multiple files?
Message-Id: <550g139gegg0rodk681nd3i1h5rjlimo9a@4ax.com>
Jürgen Exner scribed:
>Ed Jay wrote:
>> I have 'n' files, sequentially numbered, on my server.
>
>WAIS? FTP? HTTP? GOPHER? NFS? ...
>
>> I wish to
>> download the files without operator intervention to a local folder of
>> my choice.
>
>If you are talking about HTTP then one of the LWP modules will help you as
>suggested in the FAQ "How do I fetch an HTML file?"
>
>> I've tried the following script, but it has a couple of issues.
>>
>> Issue first is that it asks me whether to open/save. I want the
>> script to automatically either save or open without asking.
>
>No, your script does nothing of that sort. It is the client side web browser
>that is asking the person who surfs the web.
>> Issue second is that while the below script indeed downloads all the
>> files, it downloads them as a single file with the identity of
>> filename0. IOW, all three files are contained within filename0.
>
>Your script generates something that it returns to the web server and it
>claims it is the proper HTTP response to whatever HTTP request the server
>had.
>You may want to check the HTTP protocol to find out if and how to include
>multiple files in a single HTTP response. If that is not possible, then
>maybe use a protocol that was designed to transfer files rather than
>hypertext.
>
>BTW: I would call it a MAJOR security hole if some odd web site would be
>able to
><quote>
>download the files without operator intervention to a local folder of my
>choice.
></quote>
>It sounds like an awfully bad idea to me.
>
In general, it would be. My clients upload files to my server and I, only I,
have access to those files.
Thanks for your input.
--
Ed Jay (remove 'M' to respond by email)
------------------------------
Date: Sun, 8 Apr 2007 05:27:02 +0200
From: nospam@tele2.fr (Broke)
Subject: Re: Internalisation support and dictionaries
Message-Id: <1hw8k3b.m5z2161jwlunlN%nospam@tele2.fr>
Mumia W. <paduille.4060.mumia.w+nospam@earthlink.net> wrote:
SUPER !!!!
It is exactly this that I needed !!
My friend I am extremely glad !
It works !!!
All my problems are solved thanks to YOU !!!
:^-)
Many Many Many Many Many Many thanks to you !!
--
B.
> On 04/03/2007 02:16 AM, Broke wrote:
> > Hello,
> >
> > I am a beginner so please be indulgent.
> > I wanted to make a sort of dictionary given a text french file.
> > So I wrote the following script.
> > Everything is OK but the ordered list comes in US ASCII encoding.
> > How to make it work for accented letters?
> > Any help will be appreciated.
> > Here is my humble script.
> > =======
> > #!/usr/bin/perl -w
> > use warnings;
> > local $/;
> > use locale;
> > use utf8;
> > $file = '/Users/Broke/Desktop/data.txt';
> > open (IN, $file) or die "$file not found\n : $!\n";
> > [...]
>
> You can set an encoding for the 'open' command:
>
> open (IN, '<:utf8', $file) or die (...
>
> Read about the 'open' command and Perl:
>
> Start->Run->"perldoc -f open"
> Start->Run->"perldoc perl"
------------------------------
Date: Sun, 8 Apr 2007 04:42:14 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sun Apr 8 2007
Message-Id: <JG5x2E.1v8z@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.
Acme-BottomsUp-0.02
http://search.cpan.org/~davidrw/Acme-BottomsUp-0.02/
Write individual statements backwards
----
Acme-Echo-0.02
http://search.cpan.org/~davidrw/Acme-Echo-0.02/
Display perl statements before, after, and/or during execution
----
Algorithm-Partition-0.01
http://search.cpan.org/~dmitri/Algorithm-Partition-0.01/
Partition a set of integers.
----
Apache-GeoIP-1.63
http://search.cpan.org/~rkobes/Apache-GeoIP-1.63/
Look up country by IP Address
----
App-Addex-0.002
http://search.cpan.org/~rjbs/App-Addex-0.002/
generate mail tool configuration from an address book
----
App-Addex-AddressBook-Apple-0.002
http://search.cpan.org/~rjbs/App-Addex-AddressBook-Apple-0.002/
----
CPAN-1.90
http://search.cpan.org/~andk/CPAN-1.90/
query, download and build perl modules from CPAN sites
----
Catalyst-Plugin-Email-Japanese-0.07
http://search.cpan.org/~typester/Catalyst-Plugin-Email-Japanese-0.07/
Send Japanese emails with Catalyst
----
Catalyst-Plugin-FormValidator-Simple-Auto-0.13
http://search.cpan.org/~typester/Catalyst-Plugin-FormValidator-Simple-Auto-0.13/
Smart validation with FormValidator::Simple
----
Catalyst-Plugin-FormValidator-Simple-Auto-0.14
http://search.cpan.org/~typester/Catalyst-Plugin-FormValidator-Simple-Auto-0.14/
Smart validation with FormValidator::Simple
----
Catalyst-View-Template-Declare-0.00_01
http://search.cpan.org/~jrockway/Catalyst-View-Template-Declare-0.00_01/
Use Template::Declare with Catalyst
----
Catalyst-View-Template-Declare-0.00_02
http://search.cpan.org/~jrockway/Catalyst-View-Template-Declare-0.00_02/
Use Template::Declare with Catalyst
----
Catalyst-View-Template-Declare-0.00_03
http://search.cpan.org/~jrockway/Catalyst-View-Template-Declare-0.00_03/
Use Template::Declare with Catalyst
----
Chemistry-File-InternalCoords-0.03
http://search.cpan.org/~davidrw/Chemistry-File-InternalCoords-0.03/
Internal coordinates (z-matrix) molecule format reader/writer
----
Chess-Coverage-0.00_2
http://search.cpan.org/~gene/Chess-Coverage-0.00_2/
Visualize the potential energy between chess moves
----
Chess-Coverage-0.00_3
http://search.cpan.org/~gene/Chess-Coverage-0.00_3/
Visualize the potential energy between chess moves
----
Config-Auto-0.20
http://search.cpan.org/~kane/Config-Auto-0.20/
Magical config file parser
----
DBIx-MoCo-0.11
http://search.cpan.org/~jkondo/DBIx-MoCo-0.11/
Light & Fast Model Component
----
DBIx-Simple-1.30
http://search.cpan.org/~juerd/DBIx-Simple-1.30/
Easy-to-use OO interface to DBI
----
Devel-FastProf-0.06
http://search.cpan.org/~salva/Devel-FastProf-0.06/
"fast" perl per-line profiler
----
Document-Tools-0.10
http://search.cpan.org/~ingy/Document-Tools-0.10/
Parsing and Emitting Tools for Text Documents
----
Form-Processor-0.04
http://search.cpan.org/~hank/Form-Processor-0.04/
validate and process form data
----
GPS-Point-0.04
http://search.cpan.org/~mrdvt/GPS-Point-0.04/
Provides an object interface for a GPS point.
----
GPS-Point-0.05
http://search.cpan.org/~mrdvt/GPS-Point-0.05/
Provides an object interface for a GPS point.
----
Geo-Inverse-0.05
http://search.cpan.org/~mrdvt/Geo-Inverse-0.05/
Calculate geographic distance from a lat & lon pair.
----
Gungho-0.01
http://search.cpan.org/~dmaki/Gungho-0.01/
Yet Another High Performance Web Crawler Framework
----
Hash-Merge-0.09
http://search.cpan.org/~dmuey/Hash-Merge-0.09/
Merges arbitrarily deep hashes into a single hash
----
IO-All-0.37
http://search.cpan.org/~ingy/IO-All-0.37/
IO::All of it to Graham and Damian!
----
Image-DecodeQR-0.01
http://search.cpan.org/~jiro/Image-DecodeQR-0.01/
decode QRCode (using libdecodeqr)
----
Lingua-EN-Fathom-1.10
http://search.cpan.org/~kimryan/Lingua-EN-Fathom-1.10/
Measure readability of English text
----
Mac-MissileLauncher-0.01
http://search.cpan.org/~yappo/Mac-MissileLauncher-0.01/
interface to toy USB missile launchers for Mac
----
Mac-PropertyList-SAX-0.60
http://search.cpan.org/~kulp/Mac-PropertyList-SAX-0.60/
work with Mac plists at a low level, fast
----
Mac-PropertyList-SAX-0.61
http://search.cpan.org/~kulp/Mac-PropertyList-SAX-0.61/
work with Mac plists at a low level, fast
----
Math-Cephes-0.44
http://search.cpan.org/~rkobes/Math-Cephes-0.44/
perl interface to the cephes math library
----
Module-Make-0.01
http://search.cpan.org/~ingy/Module-Make-0.01/
The New Way To make Modules
----
Module-Pluggable-3.6
http://search.cpan.org/~simonw/Module-Pluggable-3.6/
automatically give your module the ability to have plugins
----
Net-Server-Mail-0.15
http://search.cpan.org/~guimard/Net-Server-Mail-0.15/
Class to easily create a mail server
----
RTx-Calendar-0.02
http://search.cpan.org/~nchuche/RTx-Calendar-0.02/
Calendar for RT
----
Set-Groups-0.1
http://search.cpan.org/~jacquelin/Set-Groups-0.1/
A set of groups.
----
Set-Groups-0.2
http://search.cpan.org/~jacquelin/Set-Groups-0.2/
A set of groups.
----
Sort-Key-1.28
http://search.cpan.org/~salva/Sort-Key-1.28/
the fastest way to sort anything in Perl
----
Sub-ArgShortcut-1.01
http://search.cpan.org/~aristotle/Sub-ArgShortcut-1.01/
simplify writing functions that use default arguments
----
Text-Patch-1.3
http://search.cpan.org/~cade/Text-Patch-1.3/
Patches text with given patch
----
Text-vFile-toXML-0.03
http://search.cpan.org/~kulp/Text-vFile-toXML-0.03/
Convert vFiles into equivalent XML
----
WWW-Ebay-0.081
http://search.cpan.org/~mthurn/WWW-Ebay-0.081/
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: 7 Apr 2007 22:18:13 -0700
From: "ilp" <ilpavox@gmail.com>
Subject: Parallel::Pvm and Inline C
Message-Id: <1176009492.986524.219550@n76g2000hsh.googlegroups.com>
Has anyone gotten inline C to work with Parallel::Pvm. It seems to
choke on the "use Inline C;" statement. Thank.
------------------------------
Date: 7 Apr 2007 16:30:56 -0700
From: "Filippo" <filippo2991@virgilio.it>
Subject: perl DB (pgsql)I: problems searching text strings with ' symbol (es d'ambrose)
Message-Id: <1175988656.119640.219780@w1g2000hsg.googlegroups.com>
hello,
if I try to SQL SELECT LIKE for a string containing single quote:
my $name =3D $dbh->quote(qq/d'ambr%/);
SELECT name FROM mytable WHERE name LIKE $name
I get this error
DBD::PgPP::st execute failed: Unknown message type: '=AD' at C:/Perl/
site/lib/DBD/
PgPP.pm line 730
I have no problems inserting text
How can I solve it?
p=2Es.
I really need LIKE and %
------------------------------
Date: 7 Apr 2007 17:54:37 -0700
From: "Filippo" <filippo2991@virgilio.it>
Subject: Re: perl DB (pgsql)I: problems searching text strings with ' symbol (es d'ambrose)
Message-Id: <1175993677.719990.114850@n59g2000hsh.googlegroups.com>
On 8 Apr, 01:30, "Filippo" <filippo2...@virgilio.it> wrote:
(snip)
solved, it is a DBD::PgPP bug. I changed to DBD::Pg, now it works fine.
------------------------------
Date: Sat, 07 Apr 2007 21:36:28 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: perl DB (pgsql)I: problems searching text strings with ' symbol (es d'ambrose)
Message-Id: <m27isnejfn.fsf@local.wv-www.com>
"Filippo" <filippo2991@virgilio.it> writes:
> hello,
>
> if I try to SQL SELECT LIKE for a string containing single quote:
>
> my $name = $dbh->quote(qq/d'ambr%/);
> SELECT name FROM mytable WHERE name LIKE $name
Don't use string interpolation - use placeholders instead. Not only will
that automatically handle escaping the value of $name as needed, it will
also guard against "code injection" security attacks.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Sat, 07 Apr 2007 13:09:50 -0700
From: Alan Stewart <astewart1@cox.net>
Subject: Re: Perl Developers Kit (Zip or Cab)
Message-Id: <aduf131np9eq15vhjjmq47bhe66o916umk@4ax.com>
On Sat, 7 Apr 2007 11:28:00 -0400, "Jim Carlock" <anonymous@127.0.0.1>
wrote:
>I'm looking for Zip or Cab files (not MSI). Do such exist?
>
>Or is there a way to extract the contents of the MSI to a folder
>without installing?
>
>Thanks.
You can selective extract an MSI with "Less MSIérables".
http://blogs.pingpoet.com/overflow/pubfiles/Lessmsierables-20050611.zip
Alan
------------------------------
Date: 7 Apr 2007 19:27:38 -0700
From: "Tim" <tbbooher@gmail.com>
Subject: Re: Should be a simple parsing problem
Message-Id: <1175999258.791934.236820@p77g2000hsh.googlegroups.com>
On Apr 7, 9:21 am, Martijn Lievaart <m...@rtij.nl.invlalid> wrote:
> On Sat, 07 Apr 2007 04:21:22 -0700, Tim wrote:
> > Hello all, I am trying to get a simple Perl script working to transform
> > some data, but have an incredibly onerous solution that looks more like
> > visual basic than perl using lots of conditional statements, while loops
> > and the shift function. Something inside doesn't feel right about that,
> > plus I think I am missing out on expanding my limited Perl knowledge.
>
> > My data is in the general form:
> > _________________________
> > TEXT {
> > title: test
> > font: script
> > }
>
> > POLYGON {
> > name: foo
> > type: good
> > POINTS 3 {
> > 4,3
> > 2,16
> > 633,2
> > }
> > }
>
> > JUNK {
> > title: nothing
> > }
>
> > POLYGON {
> > name: foo2
> > type: bad
> > POINTS 2 {
> > 7,9
> > 3,2
> > }
>
> > }
>
> > Now I want to extract the points where the polygon type is 'good' so my
> > output would be:
> > 4,3
> > 2,16
> > 633,2
>
> > I can get Text::Balanced to work on a single line, but don't know how to
> > elegantly parse down to the fields I need. Any thoughts would be greatly
> > appreciated. Not committed to Text::Balanced, but it seems like it
> > should work.
>
> OTTOMH:
>
> while (<>) {
> /^POLYGON\s+{/ and do {
> while (<>) {
> /\stype:\sgood\s*$/ {
> //handle point here in the same way
> /^}\s*$/ and last;
> }
> /^}\s*$/ and last;
> }
> }
>
> }
>
> This obviously assumes your input is always formatted in the same way, is
> always correct and type: comes before the POINT.
>
> HTH
> M4
This is great, and very instructive. Thank you so much, so what I
wasn't understanding is how you can nest while(<>) statements. I have
to think a bit more about what is really going on there, but this is
what I was looking for: code that works more in line with how I think
instead of going line-by line and doing careful book-keeping. I also
need to look up the 'and last' statement and see what that is doing.
Thanks again.
Tim
------------------------------
Date: Sun, 8 Apr 2007 10:07:03 +0200
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: Should be a simple parsing problem
Message-Id: <pan.2007.04.08.08.07.19@rtij.nl.invlalid>
On Sat, 07 Apr 2007 19:27:38 -0700, Tim wrote:
> This is great, and very instructive. Thank you so much, so what I wasn't
> understanding is how you can nest while(<>) statements. I have to think
> a bit more about what is really going on there, but this is what I was
> looking for: code that works more in line with how I think instead of
> going line-by line and doing careful book-keeping. I also need to look
> up the 'and last' statement and see what that is doing. Thanks again.
I like Tads solution much better, but fwiw:
- Yes you can nest while (<>) like this. Normally it is more trouble than
it's worth, but in this case it is appropriate. Just remember that you
are reading the same file with the same filepointer so if you get to
another while (<>) (or back to) that reads on where the last one left of.
- The "<condition> and last;" construct is another way of saying "if
(<condition>) { last; }",, only shorter. Often seen like this:
# parse config file
while (<$fh>) {
/^\s*$/ and continue; # skip empty lines
/^\s*#/ and continue; # skip comments
....
}
HTH,
M4
------------------------------
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 316
**************************************
