[22748] in Perl-Users-Digest
Perl-Users Digest, Issue: 4969 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat May 10 11:05:36 2003
Date: Sat, 10 May 2003 08:05:08 -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 Sat, 10 May 2003 Volume: 10 Number: 4969
Today's topics:
alarm and readline (A Perl 5.8.0 bug or a feature?) <spambox@centrum.cz>
Re: Bloody Java Proselytisers!!! <goedicke@goedsole.com>
Re: Bloody Java Proselytisers!!! <denshimeiru-sapmctacher@durchnull.ath.cx>
bootstrap <kalinabears@hdc.com.au>
IO:Select module Help! <imarinejt@hotmail.com>
Re: Logic(al nightmare!) <sammie@greatergreen.com>
Re: Logic(al nightmare!) (Sam Holden)
Need Help piping text with variables into a new file <shotoku.taishi@virgin.net>
Re: Need Help piping text with variables into a new fil <noreply@gunnar.cc>
Re: Need Help piping text with variables into a new fil <denshimeiru-sapmctacher@durchnull.ath.cx>
Re: Need Help piping text with variables into a new fil <jurgenex@hotmail.com>
Re: Need Help piping text with variables into a new fil <nobull@mail.com>
Re: perl -pe "s/<er>/<er>\n"/g": memory efficient versi <krahnj@acm.org>
Re: Splitting, Sorting, then Rebuilding an Array <mpapec@yahoo.com>
Re: Splitting, Sorting, then Rebuilding an Array <nobull@mail.com>
Re: UnixDate semantics change (Jay Tilton)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 10 May 2003 14:53:58 GMT
From: Jiri <spambox@centrum.cz>
Subject: alarm and readline (A Perl 5.8.0 bug or a feature?)
Message-Id: <b9j3q6$jl2eh$1@ID-134981.news.dfncis.de>
Right, let me try to answer the question myself, as it my help other
people with a similar problem. The problem really seems to be with Perl
5.8.0. In Perl 5.6.1, the tick subroutine in the code
#!/usr/bin/perl -w
use Term::ReadLine;
$term = new Term::ReadLine 'Simple Perl calc';
$prompt = "Enter your arithmetic expression: ";
$OUT = $term->OUT || STDOUT;
$SIG{ALRM} = "tick";
alarm(1);
sub tick {
print "tick\n";
alarm(1);
}
while ( defined ($_ = $term->readline($prompt)) ) {
$res = eval($_), "\n";
warn $@ if $@;
print $OUT $res, "\n" unless $@;
$term->addhistory($_) if /\S/;
}
gets called every second, even though Perl is waiting for an input line.
For some reason, the alarm function is not executed in Perl 5.8.0 (at
least on Slackware Linux 8.1--9.0).
A follow on question is: "Is this a feature, or a bug?". Is it worth
upgrading to Perl 5.8.0? Other programs also seem to have problems
(mainly Unicode-related) with Perl 5.8.0. Is there some way of forcing
a "compatibility mode" to make older programs which worked with 5.6.1
but not with 5.8.0 run?
Thanks.
--
Jiri
------------------------------
Date: Sat, 10 May 2003 10:31:35 GMT
From: William Goedicke <goedicke@goedsole.com>
Subject: Re: Bloody Java Proselytisers!!!
Message-Id: <m3k7czt7nh.fsf@mail.goedsole.com>
Dear Charlton et al -
Pardon my ineptitude with supercite (helpful suggestions welcome).
What characteristic does java have that makes it better at
this than other languages?
Charlton Wilbur <cwilbur@mithril.chromatico.net> writes:
> An enormous standard library
This doesn't strike me as a differentiating point from perl.
> Except that to develop at all you have the JDK on your system, and to
> run Java at all you have the JRE. Imagine if you knew you could use
> any module from CPAN, and you could ship code that relied on any
> module in CPAN, without having to worry about installing modules.
The functionality of JDK and JRE must have dramatically expanded since
the last time I worked with them. In that bygone age it wasn't,
overall, much greater than what the base perl install includes.
The current CPAN functionality is vastly greater than what is
available for java without spending money on objects from obscure little
companies that can't provide the support the public-domain community
provides.
> Consistent support from Sun
What? Are you being sarcastic? And what about the myriad other
JDEs, JVMs...
> If you pay Sun enough, you can get support and training from the
> people who created Java.
Of course you mean the firm not the "people".
> Who in the Perl world provides anything similar?
The actual "people" who wrote it do, via usenet fora and often direct
e-mail.
You're expected to have read the documentation, but if there's an
actual problem with the code, in general the author or capably
authoring users respond. That level of support is beyond the
capabilities of Sun, IBM or Microsoft.
> But error handling in Java is most easily done with exceptions; if
> you don't check the error result, you get a stack dump with a
> FileNotOpen exception when you try to write to it. Perl, by
> contrast, provides very good error messages, but you need to
> explicitly check them for them to do you any good.
Is the result to the user better in the case of java exceptions?
> Indeed, I think it's the focus on object orientation, plus
> Model-View-Controller and the standard library, that makes Java
> useful in this way: it's not that OO or MVC is in itself superior,
> but that if all the Java programmers are familiar with those models,
> then you really have all your programmers working in one mode.
That's food for thought, thanks.
Yours - Billy
============================================================
William Goedicke goedicke@goedsole.com
http://www.goedsole.com:8080
============================================================
Lest we forget:
You can "see" the clams.
- Pauline Goedicke (aka Nana)
------------------------------
Date: 10 May 2003 12:06:52 GMT
From: Rudolf Polzer <denshimeiru-sapmctacher@durchnull.ath.cx>
Subject: Re: Bloody Java Proselytisers!!!
Message-Id: <slrnbbpqsj.n2j.denshimeiru-sapmctacher@message-id.durchnull.ath.cx>
Scripsit ille »William Goedicke« <goedicke@goedsole.com>:
> > But error handling in Java is most easily done with exceptions; if
> > you don't check the error result, you get a stack dump with a
> > FileNotOpen exception when you try to write to it. Perl, by
> > contrast, provides very good error messages, but you need to
> > explicitly check them for them to do you any good.
>
> Is the result to the user better in the case of java exceptions?
Yes.
- eval/$@ handling: one can easily forget to rethrow an exception one
cannot handle.
- return codes: one can forget to use them.
But in the latter case, Perl has been designed to be foolproof:
open FH, "</does/not/exist";
while(<FH>)
{
$text .= some_function($_);
}
close FH;
treats nonexistant files as empty. If one doesn't check for return codes
when writing to a file, nonexistant files are treated as null devices.
I like the former point but not the latter.
One could borrow an idea from Ruby to make users handle errors on open:
IO::File.open('/dev/stdout', 'w') do |fh|
fh.print("Hello!\n")
end
It throws an exception if the file isn't writable (I only like that
behaviour when WRITING to files, not when READING because it can often
be convenient to just ignore errors when reading configuration files to
override built-in defaults). But, the main point: fh is only valid
inside the block and the block is only executed on successful opening.
BTW:
begin
# ...
rescue SystemError => e
# ...
end
only those exceptions which are explicitly named are cought.
One could do a similar (not exactly the same) thing in Perl:
use Data::Dumper;
sub block(&) # for or/and switch() replacements
{
my $sub = shift;
$sub->();
1;
}
eval
{
# die hard => 3;
# open FH, "</does/not/exist"
# or die "IOError: $!";
die bless { stupid => 1 }, 'Error::StupidError';
1;
}
or $@ =~ /^IOError: (.*)/ and block
{
print "IOError caught: $1";
}
or ref $@ eq 'Error::StupidError' and block
{
print "Stupid error: ", Dumper $@;
die $@;
}
or
die $@;
It works and only has one disadvantage: if one forgets the rethrow clause
"or die $@", exceptions can get lost.
--
So geht es über Stein und Stock,
Es f-t die Hexe, es st-t der Bock.
------------------------------
Date: Sat, 10 May 2003 21:42:06 +1000
From: "Sisyphus" <kalinabears@hdc.com.au>
Subject: bootstrap
Message-Id: <3ebce6a1$0$6557@echo-01.iinet.net.au>
Hi,
I note that some modules (extensions) contain:
bootstrap This_Module;
while others contain:
bootstrap This_Module $VERSION;
What determines whether the "$VERSION" needs to be bootstrapped ?
(I built the PAR module with Compress-Zlib-1.14 installed on my computer and
it worked fine. I then updated Compress-Zlib to version 1.19. After that,
whenever I run any pp-built executable, I get the fatal error
"Compress::Zlib object version 1.14 does not match bootstrap parameter
1.19....".
One way to fix that is to recompile PAR.
As an alternative, I tried altering the bootstrap in Zlib.pm from:
bootstrap Compress::Zlib $VERSION;
to:
bootstrap Compress::Zlib;
I then rebuilt the ("Hello world") executable with pp - but it produced an
error when I ran the executable. It was difficult to tell just what that
error was because it also crashed the computer, and I didn't have time to
read the error message. As a result of that crash I deduce that the
inclusion of "$VERSION" in the bootstrap command is of some significance -
hence my question.)
Cheers,
Rob
------------------------------
Date: Sat, 10 May 2003 11:13:28 GMT
From: J <imarinejt@hotmail.com>
Subject: IO:Select module Help!
Message-Id: <smnpbv80b6gn8rmotum8e5ctg96b0oh2tl@4ax.com>
Hi,
I have setup to listening sockets, one a UDP one and another TCP one. I need to use the
Select method to listen for data on each of these. I have the following so far:
#!/usr/bin/perl -w
use IO::Socket;
use IO::Select;
# Read config file and store in array
my @config;
open (CONFIG, "config.txt") or die "I couldn't open server config file";
@config = <CONFIG>;
close CONFIG;
my $wb_server_port = $config[0];
my $lc_server_port = $config[1];
my $ig_host_name = $config[4];
my $ig_port = $config[5];
my $ig_username = $config[6];
my $ig_password = $config[7];
my $wb_listener = IO::Socket::INET->new(LocalPort => $wb_server_port,
Proto => "tcp",
Listen => 250 )
or die "Couldn't be a web server on port $wb_server_port : $@\n";
my $lc_listener = IO::Socket::INET->new(LocalPort => $lc_server_port,
Proto => "udp")
or die "Couldn't be a log client server on port $lc_server_port : $@\n";
my $select = IO::Select->new($wb_listener);
$select->add($lc_listener);
I would like to know how I now go about testing for and handling the incoming data for
each of the listeners.
Cheers
------------------------------
Date: Sat, 10 May 2003 10:05:04 GMT
From: "Brad Walton" <sammie@greatergreen.com>
Subject: Re: Logic(al nightmare!)
Message-Id: <k94va.799140$F1.100704@sccrnsc04>
> Did you read the guidelines Tad thoughtfully linked for you?
Yes I did Eric. There was no mention of 'top-post' in there at all. The term
was not clear to me, but now that you have pointed me in the right
direction, I see what he meant and it makes sense. I was not being rude,
just did not understand what he meant...
------------------------------
Date: 10 May 2003 12:17:14 GMT
From: sholden@flexal.cs.usyd.edu.au (Sam Holden)
Subject: Re: Logic(al nightmare!)
Message-Id: <slrnbbprea.m7v.sholden@flexal.cs.usyd.edu.au>
On Sat, 10 May 2003 10:05:04 GMT, Brad Walton <sammie@greatergreen.com> wrote:
>> Did you read the guidelines Tad thoughtfully linked for you?
>
> Yes I did Eric. There was no mention of 'top-post' in there at all. The term
> was not clear to me, but now that you have pointed me in the right
> direction, I see what he meant and it makes sense. I was not being rude,
> just did not understand what he meant...
No, because that is part of basic netiquette and not clpm specific.
So it's in the "Netiquette Guidelines" which is included by reference.
Though the word "top-post" isn't used :)
--
Sam Holden
------------------------------
Date: Sat, 10 May 2003 14:44:43 +0100
From: "Shotoku Taishi" <shotoku.taishi@virgin.net>
Subject: Need Help piping text with variables into a new file
Message-Id: <b9j07q$ko1$1@newsg2.svr.pol.co.uk>
Hi
I want to pipe the following into a new file but would like to avoid using
echo or print statements on every line instead I would prefer to use cat.
How can I do this in Perl?
This bit of code I knicked from Unix. Can you do something similar in Perl
also?
An example of what I would like is something like this:
($HOSTNAME, $USER and $HOBBY are variables which are defined at the top of
the script)
cat << EOT > /tmp/new_file.txt
host $HOSTNAME
user $USER
hobby $HOBBY
EOT
The new_file.txt should look like this:
more new_file.txt
host Andromeda
user Miranda
hobby Astronomy
Any help would be greatly appreciated.
Kind regards
Mike
------------------------------
Date: Sat, 10 May 2003 16:03:59 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Need Help piping text with variables into a new file
Message-Id: <b9j1e7$jucaf$1@ID-184292.news.dfncis.de>
Shotoku Taishi wrote:
> I want to pipe the following into a new file but would like to
> avoid using echo or print statements on every line instead I would
> prefer to use cat. How can I do this in Perl?
The here-document syntax is available in Perl as well.
> ($HOSTNAME, $USER and $HOBBY are variables which are defined at the
> top of the script)
>
> cat << EOT > /tmp/new_file.txt
> host $HOSTNAME
> user $USER
> hobby $HOBBY
> EOT
>
> The new_file.txt should look like this:
>
> more new_file.txt
> host Andromeda
> user Miranda
> hobby Astronomy
my $file = 'new_file.txt';
open FH, ">/tmp/$file" or die "Couldn't open...\n$!";
print FH <<EOT;
more $file
host $HOSTNAME
user $USER
hobby $HOBBY
EOT
close FH;
/ Gunnar
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 10 May 2003 14:22:23 GMT
From: Rudolf Polzer <denshimeiru-sapmctacher@durchnull.ath.cx>
Subject: Re: Need Help piping text with variables into a new file
Message-Id: <slrnbbq2ql.v73.denshimeiru-sapmctacher@message-id.durchnull.ath.cx>
Scripsis »Shotoku«que »Taishi« appellare soles:
> I want to pipe the following into a new file but would like to avoid using
> echo or print statements on every line instead I would prefer to use cat.
> How can I do this in Perl?
You cannot really...
but you can use just ONE print statement
> This bit of code I knicked from Unix. Can you do something similar in Perl
> also?
>
> An example of what I would like is something like this:
>
> ($HOSTNAME, $USER and $HOBBY are variables which are defined at the top of
> the script)
>
> cat << EOT > /tmp/new_file.txt
> host $HOSTNAME
> user $USER
> hobby $HOBBY
> EOT
open my $fh, ">/tmp/newfile.ext"
or die "open: $!";
print $fh <<EOF
host $HOSTNAME
user $USER
hobby $HOBBY
EOF
or die "print: $!";
close $fh
or die "close: $!";
> Mike
So the above is just a Japanese expression and not a name? Hm... how to
translate that to Latin for the attibution line which normally shows
Scripsit ille aut illa »Shotoku Taishi« <shotoku.taishi@virgin.net>:
?
Rudolf, SCNR
------------------------------
Date: Sat, 10 May 2003 14:27:41 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Need Help piping text with variables into a new file
Message-Id: <x%7va.2774$Ur1.166@nwrddc03.gnilink.net>
Shotoku Taishi wrote:
> I want to pipe the following into a new file but would like to avoid
I just replied to this question in the other NG.
If you would have cross-posted instead of multiposted then you and everyone
else would have been able to read the answer here, too.
jue
------------------------------
Date: 10 May 2003 15:18:05 +0100
From: Brian McCauley <nobull@mail.com>
Subject: Re: Need Help piping text with variables into a new file
Message-Id: <u9wugyevhe.fsf@wcl-l.bham.ac.uk>
"Shotoku Taishi" <shotoku.taishi@virgin.net> writes:
> I want to pipe
No you do not.
> the following into a new file but would like to avoid using echo or
> print statements on every line instead I would prefer to use cat.
You do not mean "I would prefer to use cat". You mean "I want to use
a quoting construct that can span mulitple lines.
> How can I do this in Perl?
All Perl quoting constructs can span multiple lines.
> This bit of code I knicked from Unix.
> cat << EOT > /tmp/new_file.txt
> host $HOSTNAME
> user $USER
> hobby $HOBBY
> EOT
> ($HOSTNAME, $USER and $HOBBY are variables which are defined at the top of
> the script)
> Can you do something similar in Perl also?
Yes you can do here-documents in Perl.
open ( my $file,'>','/tmp/new_file.txt') or die $!;
print $file <<EOT;
host $HOSTNAME
user $USER
hobby $HOBBY
EOT
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Sat, 10 May 2003 12:20:37 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: perl -pe "s/<er>/<er>\n"/g": memory efficient version?
Message-Id: <3EBCEE46.F9C560FF@acm.org>
Michael Wang wrote:
>
> I have a file which has 1 super long line that contains
>
> some thing<er>something else<er>and more stuff<er>...
>
> perl -pe "s/<er>/<er>\n"/g"
>
> works for small files, but for large files, it runs out of
> memory. Is there a memory efficient version?
>
> awk '{gsub("<er>","<er>\n"); print}'
> is not memory efficient either.
>
> Any solution using standard Unix utility is welcome,
> (without having to code a control character).
perl -lpe'BEGIN{ $\=($/="<er>").$\ }' yourfile
John
--
use Perl;
program
fulfillment
------------------------------
Date: Sat, 10 May 2003 12:10:36 +0200
From: Matija Papec <mpapec@yahoo.com>
Subject: Re: Splitting, Sorting, then Rebuilding an Array
Message-Id: <51jpbvcvoav6e6bdqmp9ctpv7n9sq8b5tu@4ax.com>
X-Ftn-To: Brad Walton
"Brad Walton" <sammie@greatergreen.com> wrote:
>This has got to be the hard way to write this... If you know of a more
>efficient way, it would be appreciated:
>
>sub sort_by_name {
> my $rebuild;
>
> #Grab data and sort by callsign
> foreach $archivedata (@archivedata) {
so far, so good. :)
> my
>($sess,$cals,$plid,$mapid,$tcur,$tcon,$scor,$stat,$eak,$esak,$etk,$eck,$eatk
>,$eaaak,$ewk,$esp,$fak,
>
>$fsak,$ftk,$fck,$fatk,$faaak,$fwg,$fsp,$fb,$hb,$hab,$fr,$hr,$fbmb,$hbmb,$ipa
>d,$ctry,$empty,$emptyy) = split /\t/, $archivedata;
> $cals =~ tr/a-z/A-Z/;
> $rebuild =
>"$sess\t$cals\t$plid\t$mapid\t$tcur\t$tcon\t$scor\t$stat\t$eak\t$esak\t$etk\
>t$eck\t$eatk\t$eaaak\t$ewk\t$esp\t$fak\t$fsak\t$ftk\t$fck\t$fatk\t$faaak\t$f
>wg\t$fsp\t$fb\t$hb\t$hab\t$fr\t$hr\t$fbmb\t$hbmb\t$ipad\t$ctry\t$empty\t$emp
>tyy";
#untested
$rebuild = $archivedata;
$rebuild =~ s{(.+?)\t(.+?)\t}{
my ($sess,$cals) = ($1, $2);
$cals =~ tr/a-z/A-Z/;
"$sess\t$cals\t";
}e;
> @formateddata = (@formateddata,$rebuild);
push @formateddata,$rebuild;
> }
> @formateddata = sort(@formateddata);
>}
If you want your function to be reusable, use input parameters so function
isn't operating on package variables(@formateddata, @archivedata).
check perldoc perlref
--
Matija
------------------------------
Date: 10 May 2003 11:06:12 +0100
From: Brian McCauley <nobull@mail.com>
Subject: Re: Splitting, Sorting, then Rebuilding an Array
Message-Id: <u9ptmrm7zf.fsf@wcl-l.bham.ac.uk>
"Brad Walton" <sammie@greatergreen.com> writes:
> This has got to be the hard way to write this...
Yep!
> If you know of a more
> efficient way, it would be appreciated:
>
> sub sort_by_name {
> my $rebuild;
>
> #Grab data and sort by callsign
> foreach $archivedata (@archivedata) {
> my
> ($sess,$cals,$plid,$mapid,$tcur,$tcon,$scor,$stat,$eak,$esak,$etk,$eck,$eatk
> ,$eaaak,$ewk,$esp,$fak,
> $fsak,$ftk,$fck,$fatk,$faaak,$fwg,$fsp,$fb,$hb,$hab,$fr,$hr,$fbmb,$hbmb,$ipa
> d,$ctry,$empty,$emptyy) = split /\t/, $archivedata;
Any time you see a list that long think "ARRAY".
my @data=split /\t/, $archivedata;
> $cals =~ tr/a-z/A-Z/;
$data[1] =~ tr/a-z/A-Z/;
> $rebuild =
> "$sess\t$cals\t$plid\t$mapid\t$tcur\t$tcon\t$scor\t$stat\t$eak\t$esak\t$etk\
> t$eck\t$eatk\t$eaaak\t$ewk\t$esp\t$fak\t$fsak\t$ftk\t$fck\t$fatk\t$faaak\t$f
> wg\t$fsp\t$fb\t$hb\t$hab\t$fr\t$hr\t$fbmb\t$hbmb\t$ipad\t$ctry\t$empty\t$emp
> tyy";
If you'd used an array you could have join()ed it back together in a
different order with a slice.
But you don't seem to be putting in back in a different order. If you
just want to upcase the second field:
s/^(.*?\t)(.*?\t)/$1\U$2/ for @formateddata = @archivedata;
> @formateddata = (@formateddata,$rebuild);
That is a push().
no warnings 'uninitialized';
push @formateddata, join "\t", @data[0..34];
(At least I think there are 35 variables - I didn't count too carefully).
If you want to put it un a different order then change 0..34 to your
desired order.
For example to swap the 10th and 11th use 0..8,10,9,11..34
> @formateddata = sort(@formateddata);
Can't help there.
------------------------------
Date: Sat, 10 May 2003 11:42:47 GMT
From: tiltonj@erols.com (Jay Tilton)
Subject: Re: UnixDate semantics change
Message-Id: <3ebce154.27776705@news.erols.com>
skip@pobox.com (Skip Montanaro) wrote:
: I use Perl infrequently, and almost always in a Mason context. At some point
: in the past, it appears
:
: UnixDate("<format string>")
:
: used to assume an implicit "now", as in
:
: UnixDate("now", "<format string>")
:
: Calls of the first form now return undef.
What module did that UnixDate() sub come from? It might be easier to
come up with a solution to the problem if we had the code handy.
: Some code I inherited used the first form extensively to store last access time
: in the session hash. With the new semantics it caused problems which,
: because of my minimal Perl skills, took me a long time to uncover.
:
: Is there some way I could have coaxed Mason or mod_perl or something
: into barfing noisily instead of silently returning undef?
One idea would be to create a subroutine wrapper that validates the
arguments, then fry the symbol table so the wrapper sub gets called in
place of the real UnixDate. E.g.
sub UnixDate {
print "The real UnixDate() sub was successfully called.\n";
}
sub UnixDate_wrap {
warn("UnixDate needs two arguments"),return unless @_ == 2;
goto &UnixDate_orig;
}
(*UnixDate_orig, *UnixDate) = (\*UnixDate, \*UnixDate_wrap);
UnixDate('foo'); # emits warning
UnixDate('foo', 'bar'); # works as normal
It's not nice, and I would need to think long and hard before making
it a permanent change, but it would be an adequate temporary measure
to ferret out broken subroutine calls.
Somebody must have a better idea than this.
------------------------------
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 4969
***************************************
