[18839] in Perl-Users-Digest
Perl-Users Digest, Issue: 1007 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon May 28 21:10:29 2001
Date: Mon, 28 May 2001 18:10:12 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <991098612-v10-i1007@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 28 May 2001 Volume: 10 Number: 1007
Today's topics:
Re: Output unix data with perl.vvp (Abigail)
Perl 5.6, eval, and Illegal octal digit message <ralough.ced@dnet.co.uk>
Re: Perl 5.6, eval, and Illegal octal digit message <flavell@mail.cern.ch>
Re: Perl script error during testing (Abigail)
Re: Problem calling Perl from JavaScript <no@spam.net>
question about the UNIX commands in perl script (Roanld)
Regexp problem (Mr. Green)
Re: Regexp problem (Abigail)
Re: Regexp problem <godzilla@stomp.stomp.tokyo>
Re: Regexp problem <krahnj@acm.org>
Re: Searching Flat Text File (Dave Bailey)
Searching Word Index'd Table <newwave@ACMEmail.net>
Re: Searching Word Index'd Table (Dave Bailey)
Re: simple reg exp problem (Abigail)
Re: SMTP Client in perl <hkfe@fx.ro>
Re: SMTP Client in perl (Abigail)
Re: split'ing a pipe (|) delimited file (Abigail)
Stripping a string down to aplhaNumeric characters/Usin <james@NOSPAMPLEASEthesinner.co.uk>
Re: url parsing (Abigail)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 28 May 2001 23:45:46 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: Output unix data with perl.vvp
Message-Id: <slrn9h5opa.fv8.abigail@tsathoggua.rlyeh.net>
Victor [FITZ:K500:EXCH] (vprasad@americasm01.nt.com) wrote on MMDCCCXXIV
September MCMXCIII in <URL:news:3B0EB987.535D3EA4@americasm01.nt.com>:
<> Hello,
<>
<> I have a unix script that does a lot of stuff. I want to use a perl
<> script to pass it parameters - run the unix script - and spit out the
<> unix messages to the screen from within the PERL script?
First, go to the manual, and look up the proper spelling of Perl in
the FAQ.
Then go to the manual and look up the entry of 'system', which will
explain what to do to achieve your needs.
Abigail
--
sub f{sprintf'%c%s',$_[0],$_[1]}print f(74,f(117,f(115,f(116,f(32,f(97,
f(110,f(111,f(116,f(104,f(0x65,f(114,f(32,f(80,f(101,f(114,f(0x6c,f(32,
f(0x48,f(97,f(99,f(107,f(101,f(114,f(10,q ff)))))))))))))))))))))))))
------------------------------
Date: Mon, 28 May 2001 23:46:55 +0100
From: Richard A Lough <ralough.ced@dnet.co.uk>
Subject: Perl 5.6, eval, and Illegal octal digit message
Message-Id: <3B12D55F.FA2395FF@dnet.co.uk>
Hi All,
This is most likely a FAQ, but my search revealed only
one old email and the reply said the bug had been fixed.
I'm using eval to convert a text string representing mday, month, year
into epoch seconds.
on some strings containing '08' I get an error message output -
Illegal octal digit .... etc
and no value returned.
This would make some sense if every '08' string gave the same error,
it would imply that every '08' was interpreted as an octal value.
So it looks like it might be a bug.
Any comments?
TIA
Richard A Lough
------------------------------
Date: Tue, 29 May 2001 00:57:14 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Perl 5.6, eval, and Illegal octal digit message
Message-Id: <Pine.LNX.4.30.0105290049430.29341-100000@lxplus003.cern.ch>
On Mon, 28 May 2001, Richard A Lough wrote:
> I'm using eval to convert a text string representing mday, month, year
> into epoch seconds.
so don't do that. Perl has better ways, surely?
> on some strings containing '08' I get an error message output -
> Illegal octal digit .... etc
Which seems entirely likely if you eval it...
> This would make some sense if every '08' string gave the same error,
well you haven't shown ANY examples, so what are we supposed to think?
> it would imply that every '08' was interpreted as an octal value.
Bingo.
> So it looks like it might be a bug.
>
> Any comments?
It looks like you aren't showing us any code, and as such any answer
to your actual complaint would depend on the PSI::ESP module and a
crystal ball.
But my gut feeling is that there's a better way, and that it won't
involve eval. So surprise us.
The FAQs have some constructive suggestions for dealing with dates.
[No, not _that_ sort of date, Virginia...]
... if
you don't know the precise format of your dates, then you
should probably use either of the Date::Manip and
Date::Calc modules from CPAN before you go hacking up your
own parsing routine to handle arbitrary date formats.
------------------------------
Date: Mon, 28 May 2001 23:59:53 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: Perl script error during testing
Message-Id: <slrn9h5pjp.fv8.abigail@tsathoggua.rlyeh.net>
sloon (sloon@mindless.com) wrote on MMDCCCXXIV September MCMXCIII in
<URL:news:tkrsgtsvjjlb49mev4i1q63djn6bn11c5d@4ax.com>:
<> Hi all,
<>
<> Very often, when I'm developing a perl script, I will make slight
<> modifications to the script and upload it to the intended server to
<> test the modifications. I might do this 30 or 40 times and it seems
<> that after a while, I get an error that the script cannot be run. Even
<> if I refresh it, reload it..etc.
<>
<> THEN, if I shut down my computer and start it again, the script will
<> run correctly.
<>
<> I'm usually using IE 5.
<>
<> My question is:
<>
<> Is this due to IE getting tired of opening the same script and
<> refusing to do it anymore or is it something server-side, the server
<> stops any more requests to the particular script that I'm requesting?
<>
<> Even if I just rename a working script to the name of the script that
<> now gives an error, I still get the error unless I shut down and start
<> again. I've got IE set to always get a new version of the page.
<>
<> I'm slightly bamboozled.
What makes you think this has anything to do with Perl?
Abigail
--
perl -wle 'print "Prime" if ("m" x shift) !~ m m^\m?$|^(\m\m+?)\1+$mm'
------------------------------
Date: Mon, 28 May 2001 22:20:55 GMT
From: "Misanthrope" <no@spam.net>
Subject: Re: Problem calling Perl from JavaScript
Message-Id: <bbAQ6.14484$Rh7.456398@newsread1.prod.itd.earthlink.net>
Try using a full URL.
"Dr. Ralph P. Schorn" <R.P.Schorn@fz-juelich.de> wrote in message
news:3B12B43E.E3CFDB17@fz-juelich.de...
> I want to execute a Perl script on an HTTP server
> (just generating an email with sendmail) out of a
> JavaScript function, e.g.
>
> <script language="JavaScript">
> function Send_Email()
> {
> location.href = "/cgi-bin/the_script.pl";
> }
> </script>
>
> The Perl script itself has no syntax errors and is
> quite OK e.g. when used with the action-tag of a
> form in HTML. When activated from JavaScript,
> however, I receive the internal server error 500.
>
> What's going wrong here ? Any ideas ?
>
> Thanks,
> Ralph
>
------------------------------
Date: 28 May 2001 17:57:35 -0700
From: ronaldh@sina.com (Roanld)
Subject: question about the UNIX commands in perl script
Message-Id: <aafb219c.0105281657.73707085@posting.google.com>
simple but confusing:
I have a perl program with unix shell
command intergrated. Seems the response is not what I expected.
see here is the sample, the program names awktest,
-------------------------
#!/usr/bin/perl
qx`ls -l ping* > listfile`;
$list=qx{awk '{print $4}' listfile};
print "the result = $list";
-------------------------
suppose we have a file called ping.txt in the current directory.
I get the system response as,
/lhong/codes>./awktest
the result = -rwxr-xr-x 1 lhong root 80 May 22 16:21
ping.txt
But what I need is only 'root', as the right response in UNIX,
/lhong/codes>awk '{print $4}' listfile
root
I am using perl 5.6.0 in Solaris 2.8, the shell in UNIX is ksh.
Thanks in advance!
Ronald
------------------------------
Date: 28 May 2001 16:09:52 -0700
From: greenseaweed@aol.com (Mr. Green)
Subject: Regexp problem
Message-Id: <5370f8aa.0105281509.680df6@posting.google.com>
I want to open a file and capture a specific chunk of html from it.
The html is in the file's first table cell. This is my code:
open(FILEREAD, "2345.txt") or die "Couldn't open file: $!";
while(<FILEREAD> !~ #</td>#) {
$Form_data .= <FILEREAD>;
}
close FILEREAD;
I know that the file will have a </td> tag. Here's what the file looks
like:
---------------------------------------
<tr bgcolor=white>
<td>
<input type=hidden name=time value=0><br>
<input type=hidden name=time value=0><br>
<input type=hidden name=time value=0><br>
<input type=hidden name=time value=0><br>
<input type=hidden name=time value=0><br>
</td>
.
.
more html
.
.
----------------------------------------
I am content w/ capturing the <tr> tag, although it would be nice not
to. Anyway, my code doesn't work. When I print $Form_data, the script
prints some of the html that I want, but not all of it. Could the
regexp symbols \t and \d
be causing me trouble here? I am using perl 5.005_02. Thanks!
------------------------------
Date: Tue, 29 May 2001 00:06:17 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: Regexp problem
Message-Id: <slrn9h5pvp.fv8.abigail@tsathoggua.rlyeh.net>
Mr. Green (greenseaweed@aol.com) wrote on MMDCCCXXVII September MCMXCIII
in <URL:news:5370f8aa.0105281509.680df6@posting.google.com>:
^^ I want to open a file and capture a specific chunk of html from it.
^^ The html is in the file's first table cell. This is my code:
^^
^^ open(FILEREAD, "2345.txt") or die "Couldn't open file: $!";
^^
^^ while(<FILEREAD> !~ #</td>#) {
^^
^^ $Form_data .= <FILEREAD>;
^^
^^ }
^^
^^ close FILEREAD;
^^
^^ I am content w/ capturing the <tr> tag, although it would be nice not
^^ to. Anyway, my code doesn't work. When I print $Form_data, the script
^^ prints some of the html that I want, but not all of it. Could the
^^ regexp symbols \t and \d
^^ be causing me trouble here? I am using perl 5.005_02. Thanks!
No, your problem is lack of understanding what reading input means.
You read a line of input, and then, when you read a line of input
again, you get the NEXT line.
Perl doesn't magically assume that if you use <FILEREAD> in both
the condition (the while) and the body of a looping construct,
you want the next line one time, and the same line the other time.
while (<FILEREAD>) {
last if m#</td>#;
$Form_data .= $_;
}
Abigail
--
# Perl 5.6.0 broke this.
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
------------------------------
Date: Mon, 28 May 2001 17:29:36 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Regexp problem
Message-Id: <3B12ED70.8499FF@stomp.stomp.tokyo>
"Mr. Green" wrote:
(snipped)
> This is my code:
> open(FILEREAD, "2345.txt") or die "Couldn't open file: $!";
> while(<FILEREAD> !~ #</td>#) {
> $Form_data .= <FILEREAD>;
> }
> close FILEREAD;
> When I print $Form_data, the script prints some of the html
> that I want, but not all of it.
> Could the regexp symbols \t and \d be causing me trouble here?
Not at all.
Can't modify not in concatenation (.) at test1.pl line 5, near "<FILEREAD>;"
syntax error at test1.pl line 5, near "<FILEREAD>;"
Unmatched right curly bracket at test1.pl line 7, at end of line
Execution of test1.pl aborted due to compilation errors.
So your script runs and prints you say.
* laughs *
Godzilla!
------------------------------
Date: Tue, 29 May 2001 00:32:35 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: Regexp problem
Message-Id: <3B12EE37.3202D009@acm.org>
"Mr. Green" wrote:
>
> I want to open a file and capture a specific chunk of html from it.
> The html is in the file's first table cell. This is my code:
>
> open(FILEREAD, "2345.txt") or die "Couldn't open file: $!";
>
> while(<FILEREAD> !~ #</td>#) {
^^^^^^^^^^
This is a comment in perl and should give a syntax error!
> $Form_data .= <FILEREAD>;
>
> }
>
> close FILEREAD;
>
> I know that the file will have a </td> tag. Here's what the file looks
> like:
> ---------------------------------------
> <tr bgcolor=white>
> <td>
> <input type=hidden name=time value=0><br>
> <input type=hidden name=time value=0><br>
> <input type=hidden name=time value=0><br>
> <input type=hidden name=time value=0><br>
> <input type=hidden name=time value=0><br>
> </td>
> .
> .
> more html
> .
> .
> ----------------------------------------
> I am content w/ capturing the <tr> tag, although it would be nice not
> to. Anyway, my code doesn't work. When I print $Form_data, the script
> prints some of the html that I want, but not all of it. Could the
> regexp symbols \t and \d
> be causing me trouble here? I am using perl 5.005_02. Thanks!
No
while ( <DATA> ) {
if ( /<td>/i .. /<\/td>/i ) {
$Form_data .= $_;
}
last if /<\/td>/i;
}
print $Form_data;
John
--
use Perl;
program
fulfillment
------------------------------
Date: 29 May 2001 00:04:35 GMT
From: dave@sydney.daveb.net (Dave Bailey)
Subject: Re: Searching Flat Text File
Message-Id: <slrn9h5fmk.fcn.dave@sydney.daveb.net>
On Mon, 28 May 2001 01:13:54 GMT, RoadRunner <newwave@ACMEmail.net> wrote:
[...]
>I would like to search a text file for any occourances of $keyword. Now, if
>a line contains $keyword, then just print it. The file is has 228,000 lines,
>so would it make more sense to put everything in a mySQL db? At any rate,
>how would I search the file and print out any lines that contain $keyword.
>Is it possible to have more than 1 keyword?
You are probably better off using glimpse for this sort of thing.
I think that using an RDBMS (especially MySQL, which is optimized for
read-only applications) would be faster than glimpse if you designed
the tables right, but I don't know if the speed increase is worth the
complexity. Since both approaches involve creating an index of some sort,
they will be much faster than using regular expressions to search the
entire file each time you want to look for a particular word or set of
words. For indexing multiple files, you'd need something like:
CREATE TABLE word (
word_id int not null primary key auto_increment,
word varchar(255) not null,
unique ( word )
);
CREATE TABLE line (
line_id int not null primary key auto_increment,
line_number int not null,
file_id int not null,
line text,
index ( file_id )
);
CREATE TABLE word_occurrence (
word_id int not null,
line_id int not null,
unique ( word_id, line_id )
);
CREATE TABLE file (
file_id int not null primary key auto_increment,
filename varchar(255) not null,
unique ( filename )
);
Populating the tables amounts to reading in the file(s) a line at a
time, splitting each line into words (your definition of "word" may
vary depending on exactly what your file contains), and inserting
rows into the appropriate tables as you go through the lines of the
file(s). Once this is done, your search queries look like:
SELECT DISTINCT l.line_number,
l.line,
f.filename
FROM word w,
word_occurrence o,
line l,
file f
WHERE w.word
IN ( 'the', 'and' ) # you'd use parameter binding here
AND w.word_id = o.word_id
AND o.line_id = l.line_id
AND l.file_id = f.file_id
This is relatively easy to implement in Perl/DBI.
The drawback is that each time the file changes, the entire
set of tables needs to be rebuilt, and rebuilding the tables
is slow - about 100 lines per second, meaning your 228,000 line
file would take the better part of an hour to reindex. Then
again, it might take just as long if you use glimpse. If you
are sure the content of the files will never (or rarely) change,
using glimpse or an RDBMS like above is the way to go.
--
Dave Bailey
davidb54@yahoo.com
------------------------------
Date: Mon, 28 May 2001 23:08:20 GMT
From: "Austin" <newwave@ACMEmail.net>
Subject: Searching Word Index'd Table
Message-Id: <ETAQ6.165969$BB5.2796616@typhoon.columbus.rr.com>
Hello,
I was wondering if some one could explain how I would create and index a
table by words, then search it. The words will be taken from a text file
with 300,000~ lines. Thanks!
Cheers-
Austin
------------------------------
Date: 29 May 2001 00:30:02 GMT
From: dave@sydney.daveb.net (Dave Bailey)
Subject: Re: Searching Word Index'd Table
Message-Id: <slrn9h5h6a.fln.dave@sydney.daveb.net>
On Mon, 28 May 2001 23:08:20 GMT, Austin <newwave@ACMEmail.net> wrote:
>Hello,
>
>I was wondering if some one could explain how I would create and index a
>table by words, then search it. The words will be taken from a text file
>with 300,000~ lines. Thanks!
See responses to your post asking this question in the "Flat Text File"
thread.
--
Dave Bailey
davidb54@yahoo.com
------------------------------
Date: Tue, 29 May 2001 00:22:03 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: simple reg exp problem
Message-Id: <slrn9h5qtb.la0.abigail@tsathoggua.rlyeh.net>
Keith Calvert Ivey (kcivey@cpcug.org) wrote on MMDCCCXXVII September
MCMXCIII in <URL:news:3b1290e1.62113107@news.newsguy.com>:
'' Bart Lateur <bart.lateur@skynet.be> wrote:
'' >David Aslanian wrote:
'' >
'' >>$test = "sometext <!--#INCLUDE file2.txt--> someothertext";
'' >>if($test =~ m/.*<!--#INCLUDE\s([A-Z1-10\.]+)-->.*/i) {
'' >> print "a match.";
'' >>} else { print "not a match."; }
'' >>
'' >>if acts if it was not a match, and it seems like it should be!
'' >
'' >No. You want [A-Z0-9\.] in your character class.
'' >
'' >[1-10] is just the digits 1 (to 1) and 0.
''
'' Also, unless David is doing something later with $` or $& or $'
'' (or a few other obscure things), which he probably shouldn't be,
'' the .* is pointless at the beginning and end of the regex.
I would not say that $1 is obscure.
.* is indeed not needed if all you care is a match. But then, you don't
need the parens either. If side-effects are important, then the leading
.* does matter.
Abigail
--
$_ = "\112\165\163\1648\141\156\157\164\150\145\1628\120\145"
. "\162\1548\110\141\143\153\145\162\0128\177" and &japh;
sub japh {print "@_" and return if pop; split /\d/ and &japh}
------------------------------
Date: Tue, 29 May 2001 02:16:49 +0200
From: "i-K@n Solutions" <hkfe@fx.ro>
Subject: Re: SMTP Client in perl
Message-Id: <3B12EA6E.664CAFB1@fx.ro>
Will your SMTP server relay mail for you? You may have to authenticate by
logging on by connecting via POP3 with your username and password.
F.K.
Rafael Garcia-Suarez wrote:
> Kay Schulz wrote in comp.lang.perl.misc:
> } Hi
> } I have a webserver on a different machine than the mail
> } server
> } now I want to send mail froma form using that mailserver.
> } This means I need an smtp client in perl. Is there a module
> } freely available?
>
> Yes.
> The Net::SMTP module is available on CPAN.
> There are also several other modules (with "Mail" in their names) that
> you may find useful.
> http://search.cpan.org/
>
> --
> Rafael Garcia-Suarez
------------------------------
Date: Tue, 29 May 2001 00:23:25 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: SMTP Client in perl
Message-Id: <slrn9h5qvt.la0.abigail@tsathoggua.rlyeh.net>
Kay Schulz (kay_schulz@yahoo.com) wrote on MMDCCCXXVII September MCMXCIII
in <URL:news:kay_schulz-150390.11060328052001@news.t-online.com>:
,, Hi
,, I have a webserver on a different machine than the mail
,, server
,, now I want to send mail froma form using that mailserver.
,, This means I need an smtp client in perl. Is there a module
,, freely available?
No, there isn't. Otherwise, it would be on CPAN, and you checked
there, didn't you?
Abigail
--
perl -we '$| = 1; $_ = "Just another Perl Hacker\n"; print
substr $_ => 0, 1 => "" while $_ && sleep 1 => 1'
------------------------------
Date: Tue, 29 May 2001 00:25:47 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: split'ing a pipe (|) delimited file
Message-Id: <slrn9h5r4b.la0.abigail@tsathoggua.rlyeh.net>
Jennifer (toxlists@canada.com) wrote on MMDCCCXXV September MCMXCIII in
<URL:news:3B0F5D10.D3E7B269@canada.com>:
|| I have a pipe delimited file and I am trying to split it, but
|| instead of split'ing on the pipe it seems to be split'ing into
|| each character. So how should I split it?
Did you check the FAQ?
Abigail
--
use lib sub {($\) = split /\./ => pop; print $"};
eval "use Just" || eval "use another" || eval "use Perl" || eval "use Hacker";
------------------------------
Date: Mon, 28 May 2001 23:58:57 +0100
From: "James" <james@NOSPAMPLEASEthesinner.co.uk>
Subject: Stripping a string down to aplhaNumeric characters/Using variables in Reg Expressions
Message-Id: <9eules$96d$1@phys-ma.sol.co.uk>
Hey all,
I am currently writing a website where I need a function that will take a
text string and strip it down to lower case AplhaNumeric charcaters only.
Is there any function that does that specially?
My thought was to write one that simply used regular expresions to search
and replace all chr(1 to 255, minus characters and numbers) with nothing,
simply by using a for loop over the relevant ranges. eg
for a = 1 to 56
replace chr(a) with null string
next a
(in Puesdo code)
But then I hit another problem, how do you use a variable in a regular
expression?
Any help you can all give would be appreciated - Thanks, James.
------------------------------
Date: Tue, 29 May 2001 00:44:38 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: url parsing
Message-Id: <slrn9h5s7m.la0.abigail@tsathoggua.rlyeh.net>
Craig Berry (cberry@cinenet.net) wrote on MMDCCCXXIV September MCMXCIII
in <URL:news:tgtetvhqvn182d@corp.supernews.com>:
`` Ilmari Karonen (iltzu@sci.invalid) wrote:
`` : Yes, URLs can be parsed with a regexp. In fact, RFC 2396, which is the
`` : authoritative document on anything you wanted to know about URLs, gives
`` : the regexp in Appendix B. I've pasted it here for you:
`` :
`` : $url =~ /^(([^:/?#]+):)?(//([^/?#]*))?([^?#]*)(\?([^#]*))?(#(.*))?$/s
`` : or die "Invalid URL: $url\n";
``
`` So a valid url can contain newlines practically anywhere?
No.
The "or die" part is utterly silly.
While the regex can be used to break down a *valid* URL into its components,
it utterly fails as a validating regex.
Unless you agree that any string starting with a #, a ? or // is a URL.
But I doubt Perl or C++ style comments are to be considered URLs.
Abigail
--
sub f{sprintf'%c%s',$_[0],$_[1]}print f(74,f(117,f(115,f(116,f(32,f(97,
f(110,f(111,f(116,f(104,f(0x65,f(114,f(32,f(80,f(101,f(114,f(0x6c,f(32,
f(0x48,f(97,f(99,f(107,f(101,f(114,f(10,q ff)))))))))))))))))))))))))
------------------------------
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 1007
***************************************
