[23899] in Perl-Users-Digest
Perl-Users Digest, Issue: 6101 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Feb 9 18:05:42 2004
Date: Mon, 9 Feb 2004 15:05:09 -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 Mon, 9 Feb 2004 Volume: 10 Number: 6101
Today's topics:
Re: A Grep and a couple Awks <and a lot of Tassilo help (Agrapha)
Anyone using Berkley XML DB w/Perl (of course)...? <ceo@nospan.on.net>
Re: Anyone using Berkley XML DB w/Perl (of course)...? <vetro@online.no>
Re: Array size <dd-b@dd-b.net>
Re: Array size <uri@stemsystems.com>
Re: DBI::mysql column names as hash keys? <gnari@simnet.is>
Re: DBI::mysql column names as hash keys? <tadmc@augustmail.com>
Re: glob in perl <dd-b@dd-b.net>
Re: glob in perl <dd-b@dd-b.net>
Re: glob in perl <usenet@morrow.me.uk>
Include data in a perl program? <me@privacy.net>
Re: Include data in a perl program? <usenet@morrow.me.uk>
Re: Matching strings with index – getting extra m <gnari@simnet.is>
Re: Matching strings with index – getting extra m <tadmc@augustmail.com>
memory profiling <j.g.karssenberg@student.utwente.nl>
Re: Named parameters in method calls <gnari@simnet.is>
Re: NTP module <me@privacy.net>
Re: Pearl "Print Statement" Question (Information)
Re: Pearl "Print Statement" Question <gnari@simnet.is>
return status for nonexistent command run in backticks (Jeff)
Re: return status for nonexistent command run in backti <xx087@freenet.carleton.ca>
Spreadsheet::ReadExcel (Eric Olson)
Re: substitution fails for long line <gnari@simnet.is>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 9 Feb 2004 12:24:41 -0800
From: brian@box201.com (Agrapha)
Subject: Re: A Grep and a couple Awks <and a lot of Tassilo help>
Message-Id: <11aabb15.0402091224.c53267d@posting.google.com>
"gnari" <gnari@simnet.is> wrote in message news:<c07hhg$un4$1@news.simnet.is>...
> "Joe Smith" <Joe.Smith@inwap.com> wrote in message
> news:rNGVb.209351$nt4.987931@attbi_s51...
> >
> > unix% perldoc perl # Unix (Linux) command line
> >
> > C:\>perldoc perl # MS-DOS command window
> >
> > Start -> Programs -> ActiveState ActivePerl 5.8 -> Documentation
> >
> > http://www.perldoc.com/perl5.8.0/bin/perldoc.html
>
> and if perldoc is not installed, usually
> man perl
> man perlfunc
> etc ...
I assumed perldoc was installed as part of the perl language when it
was originally untarred. If perl was installed on my local windows
machine, I would have been truly lost. This is a great tool.
------------------------------
Date: Mon, 09 Feb 2004 20:25:09 GMT
From: Chris <ceo@nospan.on.net>
Subject: Anyone using Berkley XML DB w/Perl (of course)...?
Message-Id: <F0SVb.33399$xB1.18035@newssvr33.news.prodigy.com>
I'm trying to find some Perl API support (read "CPAN module") for using
Sleepcat's Berkley XML DB, but I'm coming up blank. Sleepcat's web site
is Java and C++ centric and I see no Perl information there though an
article I read on XML DB claims there is Perl support. Googling for a
suitable module produced nothing of interest, not to mention such
searching is muddied by www.xmldb.org which uses a lot of Perl-like
"XML::DB" notation.
It would appear that Berkley's XML DB coupled with XML::Dumper poses
some interesting possibilities for run-time object persistence between
client and server platforms... tantalizing to say the least.
Surely I would be spared having to download the Java support and convert
to Perl modules... 8-( I guess I can try their message list, but
thought a quick note here would maybe turn up something solid.
Chris
-----
Chris Olive
chris -at- --spammers-continue-to-be-vermin-- technologEase -dot- com
http://www.technologEase.com
(pronounced "technologies")
------------------------------
Date: Mon, 09 Feb 2004 23:43:02 +0100
From: Vetle Roeim <vetro@online.no>
Subject: Re: Anyone using Berkley XML DB w/Perl (of course)...?
Message-Id: <m3y8rbg9hl.fsf@quimby.dirtyhack.org>
* ceo@nospan.on.net
> I'm trying to find some Perl API support (read "CPAN module") for
> using Sleepcat's Berkley XML DB, but I'm coming up blank.
You're not going to find it on CPAN, unfortunately. To install it, I
downloaded the source code, compiled it, and then installed the Perl
module from dbxml-1.2.0/src/perl.
Good luck.
[...]
--
#!/usr/bin/vr
------------------------------
Date: Mon, 09 Feb 2004 16:21:45 -0600
From: David Dyer-Bennet <dd-b@dd-b.net>
Subject: Re: Array size
Message-Id: <m2r7x3ao7a.fsf@gw.dd-b.net>
"gnari" <gnari@simnet.is> writes:
> "David Dyer-Bennet" <dd-b@dd-b.net> wrote in message
> news:m2vfmgd7y8.fsf@gw.dd-b.net...
>> I know $#foo is the max subscript of @foo.
>>
>> What's the max subscript of $f = [5, 4, 5, 4, 9]? (Yeah, I know, it's
>> 4).
>>
>> That is, if I have an array ref, how do I get the max subscript of
>> that array, without copying the whole thing to a temporary array?
>
> did you try $#$f ?
No, but I'm quite sure it's not in the man pages anywhere, because I
looked at all the $# hits, and didn't find it.
Thanks to you and the others who provided the answer!
--
David Dyer-Bennet, <mailto:dd-b@dd-b.net>, <http://www.dd-b.net/dd-b/>
RKBA: <http://noguns-nomoney.com> <http://www.dd-b.net/carry/>
Photos: <dd-b.lighthunters.net> Snapshots: <www.dd-b.net/dd-b/SnapshotAlbum/>
Dragaera/Steven Brust: <http://dragaera.info/>
------------------------------
Date: Mon, 09 Feb 2004 22:27:06 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Array size
Message-Id: <x7smhjga86.fsf@mail.sysarch.com>
>>>>> "DD" == David Dyer-Bennet <dd-b@dd-b.net> writes:
>> did you try $#$f ?
DD> No, but I'm quite sure it's not in the man pages anywhere, because I
DD> looked at all the $# hits, and didn't find it.
because it has nothing to do with array size but more to do with
references. read perlreftut and perlref.
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: Mon, 9 Feb 2004 21:50:39 -0000
From: "gnari" <gnari@simnet.is>
Subject: Re: DBI::mysql column names as hash keys?
Message-Id: <c08v9m$4ae$1@news.simnet.is>
"Tony" <hawkmoon1972@hotmail.com> wrote in message
news:c90e5468.0402090957.3dceefec@posting.google.com...
> Thanks for pointing me in the right direction guys.
ok, some more pointers...
>
> $sth1 = $dbh->prepare("SELECT * FROM human where name = ?");
> my $rv = $sth1->execute("Bob");
if you are not doing any interpolation, many will tell you to use single
quotes
instead of double quotes. also, you probably should declare $sth1 as
a lexical here (at least judging from the posted snippet)
>
> if ($rv > 0) {
> while ($hash_ref = $sth1->fetchrow_hashref) {
>
> $vars{"human"} = {%$hash_ref}; # THIS WAS THE ELUSIVE PART!!!
in these situations I much prefer to use a lexical for the fetch result.
then you can simplify the elusive part
while ( my $hash_ref = $sth1->fetchrow_hashref) {
$vars{human} = $hash_ref ;
...
}
this is safe because $hash_ref is lexical in innermost scope
the next pass of the loop will generate a new reference. in any
case, it is good practice to declare lexicals in as narrow scope
as is practical.
also note there is no need to quote the key if it is a simple
word, but if you want to, $vars{'human'} is better than
with double quotes (some will tell you)
gnari
------------------------------
Date: Mon, 9 Feb 2004 15:41:35 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: DBI::mysql column names as hash keys?
Message-Id: <slrnc2fvkf.3ek.tadmc@magna.augustmail.com>
Tony <hawkmoon1972@hotmail.com> wrote:
> printf "no results\n";
Why not just print() ?
Done too much C programming?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 09 Feb 2004 16:27:57 -0600
From: David Dyer-Bennet <dd-b@dd-b.net>
Subject: Re: glob in perl
Message-Id: <m2n07ranwy.fsf@gw.dd-b.net>
Ben Morrow <usenet@morrow.me.uk> writes:
> Andreas Boehm <andreas@andiboehm.de> wrote:
>> And does there exist a solution that correctly globs folders containing
>> spaces in their names?
>
> Don't use folder(spit!)^W^W directories with spaces in their names. It
> will cause you much pain.
That is not an acceptable constraint. Perl is often used for system
maintenance utilities where I have to deal with whatever directory
structure users have created. I don't control that namespace, and so
far as I know none of the Unix variants give me any mechanism to
enforce a "no spaces" rule.
> File::Glob::bsd_glob will treat each argument as a separate pattern,
> rather than splitting on whitespace.
Ah. That, on the other hand, may be a useful approach.
--
David Dyer-Bennet, <mailto:dd-b@dd-b.net>, <http://www.dd-b.net/dd-b/>
RKBA: <http://noguns-nomoney.com> <http://www.dd-b.net/carry/>
Photos: <dd-b.lighthunters.net> Snapshots: <www.dd-b.net/dd-b/SnapshotAlbum/>
Dragaera/Steven Brust: <http://dragaera.info/>
------------------------------
Date: Mon, 09 Feb 2004 16:31:19 -0600
From: David Dyer-Bennet <dd-b@dd-b.net>
Subject: Re: glob in perl
Message-Id: <m2isifanrc.fsf@gw.dd-b.net>
Ben Morrow <usenet@morrow.me.uk> writes:
> Andreas Boehm <andreas@andiboehm.de> wrote:
>> >> DB<1> @a=glob("/home/sunny/share/User/Joerg/rho- SAX tryp/*");
>> >> DB<3> x @a
>> >>0 '/home/sunny/share/User/Joerg/rho-'
>> >>1 'SAX'
>> >> DB<4>
>> >>Is this correct?
>> >
>> > Yup
>>
>> why?
>
> Because that's what glob does! RTFM.
I just went back and R the FM again, including going down into perlop
from the mention in perlfunc, and it *still* doesn't document this
behavior or show any examples of it.
This probably explains many mysterious problems I've had over the
years. Always good to learn something new!
--
David Dyer-Bennet, <mailto:dd-b@dd-b.net>, <http://www.dd-b.net/dd-b/>
RKBA: <http://noguns-nomoney.com> <http://www.dd-b.net/carry/>
Photos: <dd-b.lighthunters.net> Snapshots: <www.dd-b.net/dd-b/SnapshotAlbum/>
Dragaera/Steven Brust: <http://dragaera.info/>
------------------------------
Date: Mon, 9 Feb 2004 22:35:23 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: glob in perl
Message-Id: <c091vb$6db$3@wisteria.csv.warwick.ac.uk>
David Dyer-Bennet <dd-b@dd-b.net> wrote:
> Ben Morrow <usenet@morrow.me.uk> writes:
> >
> > Because that's what glob does! RTFM.
>
> I just went back and R the FM again, including going down into perlop
> from the mention in perlfunc, and it *still* doesn't document this
> behavior or show any examples of it.
True... the nearest perlfunc comes to it is 'as /bin/csh would do',
which I guess implies split-on-whitespace, but most of us are
(thankfully) not familiar with csh!
However, at least the 5.8 perlfunc also points to File::Glob, which
explicitly explains it in the second para.
Ben
--
Heracles: Vulture! Here's a titbit for you / A few dried molecules of the gall
From the liver of a friend of yours. / Excuse the arrow but I have no spoon.
(Ted Hughes, [ Heracles shoots Vulture with arrow. Vulture bursts into ]
/Alcestis/) [ flame, and falls out of sight. ] ben@morrow.me.uk
------------------------------
Date: Mon, 09 Feb 2004 14:05:55 -0800
From: David O in Seattle <me@privacy.net>
Subject: Include data in a perl program?
Message-Id: <gm0g209nlblpccv2ljn0128stoqujjat5m@4ax.com>
Hi,
I'm not sure out to do this, and Google searches didn't seem to yield
well for me (perhaps I used the wrong terms) so I thought I'd see if
someone can point me in the right direction.
I'm writing a PERL script to use the Win32::TieRegistry module and
Win32API::Registry module. I noticed in Registry that there are calls
to load registry hive data into a module. What I would LIKE to do is
include that hive data in a scalar or similar object for use by the
"RegLoadKey" call so I don't have to include a separate .reg file when
I distribute my code.
Suggestions/Guidence would be very appreciated.. TIA.
------------------------------
Date: Mon, 9 Feb 2004 22:31:36 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: Include data in a perl program?
Message-Id: <c091o8$6db$2@wisteria.csv.warwick.ac.uk>
David O in Seattle <me@privacy.net> wrote:
> I'm writing a PERL
Perl or perl.
> script to use the Win32::TieRegistry module and
> Win32API::Registry module. I noticed in Registry that there are calls
> to load registry hive data into a module. What I would LIKE to do is
> include that hive data in a scalar or similar object for use by the
> "RegLoadKey" call so I don't have to include a separate .reg file when
> I distribute my code.
If you can load a .reg file from a filehandle, then you can include
the file at the end of your module after a __DATA__ token. This will
then be available as the DATA filehandle. See perldoc perldata.
If you can't, you want to do the same thing but write some code to
parse the .reg format yourself: it's pretty simply :).
Ben
--
"The Earth is degenerating these days. Bribery and corruption abound.
Children no longer mind their parents, every man wants to write a book,
and it is evident that the end of the world is fast approaching."
-Assyrian stone tablet, c.2800 BC ben@morrow.me.uk
------------------------------
Date: Mon, 9 Feb 2004 19:55:11 -0000
From: "gnari" <gnari@simnet.is>
Subject: Re: Matching strings with index – getting extra matches.
Message-Id: <c08oh6$3b9$1@news.simnet.is>
"G" <bay_dar@yahoo.com> wrote in message
news:cad04083.0402090825.2eba95a5@posting.google.com...
[problem with index not matching string exactly]
> sales item aaa | m423a
> sales item bbb | m423
> sales item ccc | m423b
> sales item ddd | 423
if there is allways space around the '|' you should
have them in your split
> ...
> ($sales_item, $code) = split /\|/;
($sales_item, $code) = split / \| /;
> if (index($code, $entered_code) != -1) {
if there is no trailing space after the code then
if ($code eq $entered_code) {
if on the other hand, your data is dirty with
whilespace, you are better off with a
regexp match as someone else suggested
or even replace the split with a match:
($sales_item, $code) = /^\s*(.+?)\s*\|\s*(.+?)\s*/;
if ($code eq $entered_code) {
gnari
------------------------------
Date: Mon, 9 Feb 2004 15:52:53 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Matching strings with index – getting extra matches.
Message-Id: <slrnc2g09l.3ek.tadmc@magna.augustmail.com>
G <bay_dar@yahoo.com> wrote:
> open FILE, "<$sales_file";
You should always, yes *always*, check the return value from open():
open FILE, "<$sales_file" or die "could not open '$sales_file' $!";
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 9 Feb 2004 22:25:19 +0100
From: Jaap Karssenberg <j.g.karssenberg@student.utwente.nl>
Subject: memory profiling
Message-Id: <20040209222519.055ed46d@Captain>
Does anyone know of a simple way to see where the memory goes in a large
perl application ?
--
) ( Jaap Karssenberg || Pardus [Larus] | |0| |
: : http://pardus-larus.student.utwente.nl/~pardus | | |0|
) \ / ( |0|0|0|
",.*'*.," Proud owner of "Perl6 Essentials" 1st edition :) wannabe
------------------------------
Date: Mon, 9 Feb 2004 21:55:09 -0000
From: "gnari" <gnari@simnet.is>
Subject: Re: Named parameters in method calls
Message-Id: <c08vi2$4bm$1@news.simnet.is>
<ctcgag@hotmail.com> wrote in message
news:20040209122834.865$XH@newsreader.com...
> fishfry <BLOCKSPAMfishfry@your-mailbox.com> wrote:
> > Is the named parameter style of calling methods the officially right way
> > to do it these days? Or is there some debate? I'm talking about
> >
> > my $foo = new Foo(FISH => 'tuna', DRESSING => 'mayo');
> >
> As far as I can tell, the named parameter method is common only when there
> are lots of optional parameters. If all or most parameters are mandatory,
> positional seems to be the common method.
it is also useful if you foresee that the methods might be extended later.
this avoids breaking code that does not know about new parameters.
that is why this is popular in all sorts of modules.
gnari
------------------------------
Date: Mon, 09 Feb 2004 13:59:17 -0800
From: David O in Seattle <me@privacy.net>
Subject: Re: NTP module
Message-Id: <qk0g2096p1l5onl19220hohhh4umtgv1ah@4ax.com>
On Mon, 09 Feb 2004 12:44:11 -0500, James Willmore
<jwillmore@remove.adelphia.net> wrote:
>I need to monitor a NTP (time) server. I searched CPAN and did not see a
>NTP module.
>
>So, is there one ... and I missed it?
>
>Thanks
A quick Google search and....
http://www.kloth.net/software/sntp.php
It's not a module, but it might help you anyway.
------------------------------
Date: 9 Feb 2004 13:47:17 -0800
From: vpnavy@yahoo.com (Information)
Subject: Re: Pearl "Print Statement" Question
Message-Id: <6652ec03.0402091347.1b1ccee8@posting.google.com>
Bernard El-Hagin <bernard.el-haginDODGE_THIS@lido-tech.net> wrote in message news:<slrnc2erb2.jh.bernard.el-haginDODGE_THIS@gdndev25.lido-tech>...
> On 2004-02-09, Information <vpnavy@yahoo.com> wrote:
> > I have a statement that displays on a response screen.
> >
> > print "Your entry will be added...\n";
> >
> > Is there a way of changing the "white" background to a particular
> > color from within the print statement? I would love to be able to
> > display graphics, etc. above the text display.
> >
> > I've search for "print" parameters but can't seem to find any.
>
>
> perldoc -q 'color'
Thanks! I was also able to find this statement as well for
controlling the entire page background: print "<body
bgcolor=\"#FFD618\">\n";
Thanks again for your assistance.
------------------------------
Date: Mon, 9 Feb 2004 22:24:50 -0000
From: "gnari" <gnari@simnet.is>
Subject: Re: Pearl "Print Statement" Question
Message-Id: <c0919n$4jg$1@news.simnet.is>
"Information" <vpnavy@yahoo.com> wrote in message
news:6652ec03.0402091347.1b1ccee8@posting.google.com...
> Bernard El-Hagin <bernard.el-haginDODGE_THIS@lido-tech.net> wrote in
message
news:<slrnc2erb2.jh.bernard.el-haginDODGE_THIS@gdndev25.lido-tech>...
> > On 2004-02-09, Information <vpnavy@yahoo.com> wrote:
> > > I have a statement that displays on a response screen.
> > >
> > > print "Your entry will be added...\n";
> > >
> > > Is there a way of changing the "white" background to a particular
> > > color from within the print statement? I would love to be able to
> > > display graphics, etc. above the text display.
> > >
> > > I've search for "print" parameters but can't seem to find any.
> >
> >
> > perldoc -q 'color'
>
> Thanks! I was also able to find this statement as well for
> controlling the entire page background: print "<body
> bgcolor=\"#FFD618\">\n";
>
> Thanks again for your assistance.
AAAARGH!
it was a CGI question after all !
gnari
------------------------------
Date: 9 Feb 2004 11:51:58 -0800
From: jeffjackson@fairisaac.com (Jeff)
Subject: return status for nonexistent command run in backticks
Message-Id: <1b0085c0.0402091151.2f003b1f@posting.google.com>
i quite a few commands via backticks in my perl programs. i have a
routine that i use to check the $? variable for return status/core
dump/signal values for commands that are at risk of core dumping. the
routine looks like:
sub statCheck
{
my ($childError) = @_;
my ($rc, $core, $sig);
return (undef, undef, undef) if (not defined $childError);
$rc = $childError >> 8;
$core = $childError & 128 ? TRUE : FALSE;
$sig = $childError & 127;
return ($rc, $core, $sig);
}
this works fine most of the time. but if i call a command that
doesn't exist, $? = -1 and this logic blows up. i can put a check in
here for -1 easily enough, but my question to you all is should
backticks be returning -1 ever? if i try running a nonexistent
command from the shell prompt (ksh), i get a return status of 127 (as
the man page for ksh says it should).
thoughts?
jeff
------------------------------
Date: 9 Feb 2004 22:16:58 GMT
From: Glenn Jackman <xx087@freenet.carleton.ca>
Subject: Re: return status for nonexistent command run in backticks
Message-Id: <slrnc2g1mr.kid.xx087@smeagol.ncf.ca>
Jeff <jeffjackson@fairisaac.com> wrote:
> sub statCheck
> {
> my ($childError) = @_;
> my ($rc, $core, $sig);
>
> return (undef, undef, undef) if (not defined $childError);
>
> $rc = $childError >> 8;
> $core = $childError & 128 ? TRUE : FALSE;
> $sig = $childError & 127;
>
> return ($rc, $core, $sig);
> }
>
> this works fine most of the time. but if i call a command that
> doesn't exist, $? = -1 and this logic blows up. i can put a check in
> here for -1 easily enough, but my question to you all is should
> backticks be returning -1 ever? if i try running a nonexistent
> command from the shell prompt (ksh), i get a return status of 127 (as
> the man page for ksh says it should).
I don't see where it "blows up". If $childError == -1, then $rc might
be 16777215. What does the caller of statCheck do with its returned
value?
However, you can check for $childError == -1, and do something with $!
which contains the reason for failure.
Or, you can use a mask to only get an 8 bit value for $rc:
$rc = ($childError & 0xff00) >> 8;
which would make $rc == 255 if $childError == -1
--
Glenn Jackman
NCF Sysadmin
glennj@ncf.ca
------------------------------
Date: 9 Feb 2004 13:50:47 -0800
From: ero@tfhs.net (Eric Olson)
Subject: Spreadsheet::ReadExcel
Message-Id: <3188b84a.0402091350.458c8d3f@posting.google.com>
Hi all...
The situation:
Being able to import an Excel file using mod_perl, open it,
and verify contents of cells.
The problem:
I have already tried to use ::ParseExcel, but images are not
recognized as far as I can tell.
I would like to know if there is a way to open an Excel file, see
an image, do something with it and write it back to a new file (I have
already used ::WriteExcel to create an Excel file with an image) ...
So, if anyone can help, I would be greatly appreciative. (By the
way, if there is a ::ReadExcel module, where would it be?)
Thanks guys,
Eric
------------------------------
Date: Mon, 9 Feb 2004 22:22:25 -0000
From: "gnari" <gnari@simnet.is>
Subject: Re: substitution fails for long line
Message-Id: <c09157$4j5$1@news.simnet.is>
"Pranav Agarwal" <a__pranav@rediffmail.com> wrote in message
news:19JVb.4$St1.99@news.oracle.com...
[snipped problem with long line]
have you tried shortening the line to see what makes this happen?
find the shortest line this happens to.
did changing the s/// have any effect?
> $x =~ s/(\s*)(nothingtomatch)/$1/g;
is this literally the code you used ?
are you using an operating system/terninal that does not
tolerate all characters as output? (think ctrl-S)
perl does not have any difficulty with long lines.
gnari
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 6101
***************************************
