[11330] in Perl-Users-Digest
Perl-Users Digest, Issue: 4930 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Feb 18 12:07:26 1999
Date: Thu, 18 Feb 99 09:00:28 -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, 18 Feb 1999 Volume: 8 Number: 4930
Today's topics:
-s file test on big files (Paul D. Russell)
Re: <<HERE code <joec@impacttech.com>
Re: Anybody get .pl scripts to run on Win32 Perl and Ap (Rod MacBain)
Re: Attachments to perl-sent e-mails (Clay Irving)
Bad Request Header <abukar@insidewire.com>
Re: Calculate yesterdays date (Albert W. Dorrington)
Re: Calling LOCAL CGI Perl script from web browser - po (Abigail)
Re: Datetime manipulation in perl droby@copyright.com
Re: delete line? <Allan@due.net>
Encrypting then Decrypting a Password? <mskimin@loraincounty.com>
FAQ 5.19: I still don't get locking. I just want to in <perlfaq-suggestions@perl.com>
FAQ 5.21: How do I get a file's timestamp in perl? <perlfaq-suggestions@perl.com>
file mode from stat() jesper@ad.se
Re: Intresting Error <joec@impacttech.com>
Matching for a null string <dave.hundley@eds.exsc01.exch.com>
Re: No such file or directory mag@dect.com
passme <jcokos@ccs.net>
Re: passme (Bart Lateur)
perl installation on Solaris 7 harishhs@my-dejanews.com
Re: Problem passing arrays and hashes to subroutines. <oliver.james.jh@bhp.com.au>
Re: regex poll <rra@stanford.edu>
returnvalue from system() jesper@ad.se
RFD: new c2ph interface <tchrist@mox.perl.com>
SRC: psgrep - make cool queries against ps output <tchrist@mox.perl.com>
SRC: rep -- screen repeat command with Curses module <tchrist@mox.perl.com>
Re: String Manipulation (yet another newbie question) (Tad McClellan)
Re: String Manipulation (yet another newbie question) <uri@home.sysarch.com>
Re: y2k utility ^___^ <uri@home.sysarch.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 18 Feb 1999 09:36:08 -0600
From: russell.paul@orbimage.com (Paul D. Russell)
Subject: -s file test on big files
Message-Id: <russell.paul-1802990936090001@10.155.0.131>
Hi,
When I try doing a -s file test on big files (> 2.1 gigabytes) I get a
negative value. Is there any way around this (other than doing a system
call to ls)? Is this a built-in limitation in perl? If so, why? I am using
perl 5.004_04 on an SGI.
Thanks,
Paul
------------------------------
Date: Thu, 18 Feb 1999 10:14:08 -0600
From: "Joseph Henry Chambers" <joec@impacttech.com>
Subject: Re: <<HERE code
Message-Id: <7ahe8u$s6u$1@ash.prod.itd.earthlink.net>
Tony Curtis wrote in message <83k8xhj7t1.fsf@vcpc.univie.ac.at>...
>Re: <<HERE code, joec <joec@impacttech.com> said:
>
>joec> I have to copy a fairly large block of text to
>joec> a variable. I would like to do it with a
>joec> similar construct to the construct:
>
>joec> print <<EOT; this is test EOT
>
>joec> Something on the order of
>
>joec> $SampleText = <<EOT; this is a test EOT
>
>joec> Perl gives me fits if I try to do this.
>
>Your code is correct. The problem must be somewhere
>else in something you haven't included in this
>article.
>
>hth
>tony
>--
>Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
>Liechtensteinstrasse 22, A-1090 Wien. |
<URI:http://www.vcpc.univie.ac.at/>
>"You see? You see? Your stupid minds! | private email:
> Stupid! Stupid!" ~ Eros, Plan9 fOS.|
<URI:mailto:tony_curtis32@hotmail.com>
After everyone told me it should work, it started to work. I think it is
possible that I forgot the "=" sign, but I could swear I tested that.
I'm running under WindowsNT and 98, so I think it may be possible that
Microsoft is screwing with me. It wouldn't be the first time.
I would like to thank everyone for their quick response. It helped me alot.
And it reminded me that people doing these things for their own self
gratification tend to do a better job the high cost paid support from big
Bill.
I would also like to thank everyone for the other possible issues. While it
was likely one of them, I can't identify which one it was. I will however,
use the hints for future issues. I guess I'll have to start my own faq.
Thanks much,
Joe Chambers
------------------------------
Date: Thu, 18 Feb 1999 16:07:18 GMT
From: darcys@.nbnet.nb.ca (Rod MacBain)
Subject: Re: Anybody get .pl scripts to run on Win32 Perl and Apache 1.3.3. &#$%*Damn MS Windoze file associations.
Message-Id: <36cd3a8b.7939439@allnews.nbnet.nb.ca>
"Allan M. Due" <Allan@Due.net> spake thusly:
>Rod MacBain wrote in message <36cb7eff.4040385@allnews.nbnet.nb.ca>...
>:Here's the thing - I've had the Win32 apache 1.3.3 server running for
>
>Wait above you say the script does run at the command line and now you say it
>does not. By explorer do you mean IE? Just clicking on the file within a
>browser will not work unless the request is being processed by the server.
>
>:Has
>:anybody got the file associations to work properly it a Win95 and
>:Perl 5 environment? How do you do it?
>
>
>If, at the prompt, you type "perl hello.pl" and the script runs correctly then
>perl is configured properly correctly. After that, this is a server related
>problem so you should post your question in an appropriate newsgroup such as:
>......
>
>HTH
Thanks everyone. I was trying to run it from the windows explorer,
you know click the file name and have it run - to test if Win95 knew
what to do with a .pl file. Turns out it didn't, even with my path set
properly. I've since learned that out the proper association
perameters are OPEN perl.exe "%1". I guess I left out the quotes and
the %* that active state tells you to use just don't work! There is
nothing about the " " syntax in their doc's either. DOH! I've got
apache running and script aliased and all of that stuff now; no small
thanks to your help.
As I re-read my message now I'm surprised that anyone bothered to
help, It certainly sounds like a clueless newbie who needs to RTFM. To
you guys who did, thanks a lot.
Now if I could only get flock() working properly.
Rod
------------------------------
Date: 18 Feb 1999 11:02:54 -0500
From: clay@panix.com (Clay Irving)
Subject: Re: Attachments to perl-sent e-mails
Message-Id: <7ahdje$d9k$1@panix.com>
In <36CC15F7.1F1A@dksin.dk> "Niels K. Handest" <nkh@dksin.dk> writes:
>I already know how to send an e-mail via perl; What I need to know is
>how to attach a file (or more) to it.
>I've tried using the UNIX-command uuencode, but while this hack seems to
>work ok with my own eudora mail-program, it doesn't work on the Netscape
>mail program. The mail arrives put the "picture is broken".
>Does anyone have a solution?
Search this newsgroup with DejaNew and review the last 7 billion times
this question was asked. :)
--
Clay Irving
clay@panix.com
------------------------------
Date: Thu, 18 Feb 1999 10:44:49 -0500
From: "Abukar Mohamed" <abukar@insidewire.com>
Subject: Bad Request Header
Message-Id: <36cc348f.0@diana.idirect.com>
Hi
I have a script that creates cookie (name=prefs), but I got this message
when I use Netscape. In IE there is no problem.
Bad Request
Your browser sent a request that this server could not understand.
Request header field is missing colon separator.
; prefs=USCUR&1
Could any one pls help me?
Abukar
------------------------------
Date: 18 Feb 1999 10:34:00 -0500
From: awdorrin@mail.delcoelect.com (Albert W. Dorrington)
Subject: Re: Calculate yesterdays date
Message-Id: <7ahbt8$a2a@ws051eng.delcoelect.com>
In article <7afas8$8qu@ws051eng.delcoelect.com>, awdorrin@mail.delcoelect.com (Albert W. Dorrington) writes:
:>
:> In article <36C1D80E.4893@jpmorgan.com>, "Michael D. Hofer" <mhofer@jpmorgan.com> writes:
:> :> M.J.T. Guy wrote:
:> :> >
:> :> > Jarkko Hietaniemi <jhi@alpha.hut.fi> wrote:
:> :> > >
:> :> > >Peter Webb <Peter.Webb@cern.ch> writes:
:> :> > >
:> :> > >> Is there a quick way of calculating yesterdays date?
:> :> > >
:> :> > >localtime(time()-86400)
:> :> >
:> :> > As I keep repeating, that will give wrong answers for two hours each year
:> :> > (in most places).
:> :> >
:> :> > Mike Guy
:> :>
:> :> Luckily, neither of those hours span a month boundary (at least in the
:> :> USA), so by comparing the day-of-the-month of both dates you can
:> :> determine if you are playing with a ST/DT cusp.
:>
:> Perhaps I'm missing something here, but I don't see how using
:> 'localtime(time()-86400)' will result in a wrong time as Mike
:> indicated.
:>
<snip>
:>
:> If I am misunderstanding something please straighten me out.
:>
:> - Al
Thought about this a bit after I posted and realized where I
was making my mistake - I didn't think about the end of
the day - was only thinking about the transition point.
Still, it seems like a slightly modified method, which checks
the hours units would work fairly easily, without requring
a module. Something like:
print &yesterday(time());
sub yesterday {
$today = shift;
@tdy_tm = localtime($today);
@yst_tm = localtime($today-86400);
if ( $tdy_tm[2] == $yst_tm[2] ) {
$yesterday = localtime($today-86400);
} elsif ( $tdy_tm[2] > $yst_tm[2] ) {
$yesterday = localtime($today-82800);
} else {
$yesterday = localtime($today-90000);
}
return $yesterday;
}
Probably is a more efficient method for doing this...
- Al
--
Al Dorrington
FIRMS & Web Admin, Oracle DBA Phone: 765-451-9655
IC-DELCO CIM, Delphi Delco Electronics Systems Fax: 765-451-8230
------------------------------
Date: 18 Feb 1999 16:54:00 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Calling LOCAL CGI Perl script from web browser - possible?
Message-Id: <7ahgj8$hc3$1@client2.news.psi.net>
Bill Baker (bakerb@telusplanet.net) wrote on MCMXCVII September MCMXCIII
in <URL:news:36CB8DDA.6DEB052F@telusplanet.net>:
__ If I open a web page on my C: (hard) drive, click on a URL that points
__ to a CGI Perl script that also resides on my hard drive, will MS
__ Internet Explorer and/or Navigator be smart enough to invoke that Perl
__ script and return the resulting web page?
What happened when you tried?
Of course, it's not a Perl question. Go to a browsers group.
__ Please copy me in email.
No.
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=Math::BigInt->new(qq]$^F$^W783$[$%9889$^F47]
.qq]$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W]
.qq]98$^F76777$=56]);$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V
%$^U;$^V/=$^U}while$^V!=$^W'
------------------------------
Date: Thu, 18 Feb 1999 16:18:58 GMT
From: droby@copyright.com
Subject: Re: Datetime manipulation in perl
Message-Id: <7aheh8$h2a$1@nnrp1.dejanews.com>
In article <slrn7cmgun.5i5.fl_aggie@enso.coaps.fsu.edu>,
fl_aggie@thepentagon.com wrote:
> On Wed, 17 Feb 1999 20:33:05 GMT, Charles_Long@Dell.com
> <Charles_Long@Dell.com> wrote:
>
> + hi, the 2nd ed blue camel lists Time::Local as containing timelocal() to
> + go from textual string to a time() format i.e. mmddyy to ssssssssss
UNIX-like
> + stamp. i have searched Activestate and CPAN for this module to no avail.
> + did they depreciate this? does anyone have such a module. again, to do the
> + opposite of localtime().
>
> Have you tried compiling just the 'use Time::Local;' statement? Hint:
> Time::Local is part of the standard distribution, and you *should*
> already have it.
>
However, it doesn't do quite what Charles describes. It (approximately)
inverts localtime in list context. From his description I think he's
expecting an inverse to localtime in scalar context.
--
Don Roby
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 18 Feb 1999 11:09:51 -0500
From: "Allan M. Due" <Allan@due.net>
Subject: Re: delete line?
Message-Id: <7ahdlg$6a8$1@camel0.mindspring.com>
Thelma Lubkin wrote in message <7afhvl$6lc$1@uwm.edu>...
:Allan M. Due <allan@due.net> wrote:
:: dan wrote in message <36CA563C.19CE6D95@mailcity.com>...
:: :lets say i have the following in a file:
:: :a
:: :b
:: :c
:: :d
:: :and i pass a variable through. the variable contains "b", how do i get
:: :rid of the line that b is on instead of replacing it with ""? so the
:: :file contains:
:: :a
:: :c
:: :d
:: :thanks
:: I still think the FAQ's should be called SHF (Start Here First)
:: see perlfaq5
:
:: How do I change one line in a file/delete a line in a file/insert a line
in
:: the middle of a file/append to the beginning of a file?
:
:: HTH
: HTH failure:
Hmm, are you Dan and Thelma? If not then it may be premature to label my
suggestion a failure (then again- maybe not <g>). Does your newsreader
indicate that my followup was directed to a post you made? It was not.
:
: I've been thinking of asking about how to append to the beginning
: of a file on this newsgroup, but I've needed steel myself to
: answers like this: I *have* read the line you quote
: above in perlfaq5--unfortunately, I don't understand how what
: follows it in the FAQ helps me to understand how to use the
: perl -i.xxx switch [where xxx is user's chosen extension]
: --so far I've chickened out and done it in the slow,
I believe you misconstrue the instructions to check out the FAQ. Here is my
perception of this newsgroup's culture. If one asks a question: how do I do
this_thing, and if how this_thing is done is covered in the FAQ, then the
poster will be directed to the FAQ. If you backtrack in this newsgroup you
will see numerous references to the old saw give a man a fish and he eats
for a day, teach him to fish and he eats for the rest of his life. The
direction to the FAQ is intended to not only help them with the problem at
hand but also point them to the other useful tools at their disposal. The
same is true of the directions to use DejaNews.
If you post code and ask: how do you do this_thing, results tend to be
mixed. The group appreciates code but you are still likely to get See FAQ
responses which may or not be helpful. If it is clear from the posted code
where your thinking has gone astray then you may receive some feedback about
it. But, in the absence of other information, a common assumption is that
you are making your mistake because you didn't check the FAQ, or you are so
far from a good solution that you should just start over by reading the FAQ.
Now, if in your post you indicate that you have read the FAQ and the docs,
you have tried X but it still doesn't work, and you don't know why; then
folks will generally try to help reach a better understanding of the
material. If you are the kind of person that needs more than one example,
or are new to programming, or just don't get it; and state this clearly;
*and* demonstrate that you have been trying to work on understanding the
issues involved; then it is highly likely you will receive additional help.
At least that is my experience.
Different newsgroups have different cultures. My experience is that this
one tends to be a bit Calvinist/Puritanistic in that, as a group, it highly
values hard work, diligence and effort. A pull yourself up by your
bootstaps kind of mentality. It tends to punish what is perceived as a
request for information that is made without having first made an honest
attempt to solve the problem. This should not stop you from posting, you
just need to make sure that you have made the requisite effort, and let the
group know what you have tried and what you think is going on, and where you
are stuck.
: tedious way that I can get to work: open a new file; write
: the new lines to it; open the old file to read; append its entries;
: rename the newfile with the old file's name [first renaming the
: old file with the xxx extension if a backup is wanted]
:
: I've read the section following the quoted line several
: times and I still have no idea of how to else to do it
: times and I still have no idea of how to else to do it
: Perhaps someone can help someone who almost never understands
: a manual entry until she already understands how to do the
: operation involved?
: --thanks
: --thelma
See just saying you don't understand doesn't give enough of a hook to know
where you are having trouble. Is it -e, is it command line switches in
general? What do you understand, what is the stumbling block, what have you
tried (a small representative snippet) and why isn't the result what you
want. Give me that to work with and I will try to help if I can.
Just as final point, if I give you the following Win versioin:
perl -pi.bak -e "print qq(newstuff at start \n) if $.==1" myfile.dat
are you any better off? Or have I just encouraged you to be dependent on
the kindness of strangers?
HTH
AmD
Opinions expressed here are purely my own. I am not trying to speak for the
group in general.
[copied and emailed]
------------------------------
Date: Thu, 18 Feb 1999 10:25:22 -0500
From: Mike Skimin <mskimin@loraincounty.com>
Subject: Encrypting then Decrypting a Password?
Message-Id: <36CC30E2.1C265B2F@loraincounty.com>
Hello All,
Please excuse my ignorance on this.
I have a Perl program that connects to a MySQL Database. In order
for the connection to work I must put in my admin password, in non
encrypted form in the script.
This frightens me a little. Is there a way I can put an encrypted
password in the script then have the script decrypt it so when it is
passed to MySQL it is the correct password. Thus never having my admin
password in plan form?
I kind of understand the crypt function but can't figure out how to
go from a crypt password back to normal.
Any and all help is appreciated.
--
Mike Skimin, Webmaster
Emerge Inc.
http://www.EmergeInc.com
http://www.LorainCounty.com
------------------------------
Date: 18 Feb 1999 08:02:13 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 5.19: I still don't get locking. I just want to increment the number in the file. How can I do this?
Message-Id: <36cc2b75@csnews>
(This excerpt from perlfaq5 - Files and Formats
($Revision: 1.34 $, $Date: 1999/01/08 05:46:13 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq5.html
if your negligent system adminstrator has been remiss in his duties.)
I still don't get locking. I just want to increment the number in the file. How can I do this?
Didn't anyone ever tell you web-page hit counters were useless? They
don't count number of hits, they're a waste of time, and they serve only
to stroke the writer's vanity. Better to pick a random number. It's more
realistic.
Anyway, this is what you can do if you can't help yourself.
use Fcntl ':flock';
sysopen(FH, "numfile", O_RDWR|O_CREAT) or die "can't open numfile: $!";
flock(FH, LOCK_EX) or die "can't flock numfile: $!";
$num = <FH> || 0;
seek(FH, 0, 0) or die "can't rewind numfile: $!";
truncate(FH, 0) or die "can't truncate numfile: $!";
(print FH $num+1, "\n") or die "can't write numfile: $!";
# Perl as of 5.004 automatically flushes before unlocking
flock(FH, LOCK_UN) or die "can't flock numfile: $!";
close FH or die "can't close numfile: $!";
Here's a much better web-page hit counter:
$hits = int( (time() - 850_000_000) / rand(1_000) );
If the count doesn't impress your friends, then the code might. :-)
--
PS/2 -- Half a computer
OS/2 -- Half an operating system
PS/2: Yesterday's hardware today. OS/2: Yesterday's software tomorrow
------------------------------
Date: 18 Feb 1999 08:26:53 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 5.21: How do I get a file's timestamp in perl?
Message-Id: <36cc313d@csnews>
(This excerpt from perlfaq5 - Files and Formats
($Revision: 1.34 $, $Date: 1999/01/08 05:46:13 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq5.html
if your negligent system adminstrator has been remiss in his duties.)
How do I get a file's timestamp in perl?
If you want to retrieve the time at which the file was last read,
written, or had its meta-data (owner, etc) changed, you use the -M, -A,
or -C filetest operations as documented in the perlfunc manpage. These
retrieve the age of the file (measured against the start-time of your
program) in days as a floating point number. To retrieve the "raw" time
in seconds since the epoch, you would call the stat function, then use
localtime(), gmtime(), or POSIX::strftime() to convert this into human-
readable form.
Here's an example:
$write_secs = (stat($file))[9];
printf "file %s updated at %s\n", $file,
scalar localtime($write_secs);
If you prefer something more legible, use the File::stat module (part of
the standard distribution in version 5.004 and later):
# error checking left as an exercise for reader.
use File::stat;
use Time::localtime;
$date_string = ctime(stat($file)->mtime);
print "file $file updated at $date_string\n";
The POSIX::strftime() approach has the benefit of being, in theory,
independent of the current locale. See the perllocale manpage for
details.
--
Unix is supported by IBM, like a hanging man is supported by rope
- _Life With Unix_ Don Libes & Sandy Ressler
------------------------------
Date: Thu, 18 Feb 1999 16:09:46 GMT
From: jesper@ad.se
Subject: file mode from stat()
Message-Id: <7ahe02$gn5$1@nnrp1.dejanews.com>
Hi.
My program:
($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime,
$blksize, $blocks) = stat("stat");
print("Mode: >>$mode<<\n");
prints:
Mode: >>33279<<.
The Unix-command:
ls -l stat
prints
-rwxrwxrwx 1 jesper staff 164 feb 18 17:00 stat
that is, mode 777.
If I change the files mode to 755 the output I get is 33261.
Now for the question, how do I interpret $mode to get the octal code?
regards,
Jesper
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 18 Feb 1999 10:23:08 -0600
From: "Joseph Henry Chambers" <joec@impacttech.com>
Subject: Re: Intresting Error
Message-Id: <7ahepq$st5$1@ash.prod.itd.earthlink.net>
Justin Saul wrote in message <7afid3$m4t@bgtnsc02.worldnet.att.net>...
>Hi,
> I took a standard Guestbook CGI and modified it heavily to do what I want.
>I actually changed it to become a very nice XML Database utility. When I
>check for syntax errors on the server it comes back saying there are none.
>"Great" I say. So I run it...bah comes back with an Internal Error (500),
so
>I went back and "chmod 755" then made sure I uploaded it correctly.
> In the code I require "cgi-lib.pl" and made sure all those links were
>correct. Does anyone have an idea of what went wrong?
> Also I didn't really change to much and the code makes sense. It should
>have worked.
>
>How the program should work:
> It displays a form. You fill in the form with your information. It takes
>that and opens *.xml and puts the correct code in. Another page takes the
>XML file and formats it, which has its own formating objects to get a
really
>cool database. Each part seperate should work without the other.
>
>Thanks,
> Justin Saul
> 5 Games (http://www.5games.com)
>
>
Justin,
Did you try to compile the program?
I find that sometimes a program that runs will not show me an error that
would occur if it took a different control path. On these occasions I run
"perl -c <script.pl>" this generally shows me what my errors are.
Hope this helps
Joe Chambers
------------------------------
Date: Thu, 18 Feb 1999 09:30:18 -0600
From: "David W. Hundley" <dave.hundley@eds.exsc01.exch.com>
Subject: Matching for a null string
Message-Id: <36CC320A.1429@eds.exsc01.exch.com>
This seems like it ought to be a no-brainer (and maybe that's what I'm
dealing with :^) ) but I'm unable to figure this out. Anyone know how
to either match for a null string or determine that a string is
definitely not null? I have tried the /.+?/ pattern (as well as several
other variations) which would seem to perform the latter determiniation
but it does not work.
I'm trying to use this in the following if-then-else scenario
$_ = $varname;
if (/.+?/) #if varname contains a null value
{
#do one thing
}
else
{
#do something else
}
I'd appreciate any ideas. I've combed the Perl Cookbook, Programming
Perl and Learning Perl and have come up dry.
--
David W. Hundley
------------------------------
Date: Thu, 18 Feb 1999 16:17:01 GMT
From: mag@dect.com
Subject: Re: No such file or directory
Message-Id: <7ahedj$h0m$1@nnrp1.dejanews.com>
In article <79j503$avu2@iac7.navix.net>,
"Glen Lee Edwards" <GLEdwards@christianfamilies.net> wrote:
> I'm trying to install a Perl script on a Linux system and on three of the
> cgi scripts I keep getting a "no such file or directory" error. But when I
> look through the script it appears that the syntax referencing the files are
> correct, and all the respective folders are in place. Any suggestion?
>
> Thanks,
>
> Glen
I had the same problem. My script started with #!/bin/perl. After typing
'which perl' I was prompted '/usr/bin/perl'. I thought that the line
#!/bin/perl was not used by the script. After changing the line in the
beginning of the script I did not have any problems.
>
>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 18 Feb 1999 11:00:00 -0500
From: "John Cokos" <jcokos@ccs.net>
Subject: passme
Message-Id: <7ahdh6$8e6@dfw-ixnews4.ix.netcom.com>
------------------------------
Date: Thu, 18 Feb 1999 16:26:50 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: passme
Message-Id: <36cc3cb7.6305170@news.skynet.be>
Donny Widjaja wrote:
[Yuck. a VCard]
You guys are mistaking. This is not a moderated newsgroup, and it
definitely doesn't work like the comp.infosystems.www.authoring.cgi
newsgroup (i.e. automoderated). Just post. You'll be flamed enough if we
think it's off-topic. ;-)
comp.lang.perl.moderated *is* a moderated newsgroup, but you shouldn't
post this crap there either. Instead, all posts are trapped, and you'll
need to confirm your very first post through an automatic e-mail dialog
(for which you must have a valid return email address). Then, that post
(and all the next) will be sent to a moderator.
If the post is approved (it's content *must* be very Perl relevant), it
will appear in the newsgroup after a few hours. If it is rejected,
you'll get an e-mail explaining why. But, check out the FAQ in that
newsgroup that gets posted at least once a week.
No more "pass me"'s!
Bart.
------------------------------
Date: Thu, 18 Feb 1999 15:54:39 GMT
From: harishhs@my-dejanews.com
Subject: perl installation on Solaris 7
Message-Id: <7ahd3q$fof$1@nnrp1.dejanews.com>
I am installing perl on Solaris 7 from the zip file downloaded from site
www.perl.com.
Can anyone give me a clear procedure for going about the same?
It says "Your CC compiler cc does not seems to be working!"
Is it required to have a working C compiler while installing perl ?
Thanks in advance.
Harish
Like you clean your body everyday by bathing, clean your internal body,
the soul every day by bathing in good feelings ( Only good water can
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 18 Feb 1999 15:35:26 -0000
From: "James Oliver" <oliver.james.jh@bhp.com.au>
Subject: Re: Problem passing arrays and hashes to subroutines.
Message-Id: <7ahbol$1t@gossamer.itmel.bhp.com.au>
My question has been kindly answerd by Tom, (see below). The solution that
I used was:
sub
my_sub
{
my($hash,$array) = @_;
my(%hash) = %$hash;
my(@array)= @$array;
# Function operations.
}
my_sub(\%hash, \@array);
Thanks,
James
-----Original Message-----
From: Tom Christiansen [mailto:tchrist@mox.perl.com]
Sent: 18 February 1999 15:10
To: Oliver, James JH
Subject: Re: Problem passing arrays and hashes to subroutines.
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, "James Oliver" <oliver.james.jh@bhp.com.au> writes:
:I have a question regarding passing both an array and a hash as the
argument
:of a subroutine.
:
:Specifically I want to be able to perform something like this:
:
:sub
:my_sub
:{
: my(%hash,@array) = @_;
:
: # Function operations.
:}
:
:my_sub(%hash, @array);
You seem to have neglected to read the perlsub manpage, included standard
on your system. I enclose the relevant sections.
Enjoy.
--tom
=head1 NAME
perlsub - Perl subroutines
=head1 DESCRIPTION
Like many languages, Perl provides for user-defined subroutines. These
may be located anywhere in the main program, loaded in from other files
via the C<do>, C<require>, or C<use> keywords, or even generated on the
fly using C<eval> or anonymous subroutines (closures). You can even call
a function indirectly using a variable containing its name or a CODE
reference
to it.
The Perl model for function call and return values is simple: all
functions are passed as parameters one single flat list of scalars, and
all functions likewise return to their caller one single flat list of
scalars. Any arrays or hashes in these call and return lists will
collapse, losing their identities--but you may always use
pass-by-reference instead to avoid this. Both call and return lists may
contain as many or as few scalar elements as you'd like. (Often a
function without an explicit return statement is called a subroutine, but
there's really no difference from the language's perspective.)
...
=head2 Pass by Reference
If you want to pass more than one array or hash into a function--or
return them from it--and have them maintain their integrity, then
you're going to have to use an explicit pass-by-reference. Before you
do that, you need to understand references as detailed in L<perlref>.
This section may not make much sense to you otherwise.
Here are a few simple examples. First, let's pass in several
arrays to a function and have it C<pop> all of then, return a new
list of all their former last elements:
@tailings = popmany ( \@a, \@b, \@c, \@d );
sub popmany {
my $aref;
my @retlist = ();
foreach $aref ( @_ ) {
push @retlist, pop @$aref;
}
return @retlist;
}
Here's how you might write a function that returns a
list of keys occurring in all the hashes passed to it:
@common = inter( \%foo, \%bar, \%joe );
sub inter {
my ($k, $href, %seen); # locals
foreach $href (@_) {
while ( $k = each %$href ) {
$seen{$k}++;
}
}
return grep { $seen{$_} == @_ } keys %seen;
}
So far, we're using just the normal list return mechanism.
What happens if you want to pass or return a hash? Well,
if you're using only one of them, or you don't mind them
concatenating, then the normal calling convention is ok, although
a little expensive.
Where people get into trouble is here:
(@a, @b) = func(@c, @d);
or
(%a, %b) = func(%c, %d);
That syntax simply won't work. It sets just C<@a> or C<%a> and clears
the C<@b> or C<%b>. Plus the function didn't get passed into two separate
arrays or hashes: it got one long list in C<@_>, as always.
If you can arrange for everyone to deal with this through references,
it's cleaner code, although not so nice to look at. Here's a function
that takes two array references as arguments, returning the two array
elements in order of how many elements they have in them:
($aref, $bref) = func(\@c, \@d);
print "@$aref has more than @$bref\n";
sub func {
my ($cref, $dref) = @_;
if (@$cref > @$dref) {
return ($cref, $dref);
} else {
return ($dref, $cref);
}
}
It turns out that you can actually do this also:
(*a, *b) = func(\@c, \@d);
print "@a has more than @b\n";
sub func {
local (*c, *d) = @_;
if (@c > @d) {
return (\@c, \@d);
} else {
return (\@d, \@c);
}
}
Here we're using the typeglobs to do symbol table aliasing. It's a tad
subtle, though, and also won't work if you're using C<my()> variables,
because only globals (well, and C<local()>s) are in the symbol table.
If you're passing around filehandles, you could usually just use the
bare typeglob, like C<*STDOUT>, but typeglobs references would be better
because they'll still work properly under S<C<use strict 'refs'>>.
For example:
splutter(\*STDOUT);
sub splutter {
my $fh = shift;
print $fh "her um well a hmmm\n";
}
$rec = get_rec(\*STDIN);
sub get_rec {
my $fh = shift;
return scalar <$fh>;
}
If you're planning on generating new filehandles, you could do this:
sub openit {
my $name = shift;
local *FH;
return open (FH, $path) ? *FH : undef;
}
Although that will actually produce a small memory leak. See the bottom
of L<perlfunc/open()> for a somewhat cleaner way using the C<IO::Handle>
package.
James Oliver wrote in message <7ah9gr$p2n@gossamer.itmel.bhp.com.au>...
>Hello,
>
>I have a question regarding passing both an array and a hash as the
argument
>of a subroutine.
>
>Specifically I want to be able to perform something like this:
>
>sub
>my_sub
>{
> my(%hash,@array) = @_;
>
> # Function operations.
>}
>
>my_sub(%hash, @array);
>
>However, when I do this it seems that the hash contains all but the last
>element of the array, and the array contains a single element. I am sure I
>am doing something stupid, so if you could please provide a pointer I would
>be extremely appreciative.
>
>Thankyou in anticipation of your help.
>
>Cheers,
>
>James
>
>
>
------------------------------
Date: 17 Feb 1999 20:06:18 -0800
From: Russ Allbery <rra@stanford.edu>
Subject: Re: regex poll
Message-Id: <ylvhh0we2t.fsf@windlord.stanford.edu>
In comp.lang.perl.moderated, Tushar Samant <scribble@pobox.com> writes:
> I want to know if there is any connection between this poll being a
> disinformation campaign and the fact that my "survey" answers were
> rejected.
No. In retrospect, I probably shouldn't have approved Chris's message
about polls either; that was my call, and I'll take responsibility for
it. The wheres and whys of polling really aren't on topic in a Perl
newsgroup.
The reason for not posting the survey answers is that Uri is taking the
survey and presumably will collect responses and summarize; that's the
standard way on Usenet that such things have always been done for decades.
Posting all of the individual responses *plus* the final summary just
results in lots more traffic without much additional signal.
If people have general *discussion* of regex features, of course that's on
topic. It's specifically the poll responses that the moderation team
collectively discussed and decided weren't of sufficient general interest
individually in light of an eventual summary.
> I ask this for one because a near-identical post has appeared on the
> group,
Which was a mistake; apologies for that.
> but mainly because I want to know how a Perl programmer's post about his
> programming habits is inappropriate.
It's not. It's the general context of the survey and survey responses,
and the fact that survey responses in and of themselves aren't discussion,
just lists of regex features you use.
> I will certainly gain something from seeing certain people's answers,
> namely people about whose personalities and concerns I know something by
> reading the group.
I think it would be great if Uri would put that information in the
summary.
> And perhaps the poll was intended to sway The Mighty Zakharevich, but
> the possibility of that happening is laughably small. It's just not the
> kind of energy which gets rechannelled by a voice vote, that's the
> valuable thing about it...
*grin*
For the record, these are all my personal opinions and personal
understandings; I'm not speaking for anyone other than myself.
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: Thu, 18 Feb 1999 15:58:26 GMT
From: jesper@ad.se
Subject: returnvalue from system()
Message-Id: <7ahdat$ftj$1@nnrp1.dejanews.com>
Does anybody know why the returnvalue from a system() call is left-shifted 8
bits? What's the reason for doing this?
regards
Jesper
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 18 Feb 1999 07:32:13 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: RFD: new c2ph interface
Message-Id: <36cc246d@csnews>
I'm thinking of revising c2ph so it works more in
a more convenient way. Check it out.
--tom
$buff = "\0" x rusage->sizeof();
syscall(&SYS_getrusage, &RUSAGE_SELF, $buff) && die "getrusage: $!";
$ru = rusage->new_from_buffer($buff);
# or
$ru = rusage->new();
$ru->unpack($buff);
# or
@fields = rusage->unpack($buff);
# or
@fields = unpack(rusage->typedef, $buff);
# or
$ru = rusage->read(*FH);
# or
read(FH, $buff, $rusage->sizeof);
$ru = rusage->new_from_buffer($buff);
# or
read(FH, $buff, $rusage->sizeof);
@fields = unpack(rusage->typedef, $buff);
Class methods:
$obj = CSTRUCT->new(); # construct empty
$obj = CSTRUCT->unpack($buff); # construct from packed buffer
$obj = CSTRUCT->new( # construct from pairs
FIELD1 => "value",
FIELD2 => "value",
);
$obj = CSTRUCT->read(*FH); # construct from next bytes on stream
CSTRUCT->seek(*FH,10); # goto record 10 on stream of CSTRUCTs
$recsize = CSTRUCT->sizeof(); # bytes in packed record
$pack_mask = CSTRUCT->typedef(); # format for pack/unpack
Object methods:
$x = $obj->field; # get
$obj->field($value); # set
$obj->unpack($buff);
print $obj->pack;
$obj->write(*FH); # write packed $obj to stream
$obj->read(*FH); # read packed object from stream
$obj->seek(*FH,10); # goto record 10 on stream of (ref $obj)
print $obj->as_string;
print $obj->as_hash;
Example using wtmp log file:
Show record of user id #178
use utmp; # would have been #include <utmp.h>
open(WTMP, "/usr/adm/wtmp");
utmp->seek(*WTMP, 178);
$him = utmp->read(*WTMP);
printf "uid %d logged on from %s on %s.\n",
$him->ut_uid, $him->ut_host, scalar local $him->ut_date;
Updating records in place
use employee; # private module sample
open(FH, "+< /tmp/empdata");
$obj = employee->new();
$recno = 0;
while ($obj = $obj->read(*FH)) {
$obj->salary($obj->salary * 1.06); # *= 1.06
$obj->seek(*FH, $recno);
$obj->write(*FH);
$recno++;
}
--
OK, enough hype.
--Larry Wall in the perl man page
------------------------------
Date: 18 Feb 1999 08:01:58 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: SRC: psgrep - make cool queries against ps output
Message-Id: <36cc2b66@csnews>
Besides a demo of when you should use eval to make functions and when
you should instead use closures, this is a general technique applicable
to any small database that you'd like to make powerful queries against.
Here's how you find lines containing ``sh'' at the end of a word:
% psgrep '/sh\b/'
Processes whose command names end in ``sh'':
% psgrep 'command =~ /sh$/'
Processes running with a user id below 10:
% psgrep 'uid < 10'
Login shells with active ttys:
% psgrep 'command =~ /^-/' 'tty ne "?"'
Processes running on pseudo-ttys:
% psgrep 'tty =~ /^[p-t]/'
Non-superuser processes running detached:
% psgrep 'uid && tty eq "?"'
Huge processes that aren't owned by the super-user:
% psgrep 'size > 10 * 2**10' 'uid != 0'
#!/usr/bin/perl -w
# psgrep - print selected lines of ps output by
# compiling user queries into code
use strict;
# each field from the PS header
my @fieldnames = qw(FLAGS UID PID PPID PRI NICE SIZE
RSS WCHAN STAT TTY TIME COMMAND);
# determine the unpack format needed (hard-coded for Linux ps)
my $fmt = cut2fmt(8, 14, 20, 26, 30, 34, 41, 47, 59, 63, 67, 72);
my %fields; # where the data will store
die <<Thanatos unless @ARGV;
usage: $0 criterion ...
Each criterion is one a Perl expression involving:
@fieldnames
All criteria must be met for a line to be printed.
Thanatos
# Create function aliases for uid, size, UID, SIZE, etc.
# Empty parens on closure args needed for void prototyping.
for my $name (@fieldnames) {
no strict 'refs';
*$name = *{lc $name} = sub () { $fields{$name} };
}
my $code = "sub is_desirable { " . join(" and ", @ARGV) . " } ";
unless (eval $code.1) {
die "Error in code: $@\n\t$code\n";
}
open(PS, "ps wwaxl |") || die "cannot fork: $!";
print scalar <PS>; # emit header line
while (<PS>) {
@fields{@fieldnames} = trim(unpack($fmt, $_));
print if is_desirable(); # line matches their criteria
}
close(PS) || die "ps failed!";
# convert cut positions to unpack format
sub cut2fmt {
my(@positions) = @_;
my $template = '';
my $lastpos = 1;
for my $place (@positions) {
$template .= "A" . ($place - $lastpos) . " ";
$lastpos = $place;
}
$template .= "A*";
return $template;
}
sub trim {
my @strings = @_;
for (@strings) {
s/^\s+//;
s/\s+$//;
}
return wantarray ? @strings : $strings[0];
}
# the following was used to determine column cut points.
# sample input data follows
#123456789012345678901234567890123456789012345678901234567890123456789012345
# 1 2 3 4 5 6 7
# Positioning:
# 8 14 20 26 30 34 41 47 59 63 67 72
# | | | | | | | | | | | |
__END__
FLAGS UID PID PPID PRI NI SIZE RSS WCHAN STA TTY TIME COMMAND
100 0 1 0 0 0 760 432 do_select S ? 0:02 init
140 0 187 1 0 0 784 452 do_select S ? 0:02 syslogd
100100 101 428 1 0 0 1436 944 do_exit S 1 0:00 /bin/login
100140 99 30217 402 0 0 1552 1008 posix_lock_ S ? 0:00 httpd
0 101 593 428 0 0 1780 1260 copy_thread S 1 0:00 -tcsh
100000 101 30639 9562 17 0 924 496 R p1 0:00 ps axl
0 101 25145 9563 0 0 2964 2360 idetape_rea S p2 0:06 trn
100100 0 10116 9564 0 0 1412 928 setup_frame T p3 0:00 ssh -C www
100100 0 26554 9653 0 0 812 436 setup_frame T p2 0:00 man perlfunc
100100 0 26560 26554 0 0 1076 572 setup_frame T p2 0:00 less
100000 101 19058 9562 0 0 1396 900 setup_frame T p1 0:02 nvi /tmp/a
--
It's there as a sop to former Ada programmers. :-)
--Larry Wall regarding 10_000_000 in <11556@jpl-devvax.JPL.NASA.GOV>
------------------------------
Date: 18 Feb 1999 08:05:51 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: SRC: rep -- screen repeat command with Curses module
Message-Id: <36cc2c4f@csnews>
This program runs a command repeatedly and uses curses for optimal
screen updating. You call it with arguments of the program to run,
like any of these:
% rep ps aux
% rep netstat
% rep -2.5 lpq
--tom
#!/usr/bin/perl -w
# rep - screen repeat command
use strict;
use Curses;
my $timeout = 10;
if (@ARGV && $ARGV[0] =~ /^-(\d+\.?\d*)$/) {
$timeout = $1;
shift;
}
die "usage: $0 [ -timeout ] cmd args\n" unless @ARGV;
initscr(); # start screen
noecho();
cbreak();
nodelay(1); # so getch() is non-blocking
$SIG{INT} = sub { done("Ouch!") };
sub done { endwin(); print "@_\n"; exit; }
while (1) {
while ((my $key = getch()) ne ERR) { # maybe multiple keys
done("See ya") if $key eq 'q'
}
my @data = `(@ARGV) 2>&1`; # gather output+errors
for (my $i = 0; $i < $LINES; $i++) {
addstr($i, 0, $data[$i] || ' ' x $COLS);
}
standout();
addstr($LINES-1, $COLS - 24, scalar localtime);
standend();
move(0,0);
refresh(); # flush new output to display
my ($in, $out) = ('', '');
vec($in,fileno(STDIN),1) = 1; # look for key on stdin
select($out = $in,undef,undef,$timeout);# wait up to this long
}
--
I don't believe it's written in Perl, though it probably
ought to have been. :-)
--Larry Wall in <1995Feb21.180249.25507@netlabs.com>
------------------------------
Date: Thu, 18 Feb 1999 09:25:48 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: String Manipulation (yet another newbie question)
Message-Id: <sdbha7.1hc.ln@magna.metronet.com>
asssi@my-dejanews.com wrote:
: i have a variable that may contain or may not contain a sub-string
: somewhere inside.. for example if i have:
: $field = "email_1"
: what i want to do is this:
: if ($field contains "_1") { etc. etc. etc. }
: so, what comes inside the brackets?
index($field, '_1') >= $[
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 18 Feb 1999 11:11:09 -0500
From: Uri Guttman <uri@home.sysarch.com>
Subject: Re: String Manipulation (yet another newbie question)
Message-Id: <x7ww1flmjm.fsf@home.sysarch.com>
>>>>> "TM" == Tad McClellan <tadmc@metronet.com> writes:
TM> : if ($field contains "_1") { etc. etc. etc. }
TM> index($field, '_1') >= $[
the use of $[ is deprecated. you shouldn't rely on its existance. perl
uses zero based indexing for arrays and strings.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
Perl Hacker for Hire ---------------------- Perl, Internet, UNIX Consulting
uri@sysarch.com ------------------------------------ http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: 18 Feb 1999 11:14:12 -0500
From: Uri Guttman <uri@home.sysarch.com>
Subject: Re: y2k utility ^___^
Message-Id: <x7u2wjlmej.fsf@home.sysarch.com>
>>>>> "JCB" == Joshua Chang-Yol Baek <cybaek@pcrc.hongik.ac.kr> writes:
JCB> #!perl
JCB> # All rights left.
JCB> # cybaek@pcrc.hongik.ac.kr
JCB> # 1999.2.18
JCB> if (length($ARGV[0]) == 0)
JCB> {
JCB> print "Usage : perl y2k.pl <source program>\n";
JCB> exit;
JCB> }
JCB> open(IN, "<$ARGV[0]");
JCB> while(<IN>)
JCB> {
JCB> s/y/k/g;
JCB> print;
JCB> }
JCB> close(IN);
JCB> sorry ^^;;
don't apologize, just do it more compactly:
perl -pi.y2k -e 'tr/y/k/'
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
Perl Hacker for Hire ---------------------- Perl, Internet, UNIX Consulting
uri@sysarch.com ------------------------------------ http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
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 4930
**************************************
