[29809] in Perl-Users-Digest
Perl-Users Digest, Issue: 1052 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Nov 23 03:10:14 2007
Date: Fri, 23 Nov 2007 00:09:07 -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, 23 Nov 2007 Volume: 11 Number: 1052
Today's topics:
Re: A little help on perl hashes.. <uri@stemsystems.com>
Re: A little help on perl hashes.. <zen13097@zen.co.uk>
Re: How to clean up this ugly code? <ben@morrow.me.uk>
Re: How to get the string Cartesian Products of 2 list <ben@morrow.me.uk>
Re: How to get the string Cartesian Products of 2 list xueweizhong@gmail.com
Re: How to get the string Cartesian Products of 2 list xueweizhong@gmail.com
Re: How to get the string Cartesian Products of 2 list xueweizhong@gmail.com
Re: interesting case of data corruption, and its cause <uri@stemsystems.com>
Re: is there any command for catch in tcl in perl vikram.varshney@gmail.com
new CPAN modules on Fri Nov 23 2007 (Randal Schwartz)
packaging apps as a distributable exe aardvarkman@gmail.com
Re: packaging apps as a distributable exe AstrAir@gmail.com
Re: Script to disconnect Linksys WRT54G wireless router <bumens@dingens.org>
Re: Script to disconnect Linksys WRT54G wireless router <ben@morrow.me.uk>
Re: Script to disconnect Linksys WRT54G wireless router <notachance@hangspammers.com>
SvUOK always fails on 64bit platform <u8526505@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 23 Nov 2007 05:32:50 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: A little help on perl hashes..
Message-Id: <x73auxr0fx.fsf@mail.sysarch.com>
>>>>> "c" == clearguy02 <clearguy02@yahoo.com> writes:
>> > I am still looking our the help.. Can some kindly take a look at it?
>>
>> Being a pain doesn't often lead to useful help on Usenet. Responding to
>> your own post after 12 hours simply to ask again and quoting Google's
>> rubbish both count as being a pain, especially when you've been warned
>> you're being rude.
c> When I was asked to post my code, I did it.. If you don't want to
c> help.. pl. kindly stay away. Pl. understand that I am stuck with an
c> issue and that I am not fooling around here. I have clearly told what
c> the issue is, what I have done and I am seeking out for some help
c> here.
did you pay for your service here? since you didn't you don't have a
right to expect anything from usenet. you just post code and ask for
help and shut up about it. this is a place to discuss perl issues and if
your code or problem interests anyone they will reply. your attitude has
already lost you several possible repliers including me. not much more
to say.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: 23 Nov 2007 07:59:12 GMT
From: Dave Weaver <zen13097@zen.co.uk>
Subject: Re: A little help on perl hashes..
Message-Id: <47468850$0$13929$fa0fcedb@news.zen.co.uk>
On Thu, 22 Nov 2007 15:18:00 -0800 (PST),
clearguy02@yahoo.com <clearguy02@yahoo.com> wrote:
> >
> > Being a pain doesn't often lead to useful help on Usenet. Responding to
> > your own post after 12 hours simply to ask again and quoting Google's
> > rubbish both count as being a pain, especially when you've been warned
> > you're being rude.
> When I was asked to post my code, I did it.. If you don't want to
> help.. pl. kindly stay away. Pl. understand that I am stuck with an
> issue and that I am not fooling around here. I have clearly told what
> the issue is, what I have done and I am seeking out for some help
> here.
Some important things you should know:
* read the posting guidlines that are posted here regularly. They
will show you how best to post your question in order to get the
best answers. One of the suggestions here is to post a *complete*
yet *short* peice of code that demonstrates your problem, that
other people can run. Complete with a sample of input data, and
the expected output.
* asking one of the most knowledgable and helpful regulars here to
"kindly stay away" is not the best way to get quality answers.
* I missed the first post in this thread, and since then *nothing*
you wrote has explained the problem you have.
* Usenet isn't an instant-response medium. This newsgroup is read
by people all across the world, so replying to your own post
pestering people to please take a look (for the umpteenth time)
is only going to annoy people, and once again you have reduced
your chances of a helpful answer. Be patient.
------------------------------
Date: Fri, 23 Nov 2007 02:36:29 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: How to clean up this ugly code?
Message-Id: <duqh15-ik91.ln1@osiris.mauzo.dyndns.org>
Quoth "blaine@worldweb.com" <blaine@worldweb.com>:
>
> I have this ugly code below that I would like to get rid of everything
> in the switch statement. My preference would be to have something
> simple that just takes and id and calls that sub routine number.
>
> I suppose I could use and eval like
> eval( "\$self->DisplayPage$subpage_id");
>
> but was wondering if someone can think of something better, as then if
> there is an error it's trapped in eval..
>
> Code I'd like to clean is below...
>
> SWITCH: for ($subpage_id)
> {
> if (/^1$/) {$self->DisplayPage; last SWITCH;}
> elsif (/^2$/) {$self->DisplayPage2; last SWITCH;}
As has already been pointed out, you can use a variable as a method
name under 'use strict'. However, the first question is why you have
these methods at all. It would be much better to have one method
->DisplayPage that took the page number as a parameter. If the pages
really benefit from being in separate subs then you can do something
like
sub DisplayPage {
my $page = shift;
(
sub {
# page 1
},
sub {
# page 2
},
)[$page - 1]->(@_);
}
Ben
------------------------------
Date: Fri, 23 Nov 2007 02:45:40 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: How to get the string Cartesian Products of 2 list
Message-Id: <kfrh15-ik91.ln1@osiris.mauzo.dyndns.org>
Quoth xueweizhong@gmail.com:
> Give 2 string list such as: a..b and 1..3, i want to get a list which
> is (a1, a2, a3, b1, b2, b3). Is there an elegant way in perl to
> fullfill this withou using loop BLOCK? Or Is there a elegant one line
> expression to get this?
I don't know whether you count this as using a loop (it does, of course,
underneath; but you can't possibly avoid that at some level)
use List::MoreUtils qw/pairwise/;
my @letters = (a..b);
my @numbers = (1..3);
print for pairwise { "$a$b" } @letters, @numbers;
You have to put the lists into arrays so Perl can tell which items
belong to which list.
Ben
------------------------------
Date: Thu, 22 Nov 2007 19:22:57 -0800 (PST)
From: xueweizhong@gmail.com
Subject: Re: How to get the string Cartesian Products of 2 list
Message-Id: <ce60f8d8-0d75-43cb-b64c-b72e43a5b865@i29g2000prf.googlegroups.com>
Hi Ben,
> use List::MoreUtils qw/pairwise/;
>
> my @letters = (a..b);
> my @numbers = (1..3);
>
> print for pairwise { "$a$b" } @letters, @numbers;
It's cool, but seems too long, also List::MoreUtils is not standard
distribution
Also i find this URL for adding this into the core language:
http://www.nntp.perl.org/group/perl.perl6.language.data/2000/09/msg462.html
------------------------------
Date: Thu, 22 Nov 2007 19:30:03 -0800 (PST)
From: xueweizhong@gmail.com
Subject: Re: How to get the string Cartesian Products of 2 list
Message-Id: <fb05ec07-16e9-4be2-bdd8-c1a0aca1767c@s6g2000prc.googlegroups.com>
> http://www.nntp.perl.org/group/perl.perl6.language.data/2000/09/msg462.html
I thought it should be
http://www.nntp.perl.org/group/perl.perl6.language.data/2000/09/msg437.html
------------------------------
Date: Thu, 22 Nov 2007 21:40:06 -0800 (PST)
From: xueweizhong@gmail.com
Subject: Re: How to get the string Cartesian Products of 2 list
Message-Id: <073932eb-ca15-4178-badc-99fbbacbe392@b40g2000prf.googlegroups.com>
Finally i got this one on bash3.0:
print qx'bash -c "echo {1..3}{a..c}"'
Perl is the glue language and there are more than one way to do it:-)
------------------------------
Date: Fri, 23 Nov 2007 03:37:53 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: interesting case of data corruption, and its cause
Message-Id: <x77ik9r5ri.fsf@mail.sysarch.com>
>>>>> "MD" == Michele Dondi <bik.mido@tiscalinet.it> writes:
MD> On Thu, 22 Nov 2007 16:30:25 GMT, Uri Guttman <uri@stemsystems.com>
MD> wrote:
>> this is also another reason not to use $_ unless you have to (map/grep,
>> etc.). in your i/o loops use lexical vars (never while(<FOO>) as it sets
>> $_).
MD> 5.10 is behind the corner...
even so, named variables are better for code maintaining than using $_ a
lot. i am not against using $_ but it needs to be used where it is an
advantage. one liners, map/grep and such. i have plans to add edit_file
and edit_file_lines subs to file::slurp and those will call a code ref
with text in $_ as shorter code there is better. using $_ in a basic
line loop is not a good use IMNSHO.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Thu, 22 Nov 2007 22:39:23 -0800 (PST)
From: vikram.varshney@gmail.com
Subject: Re: is there any command for catch in tcl in perl
Message-Id: <9cdf91ad-cf73-4853-b7bb-54eb34f83753@d4g2000prg.googlegroups.com>
On Nov 21, 8:18 pm, Glenn Jackman <gle...@ncf.ca> wrote:
> At 2007-11-21 09:54AM, "vikram.varsh...@gmail.com" wrote:
>
> > Hi
> > I amVikramVarshney. My script needs to catch whether a particular
> > command fails or passes. This could be done very easily in tcl using
> > "catch" which gives "1" output when the command fails and 0 as output
> > when the command runs successfully.
>
> perldoc -f eval
>
> If you're building some code dynamically into a string:
>
> eval "$some_code";
> if ($@) {
> # some error condition
> }
>
> Otherwise:
>
> eval { some(code()); };
> handle_error($@) if $@;
>
> > And what represents NULL character
> > in perl. I have tried "\0" & "NULL" & / / & ' ' . But they are not
> > working.
>
> In what context do you need a null?
> my $null = 0;
>
> > You can answer me at :vikram.varsh...@gmail.com
>
> Um, no.
>
> --
> Glenn Jackman
> "You can only be young once. But you can always be immature." -- Dave Barry
actully i need to search something from a big database. So , if
someone gives a wrong code then the output is blank (no space). I
needed "NULL" for that purpose. I tried "length($var ==0)" but its
very unstable and gives shaky results everytime.
------------------------------
Date: Fri, 23 Nov 2007 05:42:18 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Fri Nov 23 2007
Message-Id: <Jry2II.JH5@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-Locals-0.0.1
http://search.cpan.org/~asksh/Acme-Locals-0.0.1/
Interpolate like Python/Ruby.
----
Alzabo-0.92
http://search.cpan.org/~drolsky/Alzabo-0.92/
A data modelling tool and RDBMS-OO mapper
----
Catalyst-Controller-SOAP-0.1
http://search.cpan.org/~druoso/Catalyst-Controller-SOAP-0.1/
Catalyst SOAP Controller
----
Catalyst-View-Email-0.10
http://search.cpan.org/~abraxxa/Catalyst-View-Email-0.10/
Send Email from Catalyst
----
Class-Value-Net-0.03
http://search.cpan.org/~marcel/Class-Value-Net-0.03/
network-related value objects
----
Class-Value-URI-0.02
http://search.cpan.org/~marcel/Class-Value-URI-0.02/
Value classes for URIs
----
Data-Domain-Net-0.02
http://search.cpan.org/~marcel/Data-Domain-Net-0.02/
Data domain classes for IP addresses
----
Data-Domain-URI-0.02
http://search.cpan.org/~marcel/Data-Domain-URI-0.02/
Data domain classes for URIs
----
Data-Semantic-0.02
http://search.cpan.org/~marcel/Data-Semantic-0.02/
Common API for data with semantics attached to them
----
Data-Semantic-Net-0.02
http://search.cpan.org/~marcel/Data-Semantic-Net-0.02/
Semantic data classes for net-related data
----
Data-Semantic-URI-0.02
http://search.cpan.org/~marcel/Data-Semantic-URI-0.02/
Semantic data classes for URIs
----
DateTime-Calendar-WarwickUniversity-0.02
http://search.cpan.org/~diocles/DateTime-Calendar-WarwickUniversity-0.02/
Warwick University academic calendar
----
Devel-LeakTrace-Fast-0.10
http://search.cpan.org/~andya/Devel-LeakTrace-Fast-0.10/
indicate where leaked variables are coming from.
----
Devel-LeakTrace-Fast-0.11
http://search.cpan.org/~andya/Devel-LeakTrace-Fast-0.11/
indicate where leaked variables are coming from.
----
Devel-PerlySense-0.01_29
http://search.cpan.org/~johanl/Devel-PerlySense-0.01_29/
IntelliSense for Perl
----
Dist-Joseki-0.10
http://search.cpan.org/~marcel/Dist-Joseki-0.10/
tools for the prolific module author
----
EV-1.2
http://search.cpan.org/~mlehmann/EV-1.2/
perl interface to libev, a high performance full-featured event loop
----
Error-0.17010
http://search.cpan.org/~shlomif/Error-0.17010/
Error/exception handling in an OO-ish way
----
File-CachingFind-0.66
http://search.cpan.org/~dorner/File-CachingFind-0.66/
find files within cached search paths (e.g. include files)
----
File-Monitor-0.10
http://search.cpan.org/~andya/File-Monitor-0.10/
Monitor files and directories for changes.
----
File-Stata-DtaReader-0.2
http://search.cpan.org/~reckon/File-Stata-DtaReader-0.2/
read Stata 8 and Stata 10 .dta files
----
Font-TTF-0.43
http://search.cpan.org/~mhosken/Font-TTF-0.43/
Perl module for TrueType Font hacking
----
Font-TTF-Scripts-0.10
http://search.cpan.org/~mhosken/Font-TTF-Scripts-0.10/
Smart font script supporting modules and scripts for TTF/OTF
----
Font-TTF-Scripts-0.10.1
http://search.cpan.org/~mhosken/Font-TTF-Scripts-0.10.1/
Smart font script supporting modules and scripts for TTF/OTF
----
Fuse-PDF-0.05
http://search.cpan.org/~cdolan/Fuse-PDF-0.05/
Filesystem embedded in a PDF document
----
Geo-Lookup-ByTime-0.10
http://search.cpan.org/~andya/Geo-Lookup-ByTime-0.10/
Lookup location by time
----
IPC-Messaging-0.01_06
http://search.cpan.org/~gruber/IPC-Messaging-0.01_06/
process handling and message passing, Erlang style
----
IPC-Messaging-0.01_07
http://search.cpan.org/~gruber/IPC-Messaging-0.01_07/
process handling and message passing, Erlang style
----
IWL-0.52
http://search.cpan.org/~viktork/IWL-0.52/
A widget library for the web
----
Parse-Eyapp-1.092
http://search.cpan.org/~casiano/Parse-Eyapp-1.092/
Extensions for Parse::Yapp
----
Parse-Marpa-0.001_046
http://search.cpan.org/~jkegl/Parse-Marpa-0.001_046/
(pre-Alpha) Jay Earley's general parsing algorithm, with LR(0) precomputation
----
Perl-Dist-Vanilla-9
http://search.cpan.org/~adamk/Perl-Dist-Vanilla-9/
Vanilla Perl for win32
----
Perl-Metrics-Simple-0.034
http://search.cpan.org/~matisse/Perl-Metrics-Simple-0.034/
Count packages, subs, lines, etc. of many files.
----
SQLite-Archive-0.02
http://search.cpan.org/~adamk/SQLite-Archive-0.02/
Version-agnostic storage and manipulation of SQLite databases
----
String-LCSS_XS-0.3
http://search.cpan.org/~limaone/String-LCSS_XS-0.3/
Find The Longest Common Substring of Two Strings.
----
Test-CompanionClasses-0.03
http://search.cpan.org/~marcel/Test-CompanionClasses-0.03/
basic invocation of Test::CompanionClasses::Engine
----
Test-Dir-1.002
http://search.cpan.org/~mthurn/Test-Dir-1.002/
test directory attributes
----
Tripletail-0.38
http://search.cpan.org/~hio/Tripletail-0.38/
Tripletail, Framework for Japanese Web Application
----
Vim-Snippet-Converter-0.01
http://search.cpan.org/~cornelius/Vim-Snippet-Converter-0.01/
A Converter for Slippery Snippet Vim Plugin
----
Vim-Snippet-Converter-0.02
http://search.cpan.org/~cornelius/Vim-Snippet-Converter-0.02/
A Converter for Slippery Snippet Vim Plugin
----
Wx-Perl-Packager-0.11
http://search.cpan.org/~mdootson/Wx-Perl-Packager-0.11/
----
XML-Descent-0.10
http://search.cpan.org/~andya/XML-Descent-0.10/
Recursive descent XML parsing
----
XML-Descent-0.11
http://search.cpan.org/~andya/XML-Descent-0.11/
Recursive descent XML parsing
----
pler-0.31
http://search.cpan.org/~adamk/pler-0.31/
The DWIM Perl Debugger
----
prefork-1.02
http://search.cpan.org/~adamk/prefork-1.02/
Optimized module loading for forking or non-forking processes
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: Thu, 22 Nov 2007 20:58:18 -0800 (PST)
From: aardvarkman@gmail.com
Subject: packaging apps as a distributable exe
Message-Id: <347c70de-9177-49f0-8d07-9d5ac8fc1c6e@i12g2000prf.googlegroups.com>
HI,
This app looks surprisingly mature, but I never saw it before. Has
anyone used it to distribute a perl app as an exe?
TIA
------------------------------
Date: Thu, 22 Nov 2007 23:59:30 -0800 (PST)
From: AstrAir@gmail.com
Subject: Re: packaging apps as a distributable exe
Message-Id: <7c53e90c-54bc-4e99-a7ab-1b54638ee6c5@i12g2000prf.googlegroups.com>
On Nov 23, 5:58 am, aardvark...@gmail.com wrote:
> HI,
>
> This app looks surprisingly mature, but I never saw it before. Has
> anyone used it to distribute a perl app as an exe?
>
> TIA
What application are you talking about ?
------------------------------
Date: 23 Nov 2007 03:12:08 +0100
From: Volker Birk <bumens@dingens.org>
Subject: Re: Script to disconnect Linksys WRT54G wireless router on Windows
Message-Id: <474636f8@news.uni-ulm.de>
In comp.security.firewalls Wilson <davewilson69@sbcglobal.net> wrote:
> Keep in mind the Linksys WRT54G is one of the most common home routers on
> the planet and that Cisco/Linksys makes very many others that are similar
> and still - and still - even with all that going for it - nobody on the
> planet has yet found or ever posted in the history of the Internet a
> working perl script to press a button on the router. Any button. That isn't
> proof - but how would you expect anyone to believe it can be done if nobody
> has ever done it?
You're just so incompetent and ridiculous, that I'm believing, you not
only know really nothing about Perl and HTTPS, but you also even know
nothing about pressing buttons ;-)
BTW: to press Buttons "on the router" with Perl, maybe you need an extra
"module":
http://hackedgadgets.com/2006/08/31/lego-mindstorms-nxt/
SCNR,
VB.
--
The file name of an indirect node file is the string "iNode" immediately
followed by the link reference converted to decimal text, with no leading
zeroes. For example, an indirect node file with link reference 123 would
have the name "iNode123". - HFS Plus Volume Format, MacOS X
------------------------------
Date: Fri, 23 Nov 2007 02:40:00 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Script to disconnect Linksys WRT54G wireless router on Windows
Message-Id: <05rh15-ik91.ln1@osiris.mauzo.dyndns.org>
Quoth Wilson <davewilson69@sbcglobal.net>:
> On Fri, 23 Nov 2007 00:43:08 GMT, Wilson wrote:
>
> > The good news is I'm still the Internet for that as yet unknown method to
> > press a button on an https web page as I digest my holiday turkey. :)
>
> Oooooooops. I'm still *searching* the Internet for a method that works.
> So, I haven't given up; I've just concluded Perl isn't able to perform the
> three-step task of
> * going to a certain web page
> * logging into an https connection
> * press a particular button
Have you tried using http://www.research.att.com/sw/tools/wsp/? If the
web page served by the router is being too clever (and they *always*
seem to be) then this may help.
Ben
------------------------------
Date: Fri, 23 Nov 2007 04:23:59 -0000
From: tramp <notachance@hangspammers.com>
Subject: Re: Script to disconnect Linksys WRT54G wireless router on Windows
Message-Id: <13kclev471mgp6c@news.supernews.com>
On Fri, 23 Nov 2007 00:43:08 +0000, Wilson wrote:
> On Thu, 22 Nov 2007 08:27:27 -0500, Sherman Pendley wrote:
>> Perl - what makes you think that something is impossible simply because
>> *you* can't figure it out?
>
> I'd like to agree with you Sherman, but, it's pretty simple to prove my
> point. Nobody else has figured it out either.
You're in way over your head and nobody here owes it to you to solve your
programming problems. Since your biggest difficulty is lack of Perl
experience, you might try perl.beginners.
People there will be more likely to help if they can be sure this is
purely a Perl-programming problem. If you haven't done so already, get
the original reboot script working before making any modifications. That
will verify that Perl and its libraries are properly installed and
configured, that nothing in Windows networking (or maybe a local
firewall?) is keeping Perl from talking to the network, that the router
is reachable by Perl, that the username/password pair is working as
expected, and that Perl can successfully issue commands to the router.
Then if your script doesn't work, you know that the problem lies
somewhere in your modifications to the reboot script.
------------------------------
Date: Thu, 22 Nov 2007 23:57:56 -0800 (PST)
From: cyl <u8526505@gmail.com>
Subject: SvUOK always fails on 64bit platform
Message-Id: <6194303c-a628-48fa-9c95-39d4c1b58d98@p69g2000hsa.googlegroups.com>
I have a dll exporting a function for perl which accepts an unsigned
interger parameter. In the exported function I use SvUOK to check what
the returned values will be by supplying different values from perl
script. Here are what I get
32bit
(in perl) (SvUOK return value)
0 - 0x7fffffff false
0x80000000 - 0xffffffff true
64bit
(in perl) (SvUOK return value)
0-0xffffffff false
I'm wondering why there's such a difference on 32 and 64 bit platform.
My thought is if SvUOK returns true then the passed parameter should
be an unsigned interger but it is true only on 32 bit platform. Do I
misuse this macro? How should I correct it? Thanks.
------------------------------
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 1052
***************************************
