[8255] in Perl-Users-Digest
Perl-Users Digest, Issue: 1872 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Feb 12 09:19:05 1998
Date: Thu, 12 Feb 98 06:01:23 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 12 Feb 1998 Volume: 8 Number: 1872
Today's topics:
Re: "Teach Yourself Perl in 21 days" (Was: Re: substitu <agr30@uni-koeln.de>
Re: A simple question <Dave.Cross@gb.swissbank.com>
Alphabetical Comparison (Steve V)
Re: Alphabetical Comparison <rra@stanford.edu>
Re: Alphabetical Comparison <rra@stanford.edu>
Re: Alphabetical Comparison <eike.grote@theo.phy.uni-bayreuth.de>
Re: combine lines(swap 2)for novice user (Francois Trousset)
Re: Creating HTML documentation <prsnyder@bewley.net>
Re: FAQless Forays (was: Code Example Needed) <zkessin@lhr-sys.dhl.com>
Re: FAQless Forays (was: Code Example Needed) Frank@but_dont_use_this.address
Re: FAQless Forays (was: Code Example Needed) (Bart Lateur)
Re: FAQless Forays (was: Code Example Needed) <rra@stanford.edu>
Re: FAQless Forays (was: Code Example Needed) (Gabor)
Re: FAQless Forays (was: Code Example Needed) (John Moreno)
Re: FAQless Forays (was: Code Example Needed) (John Moreno)
Re: foreach and my() [GUTS; LONG] (Bart Lateur)
Re: Forked, but do not know how to change a TTY (Neil Briscoe)
Re: garbage collection in perl (Malcolm Beattie)
Re: Good Perl editors <rebel@wantree.com.au>
Re: help needed (Francois Trousset)
Re: Help with code (Francois Trousset)
Re: Help with code (Francois Trousset)
Re: help! Perl Compiler (Malcolm Beattie)
Re: How the Hell do I...? (Dave Power)
Re: How the Hell do I...? (Marc Haber)
Re: Is this correct? File Locking <rebel@wantree.com.au>
Re: MATH <jefpin@bergen.org>
Re: Padding out a string (Bart Lateur)
Re: Padding out a string (Bart Lateur)
perl-ftp problem (Marko Sunjic)
scope of $<digit> <D.M.Proffitt@mds.qmw.ac.uk>
Re: test!! please ignore this message i am seeing if it (Patrick)
UDP communication and perl (Holger Wirtz)
Re: which sub calls my sub in perl module ? (Francois Trousset)
Why is Tom Christiansen so rude? <info@channel-a.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 12 Feb 1998 00:29:59 +0100
From: Martin Bialasinski <agr30@uni-koeln.de>
To: davet@angel.uunet.ca (Dave Till)
Subject: Re: "Teach Yourself Perl in 21 days" (Was: Re: substitute...)
Message-Id: <87yazhn2iw.fsf@haitech.internet-treff.de>
davet@angel.uunet.ca (Dave Till) writes:
> >> The first function described in the first paragraph of the first page I
> >> opened to listed the function's two parameters in the wrong order.
> >>
>
> Tom: do you remember, offhand, what that function was? I don't know of
> any functions that have their parameters listed in the wrong order (if I
> did, I'd get their descriptions fixed :-)). I am honestly interested in
> making the book as accurate as I can (given the constraint that I don't
> control much of the production process).
2nd Edition page 419 and 420, the link and symlink functions.
The "syntax" parts are wrong, the examples are OK.
Yes, I have this book. I bought it July last year. The last time I
programmed was three years ago, turbo pascal for windows. I needed a
tutorial like book, and this book looked good. And for me, it was good to
get into programming again. I tried all examples and the excercises and I
*had* to read the section about the debugger early (and a friend told me
about the -w switch). So geting the code to work was good for practicing
perl.
Day 18 and 19 (References and Modules) aren't that good. Although I knew
OOP from turbo pascal, I couldn't make a dice out of the descriptions.
After all, I was pleased with the book after all as it introduced me into
coding again.
Yes, I bought the Camel afterwards and use it as a reference. But I am
disappointed, that the description of the buildin functions mostly equals
the manpages. Not much value added. Maybe the manpages are so good, that
even the authors can't say much more ( or give an additional
example). Well, if they wrote the manpages as well, this is natural.
Anyway, the Panther book is better then both books. Never seen a technical
book that good (although the erratum is quite long already :-( ). IMHO,
the first two chapters should be the standard reading for those who wants
to learn about references.
Ciao,
Martin
------------------------------
Date: Thu, 12 Feb 1998 10:19:37 GMT
From: David Cross <Dave.Cross@gb.swissbank.com>
Subject: Re: A simple question
Message-Id: <y4dg1lprupy.fsf@gb.swissbank.com>
Premgith Vidyanandan <vidyanan@pilot.msu.edu> writes:
> I have a simple problem, I have an entire web page in a variable called
> $webpage, I have to go through this variable and put each line from it
> into an array. I thought of making a while loop and splitting the lines
> and adding it to an array. The problem with this is that I don't have a
> clue as to how to check for the end of the $variable. If it was the end of
> file then you could just put while (<filename>).
> Can someone please tell me how to do this, or if anyone knows of a
> better way please let me know that too..
my @webpage_array = split(/\n/, $webpage);
hth
Dave...
--
"...but Man created all gods equal."
Dave.Cross@gb.swissbank.com
------------------------------
Date: Thu, 12 Feb 1998 19:26:49 +0800
From: vertigan@iinet.net.au (Steve V)
Subject: Alphabetical Comparison
Message-Id: <199802121126.TAA19165@opera.iinet.net.au>
Sorry if this seems like a stupid question but I've read the FAQ on the sort
function and am still unable to figure out how to do what I want. Basically
I have to compare two string variables to see which is alphabetically
"higher" than the other. Some thing like
if ($string1 > $string2) {
actions
}
except, of course, I'm testing to see which string comes first
alphabetically. If anybody could shed some light on this for me I'd be much
grateful.
Thanks
--Steve
------------------------------
Date: 12 Feb 1998 04:12:27 -0800
From: Russ Allbery <rra@stanford.edu>
To: vertigan@iinet.net.au (Steve V)
Subject: Re: Alphabetical Comparison
Message-Id: <m3lnvhf2dw.fsf@windlord.Stanford.EDU>
[ Posted and mailed. ]
Steve V <vertigan@iinet.net.au> writes:
> Sorry if this seems like a stupid question but I've read the FAQ on the
> sort function and am still unable to figure out how to do what I want.
This is probably due to the fact that what you're doing really has nothing
to do with the sort function at all.
> Basically I have to compare two string variables to see which is
> alphabetically "higher" than the other. Some thing like
> if ($string1 > $string2) {
> actions
> }
> except, of course, I'm testing to see which string comes first
> alphabetically.
ge is the operator that you want. See man perlop.
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: 12 Feb 1998 04:25:12 -0800
From: Russ Allbery <rra@stanford.edu>
To: Steve V <vertigan@iinet.net.au>
Subject: Re: Alphabetical Comparison
Message-Id: <m3en19f1sn.fsf@windlord.Stanford.EDU>
[ Posted and mailed. ]
Russ Allbery <rra@stanford.edu> writes:
> ge is the operator that you want. See man perlop.
Ack, sorry, that's "gt" of course.
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: Thu, 12 Feb 1998 13:53:21 +0100
From: Eike Grote <eike.grote@theo.phy.uni-bayreuth.de>
Subject: Re: Alphabetical Comparison
Message-Id: <34E2F0C1.2781@theo.phy.uni-bayreuth.de>
Hi,
Steve V wrote:
>
> Sorry if this seems like a stupid question but I've read the FAQ on
> the sort function and am still unable to figure out how to do what I
> want.
What about starting with Perl's _manual pages_ ...
(Hint: perlfunc - sort)
> Basically I have to compare two string variables to see which is
> alphabetically
> "higher" than the other.
Bye, Eike
--
=======================================================================
>>--->> Eike Grote <eike.grote@theo.phy.uni-bayreuth.de> <<---<<
-----------------------------------------------------------------------
Home Page, Address, PGP,...: http://www.phy.uni-bayreuth.de/~btpa25/
-----------------------------------------------------------------------
PGP fingerprint: 1F F4 AB CF 1B 5F 4B 1D 75 A1 F9 C5 7B 3F 37 06
=======================================================================
------------------------------
Date: 12 Feb 1998 13:40:29 GMT
From: trs@eerie.fr (Francois Trousset)
To: s11976@net1.hkbu.edu.hk (P.M.Wong )
Subject: Re: combine lines(swap 2)for novice user
Message-Id: <6buu4d$n0e$1@anais.eerie.fr>
In article <6buct1$344$1@power42t.hkbu.edu.hk>,
s11976@net1.hkbu.edu.hk (P.M.Wong ) writes:
> Sorry for asking the trivial question as i'm a newbir in perl
> I have a file with 3 lines, say:
> this is line 1
> this is line 2
> this is line 3
>
> My objective is to turn them into one single line with first and
> second swapped, i.e. the result should be like:
>
> this is line 2 this is line 1 this is line 3
>
> What simple perl script could do this ?
Hi,
Something like:
open FD , "filename" or die "message\n";
@text = <FD>;
close FD;
$text = "@text";
$text =~ tr/\n/ /;
print "$text\n";
Francois Trousset
------------------------------
Date: Thu, 12 Feb 1998 03:10:07 -0500
From: Philip Snyder <prsnyder@bewley.net>
To: MARTIN@RADIOGAGA.HARZ.DE
Subject: Re: Creating HTML documentation
Message-Id: <34E2AE5F.EF03E529@bewley.net>
I am having trouble running this script. Here are the errors I get:
Global symbol "i" requires explicit package name at lib/Pod/Html.pm line 298,
<DATA> chunk 208.
Variable "$i" is not imported at lib/Pod/Html.pm line 299, <DATA> chunk 208.
Global symbol "i" requires explicit package name at lib/Pod/Html.pm line 299,
<DATA> chunk 208.
Missing $ on loop variable at lib/Pod/Html.pm line 300, <DATA> chunk 208.
BEGIN failed--compilation aborted at ./installhtml line 10, <DATA> chunk 208.
Does anyone know what I need to do to fix it? I'm not exactly looking forward
to going through over 300 lines of code trying to figure out what is wrong
just so I can have html documentation...
Thanks!
-Philip
prsnyder@bewley.net
Martin Vorlaender wrote:
> Boris Boehlen (boris@i3.informatik.rwth-aachen.de) wrote:
> : How can I use `pod2html' to create a HTML documentation for all
> : installed Perl modules and pods?
>
> : Or is there another tool to do this?
>
> In the source distribution there's a script named installhtml
> (which doesn't get installed by default under OS/2, BTW).
> I haven't got it to work under OS/2 yet, though - it has a few
> Unixisms...
>
> cu,
> Martin
> --
> | Martin Vorlaender | VMS & WNT programmer
> Ceterum censeo | work: mv@pdv-systeme.de
> Redmondem delendam esse. | http://www.pdv-systeme.de/users/martinv/
> | home: martin@radiogaga.harz.de
------------------------------
Date: 12 Feb 1998 10:04:29 +0000
From: Zachary Kessin <zkessin@lhr-sys.dhl.com>
Subject: Re: FAQless Forays (was: Code Example Needed)
Message-Id: <m34t25t9zl.fsf@pc-hhu-52.lhr-sys.dhl.com>
Dan Boorstein <danboo@negia.net> writes:
> >Then there's the matter of, "I'm not a programmer, but I need to program
> >this web page". If you're not a programmer, don't try to program.
>
> i am not sure what this last statement means. can you only be a
> programmer if you go to school for it? do you have something against
> a non-structured education (i.e., outside of an established
> institution)? are programmers born? isn't larry wall a linguist?
> how did he become a programmer (honestly, i am interested to know)?
I dont know exactly what Tom had in mind, but you can learn to program
from books and practice. Its like most skills it takes time to learn
to do well. Shure I can teach anyone to write a "Hello World" program
in perl in 10 minutes. But to understand good practice takes time.
--Zach
(Been programing perl for a living for about 2 years now)
------------------------------
Date: 12 Feb 1998 11:34:05 +0100
From: Frank@but_dont_use_this.address
Subject: Re: FAQless Forays (was: Code Example Needed)
Message-Id: <yo94t25863m.fsf@nym.sc.philips.com>
Hello all!
I think this is the worst thread to start posting to
comp.lang.perl.misc, but I was often close to the edge of asking some
questions, but did it then in "one of the other ways to do it".
Anyway it is time for an outing: I would like to share some
impressions
My problem with the FAQs is, that I do not know the questions.
Example from current code:
(I try to concatenate all lines in a file to a string)
$data ="";
open MULT_HANDLE, "<$file" || die "ERROR: can't read $!";
@files = <MULT_HANDLE>;
close (MULT_HANDLE);
foreach $aLine (@files) {
$data .= @files;
----------------------------------------------------------------------
$data ="";
open MULT_HANDLE, "<$file" || die "ERROR: can't read $!";
@files = <MULT_HANDLE>;
close (MULT_HANDLE);
foreach $aLine (@files) {
$data .= $aLine;
}
The first version introduced spaces in my $data variable, which I did
not want. My mind collected keywords which I remembered vaguely :
array, scalar context. So I decided to visit the perldata
manpage. Afterwards I went to perlfaq, perlfaq4 "Data: Arrays".
Results: I decided it was the wrong approach. I could not determine
the mechanisms I involved by saying $data .= @files; To get a result I
produced the second version, which seems to do what I want.
For me perl has a large number of mysteries, which I try to avoid. The
language is complex in a way that I am not able to exactly understand
what happens. The documentation is enormous in size and content, but
still you need to get certain keywords in mind to get results. (Or
read, understand and remember everything?) I still hope there is
something like an logical approach in perl. After some time fighting
with the tools I usually know (keywords) where to search for what.
To make things worse I use perl in a environment (HPUX) I do not
understand. Example from the same code:(I think I copied it from
man perlipc Safe Pipe Opens)
# add error processing as above
$pid = open(KID_TO_WRITE, "|-");
$SIG{ALRM} = sub { die "ERROR: $program pipe broke" };
if ($pid) { # parent
for (@data) {
print KID_TO_WRITE;
}
close(KID_TO_WRITE) || warn "kid exited $?";
} else { # child
#($EUID, $EGID) = ($UID, $GID);
exec("/usr/bin/mailx", @options)
|| die "ERROR: can't exec program: $!";
# NOTREACHED
}
close (KID_TO_WRITE);
I do not understand, what I'm doing there. A really unpleasent
situation. I had to outcomment the ($EUID, $EGID) = ($UID, $GID);
line, because it introduced problems(not defined variables?). I think
the problem is that I could not determine what "#add error processing
as above" meant.
What I tried to achieve was sending an email and avoid something
like
system("mail $addr <@data");
I read some man pages, ended at man perlipc, stole code from there,
edited it to get it running. Result: Code which seems to work. But I'm
not sure.
So what is my question? "How to use perl for sending email in a HPUX
system?" At which level of problems may I ask?
======
Some comments to the netiquette/kill filing/address hiding:
Yes I tried to hide my email address. I hope it works. I do not have
the means/energy to fireproof my email account.
I have seen some people publically announcing the addition of someone to
their private kill file. I consider this rude. Do what you want, but
do it silent.
As an alternative to killfiling I would suggest the concept of scoring
implemented in the gnus newsreader. I personally think it is very
efficient reducing signal to noise. I lower the score of every thread
where answers from the "read the FAQ"/"this is not related to
perl"-fighters appear. These threads are then sorted at the end of the
list. While reading I scan if this is the only answer to the question
and if it is the only one I skip it.
======
again: My problem with the FAQs is, that I do not know the
questions(keywords to search for).
with kind regards
Frank
------------------------------
Date: Thu, 12 Feb 1998 10:52:52 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: FAQless Forays (was: Code Example Needed)
Message-Id: <34e6d2af.3860952@news.tornado.be>
Tom Christiansen <tchrist@mox.perl.com> wrote:
>When we have a moderated newsgroup, this will get much better. I hope.
I'd just like to point out that, in a properly moderated Perl newsgroup,
many of your recent posts would have to be rejected.
Not that I mind (too much).
BTW I post from a PC. Using Agent (reigistered). That IS a real
newsreader. And I'm very much pleased with it, so I don't feel the need
to write my own.
Bart.
------------------------------
Date: 12 Feb 1998 04:11:05 -0800
From: Russ Allbery <rra@stanford.edu>
Subject: Re: FAQless Forays (was: Code Example Needed)
Message-Id: <m3oh0df2g5.fsf@windlord.Stanford.EDU>
Bart Lateur <bart.mediamind@tornado.be> writes:
> Tom Christiansen <tchrist@mox.perl.com> wrote:
>> When we have a moderated newsgroup, this will get much better. I hope.
> I'd just like to point out that, in a properly moderated Perl newsgroup,
> many of your recent posts would have to be rejected.
Yup.
> Not that I mind (too much).
I doubt Tom would either. I think he'd very much appreciate an atmosphere
in which he never once felt the urge to post the sorts of posts you're
thinking of.
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: 12 Feb 1998 13:33:32 GMT
From: gabor@vmunix.com (Gabor)
Subject: Re: FAQless Forays (was: Code Example Needed)
Message-Id: <slrn6e5ud8.7c1.gabor@vnode.vmunix.com>
In comp.lang.perl.misc, Tom Christiansen <tchrist@mox.perl.com> wrote :
# [courtesy cc of this posting sent to cited author via email]
#
# In comp.lang.perl.misc, rjk@coos.dartmouth.edu writes:
# :Now I'm sure you'll be happy to point out that good posts tend to originate
# :from non-PCs rather than PCs. But I still don't agree your conclusion
# :because, as I said, I post from a Mac. :-)
#
# A Mac *is* a PC, since PC == (primitive) personal computer.
# Remember that: A Mac is a PC. Anyone who told you otherwise
# is lying, probably Bill.
Oh, come on. I post from a PC. It just happens to be running
FreeBSD, and has about 10 users. PC user != idiot.
gabor.
--
But you have to allow a little for the desire to evangelize when
you think you have good news.
-- Larry Wall in <1992Aug26.184221.29627@netlabs.com>
------------------------------
Date: Thu, 12 Feb 1998 08:43:57 -0500
From: phenix@interpath.com (John Moreno)
Subject: Re: FAQless Forays (was: Code Example Needed)
Message-Id: <1d4baci.1gna6l4it3n2iN@roxboro0-019.dyn.interpath.net>
Tom Christiansen <tchrist@mox.perl.com> wrote:
> In comp.lang.perl.misc, mystra@torilmud.com (Eileen Kortright) writes:
> :If the above sounds a little defensive, yah, it is, but as I stated, I
> :just read 217 messages in this newsgroup -- most of which had, IMHO,
> :very rude replies from Mr. Christiansen.
>
> I can see how, read all in one sitting, those sixty-seven messages I
> posted yesterday might have been perceived as such. Permit me, if you
> would, to explain the circumstances of their composition.
Sixty-Seven?!?
But your post don't seem particularly rude to me. If somebody doesn't
read the manual or the faq then they deserve whatever they get (unless
it is example code or answers more informative than RTFM).
> Recently, with little prior analysis beyond intuition, I tossed out
> the flippant comment that this newsgroup would be a much more legible
> place if we simply killfiled all postings coming from a PC (meaning Mac
> or Windows). After being challenged on this, I decide to analyse the
> situation; I went back and read the leading posts (not the followups)
> to most of the nonexpired threads on this group.
PC/Mac users may post more FAQs, but I don't think it should be carried
farther than making the observation or adding that fact into a score
(not kill) file.
I'm mainly a Mac user and I can post RTFM answers with the best of 'em.
Of course since I don't have it or the faq memorized I do so much less
often than other people.
--
John Moreno
------------------------------
Date: Thu, 12 Feb 1998 08:46:58 -0500
From: phenix@interpath.com (John Moreno)
Subject: Re: FAQless Forays (was: Code Example Needed)
Message-Id: <1d4bb4d.4udy01yfytqfN@roxboro0-019.dyn.interpath.net>
Dan Boorstein <danboo@negia.net> wrote:
>
> Tom Christiansen wrote:
>
> [mostly agreeable correlations and observations deleted]
>
> >Then there's the matter of, "I'm not a programmer, but I need to program
> >this web page". If you're not a programmer, don't try to program.
>
> i am not sure what this last statement means. can you only be a
> programmer if you go to school for it? do you have something against
> a non-structured education (i.e., outside of an established
> institution)? are programmers born? isn't larry wall a linguist?
> how did he become a programmer (honestly, i am interested to know)?
It's like somebody saying - I'm not a mechanic, I just want to know how
to fix my transimision and do a little minor repair on my carburetor.
It implies that not only aren't you a mechanic, you don't want to be a
mechanic. But if you're going to do a job that requires a mechanic,
then you need to learn to one. If you're doing a job that requires a
programmer, then you need to learn to be a programmer to do the job.
If you want to program that web page, then learn to be a programmer and
then if you run into trouble post a question that says you are a new
programmer and need a little guidance/help.
--
John Moreno
------------------------------
Date: Thu, 12 Feb 1998 10:52:48 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: foreach and my() [GUTS; LONG]
Message-Id: <34e4cc0f.2165363@news.tornado.be>
Chipmunk <rjk@coos.dartmouth.edu> wrote:
>my($id, $id_iter);
>foreach $id_iter (@ids) {
> $id = $id_iter;
> &process_id();
>}
>
>sub do_something {
> print "$id\n";
>}
It seems like your syntax really requires "local".
foreach $id_iter (@ids) {
local($id) = $id_iter;
&process_id();
}
sub do_something {
print "$id\n";
}
Many Perl5ers will frown upon this, but in some applications "local" can
be put to really good use, in this way.
Bart.
-
'D*mn!', said Carrot, a difficult linguistic feat.
-- Terry Pratchett, "Feet of Clay"
------------------------------
Date: 12 Feb 1998 09:55:38 GMT
From: neilb@zetnet.co.uk (Neil Briscoe)
Subject: Re: Forked, but do not know how to change a TTY
Message-Id: <memo.19980212095536.10727B@skep.compulink.co.uk.cix.co.uk>
In article <34E2299C.7C1EBF84@cup.hp.com>, mb@cup.hp.com (Marc Bernstein)
wrote:
> Define $DB::fork_TTY or get_fork_TTY().
> ..................
>
> I am trying to create a well behaved daemon but cant find a good
> discussion explaining how to manage the TTY from Perl or a good module
> to use that will provide generic daemon friendly startup - disconnect
> from the TTY, etc.
>
> I want to run this from inittab with a respawn attribute.
>
> Could someone explain why I got the above message when in the debugger
> but not when running the script separately? Can someone recommend a
> Daemon module to use? The script will open a socket connection and
> exchange information with yet another Daemon running on another machine.
>
> Any suggestions welcome.
>
Hmm, don't know about those $DB::fork_TTY references you have, but the
easiest way to write a daemon is :-
if (($PID=fork()) == 0) { # Start child
if (($PID=fork()) == 0) { # Start grandchild
LURK: while(1) { # Nearly infinite loop
sleep(1); # Wait a second
last LURK if getppid() == 1;
}
&go_to_work();
}
exit; # Child exits as soon as it forks, orphaning grandchild
}
wait();
exit;
sub go_to_work {
... # Do the work you were spawned for.
}
Basically, under Unix, any orphaned process is fostered by the init
process. The code above spawns a chile, which instantly spawns a
grandchild and dies in child birth.
The parent waits to reap its own child, and exits when it dies, leaving
the remaining grandchild process with no roof over its head, so the good
samaritan, init, takes it under its wing.
Regards
Neil
(Yes, I'm suffering from something horrible today, and its amazing what
that does to ones thought processes, but damn it Jim, the code works as
advertised.)
------------------------------
Date: 12 Feb 1998 11:14:14 GMT
From: mbeattie@sable.ox.ac.uk (Malcolm Beattie)
Subject: Re: garbage collection in perl
Message-Id: <6buli6$crg$1@news.ox.ac.uk>
In article <6bss3q$e99$1@csnews.cs.colorado.edu>,
Tom Christiansen <tchrist@mox.perl.com> wrote:
> [courtesy cc of this posting sent to cited author via email]
>
>In comp.lang.perl.misc, cberry@cinenet.net (Craig Berry) writes:
>:Perl thing. Many OSs allow apps to release heap memory so that other
>:apps can use it. However, in most circumstances Perl's way is better.
>:Doing OS-visible heap releases tends to be a high-overhead, low-profit
>:operation.
>
>It can be easily shown that this is in theory feasible
>
> #define SIZE (10 * 1024 * 1024)
> main() {
> ps(); sbrk( SIZE);
> ps(); sbrk(-SIZE);
> ps();
> }
> ps() {
> static char str[200];
> sprintf(str, "ps l%d", getpid());
> system(str);
> }
>
>The issue, as you Craig seem to be aware, is that just because you can
>move the end point doesn't mean that you can easily fix the midpoints.
>
>It's really very much like a text file. You want to remove a few words
>here and there. Well, you can't actually do that, although you could
>change where EOF fell. You have to make a new copy, crunch down, then
>truncate.
>
>malloc() is seldom amenable to that kind of thing, and even if it is,
>you can bet your program isn't. And how are you going to go find how
>all the myriad places that mention those pointers and change *them*?
If I ever get around to putting a slab allocator into perl then any
O/S which uses an mmap-based malloc for large chunk allocation (such
as GNU libc, the default libc for recent Linux distributions) can have
unused slabs returned to the O/S. Maybe 5.006.
--Malcolm
--
Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Oxford University Computing Services
"I permitted that as a demonstration of futility" --Grey Roger
------------------------------
Date: Thu, 12 Feb 1998 23:26:32 -1100
From: Chris <rebel@wantree.com.au>
To: John Grubb <jgrubb@gte.net>
Subject: Re: Good Perl editors
Message-Id: <34E41FD8.2147@wantree.com.au>
John Grubb wrote:
>
> Oh! Yes, yes, yes!I found UltraEdit while browsing for shareware. It is
> written
> AND SOLD by an individual programmer, not a huge development/sales company!!
>
> It's VERY good and comes with libraries for several languages. I am sooo
> much
> happier, now. It also gets rid of the annoying problem of Windows editors
> (Word
> Pad, Note Pad) adding in end-of-line characters that are visible to UNIX (I
> edit on an NT machine, then FTP to the live UNIX Web Server).
> The latest version is now 5.00 (as of 11/5/97). It is available on the
> following www pages (yes, it's shareware and very useful as a freebie!!):
>
> http://www.idmcomp.com/ and http://www.ultraedit.com/
>
> IThis is the first editor I have ever paid for. It's $30 and worth every
> penny!!!
>
> If you register it, tell Ian where you heard about it. It helps him in
> marketing.
>
> Gunny
>
> Pedro Branco wrote:
>
> > On Tue, 03 Feb 1998 13:28:39 -0600, Wes Gamble
> > <weyus@worldnet.att.net> wrote:
> >
> > >Hi all,
> > >
> > >I am beginning to reacquaint myself with Perl and I was interested if
> > >there were a preferred editor(s) that people out in Perl-land use for
> > >coding. I have downloaded a demo copy of Codewright, but it doesn't
> > >seem to have built in support for Perl right off the bat (has anyone
> > >created rules for Codewright to edit Perl to their satisfaction, or
> > >knows how that might be done).
> > >
> > >I am quite adept at vi, so please none of those comments - however, I'd
> > >like to have something that automatically indents, italicizes, etc. to
> > >make my code easier to scan through quickly.
> > >
> > >Any ideas are welcomed.
> > >
> > >Thanks,
> > >Wes Gamble
> >
> > I use XWPE
> >
> > xwpe is a X-window programming environment designed to use
> > on UNIX-systems. It is similar to 'Borland C++ or Turbo Pas-
> > cal' environment.
> >
> > xwpe has syntax highlighting, and you can easly set it up for perl.
> >
> > I don't remember the url, search 'xwpe' over the net and
> > you'll find it.
> >
> > happy coding
> >
> > Pedro Branco
> > ____________________________________________________________________
> > Pedro Feliciano Branco ISEL . AE -Portugal-
> > Email: pedrofb@aeisel.aeisel.pt
> > f.branco@mail.telepac.pt
> > http://www.aeisel.pt/~pedrofb
Hi caught your above article.
I recently downloaded ultraedit and was ultra impressed
what a great tool:)
I don't usually buy shareware but have felt the need to purchase this
one
as you obviously use it to edit your perl scripts, perhaps you can help
me.
with regard to the tools.
I have been unable to capture the output from perl32 for win, it simply
flashes across the screen and at best leaves a blank output page in the
editor.
so I've reverted to using word 6.0 and perl 4 as that leaves a dos box
on the screen.
(I have a suite of macros that automatically launch perl in either
syntax check or
interpret/compile mode)
do you have any idea how the capture should be setup ?
--
Regards
Chris
---
They say that the more you learn, the more you find there is to learn.
Therefore: the smarter you think you are, the dumber you actually are.
---
------------------------------
Date: 12 Feb 1998 12:36:44 GMT
From: trs@eerie.fr (Francois Trousset)
Subject: Re: help needed
Message-Id: <6buqcs$m3k$1@anais.eerie.fr>
In article <34E1FAEA.A1F15088@xs4all.nl>,
herac <herac@xs4all.nl> writes:
> I would like to replace all the string wich like <font face="wp
> multinational roaman" size=4> and also the other font sizes and sizes
> wich i dont know
Hi,
Assume your text is stored in variable $text.
Then just do something like that :
$text =~ s/<font face="wp multinational roaman" size=\d+>/whatever you want/g;
replace spaces by \s+ where they are used as separators, and add
\s* where spaces may be added to be sure to match any pattern of
this kind :
$text =~ s/<\s*font\s+face\s*=\s*"wp multinational roaman"\s+size\s*\d+\s*>/...../g;
And if you don't know the face value then
$text =~ s/<\s*font\s+face\s*=\s*"[^"]+""\s+size\s*\d+\s*>/...../g;
I hope it will help you.
Francois Trousset
------------------------------
Date: 12 Feb 1998 12:42:22 GMT
From: trs@eerie.fr (Francois Trousset)
To: bunner@rclsgi.eng.ohio-state.edu (dan bunner )
Subject: Re: Help with code
Message-Id: <6buqne$m3k$2@anais.eerie.fr>
In article <6bsf6l$149$1@rclnews.eng.ohio-state.edu>,
bunner@rclsgi.eng.ohio-state.edu (dan bunner ) writes:
> What I'd like to be able to do is
>
> foreach $i (0 .. 5) {
> print "<b> $in{var$i} </b>";
> }
Hi,
Didn't you simply try :
print "<b> " , $in{var$i} , " </b>";
Francois TROUSSET
------------------------------
Date: 12 Feb 1998 13:09:19 GMT
From: trs@eerie.fr (Francois Trousset)
Subject: Re: Help with code
Message-Id: <6bus9v$m3k$3@anais.eerie.fr>
In article <6buqne$m3k$2@anais.eerie.fr>,
trs@eerie.fr (Francois Trousset) writes:
> print "<b> " , $in{var$i} , " </b>";
Sorry, I forgot quotes, the following should work :
print "<b> " , $in{"var$i"} , " </b>";
> Francois TROUSSET
>
------------------------------
Date: 12 Feb 1998 11:28:08 GMT
From: mbeattie@sable.ox.ac.uk (Malcolm Beattie)
Subject: Re: help! Perl Compiler
Message-Id: <6bumc8$dcl$1@news.ox.ac.uk>
In article <6btugc$o28$1@newstmp1.bora.net>,
EWON I&C Inc. <hostmaster@DrZone.COM> wrote:
>hi all ~
>
>I've problem on perl script compiling.
>
>My test environment is below:
>
> FreeBSD-980208-SNAP,
> perl 5.004_04,
> pg_perl-1.6.3
>
>and wrote perl script name pg.pl:
>
> #!/usr/bin/perl
> use Pg;
> 1;
>
>and compile with Compler-a3 like below:
>
> perl -Iblib/arch -MO=C,-opg.c,-uPg pg.pl
> perl cc_harness -o pg pg.c -L/usr/local/pgsql/lib -lpq
>
>then, i get error messages:
>
> pg.pl syntax OK
> /var/tmp/cc0143811.o: Undefined symbol `_XS_Pg_PQlo_lseek' referenced
>from data segment
> /var/tmp/cc0143811.o: Undefined symbol `_XS_Pg_PQlo_import' referenced
>from data segment
> /var/tmp/cc0143811.o: Undefined symbol `_XS_Pg_PQlo_export' referenced
>from data segment
> /var/tmp/cc0143811.o: Undefined symbol `_XS_Pg_PQlo_write' referenced
>from data segment
> /var/tmp/cc0143811.o: Undefined symbol `_XS_Pg_PQlo_unlink' referenced
>from data segment
> /var/tmp/cc0143811.o: Undefined symbol `_XS_Pg_PQlo_tell' referenced
>from data segment
> /var/tmp/cc0143811.o: Undefined symbol `_XS_Pg_PQlo_open' referenced
>from data segment
> /var/tmp/cc0143811.o: Undefined symbol `_XS_Pg_PQlo_creat' referenced
>from data segment
> /var/tmp/cc0143811.o: Undefined symbol `_XS_Pg_PQlo_close' referenced
>from data segment
> /var/tmp/cc0143811.o: Undefined symbol `_XS_Pg_PQlo_read' referenced
>from data segment
>
>i did everything i know ... ^^;
>
>i wanna to make executable binary using Compiler-a3.
>
>what shall i do ?
>
>help me ...
Downgrade to perl 5.003, link against Pg.so (or equivalent), sacrifice
a dead chicken and cross your fingers. Or wait for 5.005 within a month.
--Malcolm
--
Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Oxford University Computing Services
"I permitted that as a demonstration of futility" --Grey Roger
------------------------------
Date: Thu, 12 Feb 1998 11:24:57 GMT
From: dave.power@adpdesign.com (Dave Power)
Subject: Re: How the Hell do I...?
Message-Id: <34e5dba2.72616953@news.virgin.net>
Thank you Marc.
DP
------------------------------
Date: Thu, 12 Feb 1998 10:46:20 GMT
From: Marc.Haber-usenet@gmx.de (Marc Haber)
Subject: Re: How the Hell do I...?
Message-Id: <6buju8$iuk$1@nz12.rz.uni-karlsruhe.de>
dave.power@adpdesign.com (Dave Power) wrote:
>On 12 Feb 1998 02:33:11 GMT, Tom Christiansen <tchrist@mox.perl.com>
>wrote:
>> % man perlfunc | grep -i delete
>> [amongst other things ...]
>> XXXXXX Deletes a list of files. Returns the number
>> of files successfully deleted.
>>
>>The XXXXXX is left for you to lookup on your now.
Tom surely is working rather hard to get people to read the docs.
>I've picked up the FAQ now - thanx (much better than the docs which
>came with my W95 version 4 of Perl) but I'm still confused.
You are guilty of not being a UNIX hacker. I am not one, too.
>Maybe I've not had enough time to do a proper read thro' but pls tell
>me how - in simple terms - do I delete a file? I don't want a full
>course in the language - just one answer to one question.
UNIXites may know that deleting is done with the unlink command. Most
DOS and Windows people without a UNIX background simply don't know
this.
Tom, please think about your attitude. You are not only rude to
newbies, but you are also not doing the perl community a good service
by scaring new people off. Not to mention the bad name you throw on
your excellent books (one of them coming into my view when I raise my
head above the monitor).
Greetings
Marc
--
-------------------------------------- !! No courtesy copies, please !! -----
Marc Haber | " Questions are the | Mailadresse im Header
Karlsruhe, Germany | Beginning of Wisdom " | Fon: *49 721 966 32 15
Nordisch by Nature | Lt. Worf, TNG "Rightful Heir" | Fax: *49 721 966 31 29
------------------------------
Date: Fri, 13 Feb 1998 00:05:36 -1100
From: Chris <rebel@wantree.com.au>
To: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Is this correct? File Locking
Message-Id: <34E42900.6A1B@wantree.com.au>
Tom Christiansen wrote:
>
> [courtesy cc of this posting sent to cited author via email]
>
> In comp.lang.perl.misc,
> "Bill Genzer" <bill@fathead.net> writes:
> :I'm still new at CGI and I've looked at several different FAQs trying to
... shortened for brevity.
> man perlfaq5: I still don't get locking. I just want to increment the
> number in the file. How can I do this?
>
> --tom
> --
> Tom Christiansen tchrist@jhereg.perl.com
> They spell it "da Vinci" and pronounce it "da Vinchy". Foreigners
> always spell better than they pronounce.
> -- Mark Twain
I know this is a bit of an old subject, but I felt impelled to respond
to it.
I am, like Bill coming to terms with perl,cgi and unix (I'm on a windoze
machine).
perhaps you should not have been so hard on him.
I can relate to his story, and he did choose wisely to consult the
"experts" on the matter.
the following is an example taken from the perl manual as distributed
with perl32 for
win.
EXTRACT
============================================================
Here's a mailbox appender for BSD systems.
$LOCK_SH = 1;
$LOCK_EX = 2;
$LOCK_NB = 4;
$LOCK_UN = 8;
sub lock {
flock(MBOX,$LOCK_EX);
# and, in case someone appended
# while we were waiting...
seek(MBOX, 0, 2);
}
sub unlock {
flock(MBOX,$LOCK_UN);
}
open(MBOX, ``>>/usr/spool/mail/$ENV{'USER'}'')
or die ``Can't open mailbox: $!'';
lock();
print MBOX $msg,"\n\n";
unlock();
==========================================================
now it seems to me that what Bill said, is in agreement with the
example.
I did not see that Bill pronounced you as the author of the faq he used.
perhaps you were.
I have read some of the other articles in this thread and felt that Eric
Bohlman <ebohlman@netcom.com> gave a good description of the error in
using the above.
had I not stumbled on this thread, I too would have followed in Bill's
path,
after all that's what was in the manual!
--
Regards
Chris
---
They say that the more you learn, the more you find there is to learn.
Therefore: the smarter you think you are, the dumber you actually are.
---
------------------------------
Date: Thu, 12 Feb 1998 08:15:55 -0500
From: "I have a life, and I can prove it!" <jefpin@bergen.org>
To: George Cushing <gcushing@exchange.nih.gov>
Subject: Re: MATH
Message-Id: <Pine.SGI.3.95.980212081503.13588C-100000@vangogh.bergen.org>
>I am doing some dividing in Perl. How do I round up my results to 2
>decimal digits?
>I am new to Perl and will appreciate some help.
Read perldoc perlfunc
Check the entries for printf and sprintf
Here: $value = sprintf "%.2f", $value;
That'll make $value have only 2 decimal places.
--
| Before you think UNIX is family-oriented, note that all children
| must die.
| - Cross-Platform Perl
Jeff Pinyan | http://users.bergen.org/~jefpin | jefpin@bergen.org
techmaster@bergen.org | techmaster@mindless.com
techie@continuum.eu.org | jpinyan at #perl on irc.ais.net
&jp('"($``','','$)EDF8```','$*52J4```','$+E1G4```','#J``@','#2__`');sub
jp{for$w(@_){$c=unpack('B48',unpack('u',$w));$c=~tr/10/# /;print "$c\n"}}
------------------------------
Date: Thu, 12 Feb 1998 10:52:55 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: Padding out a string
Message-Id: <34e7d305.3946745@news.tornado.be>
"Tan Aksoy" <tan@morline.com> wrote:
>e.g. I have the number 10 but would like to represent it as a 6-digit
>number/string i.e. 000010.
>
>Is there a command that will do this or should I write a little algorithm?
You probably don't have a C background, or you would have stabbed a
guess at printf and sprintf.
$num = 10;
$formatted = sprintf("%06d", $num);
print "$formatted\n";
HTH,
Bart.
------------------------------
Date: Thu, 12 Feb 1998 10:56:24 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: Padding out a string
Message-Id: <34e8d49d.4337317@news.tornado.be>
cberry@cinenet.net (Craig Berry) wrote:
>Martin Vorlaender (martin@RADIOGAGA.HARZ.DE) wrote:
>: sprintf '%06d', 10
>:
>: See the section about sprintf() in the perlfunc POD.
>
>This is actually one of those rare cases where Perl's doc is inadequate.
>Not everyone has doc on C's sprintf() function available; since Perl's
>sprintf() refers to that doc, those who don't can't find any explanation
>of the format specifiers available.
>
>(Now I just pray to all the Gods of Usenet that I haven't missed a
>complete list of format specs tucked away in perlfaq47...)
You haven't looked at perlfunc.pod, sprintf recently, have you?
Since Perl5.004 (or thereabout), the pods have been updated. Including a
full description on sprintf. Yes!
I know. I used to complain about it, too.
Bart.
------------------------------
Date: 12 Feb 1998 12:00:02 GMT
From: markos@student.math.hr (Marko Sunjic)
Subject: perl-ftp problem
Message-Id: <6buo82$925@bagan.srce.hr>
Hi...
Can someone help me with this...
My program gets $file from $host,but if file is binary than it should return his size
and if it's only ascii file it should compare it to the file in my home dir (if exists)
with system diff call...
How can i tell if thew file is bin or ascii?
Thanx.
***************************************************************
/ /
/ Marko Sunjic University of Zagreb Department of mathematics/
/ e-mail markos@student.math.hr /
/ URL http://student.math.hr:80/~markos/ /
/ /
***************************************************************
"I don't have a drinking problem,except when I can't get myself a drink"
------------------------------
Date: Thu, 12 Feb 1998 12:34:30 +0000
From: David Proffitt <D.M.Proffitt@mds.qmw.ac.uk>
Subject: scope of $<digit>
Message-Id: <34E2EC56.2656@mds.qmw.ac.uk>
This fragment checks lines of text for matching pairs of HTML style
tags. If there is a matching pair it just prints out the line, if there
is only an opening tag it adds a closing tag to the end of the line.
The conditionals work OK but the closing tags are empty - there is never
anything in $1
The FAQs say that the scope of $<digit> is the current block or until
the next match using a backreference
I'm obviously missing something about the behaviour of $<digit> ?
while (<IN>) {
chomp;
if (/<(.*?)>/ and /<\/$1>/) {
print "debug1 = $1";
print OUT "$_\n";
}
elsif (/<(.*?)>/ and /[^<\/$1>]/) {
print "debug2 = $1";
print OUT "$_<\/$1>\n";
}
}
--
David
=======================================================
David Proffitt - Systems Programmer
St Bartholomew's and the Royal London
School of Medicine and Dentistry
University of London
=======================================================
------------------------------
Date: Thu, 12 Feb 1998 19:12:58 GMT
From: 666@eudoramail.com (Patrick)
Subject: Re: test!! please ignore this message i am seeing if it works!
Message-Id: <6bui4m$kuj$1@news.NL.net>
Tom Christiansen <tchrist@mox.perl.com> wrote:
>It would be presumptuous of me to concur, don't you think? :-)
Please continue this conversation in another newsgroup. :-)
------------------------------
Date: 12 Feb 1998 10:35:42 GMT
From: wirtz@dfn.de (Holger Wirtz)
Subject: UDP communication and perl
Message-Id: <6buj9u$c48$1@proxima.dfn.de>
Hi,
I have a simple problem with the NetExt module. I use Net-ext-0.82 on
Solaris-2.5.1 with Perl-5.004.
Can anyone tell me how to cimmunicate with UDP? My simple programms won't
work. Where is the problem???
Here are the sources:
--- client ---
$HOST="bla.blub.de";
$PORT=4680;
require 5.004;
use Net::UDP;
&main();
sub main
{
$net=new Net::UDP($HOST,$PORT);
$P="PING\n";
while(1)
{
$net->PRINT($P);
print("PING\n");
sleep(10);
}
}
--- end client ---
--- server ---
require 5.004;
use Net::UDP;
&main();
sub main
{
$net=new Net::UDP $HOST,$PORT;
# Endlosschleife
while(1)
{
print $net->READLINE;
}
}
--- end server ---
It seems to be so simple but it won't work. I used snoop to watch the outgoing
packet from the client but there are no packets...
Can anybody help or tell me where to find help or sources?
Thanks, Holger
------------------------------
Date: 12 Feb 1998 13:31:00 GMT
From: trs@eerie.fr (Francois Trousset)
Subject: Re: which sub calls my sub in perl module ?
Message-Id: <6butik$mrq$1@anais.eerie.fr>
In article <887273562.556728323@dejanews.com>,
andreasw@prosolvia.se writes:
> I get a warning from a subroutine within a perl module, which is called by
> my script:
> Use of uninitialized value at /<PATH>/Mathsubs.pm line 57.
>
> I'm trying to find out where from it is called - I call it quite
> frequently.
>
> With $0, I get the name of my script, ./up.pl
> $. gives 0
>
> the function I call is:
>
> 55 sub RAD {
> 56 my $a = shift @_;
> 57 ($a * 0.01745329252);
> 58 }
>
> Is there another $<anything>, which I did not find in the documentation,
> or do you see another possibility (except for brute-force manual
> debugging) ?
Hi,
I have seen nothing wrong with this sub, even in a module.
But, in fact the error message :
> Use of uninitialized value at /<PATH>/Mathsubs.pm line 57.
would certainly tell that you forgot to give a parameter to
RAD in the calling sub. Use perl -d to your script and print
the stack to see ehere it is called, the problem should be
there.
Francois Trousset
------------------------------
Date: Thu, 12 Feb 1998 13:18:41 +0000
From: David Rawle <info@channel-a.com>
Subject: Why is Tom Christiansen so rude?
Message-Id: <34E2F6B1.CB68DC5E@channel-a.com>
Well?
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 1872
**************************************
