[29494] in Perl-Users-Digest
Perl-Users Digest, Issue: 738 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Aug 10 00:10:25 2007
Date: Thu, 9 Aug 2007 21:09:34 -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, 9 Aug 2007 Volume: 11 Number: 738
Today's topics:
Re: checking for newly added files <rkb@i.frys.com>
How can I find out what changed betwen perl versions? <bill@ts1000.us>
Re: How can I find out what changed betwen perl version <rkb@i.frys.com>
Re: How can I find out what changed betwen perl version <glex_no-spam@qwest-spam-no.invalid>
Re: How can I find out what changed betwen perl version <paduille.4061.mumia.w+nospam@earthlink.net>
Re: how to tranpose a huge text file <RedGrittyBrick@SpamWeary.foo>
Re: how to tranpose a huge text file <wahab-mail@gmx.de>
Re: how to tranpose a huge text file <jiehuang001@gmail.com>
Re: more elegant way to say ($1, $2, $3, $4, ...)? <wahab-mail@gmx.de>
or, || not working with next LABEL <usaims@yahoo.com>
Re: or, || not working with next LABEL <No_4@dsl.pipex.com>
Re: or, || not working with next LABEL <m@rtij.nl.invlalid>
Out of memory in vec <paduille.4061.mumia.w+nospam@earthlink.net>
Re: pass by reference <paduille.4061.mumia.w+nospam@earthlink.net>
Re: pass by reference <glex_no-spam@qwest-spam-no.invalid>
Re: pass by reference <uri@stemsystems.com>
Re: pass by reference <tadmc@seesig.invalid>
Re: Size of all files in a directory? <ced@blv-sam-01.ca.boeing.com>
Re: uncleared data on serial port problem <luhaorice@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 09 Aug 2007 14:54:54 -0700
From: Ron Bergin <rkb@i.frys.com>
Subject: Re: checking for newly added files
Message-Id: <1186696494.770659.218050@i13g2000prf.googlegroups.com>
On Aug 9, 12:10 pm, Sharif Islam <mis...@npspam.uiuc.edu> wrote:
> my @tm = localtime((stat $file)[9]);
> my $filedate=sprintf("%04d-%02d-%02d
> %02d:%02d:%02d",$tm[5]+1900,$tm[4]+1,$tm[3],$tm[2],$tm[1],$tm[0]);
> print "$filedate\n";
As a side note, that's kinda klunky. It would be cleaner and IMO
better to do this:
use POSIX 'strftime';
my $filedate = strftime("%Y-%m-%d %T", localtime((stat $file)[9]));
print "$filedate\n";
------------------------------
Date: Thu, 09 Aug 2007 15:53:50 -0700
From: Bill H <bill@ts1000.us>
Subject: How can I find out what changed betwen perl versions?
Message-Id: <1186700030.433302.67600@x35g2000prf.googlegroups.com>
I have a perplexing issue. I have this program that I have been using
for about 4 years, it takes a tab delimited file and creates a marked
up file for pagemaker (basically all text with tags similar to html.
The thing I am trying to figure out is:
I have always used Active State perl v 5.005.03 for this program and
still have it installed on one machine. On my newer machine I have
v5.8.8.
When I run the exact same program (last date modified on the program
was 6/5/7), on the exact same data (same size on both machines, under
v5.005.03 I get a resulting text file of 4833kb, but under 5.8.8
(again same program, same data, different machine) I get a resulting
text file size of 4607kb. What could cause such a size difference in
the resulting file (or any size difference)?
The program is a very simple program that just reads the file and
makes a new file, it doesnt use any libraries, api's or other external
stuff (cept what is in perl).
Any clues? If you want to see the program and the data let me know and
I will send it to you.
Bill H
------------------------------
Date: Thu, 09 Aug 2007 16:08:09 -0700
From: Ron Bergin <rkb@i.frys.com>
Subject: Re: How can I find out what changed betwen perl versions?
Message-Id: <1186700889.589005.84750@j4g2000prf.googlegroups.com>
On Aug 9, 3:53 pm, Bill H <b...@ts1000.us> wrote:
> I have a perplexing issue. I have this program that I have been using
> for about 4 years, it takes a tab delimited file and creates a marked
> up file for pagemaker (basically all text with tags similar to html.
> The thing I am trying to figure out is:
>
> I have always used Active State perl v 5.005.03 for this program and
> still have it installed on one machine. On my newer machine I have
> v5.8.8.
>
> When I run the exact same program (last date modified on the program
> was 6/5/7), on the exact same data (same size on both machines, under
> v5.005.03 I get a resulting text file of 4833kb, but under 5.8.8
> (again same program, same data, different machine) I get a resulting
> text file size of 4607kb. What could cause such a size difference in
> the resulting file (or any size difference)?
>
> The program is a very simple program that just reads the file and
> makes a new file, it doesnt use any libraries, api's or other external
> stuff (cept what is in perl).
>
> Any clues? If you want to see the program and the data let me know and
> I will send it to you.
>
> Bill H
Without seeing the code, it's impossible to say what's wrong.
------------------------------
Date: Thu, 09 Aug 2007 18:08:35 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: How can I find out what changed betwen perl versions?
Message-Id: <46bb9e74$0$508$815e3792@news.qwest.net>
Bill H wrote:
> I have a perplexing issue. I have this program that I have been using
> for about 4 years, it takes a tab delimited file and creates a marked
> up file for pagemaker (basically all text with tags similar to html.
> The thing I am trying to figure out is:
>
> I have always used Active State perl v 5.005.03 for this program and
> still have it installed on one machine. On my newer machine I have
> v5.8.8.
>
> When I run the exact same program (last date modified on the program
> was 6/5/7), on the exact same data (same size on both machines, under
> v5.005.03 I get a resulting text file of 4833kb, but under 5.8.8
> (again same program, same data, different machine) I get a resulting
> text file size of 4607kb. What could cause such a size difference in
> the resulting file (or any size difference)?
>
> The program is a very simple program that just reads the file and
> makes a new file, it doesnt use any libraries, api's or other external
> stuff (cept what is in perl).
>
> Any clues? If you want to see the program and the data let me know and
> I will send it to you.
Do a 'diff' between the files to show what's different, maybe that will
provide a clue or narrow down the issue and it might help you to
provide a short example showing the differences.
------------------------------
Date: Thu, 09 Aug 2007 22:21:25 -0500
From: "Mumia W." <paduille.4061.mumia.w+nospam@earthlink.net>
Subject: Re: How can I find out what changed betwen perl versions?
Message-Id: <13bnp65flnq5q0b@corp.supernews.com>
On 08/09/2007 05:53 PM, Bill H wrote:
> [...]
> When I run the exact same program (last date modified on the program
> was 6/5/7), on the exact same data (same size on both machines, under
> v5.005.03 I get a resulting text file of 4833kb, but under 5.8.8
> (again same program, same data, different machine) I get a resulting
> text file size of 4607kb. What could cause such a size difference in
> the resulting file (or any size difference)?
> [...]
Differences in how Unicode characters are handled might cause this, but
it's impossible to tell without seeing the program and its data.
------------------------------
Date: Thu, 09 Aug 2007 21:28:38 +0100
From: RedGrittyBrick <RedGrittyBrick@SpamWeary.foo>
Subject: Re: how to tranpose a huge text file
Message-Id: <8KidneeIQqdo5SbbnZ2dnUVZ8rOdnZ2d@bt.com>
bugbear wrote:
> Jie wrote:
>> I have a huge text file with 1000 columns and about 1 million rows,
>> and I need to transpose this text file so that row become column and
>> column become row. (in case you are curious, this is a genotype file).
>>
>> Can someone recommend me an easy and efficient way to transpose such a
>> large dataset, hopefully with Perl ?
>
> This is very analagous to the problems
> of rotating a (much larger than memory) photograph.
>
Are you suggesting
encode as GIF
invoke Image::Magik rotate 90
decode
?
Feasible* but a little weird :-)
--
RGB
Assuming the number of distinct genotype elements is less than the max
number of color values in a GIF (256). Otherwise try PNG?
------------------------------
Date: Thu, 09 Aug 2007 22:48:00 +0200
From: Mirco Wahab <wahab-mail@gmx.de>
Subject: Re: how to tranpose a huge text file
Message-Id: <f9fv7h$rkg$1@mlucom4.urz.uni-halle.de>
Jie wrote:
> But I really doubt that either will work. So, can someone please throw
> some idea and hopefully code here?!
PLEASE give the slightest hint on how
this file *looks like*. If you could
bring up an example of .. say the first
10 rows => the left 20 and the right 20
columns in each, so everybody can guess
what you're talking about.
Regards
M.
------------------------------
Date: Fri, 10 Aug 2007 04:01:57 -0000
From: Jie <jiehuang001@gmail.com>
Subject: Re: how to tranpose a huge text file
Message-Id: <1186718517.741819.120420@e9g2000prf.googlegroups.com>
Hi, I already posted a sample dataset here http://www.humanbee.com/BIG.txt
, as I mentioned in the previous message..........
------------------------------
Date: Thu, 09 Aug 2007 22:11:25 +0200
From: Mirco Wahab <wahab-mail@gmx.de>
Subject: Re: more elegant way to say ($1, $2, $3, $4, ...)?
Message-Id: <f9ft2v$r4e$1@mlucom4.urz.uni-halle.de>
Larry wrote:
> I'm using a /g regex in a while loop to capture parenthesized matches
> to meaningful variable names like this:
>
> while (/ (...) ... (...) ... (...)/g) {
> my ($foo, $bar, $baz) = ($1, $2, $3);
> ...
> }
> The ($1, $2, $3) part seems inelegant ... is there a more elegant way?
The $n is an idiomatic expression which is
not that bad in my opinion.
You could fake 'named captures' like this:
...
my ($foo, $bar, $baz);
$_ = ' abc def' x 60;
while(/ (...)(?{$foo=$^N}) ... (...)(?{$bar=$^N}) ... (...)(?{$baz=$^N}) /g) {
print "$foo, $bar, $baz\n"
}
...
or even (whatch your braces)
...
while(/ (...) ... (...) ... (...)(?{($foo,$bar,$baz)=($1,$2,$3)})/g) {
print "$foo, $bar, $baz\n";
}
...
Regards
M.
------------------------------
Date: Thu, 09 Aug 2007 15:38:31 -0700
From: usaims <usaims@yahoo.com>
Subject: or, || not working with next LABEL
Message-Id: <1186699111.193797.34410@x35g2000prf.googlegroups.com>
Newbie question.
My "or" "||" is not working in my little script, it works if I don't
add an 'or' statement.
Any clue, thanks.
#########################
NOT WORKING
#########################
#!/usr/bin/perl -w
use strict;
use vars qw(@mylist);
CAPTURE:
while ( my $current_line = <DATA> ) {
next CAPTURE if ($current_line !~ m/SOAP <(\S+)>/) || ($current_line !
~ m/GET \/Accurin\/(\S+),/);
push(@mylist,"$1\n");
}
print @mylist;
__DATA__
GET /Accurin/HealthCareProviderSearch, from whomever@x.x.x.x"
GET /Accurin/HealthCareProviderSearch, from whomever@x.x.x.x"
GET /Accurin/HealthCareProviderSearch, from whomever@x.x.x.x"
GET /Accurin/HealthCareProviderSearch, from whomever@x.x.x.x"
SOAP <PersonSearch> from app@x.x.x.x"
SOAP <IDRequest> from bob@x.x.x.x"
SOAP <WirelessSearch> from app@x.x.x.x"
###########################
WORKING
###########################
#!/usr/bin/perl -w
use strict;
use vars qw(@mylist);
CAPTURE:
while ( my $current_line = <DATA> ) {
next CAPTURE if $current_line !~ m/SOAP <(\S+)>/;
push(@mylist,"$1\n");
}
print @mylist;
__DATA__
GET /Accurin/HealthCareProviderSearch, from whomever@x.x.x.x"
GET /Accurin/HealthCareProviderSearch, from whomever@x.x.x.x"
GET /Accurin/HealthCareProviderSearch, from whomever@x.x.x.x"
GET /Accurin/HealthCareProviderSearch, from whomever@x.x.x.x"
SOAP <PersonSearch> from app@x.x.x.x"
SOAP <IDRequest> from bob@x.x.x.x"
SOAP <WirelessSearch> from app@x.x.x.x"
------------------------------
Date: Fri, 10 Aug 2007 00:03:38 +0100
From: Big and Blue <No_4@dsl.pipex.com>
Subject: Re: or, || not working with next LABEL
Message-Id: <StKdnTnk1KTWACbbRVnytAA@pipex.net>
usaims wrote:
> Newbie question.
> My "or" "||" is not working in my little script, it works if I don't
> add an 'or' statement.
You've got 2 tests, and one of them is true for each of the lines, so
you always do the next, as the test is always true.
> CAPTURE:
> while ( my $current_line = <DATA> ) {
> next CAPTURE if ($current_line !~ m/SOAP <(\S+)>/) ||
> ($current_line !~ m/GET \/Accurin\/(\S+),/);
Change the logic and do the action if the line is what you want:
while ( my $current_line = <DATA> ) {
push(@mylist,"$1\n") if (($current_line =~ m/SOAP <(\S+)>/)
or ($current_line =~ m/GET \/Accurin\/(\S+),/));
}
print @mylist;
--
Just because I've written it doesn't mean that
either you or I have to believe it.
------------------------------
Date: Fri, 10 Aug 2007 03:00:42 +0200
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: or, || not working with next LABEL
Message-Id: <pan.2007.08.10.01.00.42@rtij.nl.invlalid>
On Thu, 09 Aug 2007 15:38:31 -0700, usaims wrote:
> Newbie question.
> My "or" "||" is not working in my little script, it works if I don't
> add an 'or' statement.
> Any clue, thanks.
Well it does precisely what you tell it to do.
(a !~ re) || (b !~ re) is equivelent to
not ((a =~ re) and (b =~ re))
Does that make it clearer? You need and and there, not an or.
HTH,
M4
------------------------------
Date: Thu, 09 Aug 2007 23:02:36 -0500
From: "Mumia W." <paduille.4061.mumia.w+nospam@earthlink.net>
Subject: Out of memory in vec
Message-Id: <13bnp66qu4un80c@corp.supernews.com>
I have 512mb RAM and 800mb swap, Perl 5.8.4 (and 5.9.4) under i386 Linux.
I decided to try out Jie Huang's idea of transposing a large array of
"bioinfomatics" data. Since I don't know what bioinfomatics data is, I
just assumed that they were sequences of the amino acids A, C, G, and T.
And since Jie never gave a sample of his/her data, I created a program
to do so:
#!/usr/bin/perl
use strict;
use warnings;
my @bases = qw/A C T G/;
my $rows = shift() || 5;
my $cols = shift() || 10;
for my $n (1 .. ($rows * $cols)) {
my $base = $bases[rand @bases];
print $base;
print "\n" if (0 == ($n % $cols));
}
print "\n";
__END__
I then went to writing the transposition program. A gigabyte (1e6 rows ×
1000 columns) is a lot of memory, so I wanted to avoid forcing each item
to take an entire byte, and since A, C, T and G are only four distinct
values, an entire byte is not needed to encode them, so I opted to use
four bits for each item and the vec() function:
#!/usr/bin/perl
use strict;
use warnings;
use Fatal qw/open close/;
use constant WIDTH => 4;
my $infile = shift() || 'data/bases-small';
my $outfile = 'out';
my %bases = (A => 0, C => 1, G => 2, T => 3);
my %rbases = reverse %bases;
my $buffer = '';
open my $ifh, '<', $infile;
open my $ofh, '>', $outfile;
my $offset = 0;
my $maxset = 0;
my $reclen;
my $maxrow = -1;
while (<$ifh>) {
$reclen = length($_)-1 unless defined $reclen;
while (/([ACTG])/g) {
vec($buffer, $offset++, WIDTH) = $bases{$1};
}
$maxrow++;
}
$maxset = $offset;
system(ps => 'up', $$);
for my $col (0 .. $reclen-1) {
for my $row (0 .. $maxrow-1) {
my $base = vec($buffer, $col + ($row * $reclen), WIDTH);
print $ofh $rbases{$base};
}
print $ofh "\n";
}
print $ofh "\n";
close $ofh;
close $ifh;
__END__
This program works with a small file of 10MB, but it falls over with
"Out of memory!" for the one gigabyte file. I shouldn't be all too
surprised if vec() a gigabyte of data, but is there some documented
limit on vec?
I absolutely never had a chance to run out of swap while running this
program. It ran for about 20 minutes, consumed over 230MB of total
memory, then aborted.
------------------------------
Date: Thu, 09 Aug 2007 15:23:38 -0500
From: "Mumia W." <paduille.4061.mumia.w+nospam@earthlink.net>
Subject: Re: pass by reference
Message-Id: <13bmvb3es8bnt9c@corp.supernews.com>
On 08/09/2007 01:05 PM, Larry wrote:
>
> I don't like the $_[0] method, because it doesn't give me a chance to
> name my variables.... I prefer names, not numbers, thank you! :)
>
No problem. Just use typeglob aliases:
use strict;
use warnings;
our $argument;
$argument = 4;
squareMe($argument);
print $argument, "\n";
sub squareMe {
local *argument = \$_[0];
$argument *= $argument;
}
------------------------------
Date: Thu, 09 Aug 2007 16:00:07 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: pass by reference
Message-Id: <46bb8058$0$507$815e3792@news.qwest.net>
Larry wrote:
> Sometimes, I do want side effects! What if I know that every time I
> call "squareMe" I will want to modify the var. being squared?
Fine. Everyone is telling you that it's not a good practice
and you're not going to convince anyone that it is a good practice.
As long as you are the only person who will ever use it,
then do whatever you like. Once you start writing code
that other people will use, or apply for a job and submit
code like this, you'll realize that what you 'want' is
totally the opposite of what most people want or expect.
------------------------------
Date: Thu, 09 Aug 2007 22:39:12 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: pass by reference
Message-Id: <x7bqdgib8u.fsf@mail.sysarch.com>
>>>>> "L" == Larry <larry.grant.dc@gmail.com> writes:
>> tell them to pass a real ref and be done with it. they need to learn
>> about refs anyhow and coddling your callers is doing them a big
>> disservice.
>>
>> uri
L> I see your point, but I miss "real" passing by reference from Pascal
L> and Ada. But C, Perl and Java seem to want to bury it :(
you still don't get it. perl has real pass by ref in @_. copying @_ to
lexicals makes it pass by value. you have both in perl and you also have
explicit pass by ref when you use refs which is a third option. perl is
more flexible about passing args than most langs. and wait until you see
perl 6! :)
and note that classic pass by ref was nasty too with unintended side
effects being a tough bug to find. perl allows that but the standard
idiom of copying @_ to lexicals eliminates that bug.
again, trust me when i say have the callers pass in a real ref. it is
safer, more explicit (less bug prone) and will teach them better
perl. very very few exported functions on cpan do pass by ref as you
want it. and don't even think about it for object oriented code as that
is even nastier in breaking OO contraints.
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: Fri, 10 Aug 2007 00:08:44 GMT
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: pass by reference
Message-Id: <slrnfbn93t.l9e.tadmc@tadmc30.sbcglobal.net>
Jim Gibson <jgibson@mail.arc.nasa.gov> wrote:
> In article <1186682747.757896.223810@o61g2000hsh.googlegroups.com>,
> Larry <larry.grant.dc@gmail.com> wrote:
>
>> On Aug 9, 2:04 pm, Peter Makholm <pe...@makholm.net> wrote:
>> > Larry <larry.grant...@gmail.com> writes:
>> > > The following code snippet shows how I do "pass by reference" in
>> > > Perl. It works fine, but I'm wondering... is there a less verbose way
>> > > to do this?
>> >
>> > Perl already implements a kind of pass by reference in the @_
>> > argument.
>> >
>> > #!/usr/bin/perl -l
>> > sub squareMe {
>> > $_[0] *= $_[0];
>
>
>>
>> I don't like the $_[0] method, because it doesn't give me a chance to
>> name my variables.... I prefer names, not numbers, thank you! :)
>>
>
> $_ is a name, just not a pronounceable one!
I've heard it pronounced "dollar underwear".
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Thu, 09 Aug 2007 16:31:42 -0700
From: "comp.llang.perl.moderated" <ced@blv-sam-01.ca.boeing.com>
Subject: Re: Size of all files in a directory?
Message-Id: <1186702302.427483.153570@x35g2000prf.googlegroups.com>
On Aug 9, 11:46 am, "John W. Krahn" <du...@example.com> wrote:
> Paul Lalli wrote:
> > On Aug 9, 8:14 am, Paul Lalli <mri...@gmail.com> wrote:
> >> On Aug 9, 1:08 am, "comp.llang.perl.moderated" <c...@blv-
> >> sam-01.ca.boeing.com> wrote:
> >>> On Aug 7, 3:20 pm, Paul Lalli <mri...@gmail.com> wrote:
> >>>> there's nothing intuitively telling me readdir returned
> >>>> false because there was an OS error, or because the
> >>>> directory actually was empty. I guess I would rather it
> >>>> throw an exception.
> >>> You could get something very similar with Fatal's "succeed
> >>> or die" semantics:
> >> Interesting, I hadn't considered that. Thanks for the idea.
>
> > Uhm, I conditionally take that back. ;-) Fatal seems to severely
> > FUBAR readdir(). What am I doing wrong?
>
> $ perl -wle'
> use Fatal qw/readdir/;
> opendir DH, "." or die $!;
> my @files = readdir DH;
> print for @files;
> '
> Name "main::DH" used only once: possible typo at -e line 3.
> test
>
> It appears that the directory handle is invalidated at some point?
>
Looks like a patch was suggested on p5p and is still needed:
http://groups.google.com/group/perl.perl5.porters/browse_thread/thread/df9a6b1b8fbc0610/dd51c9004d363e59?lnk=st&q=&rnum=2&hl=en#dd51c9004d363e59
--
Charles DeRykus
------------------------------
Date: Thu, 09 Aug 2007 22:40:50 -0000
From: hl <luhaorice@gmail.com>
Subject: Re: uncleared data on serial port problem
Message-Id: <1186699250.711313.86690@i38g2000prf.googlegroups.com>
On 7 18 , 10 43 , "Ekki Plicht (DF4OR)" <df...@web.de> wrote:
>
> My first aasumption would be that the serial port has 'echo' turned on. If
> thatis at all possible under Windows.
> Try to find out how the serial port is configured outside of Perl (way back
> at DOS times that was done with the 'mode' command).
>
> > send: read?..
> > receive: 1.82331,3.1201,8.3883,1384,0120..
>
> > this is the problem--->send: 1.82331,3.1201,8.3883,1384,0120read?..
> > receive: 1.9339,3.8504,9.8383,1808,3930
>
> If the wrong data is actually transmitted, it's probably another problem.
> Then you really take the incoming data and somehow pipe it back to the
> transmit buffer... however you do this :-)
>
> Rgds,
> Ekki
Thank you very much! But I am still not able to solve this problem.
1. can't find a "echo" option with "mode" command.
2. when I do debug mode as "perl -d readdat.pl" and just keep on
stepping down, everything works ok; no data echoed. But not when I
run the script.
I am really confused.
------------------------------
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 738
**************************************
