[9794] in Perl-Users-Digest
Perl-Users Digest, Issue: 3387 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Aug 7 09:07:13 1998
Date: Fri, 7 Aug 98 06:01:01 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 7 Aug 1998 Volume: 8 Number: 3387
Today's topics:
Re: [Q] copy Hash to temp Hash, change temp & not the o (Scott Cherkofsky)
Access, ODBC and Linux (Stiphane Dupille)
Re: Access, ODBC and Linux <perlguy@inlink.com>
Re: Access, ODBC and Linux <kirsch@akademie.de>
Re: ANNOUNCE: Free Perl Books for 5.005 - CRC Errors in <gdonohoe@nmp.nokia.com>
Re: Autoincrement with hashes <jdf@pobox.com>
Re: c.l.p.moderated: not much traffic? (Chris Nandor)
Calculate Date in Perl ngong@my-dejanews.com
Re: Calculate Date in Perl (Bob Trieger)
Re: Directory size (including all clilt files / dirs) - <Kflanagan@home.com>
Help Help Please Help ! (Wei-Jen Chang)
Re: Help Help Please Help ! (Real)
Re: hiding user input (Chris Nandor)
Re: hiding user input (Chris Nandor)
open on FIFO doesn4t return -Why? (Franz Kaufmann)
Passing variables to a script <pearse@mail.shebang.net>
Re: Passing variables to a script (Honza Pazdziora)
Re: Passing variables to a script <pearse@mail.shebang.net>
Re: Perl Docs.. forget the original post (Chris Nandor)
Re: Perl Docs.. forget the original post (Chris Nandor)
Re: Perl Docs.. forget the original post (Chris Nandor)
perl PARSER <djinn@tech.eurodyn.com.gr>
Re: perlfaq - frequently asked questions about Perl (pa (Bob Trieger)
Re: perlfaq - frequently asked questions about Perl (pa (Chris Nandor)
perltoot q: overriding new method and calling superclas <sidi@gt.ed.net>
POSIX in Safe compartments (was: Q: Safe...) (Andre Merzky)
Re: Premature end of script headers & Exec format error (Bob Trieger)
Q: Safe problem... (root)
Re: re first language <matt@pcr7.pcr.com>
Re: Server or Programmer problems? <perlguy@inlink.com>
Re: Server or Programmer problems? <perlguy@inlink.com>
Re: Speed Up Perl <matt@pcr7.pcr.com>
typeglob - question (root)
Re: typeglob - question <jdf@pobox.com>
Re: WIn Perl For 98 <REPLY_TO_lastronin@earthlink.net>
Re: WIn Perl For 98 (Bob Trieger)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 7 Aug 1998 08:08:25 -0400
From: crusader@bobo.shirenet.com (Scott Cherkofsky)
Subject: Re: [Q] copy Hash to temp Hash, change temp & not the orig?
Message-Id: <6qeqnp$411@bobo.shirenet.com>
In article <6qd3v8$r2d$1@marina.cinenet.net>,
Craig Berry <cberry@cinenet.net> wrote:
>Scott Cherkofsky (crusader@bobo.shirenet.com) wrote:
>: I'm reading a file into a Hash variable and then doing some work on
>: the Hash which changes its values.
>
>And let me guess...the hash values are references, right?
>
>If you build %hFile so that its values are references, then those same
>references get copied over to the %hOriginalFile values -- that is, the
>keys in each hash are 'pointing to' the *same* underlying values. This is
>often refered to as a 'shallow copy'. What you want is a 'deep copy', in
>which the two hashes don't share any storage.
Ah, so much to learn!
Thanks Craig - that seem logical. I'm still not used to thinking of scalars as being references to
values which can have many aliases.
Tootles,
Scott
--
____________________________________________________________________________
Scott | scottc1033 aol com | Need Interenet access in Virginia?
Cherkofsky|crusader shirenet com | Try Shirenet <mailto:info@shirenet.com>
'Crusader'|HomePage: http://www.shirenet.com/~crusader/html/Home.html
------------------------------
Date: 07 Aug 1998 12:23:13 +0200
From: sdupille@yahoo.com (Stiphane Dupille)
Subject: Access, ODBC and Linux
Message-Id: <m3zpdhxf8u.fsf@gromit.adrenaline.fr>
Hi there !
I try to access Access database on WinNT from a linux
workstation.
I get DBI 0.93 and DBD-ODBD 0.17. DBI was installed
succesfully, but I get an error when I compile DBD-ODBC :
In file included from ODBC.h:9,
from ODBC.xs:1:
mysql.h:9: isql.h: No such file or directory
mysql.h:10: isqlext.h: No such file or directory
make: *** [ODBC.o] Error 1
So, where can I find these two files : isql.h and isqlext.h ?
Does anyone succeded in acceding ODBC database via Perl ?
Please send a copy of the response via email too, because it's
very urgent !!
--
___
{~._.~} Stephane - DUST - Dupille
( Y ) You were dust and you shall turn into dust
()~*~() email : sdupille@yahoo.com
(_)-(_)
------------------------------
Date: Fri, 7 Aug 1998 11:31:53 GMT
From: Brent Michalski <perlguy@inlink.com>
Subject: Re: Access, ODBC and Linux
Message-Id: <35CAE5A9.67121CF2@inlink.com>
Stiphane Dupille wrote:
>
> Hi there !
>
> I try to access Access database on WinNT from a linux
> workstation.
>
... SNIP ...
>
> Does anyone succeded in acceding ODBC database via Perl ?
AFAIK, you cannot use ODBC from a UNIX box to connect to an NT box that
has an ODBC database on it.
If anyone knows if and how this is possible, please post it. If you
know why it isn't, please post that as well so that we are all
enlightened.
Brent
------------------------------
Date: Fri, 07 Aug 1998 14:12:49 +0200
From: Christian Kirsch <kirsch@akademie.de>
Subject: Re: Access, ODBC and Linux
Message-Id: <35CAEF41.65FFA0DC@akademie.de>
Brent Michalski wrote:
>
> Stiphane Dupille wrote:
> >
> > Hi there !
> >
> > I try to access Access database on WinNT from a linux
> > workstation.
> >
> ... SNIP ...
> >
> > Does anyone succeded in acceding ODBC database via Perl ?
>
> AFAIK, you cannot use ODBC from a UNIX box to connect to an NT box that
> has an ODBC database on it.
>
> If anyone knows if and how this is possible, please post it. If you
> know why it isn't, please post that as well so that we are all
> enlightened.
I'm not sure if this is true in general. If (and only if) you have
- a fully functional ODBC driver manager under Linux
- an ODBC driver for the database server you want to connect to
- and the server runs under NT
- and it permits network connections
then you be able to connect to a database server running under NT. It
doesn't work with Access, AFAIK (since there is no ODBC driver for
Access under Linux).
However, you might want to have a look at www.openlinksw.com
Christian
------------------------------
Date: Fri, 07 Aug 1998 12:06:06 +0100
From: Graham Donohoe <gdonohoe@nmp.nokia.com>
Subject: Re: ANNOUNCE: Free Perl Books for 5.005 - CRC Errors in text version archive?
Message-Id: <35CADF9E.48F5@nmp.nokia.com>
Tom Christiansen wrote:
>
> [courtesy cc of this posting sent to cited author via email]
>
> In comp.lang.perl.misc,
> cicho@polbox.com (Marek Jedlinski) writes:
> :Suggested solution: since gzip is unix-centric anyway, please provide a
> :.zip archive version as well.
>
> No, sir. CPAN is in .tar.gz format. You're talking about four thousand,
> one hundred and ninety-two files to duplicate. If the Windows folks
> want to play on the net, then they need to cope with the norms here.
>
Anyway, there are plenty of Windows shareware utilities which can cope
with tar and gzip. WinZip is the most well known, and should be easy
enough to find at www.winzip.com.
.... besides that, perl is unix-centric too!
Graham
------------------------------
Date: 07 Aug 1998 07:57:41 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: maryesme@mail.localaccess.com
Subject: Re: Autoincrement with hashes
Message-Id: <r9yt3q62.fsf@mailhost.panix.com>
Mark Lybrand <maryesme@mail.localaccess.com> writes:
> grep($ALL_FIELDS{$_}++,@$_);
If this line of code is indeed complete, then it's a good
advertisement for the potentially confusing nature of grep/map in a
void context. Here's how I'd write the same semantic:
foreach (@$_) { $ALL_FIELDS{$_}++ }
The variable $_ contains a reference to an array. The phrase @$_ is
the array to which $_ refers. So
grep( foo, @$_ );
Applies some expression or block foo to the elements of @$_ in turn.
The elements are supplied to foo in the form of a dynamically scoped
$_, so that the $_ you see in $ALL_FIELDS{$_}++ is not the same $_
that you see in @$_. Even clearer:
my $r_fields = $_;
foreach my $field (@$r_fields) { $ALL_FIELDS{$field}++ }
> 1. Construct an array using the $_ variable.
Not exactly "construct"; more like "refer to".
> 2. Make $ALL_FIELDS{'next element in the @$_ array'}.
Yep.
> But what does the ++ do for us with hashes???
It's a common idiom for autovivifying hash elements. If $h{foo}
doesn't exist, then the phrase $h{foo}++ will bring it into existance.
The fact that its value is now 1 is immaterial. If we run into foo
again, the value will increase, but it's only the existance of the key
foo that interests us.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf/
------------------------------
Date: Fri, 07 Aug 1998 07:53:43 -0400
From: pudge@pobox.com (Chris Nandor)
Subject: Re: c.l.p.moderated: not much traffic?
Message-Id: <pudge-0708980753430001@192.168.0.3>
In article <6qcfig$3bm$1@aurwww.aur.alcatel.com>, klassa@aur.alcatel.com wrote:
# Is it me, or is the traffic on c.l.p.moderated pretty much a
# trickle?
All I know is that the traffic in this thread is greater (posts/day) than
that of the entire clp.mod newsgroup ... but I would not say that's a bad
thing.
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: Fri, 07 Aug 1998 11:03:18 GMT
From: ngong@my-dejanews.com
Subject: Calculate Date in Perl
Message-Id: <6qemtm$im0$1@nnrp1.dejanews.com>
I wanna know how I can calculate a new date in Perl or Shell Script, given an
initial date and an offset which may be positive or negative in days, in
order to answer questions like "today plus 90 days -- what date gives that ?
PS. I can't use command like "make install" module in my server.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Fri, 07 Aug 1998 12:06:52 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: Calculate Date in Perl
Message-Id: <6qeqq7$db3$3@ligarius.ultra.net>
[ posted and mailed ]
ngong@my-dejanews.com wrote:
-> I wanna know how I can calculate a new date in Perl or Shell Script, given an
-> initial date and an offset which may be positive or negative in days, in
-> order to answer questions like "today plus 90 days -- what date gives that ?
->
-> PS. I can't use command like "make install" module in my server.
You probably already have one of the following modules on your system and all
will do what you want:
Date::Calc
Date::DateCalc
Date::Manip
If not, politely ask your server admin to install them from CPAN.
HTH
Bob Trieger
sowmaster@juicepigs.com
" Cost a spammer some cash: Call 1-800-400-1972
Ext: 1949 and let the jerk that answers know
that his toll free number was sent as spam. "
------------------------------
Date: Fri, 07 Aug 1998 12:03:56 GMT
From: "Kevin Flanagan" <Kflanagan@home.com>
Subject: Re: Directory size (including all clilt files / dirs) - help
Message-Id: <M2Cy1.366$Ys2.15584479@news.rdc1.ne.home.com>
There is a du for NT also, look for a GNU repository.
Jason Morehouse wrote in message <6qckir$7ho$1@news.interlog.com>...
>Hello,
>
>Anyone know the quickest way using non system calls to get the size of a
>directory and all of its contents (including all child directories /
files)?
>
>I am using perl32 on NT server -- any functions, modules or otherwise
>possibilities are appreciated!
>
>Thanks in advance!
>-Jason
>
>________________________________________________________
> Jason Morehouse (jm@interlog.net)
> Phone: (416) 920-2655, ext. 2225 / Fax: (416) 515-6737
> Interlog Internet Services, Network Operations Group
>________________________________________________________
>PGPf: 1D2D E1A7 7B3A 0EED 2F05 4082 8862 2486 C786 EB1C
>
>
------------------------------
Date: Fri, 07 Aug 1998 11:45:44 GMT
From: cwjen@netwizards.net (Wei-Jen Chang)
Subject: Help Help Please Help !
Message-Id: <35cae6e1.54601472@news.netwizards.net>
#!/usr/bin/perl
@array = (1,2,3,4,5,6);
$count = 0;
$count2 = 0;
@temp = ();
while ($count <= 5){
$temp[$count2] = $array[$count];
$temp[$count2+1] = $array[$count];
$count2 = $count + 2 ;
$count++;
}
print @temp;
The result is: 11234566
but I image the result should be : 112233445566
Why ???
Thanks for your help
------------------------------
Date: Fri, 7 Aug 1998 14:14:43 +0200
From: real@earthling.net (Real)
Subject: Re: Help Help Please Help !
Message-Id: <MPG.10350e1e4e2e41fd9896c2@news.surfnet.nl>
Wei-Jen Chang wrote;
# #!/usr/bin/perl
#
# @array = (1,2,3,4,5,6);
# $count = 0;
# $count2 = 0;
# @temp = ();
# while ($count <= 5){
#
# $temp[$count2] = $array[$count];
#
# $temp[$count2+1] = $array[$count];
#
# $count2 = $count + 2 ;
# $count++;
#
# }
# print @temp;
#
# The result is: 11234566
# but I image the result should be : 112233445566
#
# Why ???
#
# Thanks for your help
It becomes clear if you display the progress;
Count: 0 Count-2: 0 11
Count: 1 Count-2: 2 1122
Count: 2 Count-2: 3 11233
Count: 3 Count-2: 4 112344
Count: 4 Count-2: 5 1123455
Count: 5 Count-2: 6 11234566
Final: 11234566
As you can see, you're overwriting elements in the @temp array.
I presume you're using this script in order to learn Perl. I cannot see
any practical usage. But a script like the one below will do want you
want;
@temp = ();
$count = 0;
$count2 = 0;
while ($count2 <= 5) {
$temp[$count] = $array[$count2];
$temp[++$count] = $array[$count2];
print "Count: ", $count, "\tCount-2: ", $count2, "\t", @temp, "\n";
$count++;
$count2++;
}
print "Final: ", @temp, "\n\n";
Cheers,
Real
------------------------------
Date: Fri, 07 Aug 1998 08:06:44 -0400
From: pudge@pobox.com (Chris Nandor)
Subject: Re: hiding user input
Message-Id: <pudge-0708980806440001@192.168.0.3>
In article <6qclcq$9ae@mozo.cc.purdue.edu>, gebis@fee.ecn.purdue.edu
(Michael J Gebis) wrote:
# }Yes, sometimes more legitimate questions are answered in a negative
# }fashion. But it is reasonable. When cops are in a gunfight with armed
# }robbers in ski masks, you can't blame the cops too much if they shoot a
# }ski instructor that happens to be walking past.
#
# Are you sure you want to be arguing, "Shoot 'em all and let God
# sort 'em out?" That makes a fine t-shirt, but a poor defense.
I am not arguing that. I am not arguing to shoot anyone who happens to be
wearing a ski mask. I am arguing that we should shoot the criminals of
the group, and that if you happen to get in the line of fire and look very
much like a criminal, well, them's the breaks.
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: Fri, 07 Aug 1998 08:11:09 -0400
From: pudge@pobox.com (Chris Nandor)
Subject: Re: hiding user input
Message-Id: <pudge-0708980811090001@192.168.0.3>
In article <m3vho5n7mi.fsf@windlord.Stanford.EDU>, Russ Allbery
<rra@stanford.edu> wrote:
# Chris Nandor <pudge@pobox.com> writes:
#
# > Oh my. Would they make any LESS money if Burnore -- or anbody -- does
# > or does not have X-No-Archive? Please.
#
# Sure. DejaNews cannot claim to have a complete archive. They would
# probably make more money if they could.
I don't believe that.
# Chris, were you around when DejaNews started? Did you follow the
# discussions that led to the creation of X-No-Archive in the first place?
# I don't believe you realize how *many* people were upset and just *how*
# angry they were.
And I think they are being silly. I think it was about time people
realize that anything they post is posted to the world, and that's always
been the case, and you better get used to it.
# > What if *I* decided to archive clp.misc, and made it available for free,
# > without ads? Would that be OK?
#
# It is generally considered to be good manners, if you are maintaining an
# archive of any sort, to honor the X-No-Archive header. Something along
# those lines is likely to be put into the next revision of the news
# standards, after which point if you were maintaining a publically
# accessible archive and did not honor the header, and this caused problems
# for someone, it's quite likely you could be sued and would lose.
Not a chance. RFCs do not laws make. I would contend that it is not
possible to make a constitutional law that would disallow me from keeping
a public archive of everything ever posted to any or all newsgroups. The
post is by definition public once it is posted. What makes it legal for
me to keep it on my news server for a month, but illegal to keep it on my
web server for a year or more? I'd hate to see a draft of such
legislation, because it would be nonsensical.
If you post something, it is public. Get used to it.
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: Fri, 07 Aug 98 14:07:55 gmt
From: ws97-868@wsrz1.wiso.uni-erlangen.de (Franz Kaufmann)
Subject: open on FIFO doesn4t return -Why?
Message-Id: <6qeqnq$7pq$1@rznews.rrze.uni-erlangen.de>
Hello.
I have a problem that I want to solve by two perl porcesses communiating
via a FIFO.
The neame of the fifos I have written in the array @masterfifos.
So I address one of the fifos with $masterfifos[0]="/tmp/FIFO0"
When I do a
open (IN,"$masterfifo[0]") || die "$!";
print "SUCCESSFUL" if $DEBUG;
perl doesn4t complain,but doesn4t print "SUCCESSFUL",i.e doesn4t return
from the open although the FIFO exists.
Whats my or perl4s problem?
Thank you for your answer.
Bye.
------------------------------
Date: Fri, 07 Aug 1998 06:46:19 -0500
From: pearse <pearse@mail.shebang.net>
Subject: Passing variables to a script
Message-Id: <35CAE90B.585BCF3@mail.shebang.net>
What's the syntax for passing a variable to a script from the command
line. Issuing 'perl script variable' doesn't work.
Thanks,
Robert
------------------------------
Date: Fri, 7 Aug 1998 11:56:02 GMT
From: adelton@fi.muni.cz (Honza Pazdziora)
Subject: Re: Passing variables to a script
Message-Id: <slrn6slqqb.s4j.adelton@aisa.fi.muni.cz>
On Fri, 07 Aug 1998 06:46:19 -0500, pearse <pearse@mail.shebang.net> wrote:
> What's the syntax for passing a variable to a script from the command
> line. Issuing 'perl script variable' doesn't work.
It works. You just have to fetch them in your Perl script via @ARGV
array.
--
------------------------------------------------------------------------
Honza Pazdziora | adelton@fi.muni.cz | http://www.fi.muni.cz/~adelton/
I can take or leave it if I please
------------------------------------------------------------------------
------------------------------
Date: Fri, 07 Aug 1998 07:20:30 -0500
From: pearse <pearse@mail.shebang.net>
To: adelton@fi.muni.cz
Subject: Re: Passing variables to a script
Message-Id: <35CAF10E.BD8085D7@mail.shebang.net>
Duh! I was using @_.
Thanks,
Robert
Honza Pazdziora wrote:
> On Fri, 07 Aug 1998 06:46:19 -0500, pearse <pearse@mail.shebang.net> wrote:
> > What's the syntax for passing a variable to a script from the command
> > line. Issuing 'perl script variable' doesn't work.
>
> It works. You just have to fetch them in your Perl script via @ARGV
> array.
>
> --
> ------------------------------------------------------------------------
> Honza Pazdziora | adelton@fi.muni.cz | http://www.fi.muni.cz/~adelton/
> I can take or leave it if I please
> ------------------------------------------------------------------------
>
------------------------------
Date: Fri, 07 Aug 1998 08:01:24 -0400
From: pudge@pobox.com (Chris Nandor)
Subject: Re: Perl Docs.. forget the original post
Message-Id: <pudge-0708980801240001@192.168.0.3>
In article <6qcdja$3hp$3@csnews.cs.colorado.edu>, tchrist@mox.perl.com
(Tom Christiansen) wrote:
# [courtesy cc of this posting sent to cited author via email]
#
# In comp.lang.perl.misc, jdporter@min.net writes:
# :> I'm sorry that this is a shock, but perl is a unix tool.
# :Ok. And it's a Windows tool; and a OS/2 tool, and a Mac tool, and
# :a VMS tool...
#
# If one were to run vi or emacs under OS/2, would that act ipso facto
# make them `OS/2 tools'? I'm not sure I agree.
Yes, it would. Else I don't know what an OS/2 tool is, let alone a Unix tool.
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: Fri, 07 Aug 1998 08:03:47 -0400
From: pudge@pobox.com (Chris Nandor)
Subject: Re: Perl Docs.. forget the original post
Message-Id: <pudge-0708980804330001@192.168.0.3>
In article <35cbfeaf.229829849@nntpd.databasix.com>,
whatpartofdontemailme@dontyouunderstand wrote:
# In which case it's still wrong to suggest that listning to someone's opinion
# should be based on what they've "done for the Perl community"
It is not wrong, it is absolutely right. The Perl community is a
meritocracy. The more you do for the community, the more you are valed in
the community. If you are Larry or Tom, your opinion is heavily
weighted. If you are Gary Burnore, your opinion carries little, if any,
weight. This is how it is, and most of us think this is how it should be.
If you don't like it, feel free to leave.
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: Fri, 07 Aug 1998 08:03:40 -0400
From: pudge@pobox.com (Chris Nandor)
Subject: Re: Perl Docs.. forget the original post
Message-Id: <pudge-0708980803400001@192.168.0.3>
In article <Ob2xvNVw9GA.352@upnetnews03>, "David Meyer"
<dmeyer9@email.msn.com> wrote:
# I have reviewed this newsgroup for years.... and never posted a question.
# Why? Because they are really not very helpful. It is nice... an unhelpful
# news group. Read the FAQ... they expect for people who are not specialists
# in the
# language to become one. It is funny listening to them speak among
# themselves...
# I wonder why Larry does not frequent... etc...etc. Why? because he taught
# a group
# of people to become specialists in a language but did not teach them
# manners. So
# now we have a group of Monsters monitoring a news group. Do you want some
# good
# advice? Read the news group for information on to where to find
# information.
When people post garbage like the above, which is only barely readable (on
account of its formatting, punctuation, and grammar), it is hard to blame
others for getting upset.
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: Fri, 07 Aug 1998 13:59:40 +0300
From: Jean-Michel Hemstedt <djinn@tech.eurodyn.com.gr>
Subject: perl PARSER
Message-Id: <35CADE1C.D02D9D48@tech.eurodyn.com.gr>
Hi
Is there a perl parser that we can use to extract some statements from a
script ?
I think about all "print" statements or all text/string assignments.
The debugger seems not convenient since I don't want to run the script
to get those statements.
Thanks a lot
Jean-Michel
------------------------------
Date: Fri, 07 Aug 1998 11:21:43 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: perlfaq - frequently asked questions about Perl (part 0 of 9)
Message-Id: <6qeo5j$8gv$1@strato.ultra.net>
[ posted and mailed ]
"Curtis Jewell / Dennis Whalen" <cjdpcssd@ims-1.com> wrote:
->
-> Peter A Fein wrote in message ...
-> >I guess it's ok (like I'm some authority or something? Sheesh). I
-> >would have thought a pointer to those docs (in the form of see 'man
-> >perlfaq') would have been sufficient. But hey if it works, whatever.
->
-> What about those unlucky ones who do not have a man (Win32, Mac)? I've been
-> looking for a man variant at all (much less that RUNS) on Win95 for a YEAR.
If you have the standard port of perl for win32, you can use the `perldoc'
command. The standard port also converts all of the .pod files to html so that
you can use a web browser to scan the docs and faqs.
HTH
Bob Trieger
sowmaster@juicepigs.com
" Cost a spammer some cash: Call 1-800-400-1972
Ext: 1949 and let the jerk that answers know
that his toll free number was sent as spam. "
------------------------------
Date: Fri, 07 Aug 1998 07:57:21 -0400
From: pudge@pobox.com (Chris Nandor)
Subject: Re: perlfaq - frequently asked questions about Perl (part 0 of 9)
Message-Id: <pudge-0708980757210001@192.168.0.3>
In article <6qdvqf$91j@enews1.newsguy.com>, "Curtis Jewell / Dennis
Whalen" <cjdpcssd@ims-1.com> wrote:
# Peter A Fein wrote in message ...
# >I guess it's ok (like I'm some authority or something? Sheesh). I
# >would have thought a pointer to those docs (in the form of see 'man
# >perlfaq') would have been sufficient. But hey if it works, whatever.
#
#
# What about those unlucky ones who do not have a man (Win32, Mac)? I've been
# looking for a man variant at all (much less that RUNS) on Win95 for a YEAR.
#
# Maybe someone should send me the markup language used and I'll write a
# graphical one!
In addition to perldoc on Win32 and Shuck on Mac OS, POD is just a very
simple text markup and is easily readable with any text editor.
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: Thu, 06 Aug 1998 18:17:28 -0400
From: Chris Sidi <sidi@gt.ed.net>
Subject: perltoot q: overriding new method and calling superclass' new
Message-Id: <35CA2B78.304D2A80@gt.ed.net>
In perltoot's "Overridden Methods" section, the
Employee's (subclass of Person) new method is this:
sub new {
my $proto = shift;
my $class = ref($proto) || $proto;
my $self = $class->SUPER::new();
$self->{SALARY} = undef;
$self->{ID} = undef;
$self->{START_DATE} = undef;
bless ($self, $class); # reconsecrate
return $self;
}
Two Questions:
* Why do we bless $self after it's already been
blessed by Person using the double-argument form of
bless (with the same class Employee uses).
* On the call to SUPER::new(), why not pass in @_?
That way if the superclass you're inheriting from
ever needs arguments, there they are.
Thanks,
Chris Sidi
P.S. The packages I'm using are at
http://ulc199.residence.gatech.edu/sidi/tmp/perloo/
------------------------------
Date: 6 Aug 1998 17:45:35 GMT
From: am@am.westblaak.spirit.nl (Andre Merzky)
Subject: POSIX in Safe compartments (was: Q: Safe...)
Message-Id: <6qcq3v$72i$1@newnews.nl.uu.net>
Hi,
further 'investigations' on my (stupid?) Safe problem
pointed out, that not Safe is the bad guy, but POSIX is!
running 'perl, version 5.005_01 built for i586-linux'
following snippet
--------------snip-----------------------------
#!/usr/bin/perl -w
use lib qw (/home/spirit/merzky/Devel/Safe);
use strict;
use Safe;
my $compartment = new Safe;
# the working part...
use sidTools qw (&sidError);
$compartment->share_from ('sidTools', ['&sidError']);
$compartment->reval( q { &sidError ("This is inside of code..."); } );
&sidError ("This is after code...");
# the failing part...
use POSIX qw (&getpid);
$compartment->share_from ('POSIX', ['&getpid']);
print "Safe : " . $compartment->reval( q { return &getpid; } ) . "\n";
print "getpid: " . &getpid . "\n";
}
-------------------------------------------------
gives :
-------------------------------------------------
ERROR: This is inside of code...
ERROR: This is after code...
Unquoted string "usage" may clash with future reserved word at ../../lib/POSIX.pm
.....(autosplit into ../../lib/auto/POSIX/getpid.al) line 873.
String found where operator expected at ../../lib/POSIX.pm (autosplit into
../../lib/auto/POSIX/getpid.al) line 873, near "usage "getpid()""
(Do you need to predeclare usage?)
Use of uninitialized value at ./t.pl line 24.
Safe :
Goto undefined subroutine &POSIX::getpid at /usr/lib/perl5/5.00501/AutoLoader.pm line 93.
-------------------------------------------------
what is of course not what I expect. POSIX and getpid work fine
if invoked normally. Starngely enough: the last (autoloader) error message
comes from the second call to getpid, not form Safes reval! So the
getpid is somehow 'forgotten'.
Can someone explain this? I can't (yet...) :-(
Cheers, Andre.
------------------------------
Date: Fri, 07 Aug 1998 11:48:21 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: Premature end of script headers & Exec format error
Message-Id: <6qepni$db3$1@ligarius.ultra.net>
[ posted and mailed ]
c.o.l.m removed because this has ABSOLUTELY nothing to do with Linux.
Jim Fairbrother <fairbrothers@smart.net> wrote:
-> I changed this line:
->
-> print "<IMG ALIGN=middle SRC="thankyou.gif">\n";
->
-> to
->
-> print "<IMG ALIGN=middle SRC=\"/thankyou.gif\">\n";
->
-> and moved the GIF file up a level in the directory tree,
-> and it is fetched and displayed properly now. And I
-> also changed the inner "s to \", thanks to a suggestion.
If you keep backwhacking, you'll go blind (fortunately, that hairy palms stuff
is a myth). Do `perldoc perlop' and look at the quote operators q, qq, qw &
qx. They make it a lot easier and your code a lot more legible.
print qq(<IMG ALIGN=middle SRC="thankyou.gif">);
Is a lot easier on the eye. I use parentheses but you can use any
meta-character you want with the quote operators.
HTH
Bob Trieger
sowmaster@juicepigs.com
" Cost a spammer some cash: Call 1-800-400-1972
Ext: 1949 and let the jerk that answers know
that his toll free number was sent as spam. "
------------------------------
Date: 6 Aug 1998 11:03:16 GMT
From: am@am.westblaak.spirit.nl (root)
Subject: Q: Safe problem...
Message-Id: <6qc2hk$do7$1@newnews.nl.uu.net>
Hi all,
I encounter a strange problem using the Safe.pm. I just don't
manage it to allow external functions, somehow. The Safe just
does not add them into its own namespace... Starngely enough it
succeeds if I CALL the functions first, but of course thats
nothing what I want to do for several dozens of functions I plan
to allow in the Safe compartment...
I would apreciate ANY idea...
--------------------------------------------
#!/usr/bin/perl -w
use strict;
use Safe;
use POSIX qw (getpid); # this one we want to run...
# the code to be executed in the Safe compartment... - well, not much...
my ($code) = q {
return (getpid);
};
# new Compartment...
my $compartment = new sidSafe;
# announce POSIX::getpid...
$compartment->share_from ('POSIX', ['&getpid']);
# the critical line... - I call getpid here, and everything is fine.
# if the line is commented out, the automloader called from Safe complains:
# Goto undefined subroutine &POSIX::getpid at /usr/lib/perl5/AutoLoader.pm...
print "getpid: " . getpid () . "\n";
# call the code, and verify...
print "Safe : " . $compartment->reval($code) . "\n";
print "getpid: " . getpid () . "\n";
-----------------------------------------------
Hmm, thats it... any Ideas???
Regards, Andre.
-----------------------------------------------
PS:
Strangely enough, checking for the existence of a function w/o
calling it, via typeglob, seems to work fine. In my opinion
this is the very same Safe.pm actually does (in share_from () )
The only puzling thing here is the SCALAR check, with always returns
TRUE, even if the scalar $getpid isn't defined...
no strict;
if (defined (*{'getpid'}{GLOB} )) { print "\*getpid {GLOB} \n" };
if (defined (*{'getpid'}{SCALAR} )) { print "\$getpid {SCALAR}\n" };
if (defined ($getpid )) { print "\$getpid defined \n" };
if (defined (*{'getpid'}{ARRAY} )) { print "\@getpid {ARRAY} \n" };
if (defined (*{'getpid'}{HASH} )) { print "\%getpid {HASH} \n" };
if (defined (*{'getpid'}{CODE} )) { print "\&getpid {CODE} \n" };
if (defined (*{'getpid'}{IO} )) { print "\-getpid {IO} \n" };
--
+---------------------------------+----------------------------------+
| Andre Merzky | |
| Dep. of Physics - EEP I | Kathrin Kirsch & Andre Merzky |
| Humboldt University of Berlin | bij Beekma |
| Invalidenstr. 49 | van Boetzelaerstraat 5^3 |
| D-10115 Berlin | NL-1051 CS Amsterdam |
| Tel.: ++49 - 30 - 2093 7988 | Tel.: ++49 - 171 - 280 24 12 |
| --- |
| pinocchio@earthling.net - http://home.pages.de/~pino |
| __o --- |
| _`\<,_ |
|____ (_)/ (_) _________________________________think global_________|
------------------------------
Date: 7 Aug 1998 11:37:56 GMT
From: "Matt Heusser" <matt@pcr7.pcr.com>
Subject: Re: re first language
Message-Id: <01bdc1f7$ad850220$47eb1bcc@XSTA71.pcr.com>
>Do you think at this stage of the game, that I should
>perhaps investigate learning assembly to assist with
>my understanding of Perl, C and other languages?
Forget that. When I was in college, I took a course
in VAX assembler, and we had to take our assembler
code and turn it into Hex or Octal. REAL programmers
code in Octal. ;-) <Sarcasm clearly implied>
Answer - you might want to look at other languages,
but Assembler won't be one of them until you have
a real good grasp of C. In a lot of ways, C is just a
different way of talking assembler that hides the details.
<Hence people call it a "mid-level language ;>
If you want to learn a nifty, ultra-easy language that
lets you do all kindsa cool screen design and database
(SQL or Access) stuff fast, look into visual basic. I
think you'll find that the BASIC you programming in
10 years ago has turned into something more object-
oriented and event driven. Buttons, lists, objects, forms,
nifty stuff.
If you want to write code that does cool stuff that isn't
Screen/event driven, like extraction, reporting, CGI,
systems administration, etc, then Perl is the Language
for you. Y'know, in a lot of ways, Perl is just a different
way of talking C that hides the details.
good luck,
Matt H.
<Anyone else that survived CoSci 326 at Hood College,
please say "hey" - it's too bad they killed the CoSci
major a few years back>
ray <ralba@distorted.net> wrote in article
<35CA24BF.ABB78190@distorted.net>...
> My first language was basic about 10 years ago. After coding for a
> couple of years in that language I decided that perhaps programming was
> not for me. I completely dropped the idea of programming until about
> three years ago when the Internet came about. Now I am trying
> desperately to understand Perl. For the most part it reads simple,
> however, I sometimes find it difficult to get what I want from it due to
> my lack of programming experience. And since I am self teaching myself,
> I have no one to correct my mistakes.
>
> Do you think at this stage of the game, that I should perhaps
> investigate learning assembly to assist with my understanding of Perl, C
> and other languages?
>
> Also, I would like to mention, that if I could be a cook, I would be
> very happy.
>
> Ray
>
>
------------------------------
Date: Fri, 7 Aug 1998 11:39:22 GMT
From: Brent Michalski <perlguy@inlink.com>
Subject: Re: Server or Programmer problems?
Message-Id: <35CAE76A.47938671@inlink.com>
Cross wrote:
>
> I am having problems getting my perl scripts to work. They are very short
> test programs and I have tested them with Active Perl for Win 32 on my
> machine at home but they never work on the server. I have tried everything I
> know (which isn't much). Here's an example of one of my test scripts:
> -------------
> #! /usr/local/bin/perl -w
^^^^^^^^^^^^^^^^^^^^^^^^^
No space is allowed here! Change it to:
#!/usr/local/bin/perl -w
>
> use strict;
> use CGI qw(:standard);
>
> print header();
> print start_html(-title=>'Printer Calculation
> Results',-BGCOLOR=>'#ffff00'),"\n";
> print end_html(),"\n";
> -------------
> I have been able to alter scripts that are on the server and make the work.
> If the problem is with the Programmer (me) please help me.
>
> M. Chris Cross
HTH,
Brent
------------------------------
Date: Fri, 7 Aug 1998 11:50:33 GMT
From: Brent Michalski <perlguy@inlink.com>
Subject: Re: Server or Programmer problems?
Message-Id: <35CAEA09.9FE1D780@inlink.com>
Cross wrote:
>
> I am having problems getting my perl scripts to work. They are very short
> test programs and I have tested them with Active Perl for Win 32 on my
> machine at home but they never work on the server. I have tried everything I
> know (which isn't much). Here's an example of one of my test scripts:
> -------------
> #! /usr/local/bin/perl -w
>
> use strict;
> use CGI qw(:standard);
>
> print header();
> print start_html(-title=>'Printer Calculation
> Results',-BGCOLOR=>'#ffff00'),"\n";
> print end_html(),"\n";
> -------------
> I have been able to alter scripts that are on the server and make the work.
> If the problem is with the Programmer (me) please help me.
>
> M. Chris Cross
Ok, let me correct my incorrectness here :-) I posted a response to
this, but it was wrong and I killed the message. (That is what I get
for trying to answer a question without testing it again!)
I *think* the reason you are getting errors is because when you run this
script, you get a:
"Ambiguous use of title => resolved to "title" => at ./test9.pl line 7."
message that pops up. To eliminate this error, change:
print start_html(-title=>'Printer Calculation
to
print start_html(-TITLE=>'Printer Calculation
^^^^^
By making title all CAPS, it eliminates the warning that you are seeing.
Try this and see if it works...
Brent
P.S. Is your name *really* Chris Cross? :-)
------------------------------
Date: 7 Aug 1998 12:30:19 GMT
From: "Matt Heusser" <matt@pcr7.pcr.com>
Subject: Re: Speed Up Perl
Message-Id: <01bdc1fe$fefd29a0$47eb1bcc@XSTA71.pcr.com>
> Does anyone know how to speed-up perl scripts ? If got
> a quit large script running and it takes too long before it
>responds.
Okay, six suggestions, three good, two bad,
one ugly.
The Good:
1)Use the same concepts as you would in any other
language to speed up code: Algorithm Analysis.(*)
There are a ton of books on the market, but basically,
it comes down to this: Find the inner-most loop of
your program, and either simplify it, or reduce the
number of iterations. Then find another buttom-level
loop, and either simplify it, or reduce the number of
iterations .... ad infinitum, ad nauseum, ad exaustium.
"Programming Perl", Pg. 537-543, has specifics
for what works faster in Perl. Since it's written by
Wall, Christiansen, and Schwartz, you can safely
assume they know what they're talking about. ;-)
2) You might want to consider writing some portions in
C via inline C calls <Some Perl modules allready
do that. Check out page 371 of "Programming
Perl." It's not easy, but if you know C and you know
perl, it shouldn't be too hard. ;-) or taking major
subroutines and developing them into Perl Modules
from C source. <I'm pretty darn sure you can do
that, and there are enough experts on this newsgroup
that i'll leave that to them ;> If that isn't fast enough,
and you know you'll always be working witht he same
chipset, re-write it in assembler. ;-)
3) Have the script run once and then stuck in
memory - then called whenever you want.
(On a UNIX or X-windows box, this is pretty
easy if you just stick it in it's own screen,
leave it waiting for input, and press "Control-Z."
Just type "fg <Process ID> <RETURN>"
when you want to bring your script back) Add
a extra loop at the highest level that waits for
the user to type "run." When the user types
"run <parameters here>" the out-most loop
<which is your program> executes.
The Bad:
4) Compile your Perl to C, and then compile your
C to executable code. This should eliminate
the start-up time between when your script is
compiled to P-code and when it executes.
And, since I beleive that Perl is only compiled
to P-Code, not executable Code, in theory your
scripts should even execute faster.
Downside is that I don't think the Perl-to-C compiler
is really working yet, and if you do anything even
vaguely cool like File I/O it tends to not like you
very much. ;-)
5) Get you manager to buy a faster box. Really -
if you want to speed your perl script up 100%
percent, upgrade from a 200 Mhz Pentium to
a 400. ;-)
Allthough this is akin to saying "I give up", it
could also be put this way "it's getting
extremely hard to support emerging
technologies with antiquated <or obsolete>
equipment."
The Ugly:
6) Take the Perl you turned into C and compiled
in item #2. Take a hex or oct dump of it,
grab some assembler books, and tweak the
executable. -- If that's too much, just get
a good dis-assembler and turn the executable
into assembler code, and mess with that.
-- Back when I was first learning Perl, I was
working on some C that was calling COBOL.
The COBOL was crashing afer 10 calls or so,
so we checked with the debugger, and the
first thing that happened when the COBOL
routine was called was it checked the
value of the status register ("Last Compare
Returned" Register) and if that was FALSE,
it died. Our senior Perl guy wrote script that
changed the opcode for the conditional jump
to a "Set status register to true" or something.
It worked. <Thank God we moved from AIX
to Solaris and it worked there. That's probably
the cheapest hack i've ever seen. But it worked!>
good luck,
Matt H.
(*)<Took Algorythm Analysis at Salisbury State University. Go
Seagulls!>
------------------------------
Date: 5 Aug 1998 01:58:43 GMT
From: root@am.westblaak.spirit.nl (root)
To: am@spirit.nl
Subject: typeglob - question
Message-Id: <6q8e8j$qto$1@newnews.nl.uu.net>
Hi,
today I tried to test a typeglob of used entities. I wanted to
know if $key or &key exists ore both etc.
I tried something like this:
---------------------------------
#!/usr/local/bin/perl -w
use POSIX qw (getpid);
use prettyprint;
{
@a = (20);
$a = "test";
*key = *a;
# print getpid() . "\n";
if (defined (${*key})) { print "\$key\n"; }
if (defined (@{*key})) { print "\@key\n"; }
if (defined (&{*key})) { print "\&key\n"; }
if (defined (%{*key})) { print "\%key\n"; }
if (defined (*{*key})) { print "\*key\n"; }
if (defined (${*getpid})) { print "\$getpid\n"; }
if (defined (@{*getpid})) { print "\@getpid\n"; }
if (defined (&{*getpid})) { print "\&getpid\n"; }
if (defined (%{*getpid})) { print "\%getpid\n"; }
if (defined (*{*getpid})) { print "\*getpid\n"; }
}
---------------------------------
output:
-------
$key
@key
*key
*getpid
-------
This works fine for 'key', obviously.
But it does NOT work for getpid.
So far so bad.
But I got REALLY puzzled as I used getpid before testing
(see commented line...). After using the funktion the output
seems to be correct!!! :-)
--------
27431
$key
@key
*key
&getpid
*getpid
--------
Hmm, I don't want to invoke all possible names in an eval,
catching the errors... - then I can skip the typeglob stuff at
all.
QUESTION:
Is ther a way to
A) test the typeglobs in different way?
B) 'activate' the typeglobs entries w/o invoking the functions?
Thanx for listening! :-)
Andre.
--
+---------------------------------+----------------------------------+
| Andre Merzky | |
| Dep. of Physics - EEP I | Kathrin Kirsch & Andre Merzky |
| Humboldt University of Berlin | bij Beekma |
| Invalidenstr. 49 | van Boetzelaerstraat 5^3 |
| D-10115 Berlin | NL-1051 CS Amsterdam |
| Tel.: ++49 - 30 - 2093 7988 | Tel.: ++49 - 171 - 280 24 12 |
| --- |
| pinocchio@earthling.net - http://home.pages.de/~pino |
| __o --- |
| _`\<,_ |
|____ (_)/ (_) _________________________________think global_________|
------------------------------
Date: 07 Aug 1998 08:31:37 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: pinocchio@earthling.net
Subject: Re: typeglob - question
Message-Id: <ogtw535y.fsf@mailhost.panix.com>
root@am.westblaak.spirit.nl (root) writes:
^^^^^^^^^^^^^^^^^^^^^^^^^^^
Your newsreader is not configured pro*perl*y.
> if (defined (&{*getpid})) { print "\&getpid\n"; }
As you found out, &{*foo} invokes sub foo. Based on the perlref
document, I came up with this:
#!/usr/local/bin/perl -w
use vars '$bar';
sub foo { 1 }
sub check {
my $name = shift;
print ("*$name ",
exists($main::{$name}) ? 'exists' : 'does not exist',
' and ',
ref(*{$name}{CODE}) ? 'is' : 'is not',
" a subroutine.\n");
}
check 'foo';
check 'bar';
check 'baz';
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf/
------------------------------
Date: Fri, 7 Aug 1998 06:07:57 -0400
From: "Ha" <REPLY_TO_lastronin@earthlink.net>
Subject: Re: WIn Perl For 98
Message-Id: <6qej1p$3l1$1@holly.prod.itd.earthlink.net>
One word, my friend:
http://www.apache.org/
cheers.
------------------------------
Date: Fri, 07 Aug 1998 11:56:35 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: WIn Perl For 98
Message-Id: <6qeq6v$db3$2@ligarius.ultra.net>
[ posted and mailed ]
r_staples@my-dejanews.com wrote:
-> I having some trouble running Perl with Win 98. I d/l the 4 mg file,
-> installed it and followed all the directions. My scripts do not run
-> correctly.
Sounds like you've download and installed the standard port for win32. If so,
it comes complete with tons of great documentation. Read it.
-> Am I suppose to add something to top of the scripts to have WIN 98 reconize
-> them, also how do I excute a script from with-in my browser; ie a survey
-> form
-> with action = post form.pl or something.
This has nothing to do with perl. Check out the docs and newsgroups about HTML
and CGI.
->
-> Any help would be greatly appreciated.
->
-> Thanks in advance.
->
-> -Ron
->
-> Please send responce to ron@staples.org
If you want responses to that address, put it in your headers.
Bob Trieger
sowmaster@juicepigs.com
" Cost a spammer some cash: Call 1-800-400-1972
Ext: 1949 and let the jerk that answers know
that his toll free number was sent as spam. "
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3387
**************************************
