[11418] in Perl-Users-Digest
Perl-Users Digest, Issue: 5018 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 1 12:07:41 1999
Date: Mon, 1 Mar 99 09:04:46 -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 Mon, 1 Mar 1999 Volume: 8 Number: 5018
Today's topics:
Re: perl server error with sendmail <gellyfish@btinternet.com>
Please, An example of win32::NetResourse. (RedWine)
Re: Plotting a graph using this data. <rick.delaney@home.com>
Printing Shortcut Properties <alex.campbell@erols.com>
Proper idiom for split(/,/) outside parentheses? (Greg Kuperberg)
Re: pwd under DOS?! <gellyfish@btinternet.com>
Question about converting newlines to <br> tags (George)
read from stdin <finkelg@cpm.elex.co.il>
Re: Regex to parse m/d/yy into yyyy-mm-dd (Larry Rosler)
Re: Regex to parse m/d/yy into yyyy-mm-dd <lembark@wrkhors.com>
Re: regular expression: some confusion with "*" <rick.delaney@home.com>
Re: replace { with space <jdf@pobox.com>
Re: Runing a perl script on one WEB Server and Writing <gellyfish@btinternet.com>
Re: running commands on a remote host <gellyfish@btinternet.com>
Searching Web Pages and an Intranet Newsgroup <gibsonc@aztec.asu.edu>
Re: sendmail doesn't work <gellyfish@btinternet.com>
Re: Serial port comm with perl? <gellyfish@btinternet.com>
Re: Server Upgrade Causes Broken Cookie Code elaine@cts.wustl.edu
sorting a hash on it's values <ewolf@ix.netcom.com>
Re: sorting a hash on it's values <rick.delaney@home.com>
Re: sorting info from data files <aqumsieh@matrox.com>
Splice question from Newbie (Jennifer Ozzello)
Re: Splice question from Newbie (Ronald J Kimball)
Re: Splice question from Newbie (Jennifer Ozzello)
Re: Splice question from Newbie <rick.delaney@home.com>
Re: Statistics for comp.lang.perl.misc <jdf@pobox.com>
Re: Strange behavior <gellyfish@btinternet.com>
Re: Test file <jdf@pobox.com>
Re: The dumbest newbie question ever..? <Allan@Due.net>
Re: The dumbest newbie question ever..? (Larry Rosler)
Re: The dumbest newbie question ever..? <gellyfish@btinternet.com>
Re: The dumbest newbie question ever..? <mpersico@erols.com>
Re: The truth about the Pentium III chip and ID --- **b <ian@cfmu.eurocontrol.be>
This Hostname/IP Convert script is not working <EvaDooRs@netzero.net>
Re: This Hostname/IP Convert script is not working (Sam Holden)
Re: Urgent: Help: limit to string size, or...? (Clay Irving)
Re: URL Redirect based on REMOTE_HOST - Help Needed <gellyfish@btinternet.com>
Re: Using a glob with sort (Bill Moseley)
Re: Why isn't this a race condition ? <jdf@pobox.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 28 Feb 1999 01:52:42 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: perl server error with sendmail
Message-Id: <7ba7ha$3vi$1@gellyfish.btinternet.com>
On Thu, 25 Feb 1999 16:07:39 GMT andy_freeman@my-dejanews.com wrote:
> when using sendmail with -t option, if an invalid email address is entered, ie
> aaaa or bbbbb@c. I get a server error. With a valid email address, sendmail
> works fine. Anyone have any ideas?
>
This is probably more appropriate to a group concerned with sendmail.
For myself I tested this and there is no error *If sendmail is running as
a daemon on the localhost* - the badly addressed message will just get
queued and then some bounce message will be returned at some later date
after the MTA has attempted to do deliver it. You might get some error
if you attempt to send a *local* mail with an invalid username but that is
really something you should take up with the sendamil documentation.
Anyhow if you have a problem with the results you are getting you could
try using 'eval' to trap the errors and react accordingly - obviously
you *do* want to be told you are trying to send a mail to some bad address.
/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: Mon, 01 Mar 1999 02:32:19 GMT
From: mordasm@home.com (RedWine)
Subject: Please, An example of win32::NetResourse.
Message-Id: <36d9f6de.44333704@C48381-a>
I need to map a network drive. (\\mike400\c)
Win98 & WinNT are the OS's
win32::NetResource is the module I need (I think)
The terminology is abstract to say the least.
My "Learning Perl" book doesn't cover this. I order a couple
additional books but they will not be in for at least a week+.
This is clipped from the documentation with my comments. An example of
real hash items and the command line would really help.
Thanks
Mike Mordas
mordasm@home.com
_________________________________________
%NETRESOURCE
KEY VALUE
'Scope' => Scope of an Enumeration
RESOURCE_CONNECTED,
RESOURCE_GLOBALNET,
RESOURCE_REMEMBERED.
# I have no clue.??
'Type' => The type of resource to Enum
RESOURCETYPE_ANY All resources
RESOURCETYPE_DISK Disk resources
RESOURCETYPE_PRINT Print resources
# I would guess RESOURCETYPE_PRINT. ??
'DisplayType' => The way the resource should be displayed.
RESOURCEDISPLAYTYPE_DOMAIN
The object should be displayed as a domain.
RESOURCEDISPLAYTYPE_GENERIC
The method used to display the object does not
matter.
RESOURCEDISPLAYTYPE_SERVER
The object should be displayed as a server.
RESOURCEDISPLAYTYPE_SHARE
The object should be displayed as a sharepoint.
# I assume at least RESOURCEDISPLAYTYPE_DOMAIN is wrong. ??
'Usage' => Specifies the Resources usage:
RESOURCEUSAGE_CONNECTABLE
RESOURCEUSAGE_CONTAINER.
# A mapped drive, Kind of like a connected container. ??
'LocalName' => Name of the local device the resource is connected
to.
# I would guess this would be the name of the drive I'm mapping to
i.e. J: ??
'RemoteName' => The network name of the resource.
# Guessing this would be \\mike400\c ??
'Comment' => A string comment.
# This I can handle :)
'Provider' => Name of the provider of the resource.
------------------------------
Date: Sat, 27 Feb 1999 19:30:21 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Plotting a graph using this data.
Message-Id: <36D849B5.7838FC25@home.com>
[posted & mailed]
Alexei Alexandrov wrote:
>
> As u can see it`s collected every 5 minutes. The question is: How can
> i use GD or GIFgraph packages for perl to plot nice graphs like MRTG?
> If anyone has some piece of code i can analyze i would be very
> greatful.
Have you looked at the sample code that comes with GIFgraph? I just
installed this module yesterday and was able to get the graph I wanted
in a matter of minutes after perusing the samples. Very nice work.
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Sat, 27 Feb 1999 19:25:42 -0500
From: "Alex Campbell" <alex.campbell@erols.com>
Subject: Printing Shortcut Properties
Message-Id: <7ba2fi$j11$1@winter.news.rcn.net>
I work with a group that has literally hundreds of Shortcuts and many of
them have improperly named such as Latest Training in several different
folders. Is there a utility or Perl program to print their properties as
well as their folder location. My work e-mail is campbell_alex@bah.com.
------------------------------
Date: 27 Feb 1999 17:25:00 -0800
From: greg@manifold.math.ucdavis.edu (Greg Kuperberg)
Subject: Proper idiom for split(/,/) outside parentheses?
Message-Id: <7ba5tc$je5$1@manifold.math.ucdavis.edu>
I am working on cleaning up a Perl code that needs to divide an author
list into authors. The authors may be separated by commas or by the word
"and". The idea is illustrated by the syntax
@authorlist = split(/, *|,? *\band\b */i,$allauthors);
*except* that the authors may have affiliations in parentheses, and there
may even be nested parentheses, and I don't want to chop the string at
conjunctions that are in parentheses. For example,
$allauthors =
"Joe Blow (William and Mary (math)), John Smith (UC, Berkeley)";
should be split into
@authorlist = (
"Joe Blow (William and Mary (math))",
"John Smith (UC, Berkeley)");
Although it is probably a violation of the database format I could even
see something perverse like
$allauthors = "Joe Blow (UC, Berkeley) (On leave at MIT)"
Of course I know how to do this, in fact I already have done it, but my
code is neither elegant nor efficient. I'd like to revise it so that
it would win the approval of the Strunk and White of Perl. Is there a
known Right way to do this?
If it makes life any easier I am inclined for independent reasons to
translate inner parentheses to brackets, which can be done with the
following reasonably terse syntax:
$save = '([^\)]*)';
while($allauthors =~ s/\($save\($save\)/\($1\[$2\]/g) { }
Please send a copy of your reply by e-mail. Thanks in advance.
--
/\ Greg Kuperberg (UC Davis)
/ \
\ / Visit the xxx Math Archive Front at http://front.math.ucdavis.edu/
\/ * 7446+1509 articles and counting! *
------------------------------
Date: 27 Feb 1999 23:08:42 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: pwd under DOS?!
Message-Id: <7b9ttr$3mv$1@gellyfish.btinternet.com>
On 26 Feb 1999 02:32:53 GMT ran@netgate.net wrote:
> In <36d5b150.3062754@news.urz.uni-heidelberg.de>, bhadjiho@ix.urz.uni-heidelberg.de (Babak Hadji-Hosseini) writes:
>>Hi folks!
>>
>>I've gotta CGI-Script which I would like to run under my Win98-
>>Server, but it unfortunately uses the unix command pwd.
>
> There are ports of many such commands to various flavors of Windoze.
> The cygnus package of GNU ports worked very well for me under NT, and
> 98 might be 32bit-ish enough to support it. If not, there are even
> versions that were done years ago for DOS that you should be able to
> use.
In case anyone might get the wrong idea from this there is a version of
Perl that will run on any MS platform that supports DPMI including Win3.1*
and DOS with the appropriate extender. The djgpp version of Perl is
supported in the current standard distribution if one wishes to compile it
but a binary is also available. Check out <http://www.delorie.com>.
Oh the answer to the question is the 'Cwd' module which is standard.
/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: Sun, 28 Feb 1999 22:37:41 -0500
From: fred222@mauimail.com (George)
Subject: Question about converting newlines to <br> tags
Message-Id: <fred222-ya023580002802992237410001@news.bellatlantic.net>
Greetings! Just learned perl over the Christmas break for fun, and I've
been working on a pretty massive (2,700+ lines) set of scripts to make a
completely dynamic webpage (GUI, font size, display, the works..) It's a
joke site, and I have about 2,000 jokes so far (slightly messed up, but
functional :). My problem is the following: I have an admin module which
can delete and modify jokes (each is its own seperate database file, in
folders which are the names of the categories).. to modify a joke, I read
it in and convert <br> tags into \n newlines by using the following normal
expression:
$joke[3] =~ s/<br>/\n/g;
(the joke file, as a database, is split by |'s. $joke[3] is, therefore,
the fourth bit of the array.. and in this case, is the actual 'joke').
So far, so good. I display the newly-formatted joke in a <textarea> so the
newlines look like, well, newlines. When we press submit, we want to
convert the "\n" newlines back into <br> tags, right? So I do this ($INPUT
is the all-around variable grabber from the ENV CONTENT_LENGTH):
$mod_joke_text = $INPUT{'mod_joke_text'};
$mod_joke_text =~ s/\n/<br>/g;
But this does something odd! It puts <br> tags where I want 'em, but it
seems to leave the newlines in too. Does anyone know what sort of error
I've made? If needs be, I can post bigger parts of the script.
If any responses could also be emailed to me at yurtle@bellatlantic.net, I
would be MOST appreciative! :-)
Best regards,
George Henry
--
Just another hacking head >l-d
------------------------------
Date: Sun, 28 Feb 1999 14:28:29 GMT
From: Gilad Finkelstein <finkelg@cpm.elex.co.il>
Subject: read from stdin
Message-Id: <Pine.HPP.3.96.990228162543.10254A-100000@tlprh12>
simple one:
How do i read an input line to a variable ?
Can i open a file with open(.....) and then replace some strings in the
file( s/// command ) so that the file is rewriten in place ?
Thanks
Gilad Finkelstein
Email: <finkelg@cpm.elex.co.il>
------------------------------
Date: Sun, 28 Feb 1999 17:44:39 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Regex to parse m/d/yy into yyyy-mm-dd
Message-Id: <MPG.114390ddcb706e599896b6@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <nslC2.101$3E1.128925@news.abs.net>, on Sun, 28 Feb 1999
19:47:31 -0500 bwebb@fred.net says...
> Hello, I need to write a regex in perl to parse a date in m/d/yy format to
> yyyy-mm-dd. At first glance it looks simple. I could do something like this:
>
> s/(\d)+\/(\d)+\/(\d)+/$3-$1-$2/g;
>
> and it works if I have a date that looks like 1/1/99. The problem is that I
> need to pad 19 onto 99, or 20 onto dates in the year 2000. Also, I need to
> pad a leading 0 for month and day numbers less that 10.
>
> So I need to write a regex that parses 1/1/99 to 1999-01-01, and 7/12/2001
> to 2001-07-12.
Basic points:
Use parentheses correctly to capture the entire value, not just the last
digit.
Use sprintf do insert the leading zeros when needed.
Do some guessing to resolve century ambiguities.
Minor point:
Use a different regex delimiter to avoid Leaning Toothpick Syndrome.
s!(\d+)/(\d+)/(\d+)!sprintf '%d-%.2d-%.2d',
($3 < 100 && ($3 < 70 ? 2000 : 1900)) + $3, $1, $2!eg;
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sun, 28 Feb 1999 21:31:55 -0600
From: Steven Lembark <lembark@wrkhors.com>
Subject: Re: Regex to parse m/d/yy into yyyy-mm-dd
Message-Id: <36DA0A2B.C6E30DFF@wrkhors.com>
Robert E Webb wrote:
>
> Hello, I need to write a regex in perl to parse a date in m/d/yy format to
> yyyy-mm-dd. At first glance it looks simple. I could do something like this:
>
> #!/usr/bin/perl -p0777
>
> s/(\d)+\/(\d)+\/(\d)+/$3-$1-$2/g;
>
> and it works if I have a date that looks like 1/1/99. The problem is that I
> need to pad 19 onto 99, or 20 onto dates in the year 2000. Also, I need to
> pad a leading 0 for month and day numbers less that 10.
>
> So I need to write a regex that parses 1/1/99 to 1999-01-01, and 7/12/2001
> to 2001-07-12.
>
> My regex and perl experience is limited, so I need some help to accomplish
> this. Any help would be most appreciated.
don't use a regex. use one of the date packages and add 1900 to
the year as necessary. result is that you can shove just about
any standard format in and get Y2K clean results out.
if you're determined to use regex's then look up the zero-width
look behind. that way you can treat numbers follwing '19' and
'20' differently. you can also use `split' if the values are
always digits. simply add 1900 to the year number if it's less
than 100 to get a 4-digit year and sprintf the result, e.g.,
my ( $m, $d, $y ) = split /\D/, $date;
$y += 1900 if $y < 100;
sprintf "%4d-%02d-%02d", $y, $m, $d;
--
Steven Lembark 2930 W. Palmer St.
Workhorse Computing Chicago, IL 60647
lembark@wrkhors.com 800-762-1582
---------------------------------------------------------------------
The opinions expressed here are those of this company.
I am the company.
---------------------------------------------------------------------
------------------------------
Date: Sat, 27 Feb 1999 19:45:09 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: regular expression: some confusion with "*"
Message-Id: <36D84D2A.9FFE8FA1@home.com>
[posted & mailed]
Zhiliang Hu wrote:
>
> I want to get rid of a block of text between two lines of "*********".
$ perl -ne 'print unless /\*{9}/ ... /\*{9}/' file_with > file_without
Look up Range Operators in perlop.
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: 01 Mar 1999 11:14:31 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: replace { with space
Message-Id: <m390dhkx08.fsf@joshua.panix.com>
Eric Bohlman <ebohlman@netcom.com> writes:
> Sheila Eugenio <seugenio@man.amis.com> wrote:
> : How can I replace any occurrence of the left bracket with a white space? I
> : did the following comparison:
> : $newsubtype = ~ s/[{]/ /g;
> : and everytime i print ("$newsubtype\n"); it replaces { with 4294967295.
>
> An = followed by whitespace followed by ~ is an assignment of a bitwise
> complement. An = followed *immediately* by ~ is a pattern-match binding,
> which is what you want. Take out your stray space.
I'll add to EB's comments the fact that if you're simply replacing one
character with another, then a regular expression is inefficient
relative to the tr operator.
$newsubtype =~ tr/{/ /;
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: 28 Feb 1999 03:34:54 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: Runing a perl script on one WEB Server and Writing a file on another Web Server ??
Message-Id: <7badgu$46j$1@gellyfish.btinternet.com>
On Sat, 27 Feb 1999 03:08:57 +0100 Werns wrote:
> Cristovao Morgado wrote:
>>
>> Is it possible to execute a perl script on a web server A and to write the
>> results of the script on a file on web server B , instead of writing it on
>> the same server where the script was executed ??
>
> Yes.
>
> Maybe you don't have to talk about webserver A and webserver B. How
> would you do it if you had to do it by hand ? Via ftp ? -> Net::FTP.
>
Or via NFS or some SMB share, rcp or whatever - I dont even think that its
a CGI question rather than one of actually understanding ones operating
environment.
man -k share
/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: 28 Feb 1999 01:42:22 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: running commands on a remote host
Message-Id: <7ba6tu$3vf$1@gellyfish.btinternet.com>
On Thu, 25 Feb 1999 17:31:19 +0000 Michael Renshaw wrote:
> can anyone think of a neater way to emulate running
> a command remotely.....
>
> system("rsh hostname prog arg0 arg1");
>
You might examine one of :
Net::Telnet
Net::Rexec
To see if they might suit your purpose.
/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: Mon, 1 Mar 1999 09:47:42 -0700
From: "gip" <gibsonc@aztec.asu.edu>
Subject: Searching Web Pages and an Intranet Newsgroup
Message-Id: <7beg44$mj6@bmw.hwcae.az.Honeywell.COM>
Can a Perl search engine (on an NT workstation) search both a tree of web
pages, and an Intranet newsgroup on the same server?
I'd like to see the source, if possible.
Tanks,
gip_123@yahoo.com
------------------------------
Date: 27 Feb 1999 20:43:59 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: sendmail doesn't work
Message-Id: <7b9lef$3ls$1@gellyfish.btinternet.com>
On Sat, 27 Feb 1999 19:50:09 +0100 Philip Class wrote:
> Subject: sendmail doesn't work
>
> I'm running a Web on a NT-Server.
> The admin has installed a email-handling Perl Prg, that uses a sendmail
> Program located at
> /usr/bin/sendmail .
But of course one wouldnt rely on the presence of sendmail on NT - there
is a free NT port of it available from MS but I couldnt tell you the URL
You might be better off looking at one of the Mail::* modules as described
in perlfaq9.
/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: 28 Feb 1999 02:53:18 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: Serial port comm with perl?
Message-Id: <7bab2u$45u$1@gellyfish.btinternet.com>
On Thu, 25 Feb 1999 07:05:45 +0000 Jay Jacobs wrote:
> I've been doing some looking around on using perl to communicate with
> the serial port... not much luck. I've found one example that just does
> a simple:
>
This is covered in perlfaq8:
=head2 How do I read and write the serial port?
This depends on which operating system your program is running on. In
the case of Unix, the serial ports will be accessible through files in
/dev; on other systems, the devices names will doubtless differ.
Several problem areas common to all device interaction are the
following
etc etc ...
Basically it is as you suspect but with one or two caveats.
/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: Sun, 28 Feb 1999 21:05:31 -0500
From: elaine@cts.wustl.edu
Subject: Re: Server Upgrade Causes Broken Cookie Code
Message-Id: <36D9F5EB.2F853BF7@cts.wustl.edu>
andre_sanchez@my-dejanews.com wrote:
> Originally I had was using cgi.pm (see sample code below), and the code still
> worked on certain browsers, namely Netscape 4. However, it no longer worked
> for IE 4 and Netscape 3 browsers. The new code issues the cookie in a more
> primitive way, and works for the all the above mentioned browsers.
This has nothing to do with Perl...but, I'll offer a tidbit since I've
seen this behaviour before. Have the ISP have a look at the server
configuration and check the certs they are using. The same thing
happened to me when I upgraded a server and spent much time tracking
down why certain browsers couldn't access the site correctly. It turned
out to be a bug with the browsers. This can be fixed by changing the
certs the server offers. I'm not sure if this is the same thing you are
experiencing, but it sounds very similar.
Enjoy.
e.
------------------------------
Date: Sun, 28 Feb 1999 09:59:23 -0500
From: "Walter Becker" <ewolf@ix.netcom.com>
Subject: sorting a hash on it's values
Message-Id: <7bbll5$p9h@dfw-ixnews5.ix.netcom.com>
Can someone tell me how I can sort a hash on it's
values, not the keys ?
Assume a hash like: $students{$grades}
and I want to print it out in a decending
list sorted by $grades.
I'm familiar with the hash sort of the type:
foreach $student ( sort( keys(%students))) }
print "$student : $students{$student}
}
But this sorts on student names not the grades
as I'm after.
Any advice would be appreciated.
-eric
------------------------------
Date: Sun, 28 Feb 1999 15:18:21 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: sorting a hash on it's values
Message-Id: <36D96025.37B4297E@home.com>
[posted & mailed]
Walter Becker wrote:
>
> Can someone tell me how I can sort a hash on it's
> values, not the keys ?
This is a FAQ.
How do I sort a hash (optionally by value instead of key)?
perldoc perlfaq4
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Sat, 27 Feb 1999 17:06:38 -0500
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: sorting info from data files
Message-Id: <x3yn21zpklt.fsf@tigre.matrox.com>
droby@copyright.com writes:
>
> In article <x3yyalncuk7.fsf@tigre.matrox.com>,
> Ala Qumsieh <aqumsieh@matrox.com> wrote:
> >
> > Warning: untested code
> >
>
> Why? How much longer would it take to test it. You might even find the
> missing toothpick.
I was replying from home, were I don't have Perl properly set up. I
usually test my code (after getting bitten a few times), and if I
don't, I would say so.
> > @ar = split /|/;
>
> @ar = split /\|/;
Typo :-) Although I have went over the script again, I couldn't catch
that one.
> > for my $key (sort { $hash{$a}{app} <=> $hash{$b}{app} } keys %hash) {
> > print "$key - $hash{$key}{app} - $hash{$key}{credits}\n";
> > }
> >
>
> The sort order is also reversed from his example, so maybe you should have
> switched $a and $b.
I thought I did have them reversed and considered replying to my own
posting to correct it. But I thought it was easy enough for the
original poster to modify it according to his needs. No big deal.
Ala
------------------------------
Date: 27 Feb 1999 11:29:50 -0800
From: ozzello@best.com (Jennifer Ozzello)
Subject: Splice question from Newbie
Message-Id: <7b9h3e$8je$1@shell9.ba.best.com>
Hey all,
I'm sort of new at this and I've encountered a problem. I've created an
array of hashes that I want to delete an element of when I pass a certain
criteria. I'm having trouble getting the first element deleted. Both
splice(@array,0,1) and splice(@array,1,1) do the same thing and this also
matches the behavior of shift(@array). In all cases I get the 2nd element
of the array not the first. Is there something obvious I'm missing?
Thanks,
Jennifer
------------------------------
Date: Sat, 27 Feb 1999 17:00:04 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Splice question from Newbie
Message-Id: <1dnw9h3.t93r4rhp1jzN@bay1-409.quincy.ziplink.net>
Jennifer Ozzello <ozzello@best.com> wrote:
> I'm sort of new at this and I've encountered a problem. I've created an
> array of hashes that I want to delete an element of when I pass a certain
> criteria. I'm having trouble getting the first element deleted. Both
> splice(@array,0,1) and splice(@array,1,1) do the same thing and this also
> matches the behavior of shift(@array). In all cases I get the 2nd element
> of the array not the first. Is there something obvious I'm missing?
Well, there's something obvious we're missing: the actual code you are
using. It's hard to debug code we can't see.
splice(@array, 0, 1)
removes the first element from the array, then returns that element.
This is the same as shift(@array).
splice(@array, 1, 1)
removes the second element from the array, then returns that element.
This is not the same as shift(@array).
You said this was an array of hashes. My guess is that when you
populate the array, you mistakenly create each element as a reference to
the same hash. Can't be sure, though... :-)
--
chipmunk (Ronald J Kimball) <rjk@linguist.dartmouth.edu>
perl -e 'print map chop, sort split shift, reverse shift
' 'j_' 'e._jP;_jr/_je=_jk{_jn*_j &_j :_j @_jr}_ja)_js$_j
~_jh]_jt,_jo+_jJ"_jr>_ju#_jt%_jl?_ja^_jc`_jh-_je|' -rjk-
------------------------------
Date: 27 Feb 1999 14:30:43 -0800
From: ozzello@best.com (Jennifer Ozzello)
Subject: Re: Splice question from Newbie
Message-Id: <7b9rmj$jcq$1@shell9.ba.best.com>
In article <1dnw9h3.t93r4rhp1jzN@bay1-409.quincy.ziplink.net>,
Ronald J Kimball <rjk@linguist.dartmouth.edu> wrote:
>Jennifer Ozzello <ozzello@best.com> wrote:
>
>> I'm sort of new at this and I've encountered a problem. I've created an
>> array of hashes that I want to delete an element of when I pass a certain
>> criteria. I'm having trouble getting the first element deleted. Both
>> splice(@array,0,1) and splice(@array,1,1) do the same thing and this also
>> matches the behavior of shift(@array). In all cases I get the 2nd element
>> of the array not the first. Is there something obvious I'm missing?
>
>Well, there's something obvious we're missing: the actual code you are
>using. It's hard to debug code we can't see.
>
I read in the values for the array in a subroutine like so:
@array is defined as global in the main loop.
In the main loop I look for a match and try to delete that element
the array.
I've debugged by printing out the entire array before and after the
splice call and determined that when $i=0 it deletes the 2nd element
not the first. When I saw this I replaced the splice call with a shift
call and also got the 2nd element instead of the first.
sub read_hash() {
open (FILE,"hash");
while (<FILE>) { push @array, { split /[\s=]+/}; }
close FILE;
return();
}
#in the main loop
$i=0;
for (@array) {
if ( $test eq $_->{Close} ) {
for $href ( keys %$_ )
{ print "$href=$_->{$href} "} #prints matched hash
splice(@array, $i, 1); #deletes matched hash
} #end if
$i++;
} #end for
>
>splice(@array, 0, 1)
>removes the first element from the array, then returns that element.
>This is the same as shift(@array).
>
>splice(@array, 1, 1)
>removes the second element from the array, then returns that element.
>This is not the same as shift(@array).
>
>
>You said this was an array of hashes. My guess is that when you
>populate the array, you mistakenly create each element as a reference to
>the same hash. Can't be sure, though... :-)
>
>--
>chipmunk (Ronald J Kimball) <rjk@linguist.dartmouth.edu>
>perl -e 'print map chop, sort split shift, reverse shift
>' 'j_' 'e._jP;_jr/_je=_jk{_jn*_j &_j :_j @_jr}_ja)_js$_j
>~_jh]_jt,_jo+_jJ"_jr>_ju#_jt%_jl?_ja^_jc`_jh-_je|' -rjk-
------------------------------
Date: Sat, 27 Feb 1999 23:07:41 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Splice question from Newbie
Message-Id: <36D87CA8.1E84EAEE@home.com>
[posted & mailed]
Jennifer Ozzello wrote:
>
> $i=0;
> for (@array) {
> if ( $test eq $_->{Close} ) {
> for $href ( keys %$_ )
> { print "$href=$_->{$href} "} #prints matched hash
> splice(@array, $i, 1); #deletes matched hash
>
> } #end if
> $i++;
> } #end for
>
$i will not correspond to the correct element of @array more than once,
since every time you splice out an element, you are changing the size of
@array. You will also end up skipping elements since everything will
get shifted down one element with respect to foreach's iterator.
To filter items from an array, use grep.
@array = grep $test ne $_->{Close}, @array;
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: 01 Mar 1999 11:59:24 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: Greg Bacon <gbacon@cs.uah.edu>
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <m3r9r9jgcz.fsf@joshua.panix.com>
Greg Bacon <gbacon@cs.uah.edu> writes:
> Top 10 Threads by OCR (minimum of five posts)
> ==============================================
>
> (kb) (kb)
> OCR orig / body Posts Subject
> ----- -------------- ----- -------
>
> 0.945 ( 11.1/ 11.7) 5 Statistics for comp.lang.perl.misc
Hey, no fair!
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: 27 Feb 1999 23:30:00 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: Strange behavior
Message-Id: <7b9v5o$3nl$1@gellyfish.btinternet.com>
On Fri, 26 Feb 1999 21:41:44 GMT Jalil Feghhi wrote:
> I firs open a file using this sub:
>
> sub OpenConfFile{
> ($CnfFile) = @_;
> open (CONFIGFH, $CnfFile) or LogError "Cannot open file $CnfFile: $!";
> }
>
Just a quick bit of pedantry:
>From perlstyle:
7 While short identifiers like $gotit are probably ok,
use underscores to separate words. It is generally
easier to read $var_names_like_this than
$VarNamesLikeThis, especially for non-native speakers
of English. It's also a simple rule that works consistently
with VAR_NAMES_LIKE_THIS.
/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: 01 Mar 1999 11:32:12 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: Test file
Message-Id: <m31zj9kw6r.fsf@joshua.panix.com>
"Marc-Oliver Ihm" <ihm@allgemeine-kredit.de> writes:
> -e "Filename"
> will evaluate to true, if "Filename" exists.
> Other options for testing files can be found through "man perlfunc"
You'll want to search for `-x', which is non-obvious.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Sat, 27 Feb 1999 16:59:54 -0500
From: "Allan M. Due" <Allan@Due.net>
Subject: Re: The dumbest newbie question ever..?
Message-Id: <2WZB2.52$EU1.1479@nntp1.nac.net>
Andrew M. Langmead wrote in message ...
:lr@hpl.hp.com (Larry Rosler) writes:
:
:>By using the misbegotten command interpreter supplied by default with
:>Windows/DOS systems. A single-quote is not recognized as an argument
:>delimiter -- it must be a double-quote. Try the following, and all will
:>be well:
:
:> perl -e "print \"Hello, World\n\";'
:
:That doesn't work under MS-DOS either. Double quotes can't be escaped
:with backslashes. (Or more accurately, can't be escaped.)
:
Well, it sure works on my system ( Activestate 5.005_02.)
The only thing Larry did wrong was that trailing single quote. It should
have read:
perl -e "print \"Hello, World\n\";"
I am sure the version he tested worked. ;-)
AmD
------------------------------
Date: Sat, 27 Feb 1999 14:18:45 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: The dumbest newbie question ever..?
Message-Id: <MPG.11420f227b0c0c329896a8@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <F7tts4.IB1@world.std.com>, on Sat, 27 Feb 1999 18:52:52 GMT
aml@world.std.com says...
> lr@hpl.hp.com (Larry Rosler) writes:
>
> >By using the misbegotten command interpreter supplied by default with
> >Windows/DOS systems. A single-quote is not recognized as an argument
> >delimiter -- it must be a double-quote. Try the following, and all will
> >be well:
>
> > perl -e "print \"Hello, World\n\";'
>
> That doesn't work under MS-DOS either. Double quotes can't be escaped
> with backslashes. (Or more accurately, can't be escaped.)
As I try to do whenever it's relatively easy, I *did* test that before
posting it (without the misprint of the final single-quote instead of
double-quote, of course). Can you support your assertion that it
doesn't work???
Microsoft(R) Windows 95
(C)Copyright Microsoft Corp 1981-1996.
C:\WINDOWS>perl -e "print \"Hello, World\n\""
Hello, World
C:\WINDOWS>set
...
COMSPEC=C:\WINDOWS\COMMAND.COM
...
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 27 Feb 1999 20:48:52 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: The dumbest newbie question ever..?
Message-Id: <7b9lnk$3lv$1@gellyfish.btinternet.com>
On 27 Feb 1999 16:39:36 GMT Jeff Stampes wrote:
>
> Sure, unless your using some crippled, lame command shell...which
> since you're using Win95 and the standard cmd.exe, you are. In your
> world:
>
Lest anyone should get confused by this - one has cmd.exe under NT and
the (possibly changed) MS-DOS command.com under Win95. But of course
this has nothing to do with Perl ...
/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: Sun, 28 Feb 1999 22:41:43 -0500
From: "Matthew O. Persico" <mpersico@erols.com>
Subject: Re: The dumbest newbie question ever..?
Message-Id: <36DA0C77.42D34B5C@erols.com>
coyote38 wrote:
> The O'Reilly books are really the finest books on Perl (or almost
> any other computer language, for that matter).
However, they often assume (especially the older editions) that you are
using a OS that is not flat-line. Not that there is anything WRONG with
trying to bring up the standards of the world; you just have to know
that before you get in.
O'Reilly does publish a Learning Perl on Win32 book. Go
http://www.oreilly.com and have fun. Or amazon.com, probably cheaper.
--
Matthew O. Persico
http://www.erols.com/mpersico
http://www.digistar.com/bzip2
------------------------------
Date: Mon, 01 Mar 1999 17:04:00 +0100
From: Ian Wild <ian@cfmu.eurocontrol.be>
Subject: Re: The truth about the Pentium III chip and ID --- **boycott info**
Message-Id: <36DABA70.912168CD@cfmu.eurocontrol.be>
JoHn DoH wrote:
>
> I beg to differ but MAC addressess are not made for spying on us they
> are for network location and such. No on knows that I own a certain
> MAC address (unlike Intel that wants you to register after getting the
> PIII). I think it is a bad move on intel's part but those that accept
> it are doomed to get shafted. Your ass not mine (I will keep my PI any
> day running). Sorry for the crossposting just got a little annoyed and
> wanted it to be righted in all places of being.
For all but one of the newgroups listed, the obvious
answer is to look to the sources.
If I suspect, say, Netscape of sending information
I don't want published it's a simple matter to
check the code and see if it's using some
mysterious Intel-specific instructions.
Of course, the fact that I /can/ do this means
I really don't have to, 'cos I trust a near
infinite number of better-qualified trainspotters
to have done it already.
Ah - the security of open source software.
------------------------------
Date: 28 Feb 1999 02:16:11 GMT
From: "EvaDooRs" <EvaDooRs@netzero.net>
Subject: This Hostname/IP Convert script is not working
Message-Id: <01be62c2$fb56cda0$2cb5edcc@ed>
Could someone please help me out here I'm trying to get the script to
display both my hostname and IP when its ran....here is the script
#!/usr/bin/perl
use socket;
use Net::hostent;
$name = shift;
if ($hent = gethostbyname($name)) {
$name = $hent->name;
$addr_ref = $hent->addr_list;
@addresses = map {inet_ntoa($_) } @$addr_ref;
}
print "$name=>@addresses\n";
ThanX for your help in advance and if possible please send messege to both
the newsgroup and my address at evadoors@netzero.net
--
-=EvaDooRs=-
evadoors@netzero.net
"Please use Ed"
------------------------------
Date: 28 Feb 1999 03:06:55 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: This Hostname/IP Convert script is not working
Message-Id: <slrn7dhcmf.rbh.sholden@pgrad.cs.usyd.edu.au>
On 28 Feb 1999 02:16:11 GMT, EvaDooRs <EvaDooRs@netzero.net> wrote:
>Could someone please help me out here I'm trying to get the script to
>display both my hostname and IP when its ran....here is the script
<snip code>
If you give a bit of information as too how it doesn't work then someone might
be able to help you.
A solution would be to read the error message that perl gives and
rectify it. A simple press of the ~ key should fix it assuming you
are using vi, if not use whatever key your editor uses.
--
Sam
People get annoyed when you try to debug them.
--Larry Wall
------------------------------
Date: 28 Feb 1999 09:23:18 -0500
From: clay@panix.com (Clay Irving)
Subject: Re: Urgent: Help: limit to string size, or...?
Message-Id: <slrn7dikal.nn0.clay@panix.com>
On Sun, 28 Feb 1999 14:18:43 +0100, soli <soli@pc-szoftver.mgx.hu> wrote:
>I try to write a perl prog which sends its output as a mail to the admin
>(to me:)).
>The mail should be a html mail. It's ok. I use "sendmail-lib.pm". I pass
>the whole
>html file as the "messagebody" string to "real_send_mail" func. I made
>some work
>in sendmail.pm: "Content-type:text/html"..... If I write my $htmlbody
>variable to a
>html file, it's ok, it looks fine:)
>BUT when I try to send it, only a random part of it appears in my
>mailprog (pegasus,
>NSmessenger). The html property of the mail is ok, but is not the whole
>text I need.
>The $htmlbody is 88KB. I think, there can't be a silly memory limit with
>this, but then,
>what is the problem (and solution) here?
>
>It is very urgent: I should install this prog until March01 (tomorrow)!
>My boss, you know...
>
>[If you have an answer, please send replies to my address, too]
You have an error at line 17.
Seriously, how can someone help you without looking at your code. Post
it.
--
Clay Irving <clay@panix.com>
Don't confuse me with facts, my mind's already made up!
------------------------------
Date: 28 Feb 1999 03:30:22 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: URL Redirect based on REMOTE_HOST - Help Needed
Message-Id: <7bad8e$46g$1@gellyfish.btinternet.com>
On Thu, 25 Feb 1999 02:05:02 -0000 Mig wrote:
> Help! I'm looking for a script that I can integrate into a standard image
> link, that will re-direct a user to a URL based on the 'tail-end' of the
> REMOTE_HOST enviornmental variable.
> Purpose? Our company is in 2 worldwide locations, and I want users when they
> click on our banner (or a link) to be redirected to a website based on
> whether they are *.uk (to our uk site) or *.anythingelse (to our US site).
if you are using the CGI.pm module (as recommended by nine out of ten of
top Perl breeders) then you should be able to use the remote_host() method
to determine this - but there are some caveats:
A) this may be returned as a hostname *or an IP number* and of course if
you are given an IP number then you will need to be able to do a host
lookup to achieve this.
B) Using a TLD to determine location is not infallible - I for instance
am in the UK but this is posted from a .com address and the same
would go at work where I am at a .net address.
But given that you probably want to do something like:
use CGI (:standard);
$rhost = remote_host();
if ( $rhost =~ /uk$/ )
{
print redirect('http://blah.blag/');
}
else
{
print redirect('http://eeh.blah.woof/');
}
etc ...
/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: Sat, 27 Feb 1999 12:00:42 -0800
From: moseley@best.com (Bill Moseley)
Subject: Re: Using a glob with sort
Message-Id: <MPG.1141eea7df9072b99896c4@206.184.139.132>
In article <F7tBLG.JBw@world.std.com>, Andrew Langmead says...
> {
> local(*sub_sort);
> die "Invalid sort criteria\n" unless exists $sortroutines{$sortby};
> *sub_sort = $sortroutines{$sortby};
> @sorted = sort sort_sub keys %students;
> }
Why the enclosing braces? This is already in a subroutine so the scope
is not very big (long?).
Another question which shows my lack of experience: how is it that I can
use 'sub_sort' under use strict without use vars? sub_sort is a package
var, well the glob for all the package vars named sub_sort, right?
And now for the masses to pick apart, here's what I ended up with. BTW
it is a small amount of day that I'm sorting (< 100).
my %sort_lookup;
$sortby = 'Date' unless $sortby =~ /^(Date|Status|Name)$/;
foreach my $key ( keys %students ) {
# load record structure from DBM
unless (load_hash_record( $Student_Rec, $key )) {
$sort_lookup{$key}{1} = 0;
$sort_lookup{$key}{2} = 0;
next;
}
# build the sort hash -- hey I should be using [1] not {1}
SWITCH: for ( $sortby ) {
/Date/
&& do {
$sort_lookup{$key}{1} = $Student_Rec->{register_time};
$sort_lookup{$key}{2} = 0; # don't care if same
last SWITCH;
};
/Status/
&& do {
$sort_lookup{$key}{1} =
$status_sort[$Student_Rec->{status}];
$sort_lookup{$key}{2} =
$Student_Rec->{register_time};
last SWITCH;
};
/Name/ # why not just concat here and use one cmp?
&& do {
$sort_lookup{$key}{1} = lc( $Student_Rec->{last_name} );
$sort_lookup{$key}{2} = lc( $Student_Rec->{first_name} );
last SWITCH;
};
}
}
my %sort_routines = (
Date => sub { $sort_lookup{$a}{1} <=> $sort_lookup{$b}{1} },
Status => sub { $sort_lookup{$a}{1} <=> $sort_lookup{$b}{1} or
$sort_lookup{$a}{1} <=> $sort_lookup{$b}{1} },
Name => sub { $sort_lookup{$a}{1} cmp $sort_lookup{$b}{1} or
$sort_lookup{$a}{1} cmp $sort_lookup{$b}{1} },
);
local( *sub_sort ) = $sort_routines{ $sortby };
foreach ( sort sub_sort keys %students ) { [...] }
--
Bill Moseley mailto:moseley@best.com
------------------------------
Date: 01 Mar 1999 11:49:40 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: "Juho Cederstrvm" <cederstrom@kolumbus.fi>
Subject: Re: Why isn't this a race condition ?
Message-Id: <m3u2w5jgt7.fsf@joshua.panix.com>
"Juho Cederstrvm" <cederstrom@removethis.kolumbus.fi> writes:
> The question wasn't "How can I lock a file", it was "why does this
> lock a file". And FAQ doesn't answer the second question.
I'd *still* turn the question around and say "why doesn't it lock a
file?" Can you demonstrate how the algorithm in question might fail?
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
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 5018
**************************************
