[28133] in Perl-Users-Digest
Perl-Users Digest, Issue: 9497 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jul 18 21:05:37 2006
Date: Tue, 18 Jul 2006 18:05:05 -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 Tue, 18 Jul 2006 Volume: 10 Number: 9497
Today's topics:
combine lines <bbpillai@gmail.com>
Re: combine lines <someone@example.com>
Re: help me <tadmc@augustmail.com>
Help with tied/nested data structures <clint@0lsen.net>
Re: Net::Telnet - Library Application robic0
Re: numeric sort on string like a123-3 <filippo2991@virgilio.it>
Re: numeric sort on string like a123-3 <someone@example.com>
Premature end of script headers: mail.cgi <yusufm@gmail.com>
Re: Premature end of script headers: mail.cgi usenet@DavidFilmer.com
Re: Premature end of script headers: mail.cgi <yusufm@gmail.com>
Re: Premature end of script headers: mail.cgi <mritty@gmail.com>
Re: Premature end of script headers: mail.cgi <yusufm@gmail.com>
Re: Premature end of script headers: mail.cgi <mritty@gmail.com>
Re: Premature end of script headers: mail.cgi <mritty@gmail.com>
Re: Premature end of script headers: mail.cgi <yusufm@gmail.com>
Re: Premature end of script headers: mail.cgi <yusufm@gmail.com>
Re: start printing at the end of the previous line <tadmc@augustmail.com>
Re: start printing at the end of the previous line <john@castleamber.com>
Re: tuff problem of the day for linux usenet@DavidFilmer.com
Re: tuff problem of the day for linux <bootiack@yahoo.com>
Re: tuff problem of the day for linux <bootiack@yahoo.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 18 Jul 2006 16:48:21 -0700
From: "bp" <bbpillai@gmail.com>
Subject: combine lines
Message-Id: <1153266501.112858.128920@m73g2000cwd.googlegroups.com>
how to combines two lines using perl if the total number of columns to
check is 8. If less than 8, combine with the second line, the OS dumps
it in this format, in reality one line. For example
TEST TEST2 TEST3 TEST4 TEST5
TEST6 TEST7 TEST8
Thanks
------------------------------
Date: Wed, 19 Jul 2006 00:17:45 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: combine lines
Message-Id: <JSevg.111614$I61.82402@clgrps13>
bp wrote:
> how to combines two lines using perl if the total number of columns to
> check is 8. If less than 8, combine with the second line, the OS dumps
> it in this format, in reality one line. For example
>
>
> TEST TEST2 TEST3 TEST4 TEST5
> TEST6 TEST7 TEST8
perl -lape'$_ .= <> if @F < 8' yourfile
John
--
use Perl;
program
fulfillment
------------------------------
Date: Tue, 18 Jul 2006 17:41:22 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: help me
Message-Id: <slrnebqosi.55q.tadmc@magna.augustmail.com>
jeni <jenish.g@gmail.com> wrote:
> Subject: help me
Here is some help for you:
Put the subject of your article in the Subject of your article.
That is what that header is there for!
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 18 Jul 2006 19:50:45 -0500
From: Clint Olsen <clint@0lsen.net>
Subject: Help with tied/nested data structures
Message-Id: <slrnebr0f5.1cpj.clint@belle.0lsen.net>
Hi:
I have a script included in the post that behaves strangely. Originally I
had a plain hash that had a few scalars inside of it that were tied.
However, for reasons I won't bore you with here, I needed to also tie the
containing hash. However, once I did this, I broke the tied scalars.
After I tie the scalar, it nearly gets immediately culled by the Perl
garbage collector (DESTROY is called), and I'm a bit puzzled why it's
firing. I'm sure some of you Perl blackbelts have seen something like this
before and can recite chapter/line/verse in the bible why this isn't
kosher.
Thanks,
-Clint
#!/usr/bin/perl
use strict;
use warnings;
package Foo;
my $pos;
my @keys;
sub TIEHASH {
my ($class,@args) = @_;
print "TIEHASH($class)\n"; bless {}
}
# Fetch a value from a tied hash
#
sub FETCH {
my $self = $_[0];
my $key = $_[1];
print "FETCH(", ref $self, ") ", "$key => ", ${$self}{$key} ? ${$self}{$key} : "undef", "\n"; ${$self}{$key};
}
# Get the first key from a tied hash
#
sub FIRSTKEY {
my $self = $_[0];
$pos = 0;
@keys = keys %{$self};
$keys[$pos++];
}
# Get the next key from a tied hash
#
sub NEXTKEY {
print "NEXTKEY => ", $keys[$pos] ? $keys[$pos] : "undef", "\n";
$keys[$pos++]
}
# check if a key exists in a tied hash
#
sub EXISTS {
my ($self,$key) = @_;
print "EXISTS $key => ", exists ${$self}{$key}, "\n";
exists ${$self}{$key};
}
#
# Place the value into the hash
#
sub STORE {
my ($self,$key,$val) = @_;
print "STORE(", ref $self, ") $key => $val\n"; ${$self}{$key} = $val;
}
sub DELETE {
my ($self,$key) = @_;
print "DELETE(", ref $self, ") $key\n";
delete ${$self}{$key};
}
sub CLEAR {
my ($self) = @_;
print "CLEAR\n";
%{$self} = ();
}
package Bar;
sub TIESCALAR {
my $class = $_[0];
my $tool = $_[1];
print "TIESCALAR($class) => $tool\n";
return bless \$tool, $class;
}
sub FETCH {
my $self = $_[0];
print "FETCH(", ref $self, ") fetching $$self\n";
return $$self;
}
sub STORE {
my ($self,$val) = @_;
print ref $self, ": STORE => $val\n";
}
sub DESTROY {
my $self = $_[0];
print "DESTROY(", ref $self, ") => $$self\n";
}
package main;
my %hash;
tie %hash, 'Foo';
tie $hash{bar}, 'Bar', 'blah';
$hash{booga} = 'baz';
print "Tied scalar value is $hash{bar}\n";
------------------------------
Date: Tue, 18 Jul 2006 15:39:20 -0700
From: robic0
Subject: Re: Net::Telnet - Library Application
Message-Id: <9qnqb29n2f068bftf2apu5dd0nchj825si@4ax.com>
On Mon, 17 Jul 2006 10:05:28 -0400, Carl Lafferty <laff7430@bellsouth.net> wrote:
>>
>> anyway, if you believe your wrapper may serve others you could contact
>> the author to have your code added in the example section for example
>> just a thought
>> hth
>> --stephan
>>
>Right now *my* code is almost embarrassing. I intend to try the other
>code when I get a chance. Right now I am wanting to get something to
>prove the concept so that I can devote some more time to it.
>
>I am having another problem however, NOW (remember this is a reverse
>engineering thing here) I have to accept a set length of characters from
>the server I am contacting.
>
>Let me stress something about the server I am using. it is running on a
>non standard port (2001) no problem there and was originally intended to
>be used interactively with a terminal program.
If it was intended to run interactively with a terminal program was the
terminal a Telnet client? It would appear that it would have to be.
What is the intitial interaction, do you hit return?
> the server runs under
>VMS something I have little or NO experience with beyond simple things
>like deleting processes and starting my library automation software with
>it. The company kludged together a windows interface a few years later
>when 98 became popular (yea it is that old) but it does not rely on a
>single 'prompt' from the data packets I have captured.
How did you tickle it to give you data?
> there are
>delimiters (\x8f as well as the \b (those chars not a backspace)) but
>insofar as I can see when their software talks to the server, there are
>no prompts.
If you have to accept a "packet" with a fixed structure, this can be done
by passing into the waitfor, a regular expression with start delimeter, fixed length
any char, end delimeter.
In this case, the "delimeters" are redundant because of the fixed length (other than an
EOT end delimeter). However stupid this may sound, there *is* a prompt there.
Don't quote me on this but something like:
/$sdelim(?:(.{26}?)$edelim$/
Extract the data from the capture with a similar expression.
robic0
------------------------------
Date: 18 Jul 2006 15:53:09 -0700
From: "filippo" <filippo2991@virgilio.it>
Subject: Re: numeric sort on string like a123-3
Message-Id: <1153263189.586884.31800@s13g2000cwa.googlegroups.com>
(megasnip)
wow, thank you very much to all you guys!
The sort routine is one of the perl stuff that I wasn't able to fully
understand, now I have something to study :-)
Thanks again,
Filippo
------------------------------
Date: Wed, 19 Jul 2006 00:08:34 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: numeric sort on string like a123-3
Message-Id: <6Kevg.138444$S61.6382@edtnps90>
Uri Guttman wrote:
>>>>>>"JWK" == John W Krahn <someone@example.com> writes:
>
> JWK> my @sorted = map $_->[ 1 ],
> JWK> sort { $a->[ 0 ] <=> $b->[ 0 ] }
> JWK> map { /(\d+)/, $_ }
>
> you forgot to return an anon array from that map:
>
> map { [ /(\d+)/, $_ ] }
>
> and since that is a simple expression you can lose the {} (but add a ,)
>
> map [ /(\d+)/, $_ ],
>
> JWK> qw/ a12-1 b1-3 b123-2 c12 c12-1 /;
>
>
> i figure you know that but typoed.
Oops. Thanks ;)
John
--
use Perl;
program
fulfillment
------------------------------
Date: 18 Jul 2006 15:18:45 -0700
From: "yusuf" <yusufm@gmail.com>
Subject: Premature end of script headers: mail.cgi
Message-Id: <1153261125.004077.15410@b28g2000cwb.googlegroups.com>
Hi,
I have script that does a database lookup, constructs a string, emails
it and then prints it out to the browser. The lines that actually print
to the browser are the last lines in the script:
$|=1;
print "Content-type: text/html\n\n";
print "SQL:<br>$statement<br><br>";
print "Sent email:<br><br>$msgbody";
print "\n\n";
Can someone please tell me why I get a lot of the "premature end of
script" errors?
Thanks.
------------------------------
Date: 18 Jul 2006 15:28:47 -0700
From: usenet@DavidFilmer.com
Subject: Re: Premature end of script headers: mail.cgi
Message-Id: <1153261727.261177.241190@s13g2000cwa.googlegroups.com>
yusuf wrote:
> Can someone please tell me why I get a lot of the "premature end of
> script" errors?
What happens when you run your script from a shell?
What happens if you add this near the top:
use CGI::Carp qw{ fatalsToBrowser carpout warningsToBrowser };
--
David Filmer (http://DavidFilmer.com)
------------------------------
Date: 18 Jul 2006 15:55:19 -0700
From: "yusuf" <yusufm@gmail.com>
Subject: Re: Premature end of script headers: mail.cgi
Message-Id: <1153263319.910600.248920@i42g2000cwa.googlegroups.com>
> What happens if you add this near the top:
>
> use CGI::Carp qw{ fatalsToBrowser carpout warningsToBrowser };
Nothing happens.
I also see the following errors when I get the premature end of script
headers error:
Use of uninitialized value in concatenation (.) or string at ...
The line the above error is referring to is the "$a = $a .
"\t<td>".uri_unescape($row[$i])."</td>\n";" in the below code:
while(my @row = $sth->fetchrow_array) {
$a = $a . "<tr>\n";
for(my $i=0; $i<12; $i++) {
$a = $a . "\t<td>".uri_unescape($row[$i])."</td>\n";
}
$a = $a . "\n</tr>\n";
}
------------------------------
Date: 18 Jul 2006 16:23:09 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Premature end of script headers: mail.cgi
Message-Id: <1153264989.215159.167500@s13g2000cwa.googlegroups.com>
yusuf wrote:
> I have script that does a database lookup, constructs a string, emails
> it and then prints it out to the browser. The lines that actually print
> to the browser are the last lines in the script:
>
> $|=1;
>
> print "Content-type: text/html\n\n";
> print "SQL:<br>$statement<br><br>";
>
> print "Sent email:<br><br>$msgbody";
> print "\n\n";
>
> Can someone please tell me why I get a lot of the "premature end of
> script" errors?
Possibly, but only if you give us all the relevant information. What
is *above* these "last lines of the script"? Do you have any other
prints there? Do you have anything that would generate errors or
warnings that would be sent to STDOUT?
This is why the Posting Guidelines for this group (which I'm pretty
sure you've been referred to already) ask you to please create a
*short* but *complete* script that demonstrates your error.
Paul Lalli
------------------------------
Date: 18 Jul 2006 16:26:37 -0700
From: "yusuf" <yusufm@gmail.com>
Subject: Re: Premature end of script headers: mail.cgi
Message-Id: <1153265197.054628.118850@m79g2000cwm.googlegroups.com>
Paul Lalli wrote:
> yusuf wrote:
> > I have script that does a database lookup, constructs a string, emails
> > it and then prints it out to the browser. The lines that actually print
> > to the browser are the last lines in the script:
> >
> > $|=1;
> >
> > print "Content-type: text/html\n\n";
> > print "SQL:<br>$statement<br><br>";
> >
> > print "Sent email:<br><br>$msgbody";
> > print "\n\n";
> >
> > Can someone please tell me why I get a lot of the "premature end of
> > script" errors?
>
> Possibly, but only if you give us all the relevant information. What
> is *above* these "last lines of the script"? Do you have any other
> prints there? Do you have anything that would generate errors or
> warnings that would be sent to STDOUT?
>
There are no print statements above the ones given. Unfortunately, the
script that this is in have a lot of DB lookup code, so its kind of
long.
------------------------------
Date: 18 Jul 2006 16:27:19 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Premature end of script headers: mail.cgi
Message-Id: <1153265239.864102.280900@p79g2000cwp.googlegroups.com>
yusuf wrote:
Please do not snip attributions. I've put it back in below.
> David Filmer wrote:
> > What happens if you add this near the top:
> >
> > use CGI::Carp qw{ fatalsToBrowser carpout warningsToBrowser };
>
> Nothing happens.
"Nothing" happens? As in, time suddenly stops? That seems unlikely.
*WHAT HAPPENS*? Do you get the same errors? Do you get no errors but
also no output? Does the program suddenly refuse to run at all? What?
> I also see the following errors when I get the premature end of script
> headers error:
What made you think that wasn't relevant the first time around? You
seem to almost be deliberately making it harder to help you.
> Use of uninitialized value in concatenation (.) or string at ...
That is not an error. That is a warning. The distinction is
important.
> The line the above error is referring to is the "$a = $a .
> "\t<td>".uri_unescape($row[$i])."</td>\n";" in the below code:
>
> while(my @row = $sth->fetchrow_array) {
> $a = $a . "<tr>\n";
> for(my $i=0; $i<12; $i++) {
> $a = $a . "\t<td>".uri_unescape($row[$i])."</td>\n";
How many of these warnings did you get? It seems likely that at least
one of the $row[$i] values are undefined. If you got 12 of these
errors per database row, I'd say your fetch isn't returning any
results. If you got less than 12, I'd say you miscounted the number of
columns in your query. Again, without a short but *complete* script,
it's not possible to know.
> }
> $a = $a . "\n</tr>\n";
> }
Paul Lalli
------------------------------
Date: 18 Jul 2006 16:30:36 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Premature end of script headers: mail.cgi
Message-Id: <1153265436.058658.208930@75g2000cwc.googlegroups.com>
yusuf wrote:
> Paul Lalli wrote:
> > yusuf wrote:
> > > Can someone please tell me why I get a lot of the "premature end of
> > > script" errors?
> >
> > Possibly, but only if you give us all the relevant information. What
> > is *above* these "last lines of the script"? Do you have any other
> > prints there? Do you have anything that would generate errors or
> > warnings that would be sent to STDOUT?
Paul Lalli also wrote, but yusuf snipped:
> > This is why the Posting Guidelines for this group (which I'm pretty
> > sure you've been referred to already) ask you to please create a
> > *short* but *complete* script that demonstrates your error.
> There are no print statements above the ones given. Unfortunately, the
> script that this is in have a lot of DB lookup code, so its kind of
> long.
*No one* asked you to post your entire script. Much the opposite. I
asked you to post a *short* but *complete* script that demonstrates
your error. Pare your problem down, removing all the code that's not
relevant to the error until you get the shortest possible complete
script that still generates the error. This is an imporant part of
debugging, and something you should be doing whenever you can't figure
out why your program doesn't work.
Paul Lalli
------------------------------
Date: 18 Jul 2006 16:41:28 -0700
From: "yusuf" <yusufm@gmail.com>
Subject: Re: Premature end of script headers: mail.cgi
Message-Id: <1153266088.911386.255190@75g2000cwc.googlegroups.com>
Heres a script that displays the behaviour. If you take out the loop,
it works:
#!/usr/bin/perl
use CGI;
use DBI;
use Net::SMTP;
use URI::Escape;
use strict;
use warnings;
my $head="";
my $tail ="";
for (my $i=0; i<100000; i++){
}
$head = <<"ENDA";
<html>
<head>
<title>Search QA Stats Server</title>
</head>
Test results:
<P>
ENDA
my $a = "";
$tail = <<"ENDB";
</table>
<P>
<hr noshade>
<P>
</body>
</html>
ENDB
my $msgbody = $head.$a.$tail;
$|=1;
print "Content-type: text/html\n\n";
print "Sent email:<br><br>$msgbody";
print "\n\n";
------------------------------
Date: 18 Jul 2006 16:43:22 -0700
From: "yusuf" <yusufm@gmail.com>
Subject: Re: Premature end of script headers: mail.cgi
Message-Id: <1153266202.586031.74570@b28g2000cwb.googlegroups.com>
Sorry, the script below has other errors (in the for loop), please
ignore the posting.
yusuf wrote:
> Heres a script that displays the behaviour. If you take out the loop,
> it works:
>
> #!/usr/bin/perl
>
>
>
> use CGI;
> use DBI;
> use Net::SMTP;
> use URI::Escape;
> use strict;
> use warnings;
>
>
>
> my $head="";
> my $tail ="";
>
>
>
>
>
>
> for (my $i=0; i<100000; i++){
>
>
>
> }
>
>
>
>
>
>
>
>
>
> $head = <<"ENDA";
>
>
>
> <html>
> <head>
> <title>Search QA Stats Server</title>
> </head>
> Test results:
> <P>
>
>
>
> ENDA
>
>
>
>
>
>
>
>
>
> my $a = "";
>
>
>
>
>
>
> $tail = <<"ENDB";
> </table>
> <P>
> <hr noshade>
> <P>
> </body>
> </html>
> ENDB
>
>
>
> my $msgbody = $head.$a.$tail;
>
>
>
>
>
>
> $|=1;
>
>
>
> print "Content-type: text/html\n\n";
>
>
>
> print "Sent email:<br><br>$msgbody";
> print "\n\n";
------------------------------
Date: Tue, 18 Jul 2006 17:35:55 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: start printing at the end of the previous line
Message-Id: <slrnebqoib.55q.tadmc@magna.augustmail.com>
weberw@adelphia.net <weberw@adelphia.net> wrote:
> How do you incorporate the print
> ' ' x line with a hyperlink? It works fine when it is not a hyperlink
> for example
>
> print "<pre>";
> print ' ' x ($directorylen-5), $_;
> print "</pre>";
You cannot have hyperlinks in <pre> elements.
> but print ' ' x ($directorylen), <a
> href=\"$File::Find::name\">$_</a>\n"; has a syntax error.
^
^ there's the ending quote,
^ where is the beginning quote?
Then you should fix it.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 18 Jul 2006 23:32:48 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: start printing at the end of the previous line
Message-Id: <Xns9804BCAA7E401castleamber@130.133.1.4>
Tad McClellan <tadmc@augustmail.com> wrote:
> weberw@adelphia.net <weberw@adelphia.net> wrote:
>
>> How do you incorporate the print
>> ' ' x line with a hyperlink? It works fine when it is not a hyperlink
>> for example
>>
>> print "<pre>";
>> print ' ' x ($directorylen-5), $_;
>> print "</pre>";
>
>
> You cannot have hyperlinks in <pre> elements.
Since when?
<!ENTITY % pre.exclusion "IMG|OBJECT|BIG|SMALL|SUB|SUP">
http://www.w3.org/TR/html4/sgml/dtd.html#pre.exclusion
(HTML 4.01 strict assumed).
Another way to get PRE behavior is to use the P element + CSS to make it
"pre"
--
John Bokma Freelance software developer
&
Experienced Perl programmer: http://castleamber.com/
------------------------------
Date: 18 Jul 2006 15:23:34 -0700
From: usenet@DavidFilmer.com
Subject: Re: tuff problem of the day for linux
Message-Id: <1153261414.338538.261980@h48g2000cwc.googlegroups.com>
gavino wrote:
> 1 add 1 line to config file
You don't say what type of config file. If it's a "standard" type (such
as Windows-style .ini files) you can easily do this with a parser (such
as Config::IniFiles). Otherwise you will need to manipulate the file
with basic Perl I/O commands (perldoc -f open)
> 2 restart backup client
perldoc -f system
> 3 do for all 30 servers over ssh
use Net::SSH;
> 4 do in a script without having to goto each server and login
Of course.
Is this really 30 standalone servers, or is this a cluster? Have you
looked at Cluster::Init?
--
David Filmer (http://DavidFilmer.com)
------------------------------
Date: 18 Jul 2006 16:06:41 -0700
From: "gavino" <bootiack@yahoo.com>
Subject: Re: tuff problem of the day for linux
Message-Id: <1153264001.676175.95120@s13g2000cwa.googlegroups.com>
regular linux redhat ent 4
text files
usenet@DavidFilmer.com wrote:
> gavino wrote:
> > 1 add 1 line to config file
>
> You don't say what type of config file. If it's a "standard" type (such
> as Windows-style .ini files) you can easily do this with a parser (such
> as Config::IniFiles). Otherwise you will need to manipulate the file
> with basic Perl I/O commands (perldoc -f open)
>
> > 2 restart backup client
>
> perldoc -f system
>
> > 3 do for all 30 servers over ssh
>
> use Net::SSH;
>
> > 4 do in a script without having to goto each server and login
>
> Of course.
>
> Is this really 30 standalone servers, or is this a cluster? Have you
> looked at Cluster::Init?
>
> --
> David Filmer (http://DavidFilmer.com)
------------------------------
Date: 18 Jul 2006 16:41:45 -0700
From: "gavino" <bootiack@yahoo.com>
Subject: Re: tuff problem of the day for linux
Message-Id: <1153266105.289976.256170@75g2000cwc.googlegroups.com>
regular linux redhat ent 4
text files
Todd W wrote:
> "gavino" <bootiack@yahoo.com> wrote in message
> news:1153256716.393937.155030@s13g2000cwa.googlegroups.com...
> > 30 servers with veritas backup client
> > task
> > 1 add 1 line to config file
> > 2 restart backup client
> > 3 do for all 30 servers over ssh
> > 4 do in a script without having to goto each server and login
> >
>
> 1. Write a subroutine that does [task] to one computer
> 2. Put names of all machines in an array
> 3. loop over array and call sub for each element
>
> To put the thread on topic, search CPAN for SSH
>
> Todd W.
------------------------------
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 V10 Issue 9497
***************************************
