[16581] in Perl-Users-Digest
Perl-Users Digest, Issue: 3993 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Aug 11 21:06:19 2000
Date: Fri, 11 Aug 2000 18:05:19 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <966042318-v9-i3993@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 11 Aug 2000 Volume: 9 Number: 3993
Today's topics:
Dynamic Hash and variable declaration?? stimpiton@my-deja.com
Re: ecologically printed perldocs (Abigail)
Re: ecologically printed perldocs ()
Error message when make perl <jlei@nortelnetworks.com>
Re: Hashes of Hashes of Hashes of Hashes.... <pfau@maherterminals.com>
HELP - string permutations in perl kassaal@my-deja.com
Re: How to replace the newline in perl? (Tony L. Svanstrom)
Re: IO::Socket problem (David Efflandt)
Re: Is "close()" really necesary? (Abigail)
Re: Large-File Reformatting Problem (Regexp gurus, et a (Abigail)
Re: London =?iso-8859-1?Q?=A330-35K?= Perl Programmers (Steve Leibel)
Re: Negativity in Newsgroup (Steve Leibel)
Re: Negativity in Newsgroup <care227@attglobal.net>
Re: Negativity in Newsgroup <flavell@mail.cern.ch>
Re: Negativity in Newsgroup <mauldin@netstorm.net>
open, close dial-up connexion under Win32 <gorbeast@SPAMSUCKS.subduction.org>
Re: Perl code for a newbie!! <christopher_j@uswest.net>
Re: Perl code for a newbie!! <bart.lateur@skynet.be>
perl script ujwal@my-deja.com
Re: Posting to an secure server <christopher_j@uswest.net>
Re: Problems with adding 1 (Alan Barclay)
Re: Regexp help, escaping characters <dethtoll@yahoo.com>
Send input to a command line program Hendrik.Holtmann@pmnet.uni-oldenburg.de
Re: Sending back HTTP info before script ends...... <christopher_j@uswest.net>
setting cookie twice in same script <johndoyle33@hotmail.com>
Re: Trouble with example <stampes@xilinx.com>
Re: Trouble with example (Richard J. Rauenzahn)
Re: truncate var spaces <bart.lateur@skynet.be>
Re: Uploading Images <stumo@bigfoot.com>
Re: Were are all the executibles? (Tony L. Svanstrom)
Re: What is "pack()" used for? <bart.lateur@skynet.be>
Re: What is "pack()" used for? <lr@hpl.hp.com>
where can find the document about how to install perl <jlei@nortelnetworks.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 11 Aug 2000 23:12:27 GMT
From: stimpiton@my-deja.com
Subject: Dynamic Hash and variable declaration??
Message-Id: <8n218p$cof$1@nnrp1.deja.com>
Is it possible to declare hashes and variables on the fly in a perl
program?
I am reading a config file that is like so:
Key[hash] value
Key2[hash] value
Key[hash2] value
Key2[hash2] value
...
I don't know how many hashes will be in the file since it can vary.
What I want to do in psudo code:
while (<FILE>)
{
split into $key $hash and $value
put $value into $hash (that has not been declared and is not named
hash)
}
For example:
Key[junk] 1
Key2[junk] 5
Key[junk] 3
Key2[junk2] 4
would make two hashes (one junk and one junk2) and the keys would be
Key and Key2 and the values of each the value.
I tried something like
$hash{$key} = $value
hoping it would translate into something like $junk{Key} = 1 but it
doesn't.
Is this possible?
How do I access it if so?
Thanks
Cade
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 11 Aug 2000 22:59:38 GMT
From: abigail@foad.org (Abigail)
Subject: Re: ecologically printed perldocs
Message-Id: <slrn8p919r.cro.abigail@alexandra.foad.org>
Greg Bacon (gbacon@HiWAAY.net) wrote on MMDXXXV September MCMXCIII in
<URL:news:sp3flibnn4t169@corp.supernews.com>:
)) In article <8msclo$2vv$1@news.news-service.com>,
)) Brendon Caligari <bcaligari@shipreg.com> wrote:
))
)) : Haven't found 'cheaply available' printouts of the docs. [...]
))
)) Buy a cheap laptop, install Linux, install Perl, and carry it to the
)) bathroom with you. :-)
I wonder if there would be a market for bathroom tiles with an entry of
the FAQ on each tile....
)) : [...] However, given the 'love' many here express towards their
)) : perlfaqs i'm surprised they haven't been binded in leather and sold on
)) : amazon under the 'religious titles'.
))
)) You can't grep dead trees.
Grep is a poor substitute for a good index. Except that you can do cross
references in an index, while that's hard for grep. Take for instance
The Art of Computer Programming. No sane mind would want to replace its
index with grep.
Abigail
--
sub f{sprintf$_[0],$_[1],$_[2]}print f('%c%s',74,f('%c%s',117,f('%c%s',115,f(
'%c%s',116,f('%c%s',32,f('%c%s',97,f('%c%s',0x6e,f('%c%s',111,f('%c%s',116,f(
'%c%s',104,f('%c%s',0x65,f('%c%s',114,f('%c%s',32,f('%c%s',80,f('%c%s',101,f(
'%c%s',114,f('%c%s',0x6c,f('%c%s',32,f('%c%s',0x48,f('%c%s',97,f('%c%s',99,f(
'%c%s',107,f('%c%s',101,f('%c%s',114,f('%c%s',10,)))))))))))))))))))))))))
------------------------------
Date: Sat, 12 Aug 2000 00:35:39 GMT
From: sjs@yorku.ca ()
Subject: Re: ecologically printed perldocs
Message-Id: <slrn8p96ts.14a.sjs@john.sympatico.ca>
Abigail <abigail@foad.org> wrote:
>Greg Bacon (gbacon@HiWAAY.net) wrote on MMDXXXV September MCMXCIII in
><URL:news:sp3flibnn4t169@corp.supernews.com>:
>)) In article <8msclo$2vv$1@news.news-service.com>,
>)) Brendon Caligari <bcaligari@shipreg.com> wrote:
>))
>)) : Haven't found 'cheaply available' printouts of the docs. [...]
>))
>)) Buy a cheap laptop, install Linux, install Perl, and carry it to the
>)) bathroom with you. :-)
>
>I wonder if there would be a market for bathroom tiles with an entry of
>the FAQ on each tile....
I'm not intrerested in that--too much effort to set up--but I would
buy perlfaq-embroidered toilet tissue. I wouldn't need to take a
book with me--I could just rtfm!
The scary thing is that I'm serious--I really would buy this.
I need to get out more.
Steve
------------------------------
Date: Fri, 11 Aug 2000 15:09:33 -0700
From: "Jerry Lei" <jlei@nortelnetworks.com>
Subject: Error message when make perl
Message-Id: <8n1tig$fft$1@bcrkh13.ca.nortel.com>
Hi,
I try to install perl on the solaris2.6.
After I download the latest perl and configure.gnu.
I try to make the perl. But I got an error message
/usr/include/sys/model.h:32: #error "No DATAMODEL_DATIVE specified"
*** error code 1
make: Fatal error: Command failed for target `miniperlmain.o`
I am wondering whether the configure is wrong or something else I should
notice cause this problem.
Appreciate any suggestion.
Lei
------------------------------
Date: Fri, 11 Aug 2000 15:31:34 -0400
From: Thomas Pfau <pfau@maherterminals.com>
Subject: Re: Hashes of Hashes of Hashes of Hashes....
Message-Id: <39945496.E2914FA3@maherterminals.com>
Gabe wrote:
>
> What I have is a table with message ids and parent ids. A parent id is the
> message id of the message the current record is a reply to. Root messages
> have a parent id of "0". So you can see I'm trying to construct a tree of
> messages. I want to eventually print that tree out. So I figured I have to
> first store everything in some structure like a hash of a hash of
> hashreferences, and then somehow iterate over each strand printing them out
> as we go. Problem is I don't know how since I'm just starting to get my head
> around references.
>
> So, how do I print a threaded conversation like that?
>
> I don't really have any code yet, I don't know really how to begin, I have:
>
> my $pid = '0';
> my $parents = $dbh->prepare(qq{SELECT mid FROM messages WHERE pid =
> '$pid'});
> $parents->execute;
>
> while (my $mid = $parents->fetchrow_array) {
> # now I want to print $mid, test if $mid is a parent, print it's children,
> # test if its children are parents, print their children and on and on
> }
Are you looking for a heirarchical join maybe?
select * from messages
start with pid=0
connect by prior mid=pid
--
Thomas Pfau
pfau@maherterminals.com
aka pfau@eclipse.net
http://www.eclipse.net/~pfau/
------------------------------
Date: Fri, 11 Aug 2000 21:55:23 GMT
From: kassaal@my-deja.com
Subject: HELP - string permutations in perl
Message-Id: <8n1soa$9fr$1@nnrp1.deja.com>
I am working on a project that requires me to
create fixed length strings
(8 -16 characters). Each character can be
(A,C,G,U). That probably perked
up the ear of a biologist or two. I need to
generate every permutation of
(A,C,G,U) for each length of each string.
Basically, I want to create all
permutations of strings which are between 8 and
16 characters in length and
only consisting of the 4 characters I specified.
I can't seem to come up
with an elegant solution. I also can't fine a
module that can do what I
want. I think the solution involves a bunch on
nested for loops, but I am
pretty stumped on this one. Any help would
greatly be appreciated.
Please respond via e-mail. Thanks,
Altaf Kassam
email - kassaal(at)about.com
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sat, 12 Aug 2000 01:18:05 +0200
From: tony@svanstrom.com (Tony L. Svanstrom)
Subject: Re: How to replace the newline in perl?
Message-Id: <1ef88w4.8iyqkmo3vtd4N%tony@svanstrom.com>
<coughlan@gothaminteractive.com> wrote:
> Hi, I'm trying to parse an excel spreadsheet, but I'm having trouble
> because the data contains newlines. That makes it more complex that it
> seems.
How about...
s/PATTERN/REPLACEMENT/egimosx
Options are:
e Evaluate the right side as an expression.
g Replace globally, i.e., all occurrences.
i Do case-insensitive pattern matching.
m Treat string as multiple lines.
o Compile pattern only once.
s Treat string as single line.
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
x Use extended regular expressions.
/Tony
--
/\___/\ Who would you like to read your messages today? /\___/\
\_@ @_/ Protect your privacy: <http://www.pgpi.com/> \_@ @_/
--oOO-(_)-OOo---------------------------------------------oOO-(_)-OOo--
DSS: 0x9363F1DB, Fp: 6EA2 618F 6D21 91D3 2D82 78A6 647F F247 9363 F1DB
---ôôô---ôôô-----------------------------------------------ôôô---ôôô---
\O/ \O/ ©1999 <http://www.svanstrom.com/?ref=news> \O/ \O/
------------------------------
Date: Sat, 12 Aug 2000 00:55:21 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: IO::Socket problem
Message-Id: <slrn8p983g.bk1.efflandt@efflandt.xnet.com>
On Fri, 11 Aug 2000 03:42:20 -0700, Baris <sumengen@hotelspectra.com> wrote:
>I am creating a socket connection using IO::Socket
>
> $socket = IO::Socket::INET->new(PeerAddr => "www.yahoo.com",
> PeerPort => 80,
> Proto => "tcp",
> Type => SOCK_STREAM,
> )
>
>Now I want to access the url information at another place of my program.
>Following the documentation, I only was able to access the remote ip address
>using:
>$socket->peerhost
>method. But ip addresses are not unique identifiers for a web site... Is it
>possible to access the web url somehow?
'perldoc perlipc' gives an example of a 'webget' script. But you probably
want to add a host header, so virtual hosts will work:
print $remote "GET $document HTTP/1.0". $EOL . "Host: $host" . $BLANK;
--
David Efflandt efflandt@xnet.com http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://hammer.prohosting.com/~cgi-wiz/ http://cgi-help.virtualave.net/
------------------------------
Date: 12 Aug 2000 00:14:59 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Is "close()" really necesary?
Message-Id: <slrn8p95n4.cro.abigail@alexandra.foad.org>
Javier Hijas (jhijas@yahoo.es) wrote on MMDXXXV September MCMXCIII in
<URL:news:39916343.152B046A@yahoo.es>:
)) "Programming Perl" recommends no to use it as a file will be closed when
)) you reopen them, so, when should I use this function?
There are several reasons; the mainly have to do when you are done
working on the file, but your program isn't finished yet. Except for
the first reason, all the others don't matter if you are about to
terminate the program anyway.
Here are some of the reasons; the most important one is listed first,
others are in random order.
* close() has a return value. When writing files, you want to check the
return value. If you don't close your files, and you ran out of disk
space, you can't take appropriate action.
* An open file handle takes resources, and there's a limit on the amount
of open files you can have. Running out of open file descriptors is not
that uncommon.
* A close() unlocks a locked file. Other processors might be blocking
untill they can lock the file, or waiting for an eof if they are on
the other side of a pipe or socket.
* A close() flushes the buffers, while a sudden, hostile, interruption of
your program might not.
* close() resets $.
* close()ing a pipe waits for the other side to finish.
* The filehandle might be tied, and the tied object is expecting close()
to be called as soon as the program is finished reading/writing.
* When fork()ing, file descriptors are shared between parent and child.
But some associated behaviour is non-portable. Locks may be shared, and
buffers might be flushed. But that isn't always supported, and you might
get duplicate data on some systems (as the I/O buffers are copied).
And I guess there are more reasons.
The bottom line is that if you just read from a handle, and are about
to finish the program anyway, you can get away with not closing your
filehandles. In all other cases, not closing the handle (and checking
the return value), promotes your program to the quick-and-dirty throw
away category.
Abigail
--
perl -le 's[$,][join$,,(split$,,($!=85))[(q[0006143730380126152532042307].
q[41342211132019313505])=~m[..]g]]e and y[yIbp][HJkP] and print'
------------------------------
Date: 12 Aug 2000 00:59:13 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Large-File Reformatting Problem (Regexp gurus, et al.)
Message-Id: <slrn8p98a1.cro.abigail@alexandra.foad.org>
Greg Bacon (gbacon@HiWAAY.net) wrote on MMDXXXV September MCMXCIII in
<URL:news:sp2uqbd563a177@corp.supernews.com>:
\\ In article <8mrq5v$1aa$1@cnn.Princeton.EDU>,
\\ Christopher J. Mackie <cjmackie@princeton.edu> wrote:
\\
\\ : The proper format is a number of lines of text (1 to approx. 280k
\\ : lines ending in single newlines) separated by exactly one blank line
\\ : (i.e., '\n\n'). The errors consist only of excess whitespace between
\\ : the texts (an unknown and presumably variable number of extra
\\ : newlines, plus, perhaps, some whitespace interspersed-with and/or
\\ : bracketing the newlines). I have to remove the excess whitespace and
\\ : newlines, leaving only '\n\n', and without removing any of the
\\ : legitimate, line-ending newlines in the interior of the texts.
\\
\\
\\
\\ That makes your filter look like
\\
\\ $/ = "";
\\ while (<>) {
\\ # skip empty records
\\ next unless /\w/;
\\
\\ # zap trailing and leading whitespace
\\ s/^\s+//s;
\\ s/\s+\z//;
\\
\\ # turn a single blank line into an empty line
\\ # compress runs of empty or blank lines into one empty line
\\ s/\n\s+\n/\n\n/g;
\\
\\ # add record terminator
\\ print $_, "\n\n";
\\ }
\\
\\ Greg
There is something very fishy about this solution.
$/ is set to "" because the file is too huge to read in at once. But the
improper separator is exactly what we are trying to fix! It could very well
be that we end up reading a significant portion of the multi gigabyte file.
{my $buffer = "";
local ($/, $_) = (\4096); # Or some other value.
untill (eof ()) {
$_ = $buffer . <>;
s/\n\s+\n/\n\n/g; # Zap;
($_, $buffer) = /(.*\S)(.*)\z/s ? ($1, $2) : ("", $_);
print;
}
print $buffer;
}
And there's another problem with Greg's solution. It removes leading and
trailing whitespace, but the whitespace is only removed around *proper*
separators. "foo \n\n bar" will be turned into "foo\n\nbar", but
"foo \n \n bar" turns into "foo \n\n bar", leaving the whitespace around
"\n\n". The specification of the problem doesn't say that whitespace
should be removed (and my solution doesn't). Furthermore, "\n\n" is
defined as a record _separator_, not a terminator, so printing a final
"\n\n" isn't correct.
Abigail
--
$_ = "\nrekcaH lreP rehtona tsuJ"; my $chop; $chop = sub {print chop; $chop};
$chop -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
-> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
------------------------------
Date: Fri, 11 Aug 2000 15:17:31 -0700
From: stevel@bluetuna.com (Steve Leibel)
Subject: Re: London =?iso-8859-1?Q?=A330-35K?= Perl Programmers Required
Message-Id: <stevel-1108001518000001@192.168.100.2>
In article <slrn8p8nbh.cu2.dha@panix2.panix.com>, dha@panix.com (David H.
Adler) wrote:
> Longstanding Usenet tradition dictates that such postings go into
> groups with names that contain "jobs", like "misc.jobs.offered", not
> technical discussion groups like the ones to which you posted.
>
Don't be silly. "Longstanding Usenet tradition" dictates that newsgroups
are flooded with spam, trolls, job postings, all-encompassing theories
of the universe put forth by lunatics and cranks, and of course live nude
jpegs of Britney Spears.
It's only "long-suffering purists" who dictate otherwise.
------------------------------
Date: Fri, 11 Aug 2000 16:16:14 -0700
From: stevel@bluetuna.com (Steve Leibel)
Subject: Re: Negativity in Newsgroup
Message-Id: <stevel-1108001616530001@192.168.100.2>
In article <39947037.905C0883@home.com>, DM <drawbridge@home.com> wrote:
> Why are there so many negative remarks in this newsgroup?
>
> People come here with problems and people come here to help others.
> Some questions may not exactly fit the mold, so then don't answer it.
> Perl has so many uses that many of us peogrammers aren't sure where to
> turn to look for answers. Some users won't know if a question was asked
> before because someone else asked it in the past. Get real, there are
> new Perl users everyday getting stuck on things you once got stuck on.
>
> No one knows EVERYTHING about this language. There is no Wise King
> here. So thank you to all of the helpful ones on this group, and to all
> of the netative unhelpful ones...go look at yourself in the mirror
> because your ego is out of control.
Hey buddy why don't you go read the FAQ?
Or look at perldoc grumpyarrogantexperts
Seriously I for one agree wholeheartedly with your post. It's very
difficult to get a straight answer to a question on this group. Usually
you get "perldoc wazoo" which generally doesn't answer the question.
I think the "experts" who dominate this newsgroup have a legitimate
complaint in that they are tired of questions about Unix, CGIs, and other
topics that don't specifically relate to Perl. But the "read the
FAQ-itis" is really out of control around here. I recently posted a very
simple question and got the standard "perldoc something" and of course the
doc was long, and did not answer the question. And the respondent was one
of the most respected people around here.
Of all the technical newsgroups and mailing lists I subscribe to, this one
is by far the grumpiest.
Steve L
------------------------------
Date: Fri, 11 Aug 2000 19:44:29 -0400
From: Drew Simonis <care227@attglobal.net>
Subject: Re: Negativity in Newsgroup
Message-Id: <39948FDD.8842C266@attglobal.net>
Steve Leibel wrote:
>
> In article <39947037.905C0883@home.com>, DM <drawbridge@home.com> wrote:
>
> > Why are there so many negative remarks in this newsgroup?
> >
> > People come here with problems and people come here to help others.
> > Some questions may not exactly fit the mold, so then don't answer it.
DM: The official rule would be "don't ask it", but thats your
contrary attitude is what lands you in kill files.
> > Perl has so many uses that many of us peogrammers aren't sure where to
> > turn to look for answers.
As was stated so eloquently in the past, the .misc in c.l.p.misc
doesn't mean "any damn thing you want".
> > Some users won't know if a question was asked
> > before because someone else asked it in the past.
Thats what an archive search is for, but you wouldn't be bothered
to do such a thing, now would you? You prefer to shotgun questions
all over usenet, wishing for a clue.
> > Get real, there are
> > new Perl users everyday getting stuck on things you once got stuck on.
The old pros (of which I am not one) have taken the time to account
for this. This language has perhaps the richest set of included
documentation of any I've ever seen. Can I quote again? Good:
A wise man learns from the mistakes of others, a fool insists on
making his own".
Which of these are you? The wise man seeks knowlege from the
documentation, the fool blathers on and on and on...
To Steve:
>
> Hey buddy why don't you go read the FAQ?
Is there a prevalant attitude brewing that people deserve an answer?
TANSTAAFL, my friend. This isn't a helpdesk, its a discussion group.
>
> Or look at perldoc grumpyarrogantexperts
>
> Seriously I for one agree wholeheartedly with your post. It's very
> difficult to get a straight answer to a question on this group. Usually
> you get "perldoc wazoo" which generally doesn't answer the question.
No one deserves an answer, straight or otherwise. That questions get
answered at all is a favor. You are asking for free advice from someone
who probably usually charges for such things. You are asking for their
time and their knowlege. And far too often, you (collectively, not
specifically) are unwilling to give back.
> I think the "experts" who dominate this newsgroup have a legitimate
> complaint in that they are tired of questions about Unix, CGIs, and other
> topics that don't specifically relate to Perl.
DM has asked questions about CGI and ODBC, both of which he admitted
were off topic. His justification was weak, which was why he was
treated harshly.
> But the "read the
> FAQ-itis" is really out of control around here.
I think the asking of FAQ type questions is out of control.
> I recently posted a very
> simple question and got the standard "perldoc something" and of course the
> doc was long, and did not answer the question. And the respondent was one
> of the most respected people around here.
>
What was the question? What document was cited? The only results Deja
gives for your address is:
:Subject: Object somehow becoming unblessed?
:Message-ID: <stevel-1707001518070001@192.168.100.2>
You got two responses, neither of which cited a document to read.
------------------------------
Date: Sat, 12 Aug 2000 02:20:10 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Negativity in Newsgroup
Message-Id: <Pine.GHP.4.21.0008120209280.22623-100000@hpplus03.cern.ch>
On Fri, 11 Aug 2000, Drew Simonis wrote:
> > In article <39947037.905C0883@home.com>, DM <drawbridge@home.com> wrote:
> >
> > > Why are there so many negative remarks in this newsgroup?
I've always found the regulars here to be very positive about Perl.
Some of them are also found on e.g c.i.w.authoring.cgi, where they
can be equally helpful about CGI (and will be equally keen to redirect
off-topic questions about Perl programming).
One recent disgracefully negative remark here apparently came from an
apprentice troll:
| > Free Code... You get what you pay for...
I've never seen any of the Perl regulars saying that about Perl.
Much of the "free" software that it's been my pleasure to use, has
been a damned sight better, both in design concept and in reliability
and maintainability, than stuff we've had to pay considerable sums of
money for.
all the best
--
A patent application requires an implementation,
which is impossible due to the lack of sufficently
dense material to make one that would work.
- Glenn Randers-Pehrson discussing specification for a clue-stick
------------------------------
Date: Sat, 12 Aug 2000 00:43:20 GMT
From: Jim Mauldin <mauldin@netstorm.net>
Subject: Re: Negativity in Newsgroup
Message-Id: <39949D09.BC00B877@netstorm.net>
DM wrote:
>
> Why are there so many negative remarks in this newsgroup?
>
> People come here with problems and people come here to help others.
> Some questions may not exactly fit the mold, so then don't answer it.
> Perl has so many uses that many of us peogrammers aren't sure where to
> turn to look for answers. Some users won't know if a question was asked
> before because someone else asked it in the past. Get real, there are
> new Perl users everyday getting stuck on things you once got stuck on.
>
> No one knows EVERYTHING about this language. There is no Wise King
> here. So thank you to all of the helpful ones on this group, and to all
> of the netative unhelpful ones...go look at yourself in the mirror
> because your ego is out of control.
There's a unique culture here, for sure. Its good side is that it is
disciplined (RTFM&FAQ) and smart. It is also competitive, which can be
intimidating but also stimulates progress.
Learning Perl has a lot of similarities with learning a new language;
it's easy to figure out how to say something like "I'll have a beer" but
when you go out to dinner with people who speak it fluently, you realize
you don't understand a thing. To get ahead, you have to suffer the
indignity for a while, and study on your own.
The downside of this group is that it can on occasion be narrow-minded
(e.g. FAQ alternatives - but ya still gotta read the FAQ) and people get
grumpy sometimes. There is a never-ending upswelling of new arrivals,
and the "old hands" (who give their time freely) may at times forget
what it was like when they first started or understandably get fagged
out answering the same old "Where's the White House" question over and
over again (look at the F map!).
-- Jim
-- Jim
-- Jim
------------------------------
Date: Fri, 11 Aug 2000 17:34:24 -0700
From: Gorbeast <gorbeast@SPAMSUCKS.subduction.org>
Subject: open, close dial-up connexion under Win32
Message-Id: <39949B90.FFF7DAD5@SPAMSUCKS.subduction.org>
Hello,
Does any body know if I can open and close dial-up connections using
perl
scripts on my Windows98 computer? If so, do you have any details?
Thank you for your time!
------------------------------
Date: Fri, 11 Aug 2000 15:55:25 -0700
From: "Christopher M. Jones" <christopher_j@uswest.net>
Subject: Re: Perl code for a newbie!!
Message-Id: <qv%k5.1026$WW5.302428@news.uswest.net>
"Craig Pugsley" <craig.pugsley@mimesweeper.com> wrote:
> I will pay you 10 MEEEELLLIIIOOONNN dollars if you can get it sorted.
Sheesh, sorting is easy, in some cases it's almost free.
Now, sorting multi-dimensional arrays with non-unique values
in perl is a wee bit harder, but still doable. ;)
------------------------------
Date: Sat, 12 Aug 2000 00:06:08 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Perl code for a newbie!!
Message-Id: <7359psgregdmn0j23v75henjmsbt0asu80@4ax.com>
Larry Rosler wrote:
>> delete ($file[$linenum]);
>
>It took half a dozen subsequent posts before this blatant error was
>revealed.
Have you seen the quote from perlfunc posted by Abe Timmerman?
Apparently, those Perl implementing geeks keep adding new stuf, and
aren't telling anyone.
;-)
--
Bart.
------------------------------
Date: Sat, 12 Aug 2000 00:48:50 GMT
From: ujwal@my-deja.com
Subject: perl script
Message-Id: <8n26th$geq$1@nnrp1.deja.com>
Hello !
This might be piece of cake for the pros. I am newbie and I would
appreciate your help.
Mel
________________________________________________________________________
gi1008433 (Z54285) adp-ribosylation factor-like protein [S.pombe]
gi1008574 (U36502) mammary gland factor [Mus musculus]
gi1015970 (U34662) complement factor B [Danio rerio]
gi1015999 (U35249) CDK-activating kinase assembly [Mus musculus]
gi1018989 (D70897) porcine membrane cofactor protein [Sus scrofa]
gi1020146 (L35234) autocrine motility factor receptor [H.sapiens]
gi1041904 (S78744) protein S=activated protein C cofactor [Rattus
gi1045213 (Z66535) schwannoma derived growth factor[Mesocricetus]
gi1045289 (X92427) coagulation factor IX [Sus scrofa]
gi1045291 (X92593) coagulation factor IX [Sus scrofa]
gi1046305 (U31863) acidic fibroblast growth factor[Gallus gallus]
gi1049020 (U25096) Kruppel-like factor LKLF [Mus musculus]
gi1063394 (X91875) insulin-like growth receptor[H.sapiens]
gi1063402 (X80171) placenta growth factor [Mus musculus]
gi1066112 (U39839) tumor necrosis factor alpha [C.porcellus]
gi1066178 (X89373) alpha transinducing factor [C.herpesvirus]
gi1098473 (L22979) insulin-like growth factor [R.norvegicus]
gi1100903 (U40870) insulin-like growth factor-I [Homo sapiens]
gi11064 (X64429) binding factor-2 box B [D.melanogaster]
gi1107459 (D38258) fibroblast growth factor[Mus musculus]
Key words: adp-ribosylation; complement; coagulation; necrosis; insulin
File name: test.txt
Problem: These above list is contents of a file 'test.txt'. How can I
write a script in perl that by using the 'key words' listed above can
pull lines that contains those 'key words'
Without a script one can 'grep' or 'egrep' as follows
>grep -i "insulin" test.txt > result.txt (to handle a single string)
>egrep -I"adp-ribosylation|complement|coagulation|necrosis|insulin"
test.txt > result.txt (to handle multiple strings)
________________________________________________________________________
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 11 Aug 2000 17:54:17 -0700
From: "Christopher M. Jones" <christopher_j@uswest.net>
Subject: Re: Posting to an secure server
Message-Id: <Se1l5.1083$WW5.354009@news.uswest.net>
Oh, this is easier than I thought. For a moment there I'd thought
you might have to install a new root certificate into your perl
secure connection module.
Silly, you can't use LWP for SSL. Use Net::SSLeay or one of
its relatives (like Crypt::SSLeay).
Here's some info
http://theoryx5.uwinnipeg.ca/CPAN/data/Net_SSLeay.pm/SSLeay.html
and,
http://ls6-www.cs.uni-dortmund.de/cgi-bin/SFgate?language=English&verbose=1&
listenv=DL&application=cpan&convert=CPAN&converthl=&refinequery=application%
3dcpan%26convert%3dCPAN%26database%3dwait%252FDB%252Fcpan%26detex%3d1%26form
extern%3dCPAN%26multiple%3d1%26range%3d1%26verbose%3d1%26name%3dnet%253A%253
Assleay%26synopsis%3d%26text%3d%26author%3d%26tie%3dor%26_lines%3dwhole%2bdo
cument%26maxhits%3d40%26language%3dEnglish&formintern=&formextern=CPAN&trans
query=name%3dnet::ssleay&_lines=&multiple=0&descriptor=wait%2fDB%2fcpan%7c10
00%7c23128%7cNet::SSLeay%20-%20Perl%20extension%20for%20using%20Eric%20Young
%27s%20implementation%20of%20SSL%20%7cCPAN%7cwait%7c%2fusr%2fprojects%2fwww%
2fdb%2fWAIT%2fDB%2fcpan%7c957
(day-um, that's an ugly URL!)
"Ravi" <ravi@[remove_this]indigostar.com> wrote:
> I'm trying to post some information to a secure webserver (https://)
>
> I've been able to accomplish this task when the server is unsecure, but
I'm
> having problems with SSL. In the header I receive back from the secure
> server after trying to post some content, the following line is included:
>
> Client-SSL-Warning: Peer certificate not verified
>
> and the server didn't except my post. Do I have to encrypt my information
> before sending? I think that maybe the Crypt::SSLeay module has something
> to do with the solution, but I'm not sure what. Here's the code I used to
> make the post:
>
> my $request_url = 'https://www.somesite.com/cgi-bin/script.pl?';
> my $request_ua = new LWP::UserAgent;
> my $request_object = new HTTP::Request("POST", "$request_url");
> $request_object->content_type("application/x-www-form-urlencoded");
> $request_object->content('field1=value1&field2=value2');
> my $request_response = $request_ua->request($request_object);
>
> #gets the contents of the response
> my $request_content = $request4_response->as_string;
>
> #prints response
> print $request_content;
------------------------------
Date: 12 Aug 2000 00:52:16 GMT
From: gorilla@elaine.furryape.com (Alan Barclay)
Subject: Re: Problems with adding 1
Message-Id: <966041535.428097@elaine.furryape.com>
In article <8msvnm$kh0$1@nnrp1.deja.com>, <thirdgc@my-deja.com> wrote:
>I am trying to open a file and raise the number by one, but instead of
>raising it one, it changes the number to one. This is what I use to do
>it:
>
>open(postnum, "</home/3gc/www/ctb/posts/$num\.num") || dienice("Can't
>open $num\.num: $! \n");
>@postnum = <postnum>;
>close(postnum);
Lots of people have commented on the array & scalar mismatch, but more
important than that even when it's fixed, this program will fail sooner
or later.
Assuming this program is run as a CGI (from the www), then you have a
race condition. When two instances of this program run at the same time,
then one copy can corrupt the file being processed by the other one.
You need to lock the file, to prevent this from happening.
Read up on locking (in perlfaq5) by running 'perldoc perlfaq5', or
reading the same page in HTML format, where there is even a complete
example of incrementing a value in a file.
------------------------------
Date: Fri, 11 Aug 2000 23:43:47 GMT
From: Sebastian <dethtoll@yahoo.com>
Subject: Re: Regexp help, escaping characters
Message-Id: <8n233j$dvl$1@nnrp1.deja.com>
In article <sp3st38hn4t101@corp.supernews.com>,
Greg Bacon <gbacon@hiwaay.net> wrote:
> In article <8mspj5$gbf$1@nnrp1.deja.com>,
> Sebastian <dethtoll@yahoo.com> wrote:
>
> : Essentially, I want to split it into fields:
> :
> : @array = split(/;/,$s);
> :
> : But I don't want to split on a delimiter within quotes, [...]
>
> Check the FAQ, Section 4:
>
> How can I split a [character] delimited string except when
inside
> [character]? (Comma-separated files)
>
> Greg
> --
> >I need to programmatically reboot a Windows NT 4.0 server using Perl.
> Any command in NT has a certain chance to reboot the machine, hasn't
it?
> -- Abigail in <7a01hc$lvb$1@client2.news.psi.net>
>
Thanks for the reply, Greg. RTFM is such good advice. :)
Just for kicks, here's what I ended up with after swiping the FAQ code.
Works like a charm.
@array = mySplit($string,$delimiter);
#################################################
# Sub: mySplit
# Desc: Splits a string based on delimiter, escaping
# delimiter within quotes.
# Args: [$string to split],[$delimiter]
# Returns: @array of fields
#################################################
sub mySplit {
my $text = shift;
my $d = shift || ';';
# I use the following line because Access escapes double
# quotes by doubling them.
$text =~ s/""/\\"/g;
my @new = ();
push(@new, $+) while $text =~ m{
"([^\"\\]*(?:\\.[^\"\\]*)*)"$d?
| ([^$d]+)$d?
| $d
}gxo;
push(@new, undef) if substr($text,-1,1) eq $d;
return @new;
}
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 11 Aug 2000 23:47:02 GMT
From: Hendrik.Holtmann@pmnet.uni-oldenburg.de
Subject: Send input to a command line program
Message-Id: <8n239l$e25$1@nnrp1.deja.com>
Hi,
I run openssl from a perl-script to sign keys. The openssl needs some
input (like yes/no) and passphrase which has to be entered by keyboard
and cannot replaced by parameters. How can I post this input from my
perl-script to the openssl program. I already tried IPC::Open2, but with
no luck.
Anyone has a solution for this?
Any help is appreciated.
Regards,
Hendrik
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 11 Aug 2000 17:34:22 -0700
From: "Christopher M. Jones" <christopher_j@uswest.net>
Subject: Re: Sending back HTTP info before script ends......
Message-Id: <bY0l5.1073$WW5.345266@news.uswest.net>
<nobull@mail.com> wrote in message news:u9itt7vjv9.fsf@wcl-l.bham.ac.uk...
> Fork off and die.
>
> (Oh, and close(STDOUT) too).
Heh, aptly put.
Here's the best way to do that:
---near the top:
use POSIX qw(setsid);
$SIG{CHLD} = IGNORE;
---in the middle:
FORK: {
if ($pid = fork)
{
# parent
# send http shtuff, the results webpage, etc.
exit(0);
}
elsif (defined $pid)
{
# child
close STDIN;
close STDOUT;
close STDERR;
setsid(); # the final cut of the umbilical cord
# the process is now on it's own and won't die when the
# http connection is closed
# do your long complicated stuff (wait 30 secs and chmod)
# ex:
sleep (30);
system ("chmod $mode $file");
CORE::exit(0);
}
elsif ($! =~ /No more process/i)
{
# recoverable fork error
sleep (5);
redo FORK;
}
else
{
# unrecoverable fork error
# output error message and die
exit (0);
}
}
------------------------------
Date: Sat, 12 Aug 2000 00:38:32 GMT
From: Chovy <johndoyle33@hotmail.com>
Subject: setting cookie twice in same script
Message-Id: <8n26a9$g27$1@nnrp1.deja.com>
Hello,
I have a script which tests that the form has been filled out via a loop
thru each variable. and if it fails, it prints a line with the
unanswered field.
Prior to the loop iteration I print "Content-Type: text/html".
However, I cannot set a cookie in the same script because the CGI.pm
cookie method uses the header() method which again prints
"Content-Type"...
So when I actually do try to set the cookie at the end of the script, it
just prints to the browser "Set-cookie: ....etc..."
instead of actually setting the cookie.
Is there a way around this?
--
Thanks,
Chovy
johndoyle33@hotmail.com
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 11 Aug 2000 22:18:25 GMT
From: Jeff Stampes <stampes@xilinx.com>
Subject: Re: Trouble with example
Message-Id: <8n1u3h$b61@courier.xilinx.com>
Robert Brooks <studentfl@hotmail.com> wrote:
: I was going through a perl book, and am having trouble getting one of the
: examples to work. It is right out of the book (Learning Perl):
I'd be surprised if this is exactly the example...but I don't have
the book (never got the 2nd Edition, and the 1st Edition long ago
was borrowed permanently)
using the -w flag and use strict would help you solve this.
Did you run with the -w flag? I cut & pasted your code and ran
under -w, and got the following warning:
Name "main::words" used only once: possible typo at it line 8.
Let's see if that's your problem:
: open (WORDSLIST, "wordslist") || die "can't open wordlist: $!";
: while ( defined ($name = <WORDSLIST>)) {
: chomp ($name);
: $word = <WORDSLIST>;
: chomp ($word);
: $words{$name} = $word;
: }
: close (WORDSLIST) || die "couldn't close wordlist: $!";
: The problem is, $name doesn't make it past this line:
: $word = <WORDSLIST>;
Actually, it does. Did you step through it in the debugger?
Let's try that:
main::(it:3): open (WORDSLIST, "wordslist") || die "can't open wordlist: $!";
DB<1> s
main::(it:4): while ( defined ($name = <WORDSLIST>)) {
DB<1>
main::(it:5): chomp ($name);
DB<1>
main::(it:6): $word = <WORDSLIST>;
DB<1> print $name
this
DB<2> s
main::(it:7): chomp ($word);
DB<2> print $name
this
DB<3>
main::(it:8): $words{$name} = $word;
DB<3> print $name,$word
thisis
DB<4> print $words
Use of uninitialized value at (eval 8) line 2, <WORDSLIST> chunk 2.
eval '($@, $!, $^E, $,, $/, $\\, $^W) = @saved;package main;
$^D = $^D | $DB::db_stop;
print $words;
;' called at /devl/perl/lib/5.00503/perl5db.pl line 1239
DB::eval called at /devl/perl/lib/5.00503/perl5db.pl line 1133
DB::DB called at it line 8
so you don't ever lose the value of $name or $word as you suspect.
The problem here is that perl has no idea what $words is. You
want it to be a hash that way you are using it, so you need to
tell perl it's a hash:
1 #!/devl/perl/bin/perl -w
2
3==> my %words;
4
5: open (WORDSLIST, "wordslist") || die "can't open wordlist: $!";
6: while ( defined ($name = <WORDSLIST>)) {
7: chomp ($name);
8: $word = <WORDSLIST>;
9: chomp ($word);
DB<1> w
7: chomp ($name);
8: $word = <WORDSLIST>;
9: chomp ($word);
10: $words{$name} = $word;
11
12 }
13: close (WORDSLIST) || die "couldn't close wordlist: $!";
DB<1> c 13
main::(it:13): close (WORDSLIST) || die "couldn't close wordlist: $!";
DB<2> x %words
0 'this'
1 'is'
2 'a'
3 'list'
4 'of'
5 'words'
This code still gets a lot of complaints out of perl if you insert
a 'use strict;' in it, but I'll leave it as an exercise for you to
make it strict-friendly.
Hope this helps,
Jeff
--
Jeff Stampes -- Xilinx, Inc. -- Boulder, CO -- jeff.stampes@xilinx.com
------------------------------
Date: 12 Aug 2000 00:03:33 GMT
From: nospam@hairball.cup.hp.com (Richard J. Rauenzahn)
Subject: Re: Trouble with example
Message-Id: <966038613.195787@hpvablab.cup.hp.com>
Jeff Stampes <stampes@xilinx.com> writes:
> DB<4> print $words
>Use of uninitialized value at (eval 8) line 2, <WORDSLIST> chunk 2.
> eval '($@, $!, $^E, $,, $/, $\\, $^W) = @saved;package main;
> $^D = $^D | $DB::db_stop;
> print $words;
>;' called at /devl/perl/lib/5.00503/perl5db.pl line 1239
> DB::eval called at /devl/perl/lib/5.00503/perl5db.pl line 1133
> DB::DB called at it line 8
>
>so you don't ever lose the value of $name or $word as you suspect.
Correct so far...
>The problem here is that perl has no idea what $words is. You
Again, correct.. but..
>want it to be a hash that way you are using it, so you need to
>tell perl it's a hash:
No, $words is a scalar. You wanted to examine %words, not $words.
>1 #!/devl/perl/bin/perl -w
>2
>3==> my %words;
This has nothing to do with it. Try the script without it; you'll get
the same results, but examine %words, not $words at the end of the loop.
Rich
--
Rich Rauenzahn ----------+xrrauenza@cup.hp.comx+ Hewlett-Packard Company
Technical Consultant | I speak for me, | 19055 Pruneridge Ave.
Development Alliances Lab| *not* HP | MS 46TU2
ESPD / E-Serv. Partner Division +--------------+---- Cupertino, CA 95014
------------------------------
Date: Fri, 11 Aug 2000 23:06:59 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: truncate var spaces
Message-Id: <4k19ps039le57284tuf2mc01r1hmq1usf3@4ax.com>
fg19537@my-deja.com wrote:
>Is there a better perl programming method of truncating the white spaces
>at the end of a variable (while leaving internal spaces alone) than what
>I show below? (setting var 3 times)
Is here any reason why your data is stored in the database that way?
Store them after you've cleaned the mup. Or, er... fixed length fields,
perhaps?
> $fname =~ s/\s+$//;
Good. There's also unpack, with the 'A*' template.
print "<".unpack('A*', 'John Doe ').">\n";
--
Bart.
------------------------------
Date: Fri, 11 Aug 2000 23:00:25 +0100
From: "Stuart Moore" <stumo@bigfoot.com>
Subject: Re: Uploading Images
Message-Id: <8n1t3u$822$1@supernews.com>
Larry Rosler <lr@hpl.hp.com> wrote in message
news:MPG.13fdd2245cfd53da98ac68@nntp.hpl.hp.com...
> One needs to binmode() the input file also, though the chance of an
> error is about 1/256 the chance of an error in the output file.
True if he was getting a file normally, but this is one that's been uploaded
to a CGI script (I recognise some of the code from the documentation, I was
doing the same last week) which automatically handles that.
Stuart
------------------------------
Date: Sat, 12 Aug 2000 00:25:52 +0200
From: tony@svanstrom.com (Tony L. Svanstrom)
Subject: Re: Were are all the executibles?
Message-Id: <1ef86do.1uustus15pwp86N%tony@svanstrom.com>
Jürgen Exner <juex@deja.com> wrote:
> "Tony L. Svanstrom" <tony@svanstrom.com> wrote in message
> news:1ef7o0l.1wycog314auixbN%tony@svanstrom.com...
> > But what if someone invented like a virtual machine, so you can run them
> > on a single platform, but at the same time on different platforms...
> > Hmmm... I think I better patent/copyright this before I send it... damn,
> > I've already pushed the send-button... Oh, well, I guess this great idea
> > is out now. ;-)
>
> That idea has been around a while, oh, let's say since the mid 70s?
> Ever heard of e.g. the UCSD Pascal system? Became quite famous on the
> Apple II.
Every heard of a smiley, it's a lil something that can be used to make
sure that people realize that what you wrote was a joke... I mean, if
the fact that I wrote that I'd already sent the message that I was
writing wasn't a good enough clue, then the smiley should have been...
:-)
/Tony
--
/\___/\ Who would you like to read your messages today? /\___/\
\_@ @_/ Protect your privacy: <http://www.pgpi.com/> \_@ @_/
--oOO-(_)-OOo---------------------------------------------oOO-(_)-OOo--
DSS: 0x9363F1DB, Fp: 6EA2 618F 6D21 91D3 2D82 78A6 647F F247 9363 F1DB
---ôôô---ôôô-----------------------------------------------ôôô---ôôô---
\O/ \O/ ©1999 <http://www.svanstrom.com/?ref=news> \O/ \O/
------------------------------
Date: Fri, 11 Aug 2000 23:10:07 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: What is "pack()" used for?
Message-Id: <jr19psoshuh4mljeqcm7v61vl3h3f6g1kb@4ax.com>
Larry Rosler wrote:
>Hence the 'n' in inet_aton()
Just wondering: which "n"?
I can see "inet", that's the "protocol", and "a to n". I don't know what
the "a" stands for, but the "n" probably means "number".
Feel free to correct me if I'm wrong.
--
Bart.
------------------------------
Date: Fri, 11 Aug 2000 16:22:18 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: What is "pack()" used for?
Message-Id: <MPG.13fe2a87321558a298ac6e@nntp.hpl.hp.com>
In article <jr19psoshuh4mljeqcm7v61vl3h3f6g1kb@4ax.com> on Fri, 11 Aug
2000 23:10:07 GMT, Bart Lateur <bart.lateur@skynet.be> says...
> Larry Rosler wrote:
>
> >Hence the 'n' in inet_aton()
>
> Just wondering: which "n"?
>
> I can see "inet", that's the "protocol", and "a to n". I don't know what
> the "a" stands for, but the "n" probably means "number".
>
> Feel free to correct me if I'm wrong.
I'm sure you're right. I've always assumed the 'a' meant 'address', but
'ASCII' is a useful mnemonic for that as well. :-)
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 11 Aug 2000 17:11:38 -0700
From: "Jerry Lei" <jlei@nortelnetworks.com>
Subject: where can find the document about how to install perl
Message-Id: <8n24nd$jun$1@bcrkh13.ca.nortel.com>
Hi,
I try to make and install perl on the Solaris2.6 (SUN).
But I have some problem with configuration settings.
Where can I find the document which talk about how to do the settings.
Thanks for any information.
Lei
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 3993
**************************************
