[23689] in Perl-Users-Digest
Perl-Users Digest, Issue: 5896 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Dec 5 09:05:40 2003
Date: Fri, 5 Dec 2003 06:05:11 -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, 5 Dec 2003 Volume: 10 Number: 5896
Today's topics:
Re: any idea how to optimize this regex? <matthew.garrish@sympatico.ca>
Re: Can perl be used to test ISP upload speed? <noreply@gunnar.cc>
Re: Can perl be used to test ISP upload speed? <usenet@morrow.me.uk>
Re: foreach counter (Heinrich Mislik)
Re: Generating Day of Week in Pure Perl (Anno Siegel)
Re: gui in perl <usenet@morrow.me.uk>
Re: gui in perl <scriptyrich@yahoo.co.uk>
Re: gui in perl <usenet@morrow.me.uk>
Re: gui in perl <matthew.garrish@sympatico.ca>
Re: gui in perl <HelgiBriem_1@hotmail.com>
Re: How to open a file from the end and read the last 1 <tore@aursand.no>
Re: How to open a file from the end and read the last 1 (Ingo Menger)
Re: Idiom for array index that I'm foreach'ing over? <bik.mido@tiscalinet.it>
Re: Idiom for array index that I'm foreach'ing over? <bernard.el-haginDODGE_THIS@lido-tech.net>
Re: Idiom for array index that I'm foreach'ing over? <tassilo.parseval@rwth-aachen.de>
Re: Idiom for array index that I'm foreach'ing over? (Anno Siegel)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 5 Dec 2003 08:09:45 -0500
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: any idea how to optimize this regex?
Message-Id: <Ns%zb.13869$yd.2031708@news20.bellglobal.com>
"Ben Morrow" <usenet@morrow.me.uk> wrote in message
news:bqoq0c$gms$1@wisteria.csv.warwick.ac.uk...
>
> "Matt Garrish" <matthew.garrish@sympatico.ca> wrote:
> >
> > "Malcolm Dew-Jones" <yf110@vtn1.victoria.tc.ca> wrote in message
> > news:3fcfd01e@news.victoria.tc.ca...
> > >
> > > First off, a comment does not end with >, it ends with --> (and starts
> > > with <!-- so why not test for that correctly also)?
> > >
> > > <!--.*?-->
> > >
> >
> > Html comments allow whitespace between the -- and > when you close a
> > comment, so you'd have to write that as:
> >
> > <!--.*?--\s*>
>
> HTML (SGML) comments also allow whitespace after the '!', and anything
> matching /--\s*--/ to appear within the body of the comment. What
> browsers will accept is another matter... ;)
>
I thought no whitespace at the start of a comment was one of the few things
that html did enforce? It obviously would never fly in sgml if that was the
only way to comment out text (or would make for interesting dtds). Then
again, what standards do any browsers adhere to? : )
Matt
------------------------------
Date: Fri, 05 Dec 2003 12:30:42 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Can perl be used to test ISP upload speed?
Message-Id: <bqpqmd$262n27$1@ID-184292.news.uni-berlin.de>
Ben Morrow wrote:
> Gunnar Hjalmarsson wrote:
>> If I understand you right, you want to know:
>>
>> "How can I have Perl measure the time it takes to run a certain
>> operation?"
>
> I would have said the OP would be better interpreted as "How can I
> write a CGI that will time a file upload submitted to it?"; which I
> don't *think* can be done...
I can't see how a file upload would differ from other things in this
respect. This script appears to work fine for me:
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
my $dir = '/path/to/incoming/directory';
my $starttime = time;
my $q = new CGI;
my $fh = $q->upload('myfile');
$q->uploadInfo($fh)->{'Content-Disposition'} =~
/filename="([\w\-\. ]+)"/;
my $name = ($1 or $starttime);
open FILE, "> $dir/$name" or die $!;
binmode FILE;
print FILE $_ while <$fh>;
close FILE;
print "Content-type: text/html\n\n";
print "$name was uploaded.<br>";
print "It took ", time - $starttime, " seconds.\n";
What am I missing?
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Fri, 5 Dec 2003 12:10:00 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: Can perl be used to test ISP upload speed?
Message-Id: <bqpsio$18a$1@wisteria.csv.warwick.ac.uk>
Gunnar Hjalmarsson <noreply@gunnar.cc> wrote:
> Ben Morrow wrote:
> > Gunnar Hjalmarsson wrote:
> >> If I understand you right, you want to know:
> >>
> >> "How can I have Perl measure the time it takes to run a certain
> >> operation?"
> >
> > I would have said the OP would be better interpreted as "How can I
> > write a CGI that will time a file upload submitted to it?"; which I
> > don't *think* can be done...
>
> I can't see how a file upload would differ from other things in this
> respect. This script appears to work fine for me:
>
<snip>
>
> What am I missing?
*thinks*
Nothing. I was (not) thinking that the actual upload would be
completed before the CGI was invoked.
You may still end up with a smaller value for the time than you
should, if httpd starts buffering the upload before the perl script
starts.
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: 05 Dec 2003 10:55:20 GMT
From: Heinrich.Mislik@univie.ac.at (Heinrich Mislik)
Subject: Re: foreach counter
Message-Id: <3fd06414$0$16036$3b214f66@usenet.univie.ac.at>
In article <Pine.A41.4.58.0312042343480.16464@ginger.libs.uga.edu>, bmb@ginger.libs.uga.edu says...
>
>Too much scotch?
This is really strange:
~>perl -e '$i=4;@x = ($i, $i++);print "@x\n"'
5 4
~>perl -e '$i=4;@x = ("$i", $i++);print "@x\n"'
4 4
Happens with 5.6 and 5.8.
perdoc perlop:
Comma Operator
Binary "," is the comma operator. In scalar context it
evaluates its left argument, throws that value away, then
evaluates its right argument and returns that value. This
is just like C's comma operator.
In list context, it's just the list argument separator,
and inserts both its arguments into the list.
Order of evaluaiton seems to be undefined in list context!
--
Heinrich Mislik
Zentraler Informatikdienst der Universitaet Wien
A-1010 Wien, Universitaetsstrasse 7
Tel.: (+43 1) 4277-14056, Fax: (+43 1) 4277-9140
------------------------------
Date: 5 Dec 2003 13:48:06 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Generating Day of Week in Pure Perl
Message-Id: <bqq2am$7o8$1@mamenchi.zrz.TU-Berlin.DE>
Deborah Pickett <debbiep@csse.monash.edu.au> wrote in comp.lang.perl.misc:
> rev wrote:
>
> > I have a date formatted like so MM/DD/YYYY (e.g. 12/01/2003) and I need
> > to get the day of the week from this (Monday). But, this is occurring
> > on my hosting vendor so whatever does it needs to be pure Perl.
>
> This works for any Gregorian Calendar day. Apologies for the formatting; my
> news client likes to wrap text and I can't be bothered turning off the
> feature for one lousy post. I'll leave it as an exercise for you to
> extract the day, month and year from the string to pass to this function.
> If you know that the date is a valid one, you can omit the function body
> from the first comment until "don't try this at home".
Well, that's some compact bit of code. A few remarks:
> # weekday
> # input: three scalar parameters: year, month (1-origin), day (1-origin).
Add
# which are evaluated in scalar context.
> # output: scalar from 0 to 6 representing Sunday to Saturday respectively.
> # returns undef if month or day is out of bounds or any input is
> # not integral.
> sub weekday ($$$)
If you use the prototype ($$$) the user must be told. Actually, I'd leave
it out. It gives the function non-standard behavior for no good reason.
> {
> my ($y,$m,$d) = @_;
>
> # Year must be made positive for modulus to work correctly.
The problem seems to be the missing year 0. The modulo operator
works fine for negative numerators.
> $y += 400 * (1 + abs int $y/400) if $y <= 0;
>
> # Return undef if anything is out of bounds.
> return undef if
Don't return undef to signal an error, simply return with no argument.
Undef may do the wrong thing when the function is called in list context.
In scalar context, the effect is the same.
> $y != int $y or
> $m != int $m or
> $d != int $d or
> $m < 1 || $m > 12 or
> $d < 1 ||
> $d > [[31,28,31,30,31,30,31,31,30,31,30,31]
There's a comma missing at the end of this line. Did you *retype* the
code?
> [31,29,31,30,31,30,31,31,30,31,30,31]] ->
> [ ((! ($y % 400) || ($y % 100)) && (! ($y % 4))) || 0 ][ $m-1 ];
The leap year calculation is duplicated below. I'd make it a subroutine.
> # The calculation. Don't try this at home, kids.
> (
> [[6,2,2,5,0,3,5,1,4,6,2,4],[6,2,3,6,1,4,6,2,5,0,3,5]] ->
> [ ((! ($y % 400) || ($y % 100)) && (! ($y % 4))) || 0 ][ $m-1 ]
> + $d
> + $y
> + int(($y-1)/4)
> - int(($y-1)/100)
> + int(($y-1)/400)
Come to think of it, in the last three lines you're calculating the
number of leap years before a given year. Make *that* a subroutine,
and find if a given year is a leap year in terms of that.
> ) % 7;
> }
Appending a revised version below. Indentation could use improvement
too, but I left that alone.
I have also used constants for the four auxiliary arrays. That actually
adds some code, but it makes the relation between the arrays explicit.
Anno
# weekday
# input: three scalar parameters: year, month (1-origin), day (1-origin).
# output: scalar from 0 to 6 representing Sunday to Saturday respectively.
# returns undef if month or day is out of bounds or any input is
# not integral.
use constant DAYS_IN_MONTH => do {
my @dim_l = my @dim_n = (31,28,31,30,31,30,31,31,30,31,30,31);
$dim_l[ 1]++; # Feb one day longer in leap years
[\ @dim_n, \ @dim_l];
};
use constant WDAY_OF_FIRST => do {
my @wof_n = ( 6); # Jan 1st is Saturday in reference year
push @wof_n, ( $wof_n[-1] + $_) % 7 for @{ DAYS_IN_MONTH->[0]};
pop @wof_n; # we generated a thirteenth
my @wof_l = ( 6);
push @wof_l, ( $wof_l[-1] + $_) % 7 for @{ DAYS_IN_MONTH->[1]};
pop @wof_l; # we have a thirteenth
[\ @wof_n, \ @wof_l]
};
sub weekday
{
my ($y,$m,$d) = @_;
# Year must be made positive (missing year 0)
$y += 400 * (1 + abs int $y/400) if $y <= 0;
# Return undef if anything is out of bounds.
return if
$y != int $y or
$m != int $m or
$d != int $d or
$m < 1 || $m > 12 or
$d < 1 || $d > DAYS_IN_MONTH -> [ is_leap_year( $y)][ $m-1 ];
# The calculation. Don't try this at home, kids.
(
WDAY_OF_FIRST -> [ is_leap_year( $y) ][ $m-1 ]
+ $d
+ $y
+ n_leap_years( $y - 1)
) % 7;
}
sub n_leap_years {
my $y = shift;
int($y/4) - int($y/100) + int($y/400);
}
sub is_leap_year {
my $y = shift;
n_leap_years( $y) - n_leap_years( $y - 1);
}
------------------------------
Date: Fri, 5 Dec 2003 10:56:34 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: gui in perl
Message-Id: <bqpo92$rah$1@wisteria.csv.warwick.ac.uk>
Edo <eddGallary2@hotmail.com> wrote:
> I need to know if perl is ok for an interactive gui programming,
I have used Tk very successfully for this.
> or should I look into java as well and if so, would both languages work
> in connection with each other?
You may want to look at JPL (see the jpl/ dir in the Perl source
distro) or Inline::Java.
Ben
--
Musica Dei donum optimi, trahit homines, trahit deos. |
Musica truces mollit animos, tristesque mentes erigit. | ben@morrow.me.uk
Musica vel ipsas arbores et horridas movet feras. |
------------------------------
Date: Fri, 05 Dec 2003 13:24:16 +0000
From: Rich <scriptyrich@yahoo.co.uk>
Subject: Re: gui in perl
Message-Id: <bqq0in$o26$1@newsg2.svr.pol.co.uk>
Edo wrote:
> Hello
>
> I need to know if perl is ok for an interactive gui programming,
>
> e.g. tasks I need to do are:
> use a form on the desktop to run a perl script by mouse click, let perl
> script variables use values from text boxes, create a chart with mouse
> location indicated when moved on the x and y axis. add scroll function
> to a chart, automate chart scale, display data from files on a spread
> sheet ...etc.
>
> or should I look into java as well and if so, would both languages work
> in connection with each other?
> any light is appriciated
>
> thanks
If portability and licensing isnt a major concern, and you're on a unix
machine, I would look at PerlQt. Depending on your abilities in both
languages, you should get apps up and running quicker in PQt than Java
where the compile times can sometimes start to really eat into development
time (but hey - if you've got a few Opterons lying about that wont really
matter!). If you need to build large scale gui apps with other developers
coming on board, it would make more sense to go with Java, but I hope that
might change with the advent of p6!
You might also consider the GTk or wxWindow bindings, but the real advantage
of PerlQt is QtDesigner, the GUI form builder supplied with Qt. It makes
development much easier, and is IMHO superior to the fairly basic tools you
can get for GTk or wxWindows.
As others have said, there is also the Tk stuff - certainly pretty easy to
use and get up and running, but from my experience it produces horrible
looking apps - but that may not be of concern to you, and I know the Tk
guys are working on it.
In your case it would also be important to see if charting modules are
available, so that may limit your choice further.
In summary: PerlQt, GTk, wxWindows, Tk in no particular order.
Whatever you choose, have fun!
--
Rich
scriptyrich@yahoo.co.uk
------------------------------
Date: Fri, 5 Dec 2003 13:20:55 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: gui in perl
Message-Id: <bqq0nn$58a$1@wisteria.csv.warwick.ac.uk>
scriptyrich@yahoo.co.uk wrote:
> As others have said, there is also the Tk stuff - certainly pretty easy to
> use and get up and running, but from my experience it produces horrible
> looking apps - but that may not be of concern to you, and I know the Tk
> guys are working on it.
While this is certainly true under Unix, the win32 port of Tk produces
apps which look just like any other windows app; no more and no less
offensive :).
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: Fri, 5 Dec 2003 08:40:02 -0500
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: gui in perl
Message-Id: <9V%zb.13881$yd.2038202@news20.bellglobal.com>
"Ben Morrow" <usenet@morrow.me.uk> wrote in message
news:bqq0nn$58a$1@wisteria.csv.warwick.ac.uk...
>
> scriptyrich@yahoo.co.uk wrote:
> > As others have said, there is also the Tk stuff - certainly pretty easy
to
> > use and get up and running, but from my experience it produces horrible
> > looking apps - but that may not be of concern to you, and I know the Tk
> > guys are working on it.
>
> While this is certainly true under Unix, the win32 port of Tk produces
> apps which look just like any other windows app; no more and no less
> offensive :).
>
But is it worth the pain? I've given up on Tk and just use vc++ to build gui
wrappers to my perl scripts (when I'm too lazy to rewrite all my code in
vc++ but have to make a program "user-friendly").
Matt
------------------------------
Date: Fri, 05 Dec 2003 14:02:04 +0000
From: Helgi Briem <HelgiBriem_1@hotmail.com>
Subject: Re: gui in perl
Message-Id: <sp31tvgesjo3vrekccoqtk1ljb6rnid168@4ax.com>
On Fri, 5 Dec 2003 13:20:55 +0000 (UTC), Ben Morrow
<usenet@morrow.me.uk> wrote:
>scriptyrich@yahoo.co.uk wrote:
>> As others have said, there is also the Tk stuff - certainly pretty easy to
>> use and get up and running, but from my experience it produces horrible
>> looking apps - but that may not be of concern to you, and I know the Tk
>> guys are working on it.
>
>While this is certainly true under Unix, the win32 port of Tk produces
>apps which look just like any other windows app; no more and no less
>offensive :).
It looks just as good (or bad) as the underlying windowing
system, X, Apple Mac or whatever. It certainly always
looks better than anything produced by Java and it's far,
far easier to program. My god, Java produces horrible looking
guis.
------------------------------
Date: Fri, 05 Dec 2003 09:49:13 +0100
From: Tore Aursand <tore@aursand.no>
Subject: Re: How to open a file from the end and read the last 100 lines
Message-Id: <pan.2003.12.05.06.02.35.755130@aursand.no>
On Fri, 05 Dec 2003 04:03:16 +0000, Uri Guttman wrote:
>>> use File::ReadBackawards ;
>> *bzzzt* Should be 'File::ReadBackwards'.
> bah!
>
> it is a module that tells you who won awards in reverse order! :)
*ROTFL*
--
Tore Aursand <tore@aursand.no>
"Why shouldn't truth be stranger than fiction? Fiction, after all, has
to make sense." -- Mark Twain
------------------------------
Date: 5 Dec 2003 05:59:35 -0800
From: quetzalcotl@consultant.com (Ingo Menger)
Subject: Re: How to open a file from the end and read the last 100 lines
Message-Id: <d8184eb8.0312050559.6a84565d@posting.google.com>
rui.vilao@rocketmail.com (Rui Vilao) wrote in message news:<385a715f.0312041004.71e2d777@posting.google.com>...
> Greetings,
>
> I am writing some Perl script to check some patterns errors in an
> alert log (Oracle alert log). The file can't get quite large.
> Therefore I would like write a Perl script that runs every day via at
> and opens the file from the end to read the last 100 lines. How can I
> do this?
> Any help/suggestion is highly appreciated.
>
> Thanks in advance for your help,
>
Instead of
open(FILE, "alert.log")
write
open(FILE, "tail -100 alert.log|")
Dont forget the | sign.
If you don't have tail, you'll also want to replace your OS.
------------------------------
Date: 5 Dec 2003 08:43:49 GMT
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Idiom for array index that I'm foreach'ing over?
Message-Id: <36evsvsojg2b2riqrs42hrjdeg0qbq23dd@4ax.com>
On Thu, 4 Dec 2003 19:27:00 +0000 (UTC), Ben Morrow
<usenet@morrow.me.uk> wrote:
>> $i ++; # hi Abigail
^
>I haven't been here long enough to get the 'hi Abigail', but surely
>that should be in a continue block so you can 'next'?
I *think* it is because of that space. And I can't believe it: it...
it really works!
Michele
--
# This prints: Just another Perl hacker,
seek DATA,15,0 and print q... <DATA>;
__END__
------------------------------
Date: Fri, 5 Dec 2003 08:57:39 +0000 (UTC)
From: "Bernard El-Hagin" <bernard.el-haginDODGE_THIS@lido-tech.net>
Subject: Re: Idiom for array index that I'm foreach'ing over?
Message-Id: <Xns94486500CBDC4elhber1lidotechnet@62.89.127.66>
Michele Dondi <bik.mido@tiscalinet.it> wrote in
news:36evsvsojg2b2riqrs42hrjdeg0qbq23dd@4ax.com:
> On Thu, 4 Dec 2003 19:27:00 +0000 (UTC), Ben Morrow
> <usenet@morrow.me.uk> wrote:
>
>>> $i ++; # hi Abigail
> ^
>
>>I haven't been here long enough to get the 'hi Abigail', but surely
>>that should be in a continue block so you can 'next'?
>
> I *think* it is because of that space. And I can't believe it: it...
> it really works!
What's so unbelievable about it?
--
Cheers,
Bernard
------------------------------
Date: 5 Dec 2003 11:02:11 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: Idiom for array index that I'm foreach'ing over?
Message-Id: <bqpojj$5h6$1@nets3.rz.RWTH-Aachen.DE>
Also sprach Michele Dondi:
> On Thu, 4 Dec 2003 19:27:00 +0000 (UTC), Ben Morrow
><usenet@morrow.me.uk> wrote:
>
>>> $i ++; # hi Abigail
> ^
>
>>I haven't been here long enough to get the 'hi Abigail', but surely
>>that should be in a continue block so you can 'next'?
>
> I *think* it is because of that space. And I can't believe it: it...
> it really works!
Well, you can do funny things in Perl, particularly with whitespaces:
ethan@ethan:~$ perl
$
# comment
bla
= 5
;
print $bla;
__END__
5
As I recall, Abigail occasionally uses such tricks in an imaginative way
in his signatures.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: 5 Dec 2003 11:33:58 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Idiom for array index that I'm foreach'ing over?
Message-Id: <bqpqf6$2ho$1@mamenchi.zrz.TU-Berlin.DE>
Brad Baxter <bmb@ginger.libs.uga.edu> wrote in comp.lang.perl.misc:
> On Thu, 4 Dec 2003, Anno Siegel wrote:
> > If you can't avoid parallel lists, I see something like
> >
> > for ( map [ $_, shift @yy], @xx ) {
> > my ( $x, $y) = @$_;
> > print "x: $x, y: $y\n";
> > # here we go
> > }
> >
> > which is slightly obscure and partially destructive. Maybe an indexed
> > approach is okay for a ten-liner.
>
> Here's one non-destructive version:
>
> my %h;
> @h{@xx}=@yy;
> for ( map [ $_, $h{$_}], @xx ) {
> my ( $x, $y) = @$_;
> print "x: $x, y: $y\n";
> }
No. That will generally fail when the elements in @xx aren't unique.
> Here's another. :-)
>
> {{
> my $i=0;
> sub rewind{$i=0}
> sub eAch(\@\@){$i>$#{$_[0]}&&$i>$#{$_[1]}?():($_[0][$i],$_[1][$i ++])}
> }}
Oh, the double-brace convention. I'm feeling flattered :)
> while( my( $x, $y ) = eAch( @xx, @yy ) ) {
> print "x: $x, y: $y\n";
> }
Another variation of the each-for-lists theme, with a nice use of
prototypes. If we had a prototype for "arbitrarily many of \@", this
could be generalized to a step-by-step transposition routine for any
number of parallel arrays.
Anno
------------------------------
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.
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 5896
***************************************
