[8419] in Perl-Users-Digest
Perl-Users Digest, Issue: 2037 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Mar 5 19:07:31 1998
Date: Thu, 5 Mar 98 16:01:50 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 5 Mar 1998 Volume: 8 Number: 2037
Today's topics:
Re: Question on Perl Ascoc. Arrays <jdporter@min.net>
Re: Question on Perl Ascoc. Arrays <apeterso@ctberk.com>
Re: Quoting ^M? <niting@raleigh.ibm.com>
Re: safe file modification strategy (w/flock, new_tmpfi (O'Shaughnessy Evans)
Re: Special Characters (Abigail)
Sybase BCP & Module Installs Julian_Jackson@vanguard.com
Sys::Syslog basics (James Vahn)
Re: Variable interpolation in a file (123) (Nick Halloway)
Re: Variable interpolation in a file (123) (RonaldWS)
Re: Variable interpolation in a file (123) (Andrew M. Langmead)
Re: What am I doing wrong? <palincss@nicom.com>
Re: What is PERL? Learn JAVA instead? <jdporter@min.net>
Re: What is PERL? Learn JAVA instead? <tchrist@mox.perl.com>
Re: What is PERL? Learn JAVA instead? <tchrist@mox.perl.com>
Re: What is PERL? Learn JAVA instead? (Abigail)
Re: What is PERL? Learn JAVA instead? <tchrist@mox.perl.com>
Why does <> discard value? (dave)
Re: Why does <> discard value? (Kevin B Cohen)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 05 Mar 1998 17:43:43 -0500
From: John Porter <jdporter@min.net>
Subject: Re: Question on Perl Ascoc. Arrays
Message-Id: <34FF2A9F.2F96@min.net>
Arvid Peterson wrote:
>
> I've got a program handlind multi-file processing which breaks
> each value of a file line
> into an associative array based on the infile reference as follows...
You mean hashes, of course.
Associative Array is considered an archaic term in the perl community.
> %FILEHASH = ('FILE1','FILENAME1.EXT','FILE2','FILENAME2.EXT',...);
>
> with the resulting arrays being
Arrays? You mean hashes, right?
> $FILE1{$line,$element};
> and...
> $FILE2{$line,$element};
vaguely perl-like pseudocode. what did you really mean?
$FILE1{$line} = $element; ?
> what I want to do, for testing, is have a foreach loop which prints array elemets for all
> files processed by a file reading and array building subroutine as
>
> foreach $temploop (keys(%FILEHASH)) {
> # $temploop should "point to" array FILE1, FILE2, etc.
> foreach $temploop2 (keys(%$temploop)) {
> print "$temploop >> $temploop{$temploop2}\n";
> }
> }
As you know, the keys you get from %FILEHASH are strings,
such as 'FILE1'. Sure you can dereference each string as a
symbolic hash reference, as in keys %$temploop.
But then, how are you using it in the next line?
print $temploop{$temploop2};
You can't deference a string like that. You need to include
curly braces around the string expression which is to be
used as a symbolic reference:
print ${$temploop}{$temploop2};
That's why, as a matter of habit, I always put symbolic
references in braces when dereferencing them, even in
keys %{$temploop}
hth,
John Porter
------------------------------
Date: Thu, 05 Mar 1998 15:40:44 -0800
From: Arvid Peterson <apeterso@ctberk.com>
Subject: Re: Question on Perl Ascoc. Arrays
Message-Id: <34FF37FB.B8C0235F@ctberk.com>
This is a multi-part message in MIME format.
--------------8811D3DE304F336ADA5B5933
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Here is the whole code in all its pseudo-glory for further explanation...
If this offers any clarification, thank god. If not, I'll try to explain myself further.
Keep in mind, however, that I am stuck using Perl 4 at this point with no plans in
the immediate future for a site installation of Perl 5.
What I also have tried is setting up a hash called ELEMENTS with the associative
pointers being filename, fileline, and file element. That is a little too cluttered,
though,
and it's takes too much time to process elements from an individual file if the program
needs to scan elements from all files in the same hash.
Thanks for the response.
Arvid Peterson,
Curtis & Tompkins, Inc.
ORIGINAL CODE FOLLOWS============================
#!/usr/local/bin/oraperl
&TXT;
#THIS IS THE SECTION THAT IS CURRENTLY GIVING ME
#PROBLEMS...
foreach $tempkeys (keys(%FILEHASH)) {
foreach $temploop (keys(%{$tempkeys})) {
print "$tempkeys\n";
print "${$tempkeys}{$temploop} \n";}
}
#SUBROUTINES==============================
sub ReadFiles {
foreach $temploop (keys(%FILEHASH)) {
open($temploop,"<$FILEHASH{$temploop}");
$cntline = 0;
while (<$temploop>) {
$cntline++;
chop;
&LineSplit;
print "$cntline $elements >> $_\n";
}
close($temploop);
}
}
sub LineSplit {
if (defined @TextQual) {
foreach $textqual (@TextQual) {
s/$textqual/ /g;
s/ //g;}
}
@inarray = split(/$DELIMITER/);
$elements = @inarray;
$count = 0;
while ($count < $elements) {
#$ELEMENT{$temploop,$cntline,$count} = $inarray[$count];
eval("\$$temploop{$cntline,$count} = \'$inarray[$count]\'");
$count++;}
}
sub TXT {
%FILEHASH = ('SAMPFILE','SAMPFILE.TXT','SURRFILE','SURRFILE.TXT');
$DELIMITER = ";";
&ReadFiles;
}
--------------8811D3DE304F336ADA5B5933
Content-Type: text/x-vcard; charset=us-ascii; name="vcard.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Peterson, Arvid
Content-Disposition: attachment; filename="vcard.vcf"
begin: vcard
fn: Arvid Peterson
n: Peterson;Arvid
org: Curtis & Tompkins, Inc.
email;internet: apeterso@ctberk.com
title: Systems Analyst
x-mozilla-cpt: ;0
x-mozilla-html: FALSE
version: 2.1
end: vcard
--------------8811D3DE304F336ADA5B5933--
------------------------------
Date: Thu, 5 Mar 1998 15:04:05 -0800
From: "Nitin Gupta" <niting@raleigh.ibm.com>
Subject: Re: Quoting ^M?
Message-Id: <6dnas6$ota$1@sjnews.sanjose.ibm.com>
Try:
:%s/<Ctrl-v><Ctrl-m>//g
where <Ctrl-V> means press the Ctrl key + v.
This should remove all ^M characters from your file.
-Nitin
Steve Wells wrote in message <34FF1265.4ADCFB3@prilnari.com>...
>Jeff Stewart wrote:
>>
>> This probably isn't precisely Perl related, but can I use regular
>> expressions to wipe out all occurrences of ^M in a text file? I'm
>> writing a Perl script in vi, and tried using regexp's to get rid of all
>> these ^M controls that appeared after uploading, but vi told me it
>> couldn't find the ^M character. I tried both SHIFT+6+M and CTRL+M in
>> the regexp. ^M didn't work, and CTRL+M terminated command mode. Tried
>> backslashing ^M, that didn't work either.
>>
>> Can this be done?
>>
>> Jeff S.
>
>Jeff -
>
> try: s/\cM//g;
>
>STEVE
------------------------------
Date: 5 Mar 1998 22:31:58 GMT
From: shaug@gromit.callamer.com (O'Shaughnessy Evans)
Subject: Re: safe file modification strategy (w/flock, new_tmpfile, and syscopy?)
Message-Id: <6dn94u$h64$1@ha1.rdc1.occa.home.com>
In article <8c1zwh40ex.fsf@gadget.cscaper.com>,
Randal Schwartz 's keyboard spewed forth thus:
[snip]
>I suppose you could stat file and stat the handle to see if they're
>the same file after you get the flock, and if not, restart from the open.
>Hey... wait... that'd work:
>
> open file for read/write
> flock file exclusive
> compare dev/ino of file to dev/ino of handle, if not same, loop back
> read from file, writing to file2
> rename file2 to file (deleting file)
> close handle (releasing the flock)
>
>Hmm. There's your answer. Just don't forget that all-important third
>step.
Cool. Thanks very much for the input, guys. I'm guessing that this is
*much* more efficient than using syscopy() and the read-from-tmp/
write-to-file plan.
So, to handle the "if not same, loop back" condition, can I do something
like this?
open(IN, "+>>$file") or carp("open: $!"), return;
($dev_a, $ino_a) = (stat(IN))[0,1];
flock(IN, LOCK_EX) or carp("flock: $!"), return;
($dev_b, $ino_b) = (stat(IN))[0,1];
while ($dev_a != $dev_b and $ino_a != $ino_b) {
close IN;
open(IN, "+>>$file") or carp("open: $!"), return;
($dev_a, $ino_a) = (stat(IN))[0,1];
flock(IN, LOCK_EX) or carp("flock: $!"), return;
($dev_b, $ino_b) = (stat(IN))[0,1];
}
seek IN, 0, 0;
...
Is that what you meant by, "restart from the open?"
Again, thanks :^)
--
- O'Shaughnessy Evans
- http://www.callamerica.net/shaug/
------------------------------
Date: 5 Mar 1998 23:02:15 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Special Characters
Message-Id: <6dnatn$lq2$1@client2.news.psi.net>
Randal Schwartz (merlyn@stonehenge.com) wrote on 1647 September 1993 in
<URL: news:8czpj50xsz.fsf@gadget.cscaper.com>:
++ >>>>> "Russell" == Russell White <russwyte@pcisys.net> writes:
++
++ Russell> Can anybody tell me where I can find a list of special
++ Russell> characters that must be treated with the "\" symbol in print
++ Russell> statements? Such as \" Thanks.
++
++ It's a very short list.
++
++ $ @ \ and the string delimiter (like ").
++
++ Everything else is safe.
Well..... that depends.
Compare the two print statements in:
$foo = '$foo';
@foo = (5 .. 15);
print "$foo[3]";
print "$foo\[3]";
Puzzle: How do I escape $, @ and \ in interpolative strings without using \?
Abigail
--
perl -wleprint -eqq-@{[ -eqw+ -eJust -eanother -ePerl -eHacker -e+]}-
------------------------------
Date: Thu, 05 Mar 1998 16:03:30 -0600
From: Julian_Jackson@vanguard.com
Subject: Sybase BCP & Module Installs
Message-Id: <6dn7e3$lvj$1@nnrp1.dejanews.com>
Im a fairly new (4 weeks or so) Perl user and am attempting to write a script
that will move data selected (by the user) from a number of Sybase tables
between (similar) databases on two servers. Im able to create valid host
files in the "out" portion of my code (tested by bcp-ing in the file using
data workbench & on the command line) but am having problems getting the bcp
routines supplied by the Sybase::Dblib module to work. The following is a
portion of the code Ive written so far (w/most variables defined earlier in
the script).
.
.
$dbh_i = Sybase::DBlib->dblogin($user_name, $pwd, $dest_tbl);
$status_i = &BCP_SETL(&Sybase::DBlib::TRUE);
$dbh_i = Sybase::DBlib->dbopen($dest_tbl);
$status_i = $dbh_i->bcp_init($dest_db, $host_file, $err_file, DB_IN);
$status_i = $dbh_i->bcp_control(BCPBATCH, 1);
$status_i = $dbh_i->bcp_columns($col_num);
for ($ii = 1; $ii <= $col_num; $ii++) {
$status_i = $dbh_i->bcp_colfmt($ii, 0, -1, -1, \\t, -1, $ii);
}
$status_i = $dbh_i->bcp_exec;
.
.
I print the value of $status_i each time its assigned and it equals 1 (ie
True,... I hope) in each case, except after the final shown command (bcp_exec)
when it equals 0 (ie False,... & quite frustrating). I get no error messages
from Sybase and no data in the appropriate table. Ive looked for related info
in the camel book, the Perl Sybase::Dblib API doc, at comp.perl.lang.misc &
various Perl script sites on the net with no luck so far. Does anyone have
(working) examples of scripts that bcp data into a Sybase database from a host
file, or conversely an idea of what I may be doing wrong ?? Im using Perl
5.003 & Dblib.pm 1.14 on a Sun-Solaris running OS version 2.6.
In a totally unrelated topic, Im also working with my sys admin to get
Sullivan Becks Date::Manip module installed. It seems to need the IO module
which (apparently) should have been installed with the rest of Perl (done by
others in early Jan 97). Weve had problems installing the IO module,
primarily I believe because we have a C compiler made by Centerline and not
the Sun standard "cc" compiler (so expensive !) . My questions are: Would we
be better off installing the latest (5.004,... I think) version of Perl ?? Are
we likely to have similar compile problems ?? And if so, is there a source for
already compiled versions of Perl for our system ?? Ive only been working
with Unix for a year or so, and may have left out important info (or be
totally off :)). Thanx.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: 5 Mar 1998 15:18:32 -0800
From: jvahn@short.circuit.com (James Vahn)
Subject: Sys::Syslog basics
Message-Id: <6dnbs8$hgd$1@short.circuit.com>
Stumped. How do I get perl5 to write to a linux syslog daemon?
#!/usr/bin/perl -w
#
use Sys::Syslog;
openlog('perl', 'pid', 'LOCAL0');
syslog('info','this is a test\n');
closelog();
The /etc/syslog.conf entry:
local0.* /var/log/perl.syslog
-+-
------------------------------
Date: 5 Mar 1998 21:44:33 GMT
From: snowe@rain.org (Nick Halloway)
Subject: Re: Variable interpolation in a file (123)
Message-Id: <6dn6c1$b09$1@news.rain.org>
Nick Halloway (snowe@rain.org) wrote:
: Hello,
: I would like to write a file to output in Perl, with variable
: interpolation.
I found a nice way of doing this -- in my program I say
print REPLY `perl_sub`;
while perl_sub looks like this:
#!/bin/perl
$REQUEST=$ENV{'REQUEST'};
$ADMIN=$ENV{'ADMIN'};
print <<"EOM";
text text text
text $REQUEST
text $ADMIN
EOM
;
Works fine :)
------------------------------
Date: 5 Mar 1998 23:07:39 GMT
From: ronaldws@aol.com (RonaldWS)
Subject: Re: Variable interpolation in a file (123)
Message-Id: <19980305230701.SAA26940@ladder02.news.aol.com>
I have enclosed one solution below. There are others including one provided in
the perl FAQ.
Ronald Schmidt
###############################################################
# convert string with embedded variables, new lines, quote
# chars ("') etc. to string with variables interpolated
###############################################################
sub interpolate_text {
my $interpolate = shift;
# do we need to tack on a new line for here document?
my $last_nl =
(substr($iterpolate, length($interpolate)-1) eq "\n") ?
"" : "\n";
my $rc;
eval "\$rc = sprintf <<EOT;\n${interpolate}${last_nl}EOT\n";
# if we added nl take it off
$rc = substr($rc, 0, length($rc)-1) if ($last_nl);
return $rc;
}
# embedded variables to interpolate
$phone = "(201)847-4309";
$recipient = "Sir/Madam";
$sender = "The Programmer";
@alt_help = ('Mike', 'Rosa');
$emp{'receptionist'} = 'Joe';
# read in some data (could be from file)
while (<DATA>) {
$file_text .= $_;
}
# interpolate and print results
print interpolate_text($file_text);
# embedded psuedo-file to interpolate
__DATA__
Dear $recipient,
Please call me at $phone. You stated that "You needed to hear
from me". I am trying to reach you. Other people to reach might
include $alt_help[0] and $alt_help[1]. If I am not available please
leave message with $emp{'receptionist'}.
Sincerely,
$sender
------------------------------
Date: Thu, 5 Mar 1998 20:40:16 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Variable interpolation in a file (123)
Message-Id: <EpD5F4.BGs@world.std.com>
snowe@rain.org (Nick Halloway) writes:
>So, I have a file which mentions variables like $REQUEST; I would
>like to copy this file to output, with $REQUEST interpreted.
Have you seen the section in the FAQ that discusses this?
How can I expand variables in text strings?
<URL:http://www.perl.com/CPAN/doc/manual/html/pod/perlfaq4/
How_can_I_expand_variables_in_te.html>
--
Andrew Langmead
------------------------------
Date: Thu, 05 Mar 1998 18:09:50 -0800
From: Steve Palincsar <palincss@nicom.com>
To: Geert Roovers <etmgero@etm.ericsson.se>
Subject: Re: What am I doing wrong?
Message-Id: <34FF5AEE.579E@nicom.com>
You mean, besides using a lousy subject?
Geert Roovers wrote:
>
> Hi... in my opinion, the next script should fetch a number form a file,
> increase it, and overwrite the file with this new number. Perl does not
> agrre with me though...
>
> open(LOGFILE, "+>count.log") || die "Horribly";
Opening with +> estroys the previous contents of the file before
reading,
not, I think, what you intended. I think you want to use +< instead.
Others have already commented about including $! in your die message.
> $a = <LOGFILE>;
You need to seek back to the start of the file, truncate it to
zero, and then print your revised data back to the file.
> print(++$a);
> print LOGFILE ($a);
> close(LOGFILE)
>
> (I also tried open(LOGFILE, "+<count.log"); and open(LOGFILE,
> "+>>count.log);)
>
> ~Geert
------------------------------
Date: Thu, 05 Mar 1998 17:16:46 -0500
From: John Porter <jdporter@min.net>
Subject: Re: What is PERL? Learn JAVA instead?
Message-Id: <34FF244E.6432@min.net>
Ilya Zakharevich wrote:
>
> Perl has no (and will not have in any forseeable future) garbage
> collection. There is some vague talk on p5p about adding
> user-triggered garbage collection, but I did not see any viable
> approach so far.
Far be it from me to question one who has actually contributed
to the perl core. So for the sake of discussion, what is your
view on Larry's "Note on Garbage Collection" in the Camel?
This states that perl performs a complete mark-and-sweep when
the interpreter finishes. It would indicate to me that you are
both right, in a sense: perl does gc, but at a time when
it is not useful for most (all?) applications. (Its really
only meaningful when the interpreter is embedded in another
app which is not exiting.)
John Porter
------------------------------
Date: 5 Mar 1998 22:25:47 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: What is PERL? Learn JAVA instead?
Message-Id: <6dn8pb$pss$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, ilya@math.ohio-state.edu (Ilya Zakharevich) writes:
:Perl has no (and will not have in any forseeable future) garbage
:collection.
You have a queer idea of garbage collection. Reference
counting is GC. You want a different flavor of it, that's all.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
I hate programs that chdir --Boyd Roberts
------------------------------
Date: 5 Mar 1998 22:28:08 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: What is PERL? Learn JAVA instead?
Message-Id: <6dn8to$pss$2@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Evan Kirshenbaum <evan@garrett.hpl.hp.com> writes:
:Ok. Then please explain why the following script got through 1525
:iterations before running out of memory (the process grew to 344MB):
You're arguing definitions, you know. Refcount is GC, just not
what you think you want.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
"Espousing the eponymous /cgi-bin/perl.exe?FMH.pl execution model is like
reading a suicide note -- three days too late."
--Tom Christiansen <tchrist@mox.perl.com>
------------------------------
Date: 5 Mar 1998 23:10:45 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: What is PERL? Learn JAVA instead?
Message-Id: <6dnbdl$lq2$3@client2.news.psi.net>
Ilya Zakharevich (ilya@math.ohio-state.edu) wrote on 1647 September 1993
in <URL: news:6dmu08$pt1$1@mathserv.mps.ohio-state.edu>:
++ [A complimentary Cc of this posting was sent to Wolfgang Denk
++ <wd@uebemc.siemens.de>],
++ who wrote in article <6dmd73$c1a$1@galaxy.mchh.siemens.de>:
++ > Evan Kirshenbaum <evan@garrett.hpl.hp.com> writes:
++ >
++ > > - Work with cyclic structures. (AFAIK, Perl still uses
++ > > reference counting rather than true garbage collection, and so
++ > > cannot reclaim them automatically.)
++ >
++ > Your knowledge is completely wrong.
++
++ Instead of rebuking an absolutely correct statement, care to explain
++ what made you come to this (wrong) conclusion?
++
++ Perl has no (and will not have in any forseeable future) garbage
++ collection. There is some vague talk on p5p about adding
++ user-triggered garbage collection, but I did not see any viable
++ approach so far.
So, the pages 299 - 301 of the Camel are wrong?
Abigail
--
perl -wle '$, = " "; sub AUTOLOAD {($AUTOLOAD =~ /::(.*)/) [0];}
print+Just (), another (), Perl (), Hacker ();'
------------------------------
Date: 5 Mar 1998 23:47:49 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: What is PERL? Learn JAVA instead?
Message-Id: <6dndj5$3pf$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, abigail@fnx.com writes:
:So, the pages 299 - 301 of the Camel are wrong?
No, they are not.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
Just remember: when you go to court, you are trusting your fate to
twelve people that weren't smart enough to get out of jury duty!
------------------------------
Date: Thu, 05 Mar 1998 22:43:53 GMT
From: meet@the.zoo (dave)
Subject: Why does <> discard value?
Message-Id: <34ff2a55.9196206@news.isoc.net>
Why does <> only put value in $_ when it is used with "while"
statement?
Thanks,
Dave
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dlripberXisoc.net (sub X with shunned char)
http://www.isoc.net/dlripber
/--\./==\./ee\./oo\./--\
------------------------------
Date: 5 Mar 1998 18:36:30 -0500
From: kcohen@julius.ling.ohio-state.edu (Kevin B Cohen)
Subject: Re: Why does <> discard value?
Message-Id: <6dnctu$g54@julius.ling.ohio-state.edu>
In article <34ff2a55.9196206@news.isoc.net>, dave <meet@the.zoo> wrote:
>Why does <> only put value in $_ when it is used with "while"
>statement?
i don't think it's true that you have to use <> within a while loop.
for instance, i've done stuff like
if ($data =~ /not_what_i_wanted/) {
$data = <IN>;
}
kevin
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.misc (and this Digest), send your
article to perl-users@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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 2037
**************************************
