[30133] in Perl-Users-Digest
Perl-Users Digest, Issue: 1376 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Mar 20 14:09:58 2008
Date: Thu, 20 Mar 2008 11:09:19 -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 Thu, 20 Mar 2008 Volume: 11 Number: 1376
Today's topics:
better design of spreadsheet generation <ela@yantai.org>
Re: better design of spreadsheet generation <cartercc@gmail.com>
Re: better design of spreadsheet generation <ben@morrow.me.uk>
Re: better design of spreadsheet generation <jimsgibson@gmail.com>
Broadband networking................... waugh682@gmail.com
Re: called too early to check prototype at <abigail@abigail.be>
Re: called too early to check prototype at <glex_no-spam@qwest-spam-no.invalid>
get the matching regex pattern <ramprasad.ap@gmail.com>
Re: get the matching regex pattern <ced@blv-sam-01.ca.boeing.com>
Re: get the matching regex pattern <jimsgibson@gmail.com>
Re: get the matching regex pattern <noreply@gunnar.cc>
Re: Is substr only way of getting nth character of stri <benkasminbullock@gmail.com>
Re: pattern match <noreply@gunnar.cc>
Re: pattern match <devnull4711@web.de>
Re: pattern match <tadmc@seesig.invalid>
Strange syntex: beginner <vnagrik@gmail.com>
Re: Strange syntex: beginner <cartercc@gmail.com>
Re: Strange syntex: beginner <tony_curtis32@yahoo.com>
Re: strategies other than subroutine and OO? <ela@yantai.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 20 Mar 2008 19:58:37 +0800
From: "Ela" <ela@yantai.org>
Subject: better design of spreadsheet generation
Message-Id: <frtjhh$ct2$1@ijustice.itsc.cuhk.edu.hk>
A spreadsheet of *n* fields is to be generated. For debugging purpose,
confidentiality and so on reasons, sometimes some of the fields are not to
be generated.
Using a series of "if" or "?" can solve the problem, but it makes the codes
very clumsy and not generic. Is perl capable of handling this situation?
e.g.
print a header by:
field1 f2 f3 .... fn-1 fn
r11 r12 r13 ... r1n-1 r1n
...
or
field1 f3 .... fn-1
r11 r13 ... r1n-1
...
------------------------------
Date: Thu, 20 Mar 2008 08:27:32 -0700 (PDT)
From: ccc31807 <cartercc@gmail.com>
Subject: Re: better design of spreadsheet generation
Message-Id: <bd207345-807f-4f8a-8c59-54b6332a1611@f63g2000hsf.googlegroups.com>
On Mar 20, 7:58 am, "Ela" <e...@yantai.org> wrote:
> A spreadsheet of *n* fields is to be generated. For debugging purpose,
> confidentiality and so on reasons, sometimes some of the fields are not to
> be generated.
>
> Using a series of "if" or "?" can solve the problem, but it makes the codes
> very clumsy and not generic. Is perl capable of handling this situation?
Absolutely!
The easiest way is to use printf. Just printf each line.
If you want a plain text spreadsheet, use a format. See perlform for
more details.
If you want a more dynamic spreadsheet, print your values out as a
comma delimited file and (on Windows) save it with a .csv extension.
This will open natively in Excel and Access. Example:
print SSFILE "$var1,$var2,$var3,$var4,$var5,$var2\n";
If you want the ultimate in flexible spreadsheets, print each line as
XML, interpolating variables as necessary. This way, you can transform
your output into many different formats by using XSLT, or can write
your own parser if your skills allow. See example below.
CC
#!/usr/bin/perl -w
# Name: test_heredoc_xml_print.plx
# Purpose: to test printing a heredoc to an outfile
open OUTFILE, ">heredoc.xml";
print OUTFILE <<END;
<?xml version="1.0" ?>
<people>
<person>
<first>John</first>
<middle>S</middle>
<last>McCain</last>
<party>Republican</party>
</person>
<person>
<first>Mike</first>
<middle></middle>
<last>Huckabee</last>
<party>Republican</party>
</person>
<person>
<first>Barack</first>
<middle>Hussein</middle>
<last>Obama</last>
<party>Democrat</party>
</person>
<person>
<first>Hillary</first>
<middle>Rodham</middle>
<last>Clinton</last>
<party>Democrat</party>
</person>
<person>
<first>Ralph</first>
<middle></middle>
<last>Nader</last>
<party>Independant</party>
</person>
</people>
END
close OUTFILE;
exit();
------------------------------
Date: Thu, 20 Mar 2008 15:37:00 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: better design of spreadsheet generation
Message-Id: <stcab5-o33.ln1@osiris.mauzo.dyndns.org>
Quoth "Ela" <ela@yantai.org>:
> A spreadsheet of *n* fields is to be generated. For debugging purpose,
> confidentiality and so on reasons, sometimes some of the fields are not to
> be generated.
>
> Using a series of "if" or "?" can solve the problem, but it makes the codes
> very clumsy and not generic. Is perl capable of handling this situation?
>
> e.g.
>
> print a header by:
>
> field1 f2 f3 .... fn-1 fn
> r11 r12 r13 ... r1n-1 r1n
> ...
>
> or
>
> field1 f3 .... fn-1
> r11 r13 ... r1n-1
> ...
While it's not the least bit clear what you want (an actual example
would be helpful), is something like this useful?
my %skipped;
$skipped{$_} = 1 for 2, 4, 6;
for my $r (qw/field r/) {
for my $i (1..10) {
$skipped{$i} and next;
printf '%8s ', "$r$i";
}
print "\n";
}
------------------------------
Date: Thu, 20 Mar 2008 09:50:55 -0700
From: Jim Gibson <jimsgibson@gmail.com>
Subject: Re: better design of spreadsheet generation
Message-Id: <200320080950550033%jimsgibson@gmail.com>
In article
<bd207345-807f-4f8a-8c59-54b6332a1611@f63g2000hsf.googlegroups.com>,
ccc31807 <cartercc@gmail.com> wrote:
> On Mar 20, 7:58 am, "Ela" <e...@yantai.org> wrote:
> > A spreadsheet of *n* fields is to be generated. For debugging purpose,
> > confidentiality and so on reasons, sometimes some of the fields are not to
> > be generated.
> >
> > Using a series of "if" or "?" can solve the problem, but it makes the codes
> > very clumsy and not generic. Is perl capable of handling this situation?
>
> Absolutely!
>
> The easiest way is to use printf. Just printf each line.
>
> If you want a plain text spreadsheet, use a format. See perlform for
> more details.
>
> If you want a more dynamic spreadsheet, print your values out as a
> comma delimited file and (on Windows) save it with a .csv extension.
> This will open natively in Excel and Access. Example:
>
> print SSFILE "$var1,$var2,$var3,$var4,$var5,$var2\n";
>
> If you want the ultimate in flexible spreadsheets, print each line as
> XML, interpolating variables as necessary. This way, you can transform
> your output into many different formats by using XSLT, or can write
> your own parser if your skills allow.
If you want to write an Excel file directly, including some cell
formatting, you can use the Spreadsheet::WriteExcel module, available
at CPAN:
<http://search.cpan.org/~jmcnamara/Spreadsheet-WriteExcel-2.21/lib/Sprea
dsheet/WriteExcel.pm>
--
Jim Gibson
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: Thu, 20 Mar 2008 02:44:39 -0700 (PDT)
From: waugh682@gmail.com
Subject: Broadband networking...................
Message-Id: <b82d50b4-1907-4d65-a1be-b0338a755326@s8g2000prg.googlegroups.com>
www.computersandnet.blogspot.com
------------------------------
Date: 20 Mar 2008 10:29:19 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: called too early to check prototype at
Message-Id: <slrnfu4f3u.2fd.abigail@alexandra.abigail.be>
_
Jürgen Exner (jurgenex@hotmail.com) wrote on VCCCXIV September MCMXCIII
in <URL:news:95p0u3hucsvai5fk8550ga61uo6nigib89@4ax.com>:
,, Ron Eggler <test@example.com> wrote:
,, >Hi,
,, >
,, >I get a "called too early to check prototype at" in my script and i have no
,, >idea what this is referring to.It is pointing to this line:
,, >for(my $count = 0; $count < scalar(@dbset); $count++)
,,
,, This can be rewritten in a much easier to read way as
,, for my $count (0..@dbset-1)
What's easier is a matter of personal preference.
99 times out of 100, I prefer:
for (my $i = 0; $i < @array; $i ++) { .. }
over
for my $i (0 .. @array - 1) { .. }
The '- 1' ruffles my feathers. And I don't like $#array very much either.
Abigail
--
use lib sub {($\) = split /\./ => pop; print $"};
eval "use Just" || eval "use another" || eval "use Perl" || eval "use Hacker";
------------------------------
Date: Thu, 20 Mar 2008 11:51:53 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: called too early to check prototype at
Message-Id: <47e2962a$0$89387$815e3792@news.qwest.net>
Ron Eggler wrote:
> J�rgen Exner wrote:
>
>> for(@dbset){
>> my $myDBI = "DBI:mysql:$_ :localhost";
>
> Alright,
>
> Thanks for that but when i try it like this:
> #
> # Open the DB connection
> #
> my @dbset=(xmlparse($nemsconf,"DBNAME"));
> print "DB name: ". xmlparse($nemsconf,"DBNAME")."\n";
> #for(my $count = 0; $count < scalar(@dbset); $count++){
> # my $myDBI = 'DBI:mysql:' . $dbset[$count] . ':localhost';
> for(@dbset){
> my $myDBI = "DBI:mysql:$_ :localhost";
> my $dbh =
> DBI->connect($myDBI,xmlparse($nemsconf,"DBUSER"),xmlparse($nemsconf,"DBPASS"))
> or die "Couldn't connect to database: " . DBI->errstr . "\n";
> }
>
> It's telling me only:
> [shell]
> DB name: toronto
> DBI connect('toronto :localhost','root',...) failed: Incorrect database
> name 'toronto ' at ./log_parser.pl line 39
> Couldn't connect to database: Incorrect database name 'toronto '
Remove the space.
my $myDBI = "DBI:mysql:$_:localhost";
And check the value.
print "myDBI=$myDBI\n"; #maybe there's a newline? If so, chomp.
> [/shell]
> eventho i can connect nicely with:
> mysql -u root -p toronto
>
> any idea what could be wrong there?
> I first thought where it says "Couldn't connect to database: Incorrect
> database name 'toronto '" that would be a mistake because of the space at
> the end but when I hardcode "toronto" it is displaaying it the same way. So
> I'm pretty stuck here.
Go back to the basics.
use DBI;
my $myDBI = 'DBI:mysql:toronto:localhost';
my $user = 'someuser';
my $pw = 'somepw';
my $dbh = DBI->connect( $myDBI, $user, $pw )
or die "Couldn't connect to database: " . DBI->errstr . "\n";
If that works then verify the values of $user, $pw, and $myDBI are
what you expect.
------------------------------
Date: Thu, 20 Mar 2008 06:16:06 -0700 (PDT)
From: Ram Prasad <ramprasad.ap@gmail.com>
Subject: get the matching regex pattern
Message-Id: <c3e7b546-f44a-4c94-a1b2-b93fbadc8ab5@e10g2000prf.googlegroups.com>
I have a somewhat strange requirement
I want to find if a regex matched what exactly matched
to reproduce this
------------------
my @x;
$x[0] = 'chi+ld*';
$x[1] = '\sjoke';
$_=getinput(); # for test assume $_="This is a joke";
if(/($x[0]|$x[1])/){
print "Matched '$1' \n";
}
-----------------
I want to know if $x[0] matched or $x[1] matched
What is the most efficient way of doing this ?
Thanks
Ram
--
For spammers only
spamme@pragatee.com
http://pragatee.com
------------------------------
Date: Thu, 20 Mar 2008 09:36:58 -0700 (PDT)
From: "comp.llang.perl.moderated" <ced@blv-sam-01.ca.boeing.com>
Subject: Re: get the matching regex pattern
Message-Id: <84d1eea6-ba71-47be-ba5c-0c37692fea00@s13g2000prd.googlegroups.com>
On Mar 20, 6:16 am, Ram Prasad <ramprasad...@gmail.com> wrote:
> I have a somewhat strange requirement
> I want to find if a regex matched what exactly matched
>
> to reproduce this
>
> ------------------
> my @x;
> $x[0] = 'chi+ld*';
> $x[1] = '\sjoke';
>
> $_=getinput(); # for test assume $_="This is a joke";
>
> if(/($x[0]|$x[1])/){
> print "Matched '$1' \n";}
>
> -----------------
>
> I want to know if $x[0] matched or $x[1] matched
> What is the most efficient way of doing this ?
>
One way:
if ( / ($x[0]) | ($x[1]) /x ) {
print defined $1 ? "first" : "second";
}
But, this may be more efficient often:
if ( /$x[0]/ ) { print "first" }
elsif ( /$x[1]/) { print "second" }
Ordering alternatives with the most likely
matches in front can greatly increase efficiency
too.
--
Charles DeRykus
------------------------------
Date: Thu, 20 Mar 2008 10:06:27 -0700
From: Jim Gibson <jimsgibson@gmail.com>
Subject: Re: get the matching regex pattern
Message-Id: <200320081006276000%jimsgibson@gmail.com>
In article
<c3e7b546-f44a-4c94-a1b2-b93fbadc8ab5@e10g2000prf.googlegroups.com>,
Ram Prasad <ramprasad.ap@gmail.com> wrote:
> I have a somewhat strange requirement
> I want to find if a regex matched what exactly matched
>
> to reproduce this
>
> ------------------
> my @x;
> $x[0] = 'chi+ld*';
> $x[1] = '\sjoke';
>
> $_=getinput(); # for test assume $_="This is a joke";
Then why not do us a favor and replace the above line with:
$_ = "This is a joke";
>
> if(/($x[0]|$x[1])/){
> print "Matched '$1' \n";
> }
> -----------------
>
>
> I want to know if $x[0] matched or $x[1] matched
> What is the most efficient way of doing this ?
One way is to capture the individual alternatives and test the
corresponding dollar values:
#!/usr/local/bin/perl
use strict;
use warnings;
my @x;
$x[0] = 'chi+ld*';
$x[1] = '\sjoke';
try("This is a joke");
try("Save the children");
sub try
{
$_ = shift;
if(/(($x[0])|($x[1]))/){
print "Matched '$1' \n";
print "\$2=$2\n" if $2;
print "\$3=$3\n" if $3;
}
}
Output:
Matched ' joke'
$3= joke
Matched 'child'
$2=child
This will not scale very well for many alternatives. For that, you can
inspect the @- array after the match.
--
Jim Gibson
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: Thu, 20 Mar 2008 18:44:23 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: get the matching regex pattern
Message-Id: <64fm25F2bb77pU1@mid.individual.net>
Ram Prasad wrote:
> I have a somewhat strange requirement
> ...
You had posted the same question to the beginners mailing list just a
few minutes before you posted here, and I just spent a few minutes
answering the question there without knowing that you already had been
helped here.
DO NEVER DO THAT AGAIN !!!
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Thu, 20 Mar 2008 12:50:47 +0000 (UTC)
From: Ben Bullock <benkasminbullock@gmail.com>
Subject: Re: Is substr only way of getting nth character of string?
Message-Id: <frtmj7$3aq$1@ml.accsnet.ne.jp>
On Wed, 19 Mar 2008 23:13:02 -0800, Robbie Hatley wrote:
> The second routine I came up with I like much better:
> my @Charset = map chr, 9, 32..126;
> my @TempCharset = @Charset;
> my @PermCharset;
> while (@TempCharset > 0)
> {
> my $RandomInt = rand_int(0, @TempCharset - 1); my $RandomChar =
> $TempCharset[$RandomInt]; push @PermCharset, $RandomChar;
> delete $TempCharset[$RandomInt];
> }
> print @PermCharset, "\n";
>
> It basically grabs characters at random indexs from a source array and
> pushes them onto an empty destination array, deleting the pushed
> character from the source each time, until the source is empty. No
> wasted steps.
Bad news: there are rather a lot of wasted steps.
If you add the statement
use warnings;
at the top of the above you might get a shock. You'll get several hundred
warnings when
print @PermCharset, "\n";
is executed.
The underlying reason why @PermCharset is messed up is that
delete $TempCharset[$RandomInt];
doesn't do what you think - it deletes the contents of @TempCharset at
offset $RandomInt, but it doesn't move the remaining array entries to
fill in the gap.
splice (@TempCharset, $RandomInt, 1);
is what you should have done.
Remember: always "use warnings;".
------------------------------
Date: Thu, 20 Mar 2008 11:13:15 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: pattern match
Message-Id: <64erm6F2b57jaU1@mid.individual.net>
venkatesh.naughty@gmail.com wrote:
> On Mar 20, 11:02 am, Gunnar Hjalmarsson <nore...@gunnar.cc> wrote:
>> Venkatesh can....can... wrote:
>>>
>>> $var="{' venkat'}->{'no'}->{'yes'}";
>>> i want to get the "yes" token;
>>> if i use
>>> $var=~/\{'( .* )\}$/
>>> i get venkat'}->{'no'}->{'yes
>>
>> No you don't. You get nothing, because that regex does not match.
>> However, with the /x modifier it matches and assigns the string you
>> mention to $1.
>>
>>> how to get the "yes" token...
>>
>> One way:
>>
>> $var =~ /.+{'(.+)'}$/;
>
> thanks it works but how?
> the first .+ is greedy know?
Yes.
> it 'll match up to the end right?
No, it matches one or more characters as long as it can without
preventing the whole regex from matching; in this case up to and
including the second arrow.
Remember that greediness never affects whether a regex matches or not.
It just may affect _how_ the regex matches.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Thu, 20 Mar 2008 11:42:46 +0100
From: Frank Seitz <devnull4711@web.de>
Subject: Re: pattern match
Message-Id: <64etd7F2bmnjaU2@mid.individual.net>
Gunnar Hjalmarsson wrote:
> venkatesh.naughty@gmail.com wrote:
>>
>>the first .+ is greedy know?
>
> Yes.
>
>>it 'll match up to the end right?
>
> No, it matches one or more characters as long as it can without
> preventing the whole regex from matching; in this case up to and
> including the second arrow.
Internally .+ matches the whole string at first.
Then, the regex-engine backtracks until it achieves an
overall match (or not).
Frank
--
Dipl.-Inform. Frank Seitz; http://www.fseitz.de/
Anwendungen für Ihr Internet und Intranet
Tel: 04103/180301; Fax: -02; Industriestr. 31, 22880 Wedel
------------------------------
Date: Thu, 20 Mar 2008 10:43:39 GMT
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: pattern match
Message-Id: <slrnfu4iom.uvb.tadmc@tadmc30.sbcglobal.net>
venkatesh.naughty@gmail.com <venkatesh.naughty@gmail.com> wrote:
> On Mar 20, 11:02 am, Gunnar Hjalmarsson <nore...@gunnar.cc> wrote:
>> Venkatesh can....can... wrote:
>> > $var="{' venkat'}->{'no'}->{'yes'}";
>> > i want to get the "yes" token;
>>
>> $var =~ /.+{'(.+)'}$/;
>>
>> --
>> Gunnar Hjalmarsson
>> Email:http://www.gunnar.cc/cgi-bin/contact.pl
>
> @gunnar
[ it is bad manners to quote .sigs, please do not do that. ]
> the first .+ is greedy know? it 'll match up to the end right?
Right.
But then the regex engine will notice that the match will fail,
so it "backtracks" and attempts the match again.
How Regexes Work:
http://perl.plover.com/Regex/article.html
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Thu, 20 Mar 2008 09:07:29 -0700 (PDT)
From: Nagrik <vnagrik@gmail.com>
Subject: Strange syntex: beginner
Message-Id: <d2405c78-de7b-4abb-b1cc-21d6604e8b66@u10g2000prn.googlegroups.com>
Hello Group,
I am new to learning Perl and am struggling with a syntex encountered
in the code. It looks like
< a.txt b.pl > signature
My question is
what does the first character (<) mean.
What b.pl is doing with a.txt.
I guess the output of the program goes to signature.
BTW: The line I mentioned was in a bash script file.
Can someone help.
Thanks.
nagrik
------------------------------
Date: Thu, 20 Mar 2008 09:14:25 -0700 (PDT)
From: ccc31807 <cartercc@gmail.com>
Subject: Re: Strange syntex: beginner
Message-Id: <fa9651a8-bf5f-4ad1-897a-0dc56f8eeb4f@n58g2000hsf.googlegroups.com>
On Mar 20, 12:07 pm, Nagrik <vnag...@gmail.com> wrote:
> Hello Group,
>
> I am new to learning Perl and am struggling with a syntex encountered
> in the code. It looks like
>
> < a.txt b.pl > signature
>
> My question is
>
> what does the first character (<) mean.
>
> What b.pl is doing with a.txt.
>
> I guess the output of the program goes to signature.
>
> BTW: The line I mentioned was in a bash script file.
>
> Can someone help.
>
> Thanks.
>
> nagrik
< and > are redirection operators. The line you quote can be
translated as follows:
Get the input (<) from the file named 'a.txt', run the script named
'b.pl', and write the output (>) to the file named 'signature'.
CC
------------------------------
Date: Thu, 20 Mar 2008 12:18:36 -0400
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: Strange syntex: beginner
Message-Id: <fru2ot$aji$1@knot.queensu.ca>
ccc31807 wrote:
> On Mar 20, 12:07 pm, Nagrik <vnag...@gmail.com> wrote:
>> Hello Group,
>>
>> I am new to learning Perl and am struggling with a syntex encountered
>> in the code. It looks like
>>
>> < a.txt b.pl > signature
>>
>> My question is
>>
>> what does the first character (<) mean.
>>
>> What b.pl is doing with a.txt.
>>
>> I guess the output of the program goes to signature.
>>
>> BTW: The line I mentioned was in a bash script file.
>>
>> Can someone help.
>>
>> Thanks.
>>
>> nagrik
>
>
> < and > are redirection operators. The line you quote can be
> translated as follows:
>
> Get the input (<) from the file named 'a.txt', run the script named
> 'b.pl', and write the output (>) to the file named 'signature'.
but that's not perl, BTW
hth
t
------------------------------
Date: Thu, 20 Mar 2008 21:00:18 +0800
From: "Ela" <ela@yantai.org>
Subject: Re: strategies other than subroutine and OO?
Message-Id: <frtn58$ecd$1@ijustice.itsc.cuhk.edu.hk>
> Maybe you can take the lines that are exactly duplicated and put those
> into sub functions. If you define the sub functions inside the main
> function they can access the main function's 'my' variables, so you
> don't need to pass them as arguments.
>
From perlintro:
A Perl script or program consists of one or more statements. These
statements are simply written in the script in a straightforward fashion.
There is no need to have a main() function or anything of that kind.
So would you mind giving a very simple example? i guess your suggestion is
very close to the final solution since i never have the concept you suggest.
------------------------------
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 1376
***************************************
