[11637] in Perl-Users-Digest
Perl-Users Digest, Issue: 5237 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Mar 26 23:07:29 1999
Date: Fri, 26 Mar 99 20:00:24 -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 Fri, 26 Mar 1999 Volume: 8 Number: 5237
Today's topics:
./perl harness failures <amcleod@caribSPAMsurf.com>
Re: ./perl harness failures <jet216@email.msn.com>
AppendHash cookbook error??? stevef1061@my-dejanews.com
Re: AppendHash cookbook error??? <jglascoe@giss.nasa.gov>
Can someone verify this? (Bill Moseley)
Re: Can someone verify this? (Andrew Allen)
Re: Can someone verify this? (Bill Moseley)
Re: comparing arrays <jglascoe@giss.nasa.gov>
Cookbook AppendHash example on p. 484 error on NT 4 <sfortner@lexmark.com>
Re: Cookbook AppendHash example on p. 484 error on NT 4 <jglascoe@giss.nasa.gov>
Re: Counter Digits <mickv@home.com>
Re: Counter Digits (Larry Rosler)
Re: don't understand ||= operator <droby@copyright.com>
Re: dumping db header row before display <tlc@noble.cioe.com>
Easy ?... why doesn't this script run on NT? (rogerDH)
Re: Help... Running Perl on NT <Go-Ravens@Baltimore.Com>
Re: How to convert Julian date to week day?? (Laar)
Re: Parsing text file <aqumsieh@matrox.com>
Perl-CGI processes hanging <Go-Ravens@Baltimore.Com>
Q: set perl path in perl script <lupei@gps.caltech.edu>
Re: Q: set perl path in perl script <jglascoe@giss.nasa.gov>
Re: Q: set perl path in perl script (Larry Rosler)
Re: Reading results of external commands <rose@gsc.nrcan.gc.ca>
Re: regexp on block of text <jglascoe@giss.nasa.gov>
script headers <jhknight@olemiss.edu>
Re: Sys independent "Tue, 20 Aug 1996 14:25:27 GMT" ? <cassell@mail.cor.epa.gov>
Re: Sys independent "Tue, 20 Aug 1996 14:25:27 GMT" ? (Tad McClellan)
Re: Sys independent "Tue, 20 Aug 1996 14:25:27 GMT" ? (Tad McClellan)
Re: Sys independent "Tue, 20 Aug 1996 14:25:27 GMT" ? <All@n.due.net>
tricks? <zlhu@iastate.edu>
Re: tricks? <jglascoe@giss.nasa.gov>
Re: What to use for X gui? (Earl Hood)
Re: Why does Mail::Mailer do this?! <gellyfish@gellyfish.com>
Re: Why does Mail::Mailer do this?! (Andrew Allen)
Why doesn't \n work <Steve@rossbyweather.com>
Re: Why doesn't \n work <jglascoe@giss.nasa.gov>
Re: Why doesn't \n work <jeromeo@atrieva.com>
Working with threads: reading a core file <ccortes@sric.sri.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 26 Mar 1999 18:59:41 -0400 (AST)
From: "Angus McLeod" <amcleod@caribSPAMsurf.com>
Subject: ./perl harness failures
Message-Id: <nzpyrbqpnevofhespbz.f987zh0.pminews@news.caribsurf.com>
I'm trying to compile perl on my machine (NCR 3435 & SVR4) but "make test"
and "./perl harness" show errors:
Failed Test Status Wstat Total Fail Failed List of failed
------------------------------------------------------------
lib/io_sel.t 2 512 21 11 52.38% 11-21
op/groups.t 255 65280 2 2 100.00% 1-2
6 tests skipped, plus 19 subtests skipped.
Failed 2/186 test scripts, 98.92% okay. 13/6264 subtests failed, 99.79%
okay.
Any suggestions appreciated.
Thanks...
------------------------------
Date: Fri, 26 Mar 1999 21:54:24 -0500
From: "James Schneider" <jet216@email.msn.com>
Subject: Re: ./perl harness failures
Message-Id: <uScBRw$d#GA.138@upnetnews02.moswest.msn.net>
Angus,
What version of MP-RAS do you have ? (cat /etc/.relid)
What version of SCDE do you have ? (cc -V; pkginfo scde)
Which version of perl are you trying to compile ?
Jim
------------------------------
Date: Fri, 26 Mar 1999 22:15:44 GMT
From: stevef1061@my-dejanews.com
Subject: AppendHash cookbook error???
Message-Id: <7dh0u8$it4$1@nnrp1.dejanews.com>
I'm using NT 4 and Active-State's Perl version 5.005_02 and I can't get the
AppendHash_demo.pl to work from page 484 of the Perl Cookbook. I've got the
source from the book's site, so I just plop the below into a new file:
# appendhash_demo - show magic hash that autoappends
use Tie::AppendHash;
tie %tab, 'Tie::AppendHash';
$tab{beer} = "guinness";
$tab{food} = "potatoes";
$tab{food} = "peas";
while (my($k, $v) = each %tab) {
print "$k => [@$v]\n";
}
copy (not *install*) the AppendHash.pm from the book's source Chp 13\tie dir
into the Perl\lib\tie dir with the other tie .pms which looks like this:
package Tie::AppendHash;
use strict;
use Tie::Hash;
use Carp;
use vars qw(@ISA);
@ISA = qw(Tie::StdHash);
sub STORE {
my ($self, $key, $value) = @_;
push @{$self->{key}}, $value;
}
1;
and I get:
key => [guinness potatoes peas]
If I use another version of the AppendHash.pm I found from one of Tom's
postings from this newsgroup:
package Tie::AppendHash;
use strict;
use Tie::Hash;
use Carp;
use vars qw(@ISA);
@ISA = qw(Tie::StdHash);
sub STORE($$$) {
my ($self, $key, $value) = @_;
if (defined ($self->{$key})) {
if (ref $self->{$key}) {
push @{$self->{key}}, $value;
} else {
$self->{$key} = [ $self->{$key}, $value ];
}
} else {
$self->{$key} = $value; # XXX: always use array?
}
}
1;
I get:
food => [potatoes peas]
beer => []
The "beer" key should show "guinness" as the value, but it's blank. Am I
doing something wrong or is there a problem with the class working on a Win32
platform. Please forgive me for not using Unix!
--Steve F.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 26 Mar 1999 19:01:53 -0500
From: Jay Glascoe <jglascoe@giss.nasa.gov>
Subject: Re: AppendHash cookbook error???
Message-Id: <36FC1FF1.7FCCAAF6@giss.nasa.gov>
stevef1061@my-dejanews.com wrote:
>
<snip>
> push @{$self->{key}}, $value;
<snip>
^^^
$key
------------------------------
Date: Fri, 26 Mar 1999 14:27:13 -0800
From: moseley@best.com (Bill Moseley)
Subject: Can someone verify this?
Message-Id: <MPG.1165a99fff3df9ff9896fa@206.184.139.132>
This must be making the kill files.
Can someone try this and tell me if they get the same results?
What would be really nice if someone could explain what's causing it to
happen, too.
Thanks,
#!/usr/local/bin/perl5.005 -w
use strict;
print "\nTesting 123 - ", scalar localtime(),"\n";
my $ret = send_mail_via_sendmail( 'cat', 'hello there' );
use FileHandle;
use IPC::Open3;
sub send_mail_via_sendmail {
my ($sendmail, $body) = @_;
my $params = $sendmail;
my $in = new FileHandle;
my $out = new FileHandle;
my $err = new FileHandle;
open3( $in, $out, $err, $params )
or return "Failed open of sendmail:$sendmail:$!";
## the $in->print() & $in->close() stuff removed to simplify here.
0;
}
Here's the deal:
152) ~/cgi-bin/moseley %./dup1.pl
Testing 123 - Thu Mar 25 08:31:23 1999 <- One line output
153) ~/cgi-bin/moseley %./dup1.pl > x <- now redirect
154) ~/cgi-bin/moseley %cat x
Testing 123 - Thu Mar 25 08:31:28 1999
Testing 123 - Thu Mar 25 08:31:28 1999 <- two copies!
158) ~/cgi-bin/moseley %perl -v
This is perl, version 5.005 built for sun4-solaris
--
Bill Moseley mailto:moseley@best.com
------------------------------
Date: 26 Mar 1999 23:49:49 GMT
From: ada@fc.hp.com (Andrew Allen)
Subject: Re: Can someone verify this?
Message-Id: <7dh6et$9c7$2@fcnews.fc.hp.com>
Bill Moseley (moseley@best.com) wrote:
: Can someone try this and tell me if they get the same results?
: What would be really nice if someone could explain what's causing it to
: happen, too.
open3 forks. Both the child and parent process flush stdout. Fix it by
adding:
STDOUT->flush;
after your print (or simply set autoflush to 1 before you print, i.e.
STDOUT->autoflush(1);)
Andrew
------------------------------
Date: Fri, 26 Mar 1999 16:13:12 -0800
From: moseley@best.com (Bill Moseley)
Subject: Re: Can someone verify this?
Message-Id: <MPG.1165c274807094e09896fb@206.184.139.132>
[This followup was posted to comp.lang.perl.misc and a copy was sent to
the cited author.]
Thanks for the reply,
In article <7dh6et$9c7$2@fcnews.fc.hp.com>, ada@fc.hp.com says...
> open3 forks. Both the child and parent process flush stdout.
So the child gets a copy of the parent's STDOUT buffer at the fork?
I'm guessing, but the screen (console?) is not a block device, so it gets
flushed sooner (before the open3 fork), yet redirecting to a file is a
block device and so STDOUT isn't flushed until the fork?
> Fix it by
> adding:
>
> STDOUT->flush;
>
> after your print (or simply set autoflush to 1 before you print, i.e.
> STDOUT->autoflush(1);)
Which STDOUT am I flushing here? The parent's or the child's?
Thanks,
--
Bill Moseley mailto:moseley@best.com
------------------------------
Date: Fri, 26 Mar 1999 17:03:39 -0500
From: Jay Glascoe <jglascoe@giss.nasa.gov>
To: Dave Waller <dwaller@precisiondrive.com>
Subject: Re: comparing arrays
Message-Id: <36FC043B.4971E650@giss.nasa.gov>
Dave Waller wrote:
>
> I have two arrays that are built from a db querry that I
> want to compare to several other arrays to find a closest
> fit match.
>
> The data is all floats and in a 8 X 8 array. The data is 0
> - 1 non-inclusive.
>
> I have thought about several schemes to find the closest
> match but they are all cumbersome.
>
> Any sugestions??
I'll assume each row of your 8 x 8 matrix represents
an 8 dimensional point:
my $sum_dists = 0;
foreach my $i (1 .. 8) {
my $sos = 0; # sum o' squares
my ($row_ref, $other_row_ref) = ($mat[$i], $other_mat[$i]);
foreach my $j (1 .. 8) {
$sos += ($row_ref->[$j] - $other_row_ref->[$j]) ** 2;
}
$sum_dists += sqrt $sos;
}
I think we can gain a little speed if we destroy the
"@other_matrix" as we go (this way we can iterate over
"@matrix" and its rows directly rather than keeping track
of pesky i's and j's):
my $sum_dists = 0;
foreach my $row_ref (@matrix) {
my @row = @$row_ref;
my @other_row = @{ shift @other_matrix };
my $sos = 0;
foreach my $x (@row) {
$sos += ($x - shift @other_row) ** 2;
}
$sum_dists += sqrt $sos;
}
Jay Glascoe
--
"Just say 'Narf!'."
--Pinky
------------------------------
Date: Fri, 26 Mar 1999 22:36:25 GMT
From: SteveF. <sfortner@lexmark.com>
Subject: Cookbook AppendHash example on p. 484 error on NT 4
Message-Id: <7dh259$k17$1@nnrp1.dejanews.com>
I'm using NT 4 and Active-State's Perl 5.005_2. I took the Perl intro and
advanced class taught by Nat, so I have all the Perl O'Reilly books, including
the Ram. I have downloaded the books source code, plopped the file from Ch13
into a new file and called it AppendHash.pl:
---------------------
# appendhash_demo - show magic hash that autoappends
use Tie::AppendHash;
tie %tab, 'Tie::AppendHash';
$tab{beer} = "guinness";
$tab{food} = "potatoes";
$tab{food} = "peas";
while (my($k, $v) = each %tab) { print "$k => [@$v]\n"; }
--------------------- and I copied (not *installed*) the AppendHash.pm module
from ch13\tie into the Perl\lib\tie dir, which looks like this:
--------------------- package Tie::AppendHash; use strict; use Tie::Hash; use
Carp; use vars qw(@ISA); @ISA = qw(Tie::StdHash); sub STORE { my ($self,
$key, $value) = @_; push @{$self->{key}}, $value; } 1; ---------------------
and ran the AppendHash.pl and got: --------------------- key => [guinness
potatoes peas] --------------------- which is not correct, so I looked on
comp.lang.perl.misc and found that Tom had posted another module which is
similar to the above but looks like this: --------------------- package
Tie::AppendHash;
use strict;
use Tie::Hash;
use Carp;
use vars qw(@ISA);
@ISA = qw(Tie::StdHash);
sub STORE($$$) {
my ($self, $key, $value) = @_;
if (defined ($self->{$key})) {
if (ref $self->{$key}) {
push @{$self->{key}}, $value;
} else {
$self->{$key} = [ $self->{$key}, $value ];
}
} else {
$self->{$key} = $value; # XXX: always use array?
}
}
1;
---------------------
and so I *copied* this new AppendHash.pm into Perl\lib\tie and reran
AppendHash.pl and got:
---------------------
food => [potatoes peas]
beer => []
---------------------
which is closer, but still not right. The beer key should have a value of
guinness, but it's missing and I'm not sure why. Is there something that
prevents the tie class or the AppendHash.pm module from working on NT? Or,
do I need to properly *install* the AppendHash.pm module? The output did
change after I put the new one in the tie dir, so I am guessing that it's fine
to just copy it in there. Sorry in advance for not being a Unix user!
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 26 Mar 1999 18:15:10 -0500
From: Jay Glascoe <jglascoe@giss.nasa.gov>
To: "SteveF." <sfortner@lexmark.com>
Subject: Re: Cookbook AppendHash example on p. 484 error on NT 4
Message-Id: <36FC14FE.3D180795@giss.nasa.gov>
[courtesy copy of post sent to Steve F.]
"SteveF." wrote:
>
> I'm using NT 4 and Active-State's Perl 5.005_2. I took the Perl intro and
> advanced class taught by Nat, so I have all the Perl O'Reilly books, including
> the Ram.
okay. cool.
<snip>
> --------------------- and I copied (not *installed*) the AppendHash.pm module
> from ch13\tie into the Perl\lib\tie dir, which looks like this:
> --------------------- package Tie::AppendHash; use strict; use Tie::Hash; use
> Carp; use vars qw(@ISA); @ISA = qw(Tie::StdHash); sub STORE { my ($self,
> $key, $value) = @_; push @{$self->{key}}, $value; } 1; ---------------------
^^^
that should read "$key" not "key" (Tom and Nat never make mistakes,
so that's probably just an editorial typo... ;^)
> and ran the AppendHash.pl and got: --------------------- key => [guinness
> potatoes peas] --------------------- which is not correct, so I looked on
yes, all your values are being stored in the key named "key".
> comp.lang.perl.misc and found that Tom had posted another module which is
> similar to the above but looks like this: --------------------- package
> Tie::AppendHash;
<snip>
> ---------------------
> and so I *copied* this new AppendHash.pm into Perl\lib\tie and reran
> AppendHash.pl and got:
> ---------------------
> food => [potatoes peas]
> beer => []
> ---------------------
> which is closer, but still not right. The beer key should have a value of
> guinness, but it's missing and I'm not sure why. Is there something that
okay, in Tom's code if a key has only one value associated with
it, then the value is stored as a regular scalar. (That's what
that "XXX: always use array?" is all about. presumably, Tom's
way is more efficient...)
so modify your test code to:
while (my($k, $v) = each %tab) {
if (ref $v) {
# "$v" is a reference (to an array)
print "$k => [@$v]\n";
}
else {
# "$v" is a regular old scalar
print "$k => '$v'\n";
}
}
> prevents the tie class or the AppendHash.pm module from working on NT? Or,
> do I need to properly *install* the AppendHash.pm module? The output did
no, It should work fine now (after the suggested changes).
> to just copy it in there. Sorry in advance for not being a Unix user!
<sigh>... okay I'll forgive you ;^)
Jay Glascoe
--
$snip->();
------------------------------
Date: Sat, 27 Mar 1999 00:44:57 GMT
From: "Michael Villeneuve" <mickv@home.com>
Subject: Re: Counter Digits
Message-Id: <dSVK2.3083$PY.58750@news.rdc1.on.wave.home.com>
What you want are a series of images (0-9). Now, using a hash table,
associate each digit(0-9) with it's corresponding filename. Next, use a
regex to split each character of the count value. You could then output
this to a page by printing the images.
--- hope this helps.
Cheers,
Mike
Christian wrote in message <36fbd156.0@info.xpoint.at>...
>Hi
>
>i programmed a counter in perl and now i want to show the hits on the page
>so the user know, i'm visitor (eg. 00102) i made 10 gif files each
>containing one digit.
>so can anyone please tell me how to yoin the digits from a counter together
>(on the fly).
>
>fast help would be appreciated
>
>many thanks in advance
>
>chris
>
>
------------------------------
Date: Fri, 26 Mar 1999 17:21:40 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Counter Digits
Message-Id: <MPG.1165d27bfd60c8a99897da@nntp.hpl.hp.com>
In article <dSVK2.3083$PY.58750@news.rdc1.on.wave.home.com> on Sat, 27
Mar 1999 00:44:57 GMT, Michael Villeneuve <mickv@home.com> says...
> What you want are a series of images (0-9). Now, using a hash table,
> associate each digit(0-9) with it's corresponding filename. Next, use a
> regex to split each character of the count value. You could then output
> this to a page by printing the images.
You really want to create a single image from the set of digits. I have
done this in C using the GD library functions gdImageCreate and
gdImageCopy. I haven't used the equivalent Perl module, but I'm sure it
can handle this quite well.
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 26 Mar 1999 21:07:23 GMT
From: Don Roby <droby@copyright.com>
Subject: Re: don't understand ||= operator
Message-Id: <7dgsu3$f1s$1@nnrp1.dejanews.com>
In article <7decap$8ai@news.dns.microsoft.com>,
"J|rgen Exner" <juex@my-dejanews.com> wrote:
> Jane Dudley <jdudley@inna.net> wrote in message
> news:Pine.BSF.3.96.990325130952.11408A-100000@butterfly.inna.net...
> > Hello, all.
> >
> > I am trying to understand a script fragment I found, that has an ||=
> > expression. I looked at
> > http://www.effectiveperl.com/recipes/searching.html and
> > http://www.codebits.com/p5be/ch04.cfm, which have brief explanations, but
> > I'm afraid I don't understand them. I think I don't understand the
> > difference between |, which is "bitwise" and || which is "logical."
> > (Hey, I'm a mechanical engineer. Either there IS water flowing in that
> > pipe OR there isn't. There ain't no logical or bitwise flow about it).
>
> Well, using bitwise OR you got a set of two times 8 pipes (could be 16 or 32
> pipes but for the sake of argument let's stay with 8) for water input and
> one set of 8 pipes as output.
> Whenever at least one of the corresponding pair of input pipes has water,
> then the corresponding output pipe has water, too.
>
> This means:
>
> WWNNWNNN
> NWWWNNWN
> ===========
> WWWWWNWN
>
> N = No Water
> W = Water
>
> For logical OR you got only one output pipe. Whenever at least one of the
> input pipes has water, then the single output pipe has water, too. This is
> what you usually want when writing e.g. conditions and comparing results.
>
Cute explanation. Too bad you couldn't put up a nice graphic of all the
pipes, but alas, Usenet is a text medium.
> The bitwise OR is a programmers hack for people, who are too familiar with
> C.
>
Or who have to access flags that systems store that way. Or who want to
figure out which parts of a network number are network and which are host
based on a subnet mask. Or ...
While the logical operations are certainly more commonly understood and used,
the bitwise operations certainly have their uses.
They were also around long before C.
--
Don Roby
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 26 Mar 1999 21:50:26 -0500
From: "tlcora" <tlc@noble.cioe.com>
Subject: Re: dumping db header row before display
Message-Id: <eMXK2.299$45.2262@news.goodnet.com>
<posted to comp.lang.perl.misc w/copy e-mailed to respondent>
if $.>1
did the trick David and thanks for not leaving me hanging!
Sam's response (which was appreciated), posted within minutes of my original
request, was a bit too vague (or I'm just too dense). The only indexed
reference in the Camel book to ignore is on pg 339 under "Cooperating with
other processes" which I quickly determined was not what I was looking for.
Little on 'ignore' in the faqs either. Subsequent searches (including
ignore) of the archives led me down the 'unless' path. I tried several
variations, but instead of getting it to ignore only the first line, it
always ignored everything in $fields ( I don't have a firm enough grasp on
the language yet).
Don't let anyone tell you that you simply did my work for me. Through your
response, I now know $., $INPUT_LINE_NUMBER, $NR and a lot more about Global
Special Variables. While I have a copy of the Camel book, I only use it for
reference (I actually did try to read it, but for some reason, the contents
only start to make sense to me when I try to apply what I've read and I can
never seem to find the time or ambition to study simply for the sake of
studying - yes, I know I suffer because of this).
Yes, you gave me a fish, but I didn't just take the fish and eat it. After
tasting the fish, I studied it to see how I could catch similar fish. The
additional advice was a nice bonus too :).
Thanks again!
David L. Cassell wrote in message <36FBC7EA.9E317588@mail.cor.epa.gov>...
>tlcora wrote:
>>
>> I have a flat text data file. The first row is the header row and I want
to
>> remove it before displaying the entries. Everything else works fine, but
I
>> can't figure out which perl function to use to remove only the header row
>> prior to displaying. I've looked through the faq several times and also
>> searched dejanews using several parameters, yet still can't quite figure
it
>> out. Most of the postings deal with deleting a line in a file (faq5),
but I
>> can't seem to adapt anything to get it to work. Faq4 deals with data, but
I
>> couldn't find a solution here either. I don't want to edit the file at
this
>> point, just display the entries without the header row. Could someone
point
>> me in the right direction?
>
>You read through the FAQ first. Excellent! You deserve extra effort.
>
>> commented to show my understanding (or lack there of) of each line.
>>
>> open (DATABASE, "$datafile"); # will add error checking later
>
>You really ought to throw in the error-checking as soon as you write it.
>And it's so straightforward too!
> open DATABASE, "$datafile" or die "Couldn't open $datafile: $!\n";
>
>> while (<DATABASE>)
>> {
>
>Just a nitpick, but I like to indent inside blocks so they're easier to
>read/debug/maintain.
>
>> $row = $_; # puts all of the database file into the scalar $row
>> chop $row; # gets rid of \n at the end of the file
>
>I would have used chomp() here instead of chop(). But TIMTOWTDI.
>
>> @fields = split (/\|/, $row); # splits each of the fields delimited by
|
>> and places them in an array
>> print "...<html for @fields snipped> # outputs the contents of @fields
to
>> the browser
>
> print "html_chazerai" if $. > 1;
>The $. variable tracks the record number for you.
>
>> close (DATABASE); # closes $datafile
>
>And check the close() too:
> close DATABASE or die "close() failure. Ack! $!\n";
>
>> }
>>
>> TIA!
>> tlc-
>
>HTH,
>David
>--
>David L. Cassell, OAO cassell@mail.cor.epa.gov
>Senior computing specialist
>mathematical statistician
------------------------------
Date: Sat, 27 Mar 1999 02:53:12 GMT
From: rogdh@iname.com (rogerDH)
Subject: Easy ?... why doesn't this script run on NT?
Message-Id: <36fc47a7.2703237@news.earthlink.net>
I type this in on my command line...
perl -e 'print "hello, world!";'
The error message I get is...
Can't find string terminator "'" anywhere before EOF at -e line 1.
It works at work .. .(SGI unix)
However @ home on my NT it doesn't. I'm using ActivePerl that I just
DLd.
thank you
roger
------------------------------
Date: Fri, 26 Mar 1999 19:16:13 -0500
From: Raven513 <Go-Ravens@Baltimore.Com>
Subject: Re: Help... Running Perl on NT
Message-Id: <36FC234D.7461@Baltimore.Com>
H.A. wrote:
>
> I've been having so many trouble getting Perl script to run on my NT server 4.0
> that about to quite :-( I configured everything right according to the
> instructions and the help I got from the newsgroup.
>
> The error I'm getting lately is simply when I click on Submit in one of my HTML
> forms to run the .PL file, it opens a Save As window instead of executing the
> script? Does anyone out there know why I'm getting that?
>
> Any help or hints will greatly be appreciated.
> Thanks
You need to add the MIME-type for application/x-perl. Set it to .pl
file extension. Check your web server docs for details.
Raven513
------------------------------
Date: Sat, 27 Mar 1999 02:26:49 GMT
From: laar@ix.netcom.com (Laar)
Subject: Re: How to convert Julian date to week day??
Message-Id: <36fc41ac.168400194@nntp.ix.netcom.com>
On Fri, 26 Mar 1999 09:15:57 GMT, hk1973@my-dejanews.com wrote:
>How do I tell which day (Mon - Sun) from a julian date. I have got some perl
>script converting date but not to week day (Mon - Sun), can anyone post the
>script or tell me the formula about it.
localtime(time) returns the following list:
$second
$minute
$hour
$dayofmonth
$month (month number 0-11; use $month+1 for correct month number)
$year (years since 1900)
$weekday (Sun=0, Mon=1, Tue=2, Wed=3, Thu=4, Fri=5, Sat=6)
$dayofyear (0-364)
$daylightsavings (true|false)
--
Laar
Bay Area Strip Club Authority
www.netcom.com/~laar/index.html
------------------------------
Date: Thu, 25 Mar 1999 14:10:27 -0500
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Parsing text file
Message-Id: <x3yoglhv10c.fsf@tigre.matrox.com>
"Alan Scott" <balanscott@earthlink.net> writes:
> I need to read a test file into an array so I can then write it out as a
> different file. How would I do this????
Reading some docs and FAQs would be a great start. Try it and let us
know if you have any problems.
------------------------------
Date: Fri, 26 Mar 1999 19:25:07 -0500
From: Raven513 <Go-Ravens@Baltimore.Com>
Subject: Perl-CGI processes hanging
Message-Id: <36FC2563.7563@Baltimore.Com>
I'm seeing perl-CGI processes which never quit. Normally, the perl
CGI-scripts call stored procs on SQL-Server, read returned record set,
process, print HTML output, cleanup db connections, and exit. Hard to
pin down the exact client-side actions that cause the hangup because
there are a dozen or so clients. Running Netscape Enter. Server (3.5?)
on NT Server 4.0. Using latest DBI, DBD:ODBC mods.
Any ideas???
Raven513
------------------------------
Date: Fri, 26 Mar 1999 15:44:03 -0800
From: Lupei Zhu <lupei@gps.caltech.edu>
Subject: Q: set perl path in perl script
Message-Id: <36FC1BC3.27661F11@gps.caltech.edu>
Hi,
I know that in perl script I should put '#!/perl_path/perl' at the
first line. the problem is that
differnt machines installed perl at different places, such as
/opt/perl/bin or /usr/local/bin. When
i move my scripts to a different site, i have to edit them to change the
perl_path which is really
annoying. Does anyone have a solution?
thanks a lot.
Lupei
------------------------------
Date: Fri, 26 Mar 1999 19:05:41 -0500
From: Jay Glascoe <jglascoe@giss.nasa.gov>
To: Lupei Zhu <lupei@gps.caltech.edu>
Subject: Re: Q: set perl path in perl script
Message-Id: <36FC20D5.DCA9A059@giss.nasa.gov>
Lupei Zhu wrote:
>
> differnt machines installed perl at different places, such as
> /opt/perl/bin or /usr/local/bin. When
> i move my scripts to a different site, i have to edit them to change the
> perl_path which is really
> annoying. Does anyone have a solution?
you can either copy the first few lines of, say, perldoc:
$ head `which perldoc` # which/whence/whatever
#!/usr/local/bin/perl
eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
if 0;
OR
#! /usr/bin/env perl
should work if "perl" is anywhere in the user's PATH.
(And "env" is in /usr/bin, and ...)
Jay Glascoe
------------------------------
Date: Fri, 26 Mar 1999 17:15:27 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Q: set perl path in perl script
Message-Id: <MPG.1165d10e22589c459897d9@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <36FC1BC3.27661F11@gps.caltech.edu> on Fri, 26 Mar 1999
15:44:03 -0800, Lupei Zhu <lupei@gps.caltech.edu> says...
> I know that in perl script I should put '#!/perl_path/perl' at the
> first line. the problem is that
> differnt machines installed perl at different places, such as
> /opt/perl/bin or /usr/local/bin. When
> i move my scripts to a different site, i have to edit them to change the
> perl_path which is really annoying. Does anyone have a solution?
In addition to Jay Glascoe's solutions:
If you have any influence or control over the different sites, put a
symbolic link (owned by 'root' with 755 permissions) from
'/usr/local/bin/perl' to the real perl executable. That is what the
typical perl installation script does, I believe. Then use
'#!/usr/local/bin/perl -w' in all your programs. (Hint, hint...)
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 26 Mar 1999 14:19:08 -0700
From: "David Rose" <rose@gsc.nrcan.gc.ca>
Subject: Re: Reading results of external commands
Message-Id: <7dgtih$ih26@nrn2.NRCan.gc.ca>
Tad-
There are a number of ways to do this in Perl. Backticks are one:
@text = `ping -n 1 -w 4 123.456.679.123`;
This command pings this address and the text returned is stored in list
@text. You can then walk through the list using a foreach command. I used
this to get information on our subnet and it works great.
Another appraoch is to use a pipe:
open(IN, "ping -n 1 -w 4 123.456.679.123 | ") || die "can't open pipe";
while(<IN>) {
print;
}
- Dave Rose
--
================================================
David Rose, Gological Survey of Canada, Calgary
Phone: (403) 292-7129 Fax: (403) 292-5377
E-Mail: rose@gsc.nrcan.gc.ca
Tad McClellan wrote in message ...
>Matt Riggsby (mriggsby@sybex.com) wrote:
>
>: I'd like to run a shell command (say, through the system command) and
> ^^^^^^
> ^^^^^^
>: read the results of that command into a variable.
>
>
> If you read the description for system() in perlfunc,
> it will tell you how you do that.
>
> perldoc -f system
>
>
>--
> Tad McClellan SGML Consulting
> tadmc@metronet.com Perl programming
> Fort Worth, Texas
------------------------------
Date: Fri, 26 Mar 1999 16:17:24 -0500
From: Jay Glascoe <jglascoe@giss.nasa.gov>
To: stenew@my-dejanews.com
Subject: Re: regexp on block of text
Message-Id: <36FBF964.EB5D42@giss.nasa.gov>
[courtesy copy of post sent to cited author]
hi Steve,
I actually started wrapping my head around your problem
before deciding: "too much work". :o)
My first idea was "why not split $string?"
$string = $1;
@lines = split m#\n#, $string;
then iterate over the lines in your string.
Another idea:
$string = "one foo two bar three four five bar foo";
while ($string =~ /(.*?(?:foo|bar))/g) { print "'$1'"; }
When global pattern matching is placed in the condition of
a while loop, the loop will iterate over all matches.
Last idea: use "\G" in your matches:
"\G Match only where previous m//g left off (works only with /g)"
(from perlre)
Jay Glascoe
--
ping()
------------------------------
Date: Fri, 26 Mar 1999 15:28:54 -0600
From: Jay Knight <jhknight@olemiss.edu>
Subject: script headers
Message-Id: <36FBFC14.9D9D6309@olemiss.edu>
Dear experienced people,
Most of the time, when I run scripts from the browser, I get a
Internal Server Error. So, I go to my server's error log, and there's an
error that says premature end of script headers. There are some simple
scripts that work fine, and as far as I can tell the headers are the
same. What might cause these headers to end prematurely? is it a
script error, and perl interpretation error, or possibly a server
(apache1.3.4, win98) error? thanks a bunch.
Dumb little newbie,
Jay Knight
------------------------------
Date: Fri, 26 Mar 1999 14:08:35 -0800
From: "David L. Cassell" <cassell@mail.cor.epa.gov>
Subject: Re: Sys independent "Tue, 20 Aug 1996 14:25:27 GMT" ?
Message-Id: <36FC0563.DFCC1257@mail.cor.epa.gov>
Allan M. Due wrote:
>
> Jari Aalto+mail.perl wrote in message ...
> :jari.aalto@poboxes.com (Jari Aalto+mail.perl) writes:
> :> I'm generating a meta tag to my webpages,and I'd like to
> :> know what is the system independent way to generate standad
> :> date string:
> :> Tue, 20 Aug 1996 14:25:27 GMT
> :> <META http-equiv="Expires" content="Tue, 20 Aug 1996 14:25:27 GMT">
>
> :> I'd like to know a method that works in Win32 and all unix versions.
> :> Is there a perl module for this?
> :
> :I forgot to mention, that I don't want current date, but a date
> :that is, say 2 months away from current date. That requires a
> :time manipulation package?
> :
> :Then it makes the Expires Tag useful :-)
>
> How about;
>
> $sec_in_day = 86400;
> $num_days = 60;
> ($day,$mon,$date,$time,$year)= split(/
> /,gmtime(time+($sec_in_day*$num_days)));
> print "$day, $date $mon $year $time GMT\n";
I hate to nag, but that didn't work for me. Maybe:
my $sec_in_day = 86400;
my $num_days = 60;
my @month = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
my @day = qw(Sun Mon Tue Wed Thu Fri Sat);
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
gmtime(time+($sec_in_day*$num_days));
print "$day[$wday], $mday $month[$mon] $year $hour:$min:$sec GMT\n";
Of course, this still doesn't do everything requested. For
example, the time isn't formatted. The exercise, using
either printf or sprintf, is left as an exercise to the
reader. :-)
David
--
David L. Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Fri, 26 Mar 1999 11:30:51 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Sys independent "Tue, 20 Aug 1996 14:25:27 GMT" ?
Message-Id: <rncgd7.kt1.ln@magna.metronet.com>
Jari Aalto+mail.perl (jari.aalto@poboxes.com) wrote:
: I'm generating a meta tag to my webpages,and I'd like to
: know what is the system independent way to generate standad
: date string:
: Tue, 20 Aug 1996 14:25:27 GMT
: I'd like to know a method that works in Win32 and all unix versions.
: Is there a perl module for this?
There is a perl builtin for (nearly) that.
Look at using localtime() in a scalar context.
perldoc -f localtime
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 26 Mar 1999 11:54:58 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Sys independent "Tue, 20 Aug 1996 14:25:27 GMT" ?
Message-Id: <25egd7.d02.ln@magna.metronet.com>
Jari Aalto+mail.perl (jari.aalto@poboxes.com) wrote:
: I forgot to mention, that I don't want current date, but a date
: that is, say 2 months away from current date. That requires a
: time manipulation package?
Nope.
Just give localtime() an argument:
$time = localtime( time + 60 * 60 *24); # 24 hours from now
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 26 Mar 1999 23:26:15 GMT
From: "Allan M. Due" <All@n.due.net>
Subject: Re: Sys independent "Tue, 20 Aug 1996 14:25:27 GMT" ?
Message-Id: <rIUK2.12511$DM5.3776@news.rdc1.ct.home.com>
David L. Cassell <cassell@mail.cor.epa.gov> wrote in message
news:36FC0563.DFCC1257@mail.cor.epa.gov...
: Allan M. Due wrote:
: >
: > Jari Aalto+mail.perl wrote in message ...
: > :jari.aalto@poboxes.com (Jari Aalto+mail.perl) writes:
: > :> I'm generating a meta tag to my webpages,and I'd like to
: > :> know what is the system independent way to generate standad
: > :> date string:
: > :> Tue, 20 Aug 1996 14:25:27 GMT
: > :> <META http-equiv="Expires" content="Tue, 20 Aug 1996 14:25:27 GMT">
: >
: > :> I'd like to know a method that works in Win32 and all unix versions.
: > :> Is there a perl module for this?
: > :
: > :I forgot to mention, that I don't want current date, but a date
: > :that is, say 2 months away from current date. That requires a
: > :time manipulation package?
: > :
: > :Then it makes the Expires Tag useful :-)
: >
: > How about;
: >
: > $sec_in_day = 86400;
: > $num_days = 60;
: > ($day,$mon,$date,$time,$year)= split(/
: > /,gmtime(time+($sec_in_day*$num_days)));
: > print "$day, $date $mon $year $time GMT\n";
:
: I hate to nag, but that didn't work for me. Maybe:
:
Well, it really does work, at least under Windhoze 95, 98 and FreeBSD.
Stupid lame newsgroup software that I am forced to use breaks it up badly.
This should make it clearer:
$sec_in_day = 86400;
$num_days = 60;
($day,$mon,$date,$time,$year)= split(/ /,
gmtime(time+($sec_in_day*$num_days)));
print "$day, $date $mon $year $time GMT\n";
There has to be a space between the /. ' ' would/may have been better in
retrospect.
HTH
AmD
[copied and mailed]
------------------------------
Date: Fri, 26 Mar 1999 16:30:42 -0600
From: Zhiliang Hu <zlhu@iastate.edu>
Subject: tricks?
Message-Id: <36FC0A92.193B19C3@iastate.edu>
I made a simple search script for our genetic discussion archives based
on string match of (partial) key words. I wonder how may I filter out
"single letter" searches which generates too much unnecessary system
loads? (I still want the "partial word match" though ;-)
Thank you for any good ideas in advance!
Zhiliang
------------------------------
Date: Fri, 26 Mar 1999 18:58:20 -0500
From: Jay Glascoe <jglascoe@giss.nasa.gov>
To: zlhu@iastate.edu
Subject: Re: tricks?
Message-Id: <36FC1F1B.7BB44F6E@giss.nasa.gov>
Zhiliang Hu wrote:
>
> I made a simple search script for our genetic discussion archives based
> on string match of (partial) key words. I wonder how may I filter out
> "single letter" searches which generates too much unnecessary system
> loads? (I still want the "partial word match" though ;-)
>
> Thank you for any good ideas in advance!
>
> Zhiliang
"letter" could mean "[a-zA-Z]" or "\w".
print "at least two alphanums" if $string =~ /\w\W*\w/;
print "at least two letters" if $string =~ /[a-z][^a-z]*[a-z]/i;
in general:
my $num = 0;
$num++ while ($string =~ /\w/g);
or is this faster?
my @foo = ($string =~ /\w/g);
my $num = @foo;
hmm...
use Benchmark;
my $s = "the quick brown toad jumped over the lazy frog";
$s .= uc $s;
timethese(100, {
first => sub { my $num = 0; $num++ while ($s =~ /\w/g); },
second => sub { my @foo = ($s =~ /\w/g); my $num = @foo; },
});
Jay Glascoe
--
toads.
------------------------------
Date: 26 Mar 1999 23:58:00 GMT
From: ehood@geneva.acs.uci.edu (Earl Hood)
Subject: Re: What to use for X gui?
Message-Id: <7dh6u8$5n5@news.service.uci.edu>
[mailed & posted]
In article <922330897.672771372@news-2.csn.org>,
Rodney Clang <rclang@rclangtos.lewan.com> wrote:
>Is there anyone doing X apps in Perl out there? I am attempting Tk and all
>looks OK so far, ... but I keep seeing references to PerlQT and Perl
>XForms and have no clue (obviously). My users are Linux workstations with
>KDE as desktop. That's primarily why I'm interested in the benefits of
>PerlQT. I make nothing out of the FAQ or anything else as far as reasons,
>features, and what-to-use-where when writing X applications.
Ken Fox has writing an interface to X11/Motif. Check CPAN under X11
or KENFOX. If you are already experience in X application development,
Ken's modules may be useful to you.
--ewh
--
Earl Hood | University of California: Irvine
ehood@medusa.acs.uci.edu | Electronic Loiterer
http://www.oac.uci.edu/indiv/ehood/ | Dabbler of SGML/WWW/Perl/MIME
------------------------------
Date: 26 Mar 1999 20:56:03 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Why does Mail::Mailer do this?!
Message-Id: <7dgs93$bh$1@jns.dircon.co.uk>
On 24 Mar 1999 16:51:23 GMT Craig Hogan wrote:
> Was this module not made for CGI?
>
It wasnt no but it generally doesnt matter.
> Every time I send something with the module, it reloads my script
> (generating my "Mail Sent" page twice). I have tried all manner of
> kludges to not get it to load twice but I am unable to do so since any
> flags I create don't have persistence. So rather than write a flag
> out to a file (yuck!), I threw my hands up and thought I'd ask for some
> help here. Anybody had a similar experience?
>
No but it would be nice to see the code you are using that causes this ti
happen.
Off hand I cant think of any reason why any Module could cause the symptons
you describe unless it is doing something particularly weird but I think
that someone else would have noticed it in this case.
Post a cut down version of your code that exhibits this behaviour in the
least number of lines and we'll see.
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 27 Mar 1999 00:03:20 GMT
From: ada@fc.hp.com (Andrew Allen)
Subject: Re: Why does Mail::Mailer do this?!
Message-Id: <7dh788$9c7$3@fcnews.fc.hp.com>
Craig Hogan (choganNOSPAM@NOSPAMprimenet.com) wrote:
: Hey,
: After getting The Perl Cookbook, I was interested in using the
: Mail::Mailer module as they descibe. But it does something strange to
: my CGI script. Was this module not made for CGI?
: Every time I send something with the module, it reloads my script
: (generating my "Mail Sent" page twice). I have tried all manner of
: kludges to not get it to load twice but I am unable to do so since any
: flags I create don't have persistence. So rather than write a flag
: out to a file (yuck!), I threw my hands up and thought I'd ask for some
: help here. Anybody had a similar experience?
Wild guess, without looking at your code, is that you're not flushing
stdout before calling Mail::Mailer::open, which does a fork:
(defined($exe) && open($self,"|-"))
|| $self->exec($exe, $args, \@to)
|| die $!;
Try calling STDOUT->flush before opening your mail.
Of course, since you've given us (nearly) no useful information to
debug with, it could be anything else too. I just happened to answer
another question which seemed similar to yours right after I saw
yours, which actually _had_ a useful code example.
Please fix your e-mail address. Making it spamproof, unfortunately,
also makes it mailproof (but what you've done does neither--ever heard
of s/nospam//ig ?).
Andrew
------------------------------
Date: Fri, 26 Mar 1999 09:52:29 -0800
From: "Steven Shaw" <Steve@rossbyweather.com>
Subject: Why doesn't \n work
Message-Id: <36fb9648.0@news.hcsys.com>
When executing my Perl script in IE or Netscape, the "\n" that I attach to
my print statement will not skip a line.
Steven Shaw
------------------------------
Date: Fri, 26 Mar 1999 19:24:57 -0500
From: Jay Glascoe <jglascoe@giss.nasa.gov>
To: Steven Shaw <Steve@rossbyweather.com>
Subject: Re: Why doesn't \n work
Message-Id: <36FC2559.A7F2B426@giss.nasa.gov>
[courtesy copy sent to cited author]
Steven Shaw wrote:
>
> When executing my Perl script in IE or Netscape, the "\n" that I attach to
> my print statement will not skip a line.
>
> Steven Shaw
assuming your output is HTML, try using "<br>".
------------------------------
Date: Fri, 26 Mar 1999 16:38:37 -0800
From: Jerome O'Neil <jeromeo@atrieva.com>
To: Steven Shaw <Steve@rossbyweather.com>
Subject: Re: Why doesn't \n work
Message-Id: <36FC288D.E527C7ED@atrieva.com>
Steven Shaw wrote:
>
> When executing my Perl script in IE or Netscape, the "\n" that I attach to
> my print statement will not skip a line.
You have an HTML problem, as perl doesn't run in IE or Netscape. If you
were to ask in one of the HTML authoring groups, I'm sure you would
recieve expert advice and assistance.
Good Luck!
--
Jerome O'Neil, Operations and Information Services
Atrieva Corporation, 600 University St., Ste. 911, Seattle, WA 98101
jeromeo@atrieva.com - Voice:206/749-2947
The Atrieva Service: Safe and Easy Online Backup http://www.atrieva.com
------------------------------
Date: Fri, 26 Mar 1999 13:59:58 -0800
From: Carlos Cortes <ccortes@sric.sri.com>
Subject: Working with threads: reading a core file
Message-Id: <36FC035E.A4C13A3D@sric.sri.com>
I'm having a devil of a time working with the new threads on Solaris.
Does anyone know of some good resources for this stuff. Primarily, I'd
like a debugger that provides support for threads.
For one I'd like to be able to read a standard perl core file. 'gdb'
doesn't seem to handle it. Any suggestions?
Carlos Cortes
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5237
**************************************
