[21853] in Perl-Users-Digest
Perl-Users Digest, Issue: 4057 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Nov 1 18:07:41 2002
Date: Fri, 1 Nov 2002 15:05:08 -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, 1 Nov 2002 Volume: 10 Number: 4057
Today's topics:
[Q] about AUTOLOAD <bill_knight2@yahoo.com>
Re: Backticks, C++, and stdout <s_grazzini@hotmail.com>
Block buffered web server? <h.b.furuseth@usit.uio.no>
Re: Block buffered web server? (Mark Jason Dominus)
Controlling RegEx Greediness <ihave@noemail.com>
Re: Controlling RegEx Greediness <ihave@noemail.com>
Re: Declaring 2 Dimensional Hashes <hal@thresholddigital.com>
Embedding Perl >with< the ptkdb debugger (Phlip)
Re: Embedding Perl >with< the ptkdb debugger <goldbb2@earthlink.net>
Getopt::Long - Process @_ in subroutine? <ekulis@apple.com>
Net::Telnet - is there a way to ignore a connection tha <nospam@nospam.org>
new & improved (but still troubled) sockets (Leaffoot)
Re: Perl -e "print qq! Tips and Tricks !" <goldbb2@earthlink.net>
Re: problem with hash content disappearing - unable to (P.J Douillard)
Re: problem with hash content disappearing - unable to (Tad McClellan)
Re: Serial Port <3dbdown@-nospam-go.com>
Textbooks on Perl/Python (Jalab)
Re: two digit date with local time <chris.harris@cwfi.co.fk>
Re: ~ Perl script output help ~ <r_cross@_nospam_hotmail.com>
Re: ~ Perl script output help ~ (Tad McClellan)
Re: ~ Perl script output help ~ (Jay Tilton)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 1 Nov 2002 20:03:19 +0000 (UTC)
From: bill <bill_knight2@yahoo.com>
Subject: [Q] about AUTOLOAD
Message-Id: <apumm7$ch7$1@reader1.panix.com>
I've been playing with the NEXT pseudo-class, and in particular, with
its AUTOLOAD method. One puzzling thing about NEXT::AUTOLOAD is that,
at least when it is called by another class' AUTOLOAD method, the
variable NEXT::AUTOLOAD is not set. How come? Is this a bug, or is
this the correct behavior?
Thanks,
bill
------------------------------
Date: Fri, 01 Nov 2002 16:43:50 GMT
From: Steve Grazzini <s_grazzini@hotmail.com>
Subject: Re: Backticks, C++, and stdout
Message-Id: <abyw9.65759$gB.15310936@twister.nyc.rr.com>
Ryan E Mcarthy <remccart@students.uiuc.edu> wrote:
> I am trying to capture the stdout of a compiled C++ function
> but am failing to figure out how. I was trying to do it in
> this manner:
>
> $output = 'program options';
Those need to actually *be* backticks:
$output = `program options`;
> However, my $output is always empty.
It should be the string "program options"...
> The output needs to be a string and the main in C++ can
> only return an integer (obviously). So what's a brother
> supposed to do?
I think you're confusing output with exit status.
Anything your external program writes to stdout will
get caught by the backticks. If you also want to see
the return value of main(), look at $?.
my $output = `$program @options`;
if ($? == -1)
{ die "Couldn't exec $program: $!" }
my $exit = $? >> 8;
my $core = $? & 128;
my $kill = $? & 127;
If you *only* care about the exit status, use system()
instead of backticks -- but you mentioned stdout, so I
think that's not what you want.
If you want to catch stderr as well, use the standard
IPC::Open3 module.
HTH
--
Steve
perldoc -qa.j | perl -lpe '($_)=m("(.*)")'
------------------------------
Date: 01 Nov 2002 20:06:13 +0100
From: Hallvard B Furuseth <h.b.furuseth@usit.uio.no>
Subject: Block buffered web server?
Message-Id: <HBF.20021101l47t@bombur.uio.no>
I have a mini web server run from xinetd (an inetd variant) on Linux,
which basically does:
$req = $_ = <STDIN>;
if (m%^(GET|POST) .* HTTP/1%) {
while (/\S/) {
$_ = <STDIN>;
...;
}
}
print ...;
It works, but I don't understand why. I'd expect it to do a
block-buffered read and hang on an unfinished block when it
reaches the end of the HTTP request. Why doesn't it?
--
Hallvard
------------------------------
Date: Fri, 1 Nov 2002 21:55:14 +0000 (UTC)
From: mjd@plover.com (Mark Jason Dominus)
Subject: Re: Block buffered web server?
Message-Id: <aput82$179$1@plover.com>
In article <HBF.20021101l47t@bombur.uio.no>,
Hallvard B Furuseth <h.b.furuseth@usit.uio.no> wrote:
>It works, but I don't understand why. I'd expect it to do a
>block-buffered read and hang on an unfinished block when it
>reaches the end of the HTTP request. Why doesn't it?
Unix read semantics *never* hang on an incomplete block.
They always return the partial block immediately.
read() only blocks when there is *no* data available.
That said, I imagine that if you were to make a request to the server
whose HTTP header was exactly one block long, the server would get
stuck trying to read the 'rest' of the header.
------------------------------
Date: Fri, 01 Nov 2002 21:42:08 GMT
From: "TBN" <ihave@noemail.com>
Subject: Controlling RegEx Greediness
Message-Id: <QyCw9.24$Kjs.2949298@news2.randori.com>
I know this has been done before, but I couldn't find an example.
If I have a string such as...
my $s = 'one="this" two="<b>that</b>" and three="something else"';
How can I write a RegEx that will return only the value of the name-value
that interests me?
In other words, I need to return what is within quotes for two= or three=,
but if I use something like...
/two=\".*\"/
I'll get a lot more than I bargained for.
------------------------------
Date: Fri, 01 Nov 2002 21:49:31 GMT
From: "TBN" <ihave@noemail.com>
Subject: Re: Controlling RegEx Greediness
Message-Id: <KFCw9.25$Kjs.3407891@news2.randori.com>
"TBN" <ihave@noemail.com> wrote in message
news:QyCw9.24$Kjs.2949298@news2.randori.com...
> I know this has been done before, but I couldn't find an example.
>
> If I have a string such as...
>
> my $s = 'one="this" two="<b>that</b>" and three="something else"';
>
> How can I write a RegEx that will return only the value of the name-value
> that interests me?
>
> In other words, I need to return what is within quotes for two= or three=,
> but if I use something like...
>
> /two=\".*\"/
>
> I'll get a lot more than I bargained for.
>
Ok, I think I found an example in Chapter 6, page 192 of Perl Cookbook. In
case anyone else wanted to know.
------------------------------
Date: Fri, 01 Nov 2002 16:12:00 GMT
From: Hal Vaughan <hal@thresholddigital.com>
Subject: Re: Declaring 2 Dimensional Hashes
Message-Id: <kJxw9.1455$bG.105@rwcrnsc53>
Jeff 'japhy' Pinyan wrote:
> where each REF gives the location to look for the underlying array. A
> book like "Effective Perl Programming" (by Hall and Schwartz, pub. by
> Addison-Weseley) uses a diagramming method called "PEGS" to visually
> explain references. It does an excellent job, in my opinion.
>
Thanks. I have Learning Perl and Programming Perl, both published by
O'Reilly, for references. I had not heard of the book you mentioned, but
it certainly seems worth checking out.
Thank you.
Hal
------------------------------
Date: 1 Nov 2002 13:00:06 -0800
From: phlip_cpp@yahoo.com (Phlip)
Subject: Embedding Perl >with< the ptkdb debugger
Message-Id: <63604d2.0211011300.7bc75ea8@posting.google.com>
Perlies:
I want to use C++ to call Perl in-process, so I can pass in a
function.
But because I am perverse, I want to debug that Perl script in-situ.
I'm aware I can just stub the C++ part and debug a stand-alone Perl
script. But...
Why don't this work?
void
embedPerl()
{
my_perl = perl_alloc();
// the point:
char *embedding[] = { "", "-e", "-d:ptkdb", "\0" };
perl_construct( my_perl );
perl_parse(my_perl, NULL, 4, embedding, NULL);
newXS("guiTranslate", XS_Mytest_guiTranslate, __FILE__);
perl_run(my_perl);
SV *command = NEWSV(1099, 0), *retval;
sv_setpvf(command, "do 'test.pl';");
retval = my_eval_sv(command, TRUE);
SvREFCNT_dec(command);
perl_destruct(my_perl);
perl_free(my_perl);
}
Perl's gonna smack me down, right? The docs say -e overrides -d,
right?
--
Phlip
http://www.greencheese.org/HatTrick
-- All sensors report Patti having a very good time --
------------------------------
Date: Fri, 01 Nov 2002 16:34:00 -0500
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Embedding Perl >with< the ptkdb debugger
Message-Id: <3DC2F348.A812B69C@earthlink.net>
Phlip wrote:
[snip]
> char *embedding[] = { "", "-e", "-d:ptkdb", "\0" };
>
> perl_construct( my_perl );
> perl_parse(my_perl, NULL, 4, embedding, NULL);
This is rather similar to doing:
perl -e "-d:ptkdb" ""
On a commandline.
It's rather as if you had done:
@ARGV = ( "" );
eval("-d:ptkdb");
It seems to me that you want instead:
perl -d:ptkdb -e ""
Or
perl -d:ptkdb -e1
That is, you want:
char *embedding[] = { "", "-d:ptkdb", "-e1" };
perl_construct( my_perl );
perl_parse(my_perl, NULL, 3, embedding, NULL);
--
my $n = 2; print +(split //, 'e,4c3H r ktulrnsJ2tPaeh'
."\n1oa! er")[map $n = ($n * 24 + 30) % 31, (42) x 26]
------------------------------
Date: Fri, 01 Nov 2002 14:24:34 -0800
From: Ed Kulis <ekulis@apple.com>
Subject: Getopt::Long - Process @_ in subroutine?
Message-Id: <B9E83F22.45F8%ekulis@apple.com>
Hi,
I'd like create perl script which reads options from a file.
The options would be like
-days_old 1.5 -mv_to_storage
I'd like have a top perl script that reads these options from the file and
then passes them to a subroutine where Getoptions would parse @_.
It seems from the Camel Book that Getoptions only operates on perl command
line options.
Now I can
qx{script.pl -days_old 1.5 -mv_to_storage}
with the script name that calls another perl script but I'd like to just
have 1 script if I can.
Any suggestions?
-ed
------------------------------
Date: Fri, 1 Nov 2002 11:42:22 -0500
From: "Christian Caron" <nospam@nospam.org>
Subject: Net::Telnet - is there a way to ignore a connection that timed out?
Message-Id: <apuate$mi313@nrn2.NRCan.gc.ca>
Hi everyone,
I use the following code to log to another computer, grab an information and
return it so my script can display the information on a web page:
#########
my $t = Net::Telnet->new( Timeout => 10,
Prompt => '/goldorak>/',
Host => $hostname,
Errmode => "return");
$t->login($username, $password);
chop(my @setiathome_goldorak = $t->cmd("grep prog=
/var/db/setiathome/state.sah"));
$setiathome_goldorak[0] =~ s/prog=[0(1)]{1}\.([0-9]{2})[0-9]+/$1$2/;
$t->cmd("logout");
$t->close;
#########
But, if the other computer is turned off, then the Telnet connection times
out and the script ends (my webserver returns a 500 Server Error). My
question is: is it possible to tell the script to continue _anyway_ and
print an empty variable instead of stopping?
I tried things like:
if ($t) {
do;
}
else {
do empty;
}
but it doesn't work...
Any ideas?
Christian
------------------------------
Date: 1 Nov 2002 14:45:26 -0800
From: leaffoot@hotmail.com (Leaffoot)
Subject: new & improved (but still troubled) sockets
Message-Id: <d7bd06a3.0211011445.ff15fcc@posting.google.com>
Ok, I have a now-improved socket module that attempts to connect, send
data, and retrieve data. I am connecting to another company over a
VPN. The port they provide is ours alone. I continue to see, at
random intervals, pauses at the end of the receiving portion, as if
the socket won't let go. I've tried closing the socket each time, but
even that doesn't do it. Here's the new code:
use strict;
use warnings;
use IO::Socket;
use IO::Select;
sub connect_to_socket {
# takes remote host, port, and logfile hndle, returns socket
my $remote_host = shift;
my $port = shift;
my $hndl = shift;
my $socket_l = IO::Socket::INET->new("$remote_host:$port");
if($socket_l) {
return $socket_l;
} else {
$hndl->print("Unable to connect to $remote_host in EQX
script!\n");
confess "Unable to connect.";
}
}
sub sendstr {
# pass in socket and string to send
my $sock = shift;
my $str = shift;
print $sock "$str" or confess "I can't send the str $str!\n";
return $sock;
}
sub recstr {
# pass in socket and length of line
my $sock = shift;
my $len = shift;
my $stuff = "";
my $comeback_l = 0;
my $length_l = 0;
my $out = 0;
my $sel = new IO::Select( $sock );
while(my @hdls = $sel->can_read(50)) {
foreach my $fh (@hdls) {
while($length_l = sysread($fh, $comeback_l, $len)) {
#writes this entire line, next loop of read occurs
print STDOUT $comeback_l;
$stuff = $stuff.$comeback_l;
last if ($out==2);
if ($comeback_l =~ m/(?:END OF REPORT)|(?:\d+CERR.*$)/) {
$out = 1;
}
if($out) {
$sel->remove($fh);
$fh->close;
$out++;
}
} # end while
}
} # end while ($sel->can_read)
return $stuff;
}
I call these with:
my $socket = &connect_to_socket($host, $port, $logfile);
$socket->autoflush(1);
my $sock_l = &sendstr($socket, $dial_l);
my $report = &recstr($sock_l, $linesize);
I have a print statement right after the call to &recstr which
occasionally never gets printed, as the process hangs. The people who
are receiving data say the data has been sent back, and they don't see
a problem on their end.
Any ideas would be appreciated.
Thanks!
Becka
------------------------------
Date: Fri, 01 Nov 2002 16:27:40 -0500
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Perl -e "print qq! Tips and Tricks !"
Message-Id: <3DC2F1CC.3988B114@earthlink.net>
zzapper wrote:
>
> Hi
>
> perl -e "print join \" \a\",(map {ucfirst} map {lc} split /@/,reverse
> 'REKCAH@LREP@REHTONA@TSUJ')"
>
> I'd like to get a tr/// or s/// in above so as to make it even more
> tricky, but it never works (either swallows output or fails or counts)
In a well-written JAPH, every part is important -- there should be no
obvious simplifications to it.
For example, in your code, the two maps could be combined into one, the
parens around the map expression(s) could be ommited, the join could be
replaced with a use of $, , the BLOCK for map could be an EXPR. Not
that you *need* to do these things, but you should generally avoid
obvious writing JAPHs for which there are obvious simplifications.
Now, as your desire to incorporate tr/// into the japh, keep in mind
that it doesn't return the changed string, it returns the number of
substitutions .. this means that you probably don't want to use it with
map(), but instead want to use it with for().
perl -le "tr/A-IK-OQ-Z@/a-ik-oq-z /, print for"
-e "'' . reverse 'REKCAH@LREP@REHTONA@TSUJ'"
[untested]
Personally, though, I think that any code which has "Just another Perl
hacker" written in anything resembling clear text is insufficiently
obscure.
--
my $n = 2; print +(split //, 'e,4c3H r ktulrnsJ2tPaeh'
."\n1oa! er")[map $n = ($n * 24 + 30) % 31, (42) x 26]
------------------------------
Date: 1 Nov 2002 09:35:05 -0800
From: pjdouillard@snclavalin.com (P.J Douillard)
Subject: Re: problem with hash content disappearing - unable to debug and find why - weird behavior
Message-Id: <4f351142.0211010935.6bb7d728@posting.google.com>
pjdouillard@snclavalin.com (P.J Douillard) wrote in message news:<4f351142.0210311935.5dbb66db@posting.google.com>...
= SNIP =
> Here is the code of the subroutine:
> ===============================================================================
> sub processNode {
> my ($nodeLinesRef, $sIndex, $eIndex) = @_;
= SNIP =
> while ( ($curLocalGroup, $curMembers) = each %curNodePermission) {
> $curLocalGroup =~ /(.*-)(.*$)/;
> $curSuffix = $2;
>
> # Check now in %colParentGroupList
>
> $added = 0;
>
I was not aware that a hash iterator kept its 'old' value (even when you exit
a loop with `last') - unexpected behavior... when you don't know it.
Anyway, this is why %colParentGroupList 'appeared' to have no keys
in it (althought printing how many elements it has wasn't zero) on subsequent calls.
How I found it? I was desperately looking in the perlfaq for something related
to hash variables, and I stumbled on
"How do I reset an each() operation part-way through?".
I was curious and followed its link. After applying the
`keys %colParentGroupList', it corrected the problem. But I would never had
guess that... joy of learning!
Hope that this can help others!
Thx to people who posted follow ups so quickly too!
P.J
> while ( ($localGroup, $members) = each %colParentGroupList) {
> $localGroup =~ /(.*-)(.*$)/;
> $suffix = $2;
= SNIP =
> $added = 1;
> last; # exit inner while loop
> }
= SNIP =
------------------------------
Date: Fri, 1 Nov 2002 13:12:24 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: problem with hash content disappearing - unable to debug and find why - weird behavior
Message-Id: <slrnas5kgo.489.tadmc@magna.augustmail.com>
P.J Douillard <pjdouillard@snclavalin.com> wrote:
> I was not aware that a hash iterator kept its 'old' value
> How I found it?
The documentation for the each() function would have been
a good place to look. :-)
perldoc -f each
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 1 Nov 2002 11:58:01 -0800
From: ar <3dbdown@-nospam-go.com>
Subject: Re: Serial Port
Message-Id: <apumc902red@drn.newsguy.com>
sub setup_485comport{
my $port = "com2" ;
use Win32::SerialPort;
$PortObj = new Win32::SerialPort($port) or die "Can not open port $port:
$^E\n";
$PortObj->baudrate(38400);
$PortObj->parity('none');
$PortObj->databits(8);
$PortObj->stopbits(1);
$PortObj->handshake('none'); # none, rts, dtr, xoff
$PortObj->buffers(128, 8); # read, write
$PortObj->read_interval(0);
$PortObj->read_char_time(10);
#$PortObj->read_const_time(200);
$PortObj->write_settings;
&write_to_eventwin("BX 485 setup on com port: $port");
}
In article <aptnmb$9m$1@perki.connect.com.au>, oracle says...
>
>Tan Nguyen wrote:
>
>>
>> "oracle" <oracle@sympac.com.au> wrote in message
>> news:api58k$ali$1@perki.connect.com.au...
>>> Hi all
>>>
>>> Am planning a program to talk to a weather station via the serial port on
>> an
>>> intel box and cannot find out how to talk to the serial port.
>>>
>>> Its gotta be easy but i can't find it. Any body help ?
>>>
>>> Just need the setup of the port, and how to send receive data from the
>> port.
>>>
>>> Thanks
>>> oracle
>>
>> sockets don't work for you? Are transfered data in binary format?
>
>The device I am talking to will be connect via the serial port and I will be
>receiving data in bytes from the unit at specific intervals. The weather
>station device will only send binary data via serial (Typical 8N1 9600
>baud). How does or would sockets fit in ?
------------------------------
Date: 1 Nov 2002 14:53:03 -0800
From: jalab2010@yahoo.com (Jalab)
Subject: Textbooks on Perl/Python
Message-Id: <87b0ada6.0211011453.1df4d216@posting.google.com>
Greetings all,
Any help in finding a university level textbook on the subject of
"Scripting languages" I am mainly looking for a book that covers Perl
and Python only as the 2 main scripting languages and that is written
for students, i.e. chapter summary, exercises, etc. I hate to force my
student to buy and study from two separate books.
Any ideas?
Thanks.
-- WHA
------------------------------
Date: Fri, 1 Nov 2002 13:40:03 -0300
From: "Chris Harris" <chris.harris@cwfi.co.fk>
Subject: Re: two digit date with local time
Message-Id: <apuaqu$50fl1$1@ID-134007.news.dfncis.de>
Thanks to all who replied to my query. Not sure exactly what method I will
use yet, but I'll play with them all.
Thanks again.
> Hi,
>
> How do I get the parts of the string returned from the localtime function
to
> alway be in 2 digit format.
>
> For example I have
>
> my ($day, $hour, $min) = (localtime)[3,2,1];
>
> Then later I use to create a filename
>
> open O ">images/webcam/$day-$hour-$min.jpg";
>
> problem is that I don't get the leading 0 for values 0 - 9.
> e.g. today at 9:05 comes out as 1-9-5, what I want is 01-09-05.
>
> All suggestions welcomed
>
> Chris
>
>
------------------------------
Date: Fri, 1 Nov 2002 16:59:13 -0000
From: "Rick Cross" <r_cross@_nospam_hotmail.com>
Subject: Re: ~ Perl script output help ~
Message-Id: <apubs2$abk$1@news7.svr.pol.co.uk>
"Tad McClellan" <tadmc@augustmail.com> wrote in message
news:slrnas58tg.3je.tadmc@magna.augustmail.com...
> inderjit s gabrie <igabrie@mis.gla.ac.uk> wrote:
>
> > Subject: Re: ~ Perl script output help ~
> ^ ^
> ^ ^
>
> You should not try and "trick" people into reading your article.
>
And YOU should perhaps include a little more of the OP in your reply when
sanctimoniusly whinging about people in a public forum.
I also wonder why you felt the need to reply to the entire group rather than
to the individual (actually, I don't, it's transparently obvious).
------------------------------
Date: Fri, 1 Nov 2002 11:10:24 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: ~ Perl script output help ~
Message-Id: <slrnas5dc0.3tq.tadmc@magna.augustmail.com>
Rick Cross <r_cross@_nospam_hotmail.com> wrote:
> "Tad McClellan" <tadmc@augustmail.com> wrote in message
> news:slrnas58tg.3je.tadmc@magna.augustmail.com...
>> inderjit s gabrie <igabrie@mis.gla.ac.uk> wrote:
>>
>> > Subject: Re: ~ Perl script output help ~
>> ^ ^
>> ^ ^
>>
>> You should not try and "trick" people into reading your article.
>>
> And YOU should perhaps include a little more of the OP in your reply when
I commented on the Subject and MIME, so I quoted the Subject and
the MIME type.
What did I snip that you feel I should have left in?
> I also wonder why you felt the need to reply to the entire group rather than
> to the individual
So that the lurkers can avoid becoming scorefile entries too.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 01 Nov 2002 23:01:56 GMT
From: tiltonj@erols.com (Jay Tilton)
Subject: Re: ~ Perl script output help ~
Message-Id: <3dc2f769.97878759@news.erols.com>
tadmc@augustmail.com (Tad McClellan) wrote:
: Rick Cross <r_cross@hotmail.com> wrote:
:
: > I also wonder why you felt the need to reply to the entire group rather than
: > to the individual
:
: So that the lurkers can avoid becoming scorefile entries too.
Besides the tagged subject line and the MIME post, there is a fistful
of other reasons not to emulate the OP.
The attachment was an MSWord document.
It has 300+ lines of code. Too much by an order of magnitude.
No warnings. No strict.
More than twenty warnings are emitted with "perl -cw".
The problem description carries barely more than "doesn't work."
Lastly, it's not even clear that it's a Perl problem _at all_.
The program evidently gathers information from backticked commands,
yet never checks whether they were successfully executed.
Creating an article less likely to be cooperatively received would
require deliberate design and effort.
------------------------------
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 4057
***************************************
