[9200] in Perl-Users-Digest
Perl-Users Digest, Issue: 2819 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jun 5 16:07:20 1998
Date: Fri, 5 Jun 98 13:00:29 -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, 5 Jun 1998 Volume: 8 Number: 2819
Today's topics:
Re: Calling a Java scipt from perl <nguyend7@egr.msu.edu>
Re: Comm.pl <dfetter@shell4.ba.best.com>
Re: comp.lang.perl.(n|q) another option? (Allan M. Due)
Compiling perl5.004_04 for BSDI 3.1 <cfriedel@godzilla.penn.com>
Re: converting unix perl to nt perl <bowlin@sirius.com>
Re: Couple of Newbie Questions <aqumsieh@matrox.com>
Re: decimal arithmetic (Douglas Wilson)
Re: Foreach Efficiency <jdporter@min.net>
ftp.pl problem with Linux RH 5.1 (Ed Weinberg)
Re: ftp.pl problem with Linux RH 5.1 <tchrist@mox.perl.com>
Re: How do I get text counter perl script to work??? <perlguy@inlink.com>
Re: HTML to PERL translation Conversion scott@softbase.com
Re: I'm having problems: <bowlin@sirius.com>
Re: More GIFgraph problems (brian d foy)
Re: Not even an RFD (yet)... comp.lang.perl.(newbie|que <jdporter@min.net>
Re: numeric $value to string <aqumsieh@matrox.com>
Re: perl cgi generated html with java app dont run <nguyend7@egr.msu.edu>
Re: perl cgi generated html with java app dont run scott@softbase.com
Re: perl equivalent to C's local static var? <jdporter@min.net>
Re: perl equivalent to C's local static var? <jdporter@min.net>
Procedural call trace <hck@formalsys.ca>
Re: Procedural call trace <jdporter@min.net>
Re: Procedural call trace (Michael J Gebis)
Re: reading param values <nguyend7@egr.msu.edu>
Re: Sorting a Perl hash of complex records... (Clinton Pierce)
Re: Sorting a Perl hash of complex records... <jdporter@min.net>
Re: Why is there no "in" operator in Perl? (Abigail)
Re: Why is there no "in" operator in Perl? scott@softbase.com
Re: Why is there no "in" operator in Perl? <tchrist@mox.perl.com>
Re: Would this have been posted in c.l.p.moderated? (wa <Russell_Schulz@locutus.ofB.ORG>
Re: Would this have been posted in c.l.p.moderated? (wa <due@murray.fordham.edu>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 5 Jun 1998 18:12:35 GMT
From: Dan Nguyen <nguyend7@egr.msu.edu>
Subject: Re: Calling a Java scipt from perl
Message-Id: <6l9cej$9sb$3@msunews.cl.msu.edu>
Eadmund@writeme.com wrote:
>Hi all,
>I Know it's probably a simple thing to do , but, could someone please give me
>an example of a piece of Perl script that generates a html output including a
>java script which will then run; this is what I have now, and it does'nt
>work!!
Simple correction. Your missing the content-type. See below.
>sub HTMLPrintRegisterSuccess {
> local($main_script, $form_tags) =
> @_;
> print <<__END_OF_REGISTER_SUCCESS__;
Content-type: text/html\n\n <--Add this
><HTML><HEAD>
><TITLE>Registration Added</TITLE>
><script LANGUAGE="JavaScript">
>// - - - - - - - - Get Decoded Value of Cookie - - - - - - - -
>function getCookieVal (offset) {
> var endstr = document.cookie.indexOf (";", offset);
> if (endstr == -1)
> endstr = document.cookie.length;
> return unescape(document.cookie.substring(offset, endstr));
> }
>// - - - - - - - - Get Value of Cookie - - - - - - - -
>function GetCookie (name) {
> var arg = name + "=";
> var alen = arg.length;
> var clen = document.cookie.length;
> var i = 0;
> while (i < clen) {
> var j = i + alen;
> if (document.cookie.substring(i, j) == arg)
> return getCookieVal (j);
> i = document.cookie.indexOf(" ", i) + 1;
> if (i == 0) break;
> }
>return null;
>}
>// - - - - - - - - Set Value of Cookie - - - - - - - -
>function SetCookie (name, value) {
> var argv = SetCookie.arguments;
> var argc = SetCookie.arguments.length;
> var expires = (argc > 2) ? argv[2] : null;
> var path = (argc > 3) ? argv[3] : null;
> var domain = (argc > 4) ? argv[4] : null;
> var secure = (argc > 5) ? argv[5] : false;
> document.cookie = name + "=" + escape (value) +
> ((expires == null) ? "" : ("; expires=" + expires.toGMTString())) +
> ((path == null) ? "" : ("; path=" + path)) +
> ((domain == null) ? "" : ("; domain=" + domain)) +
> ((secure == true) ? "; secure" : "");
>}
>// - - - - - - - - End of Public Domain Cookie Code - - - - - - - -
>function show_count() {
> var expdate = new Date();
> var num;
> expdate.setTime(expdate.getTime() + (24 * 60 * 60 * 1000 * 31));
> if(!(num = GetCookie("jtotwcount")))
> num = 0;
> num++;
> SetCookie ("jtotwcount", num, expdate);
> if (num == 1) document.write("Since this is the first time
>you have been to this tip, please take a moment to look around.");
> else document.write("You have been here " + num + " times.");
>}
>function auto_show_name() {
> if(GetCookie("jtotwname") != null) {
> document.write("Welcome back to this week\'s tip " + GetCookie
>('jtotwname') + ". ");
> }
> else {
> document.write("<FORM>Please enter your name: <INPUT TYPE =
>\"text\" NAME = \"nameinput\">" + "<BR><BR><INPUT TYPE = \"button\" VALUE =
>\"Save to Cookie\" onClick = \"set_name(this.form)\"></FORM>");
> document.write("Please enter your first name in the input" + "
>box and press the \"Save to Cookie\" button, then the page will automatically
>reload. ");
> }
>}
>function set_name(form) {
> var expdate = new Date ();
> expdate.setTime (expdate.getTime() + (24 * 60 * 60 * 1000 * 31));
> var username = form.nameinput.value
> if (username != "") {
> if (confirm("Are you sure you want this saved as your
>name?")) {
> SetCookie ("jtotwname", username, expdate);
> window.history.go(0);
> }
> }
> else alert("Geez, at least enter something, entering nothing
>will cause an error.");
>}
></script>
></HEAD>
><BODY>
><script LANGUAGE="JavaScript">
>auto_show_name();
>show_count();
></script>
><CENTER>
><H2>You Have been added to the user database</h2>
></center>
><hr>
><FORM METHOD=POST ACTION=$main_script>
>$form_tags
><BLOCKQUOTE>
> $auth_register_message
></Blockquote>
><center>
><input type=submit name=auth_logon_screen_op value="Return to Logon Screen")
></center>
></form>
></body>
></HTML>
>__END_OF_REGISTER_SUCCESS__
>} # End of RegisterSuccess
>Ta
>Ed
>-----== Posted via Deja News, The Leader in Internet Discussion ==-----
>http://www.dejanews.com/ Now offering spam-free web-based newsreading
--
Dan Nguyen |
nguyend7@cps.msu.edu | Remember Byron.
http://www.cps.msu.edu/~nguyend7 |
------------------------------
Date: 5 Jun 1998 19:33:52 GMT
From: David Fetter <dfetter@shell4.ba.best.com>
Subject: Re: Comm.pl
Message-Id: <6l9h71$o9v$1@nntp1.ba.best.com>
kin <kin@c-cube.com> wrote:
> Hi,
> I'm looking for examples of how to use the expect() function
> in this package I found on CPAN.
Don't use Comm.pl. Use Expect.pm--it's a lot more up to date, and
works right out of the .tar.gz.
--
David Fetter 888 O'Farrell Street Apt E1205
shackle@ren.glaci.com San Francisco, CA 94109-7089 USA
http://www.best.com/~dfetter +1 415 567 2690 (voice)
print unpack ("u*",q+92G5S="!!;F]T:&5R(%!E<FP@2&%C:V5R"@``+)
"...the championing of the powerful against the powerless is the morality
of a thug."
Mark Rosenfelder
------------------------------
Date: 5 Jun 1998 19:28:33 GMT
From: due@murray.fordham.edu (Allan M. Due)
Subject: Re: comp.lang.perl.(n|q) another option?
Message-Id: <6l9gt1$28b$0@206.165.146.184>
Hi Folks,
I have read a few replys to the origial post in this thread that
indicate that this proposal would not meet the desired goal because the
target audience for the newsgroup is the least like to use it. What would
folks think of the following alternative.
As a newcomer to Perl and one who has valued my experiences on
c.l.p.m I have been trying to think of ways I can give something back to
the Perl community. One idea I have played with is creating a web site
dedicated to the Perl Newbie that would be a clearing house of all of the
excellent FAQs and guides to appropriate newsgroup behavior that newbies
are frequently directed to in this newsgroup. As an alternative to
suggesting "check the man pages" or the FAQs and etc. the inappropriate
poster could be referred to the web site as the place to start before
making any more posts to the newsgroup. I would be happy to host such a
site if the Perl community has any interest. I would try to piece some
things together and then would be happy to entertain suggestions as to how
to improve the content. Although loath to admit it, I come from that
often despised Windoze background, as do many offenders, so I might be
able to provide some instruction in a framework they are familiar with.
Let me know if there is any interest, or if you think the idea is
without merit tell me know and I will stop thinking about it.
Allan M. Due
--
Allan M. Due
Due@Murray.Fordham.edu
Due@discovernet.net
The beginning of wisdom is the definitions of terms.
- Socrates
In article <86soljsrlr.fsf@scooter.cis.ohio-state.edu>, Matt Curtin
(cmcurtin@interhack.net) posted...
|Hi all,
|
|I'm getting concerned about the quality of clpm, and also the sorts of
|answers that potentially new Perl programmers are getting. I think
|that the real problem is that with all that's going on in clpm, there
|just isn't time to give the sort of attention to new people that new
|people need. If we could move some of the less technical,
|hand-holding, newbie-oriented sort of traffic to a new group, I think
|we might be able to solve two problems:
| 1 decreasing signal::noise ratio in clpm
| 2 decreasing quality of help provided to new people
|
|I have seen some noise about a comp.lang.perl.moderated, but I haven't
|seen it reach any Official Stages toward becoming a real newsgroup.
|
|The purpose of my post is twofold:
| 1 to find out the status of the comp.lang.perl.moderated newsgroup
| proposal, (and its officially stated purpose, moderation
| guidelines, etc.) Would clp.moderated be redundant with clp(n|q)?
| If not, how would the two fit together?
| 2 get an initial feeler for the idea of a new group oriented toward
| more warm-fuzzy traffic.
|
|If I don't get stiff opposition on the clp(n|q) idea, I'll probably
|press forward and make an official RFD, which would be floated here,
|as well as all the Usual Places.
|
|Thoughts? Comments?
|
|--
|Matt Curtin cmcurtin@interhack.net http://www.interhack.net/people/cmcurtin/
|
------------------------------
Date: Fri, 05 Jun 1998 15:50:11 -0400
From: Cliff Friedel <cfriedel@godzilla.penn.com>
Subject: Compiling perl5.004_04 for BSDI 3.1
Message-Id: <35784BF3.635F111D@godzilla.penn.com>
While compiling Perl 5.004_04 for BSDI, I ran across the following error
when it tries to compile doio.c:
doio.c: In Function Perl_do_ipcctl:
doio.c:1381: argument #4: incompatible types in argument passing
doio.c:1432: argument #4: incompatible types in argument passing
Has anyone seen this error? I have tried changing multiple settings in
the configure script and Makefile, but to no avail. If somebody could
please help me with this, it would be greatly appreciated. Thanks.
Cliff Friedel
System Administrator
Penncom Internet Company
sysadmin@penn.com
------------------------------
Date: Fri, 05 Jun 1998 12:13:50 -0700
From: Jim Bowlin <bowlin@sirius.com>
To: Daniel Ritter <dritter@interpro.ch>
Subject: Re: converting unix perl to nt perl
Message-Id: <3578436E.F4C4F96C@sirius.com>
Daniel Ritter wrote:
>
> Does anybody have any expirience converting a simple feedback / order form
> perl-script running on a
> unix server using sendmail to NT using Netscape Messaging server 3.01 ?
>
I would suggest using the Net::SMTP module that comes with the 5.004
Windows Perl distribution. You can get documentation and an example
of its use by by typing "perldoc Net::SMTP" at the command line.
HTH -- Jim Bowlin
------------------------------
Date: Fri, 05 Jun 1998 14:08:45 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Couple of Newbie Questions
Message-Id: <3578342D.595FC65A@matrox.com>
disney7@mindspring.com wrote:
> 1) How can you pull a Linux shell variable into a Perl program?
Shame on you for not reading the FAQs.
> Right now I am having to:
> echo $4 >file.txt
> before running the perl script and then open and read file.txt
> from the Perl script. I tried just using $4 from within Perl,
> but it isn't the same variable as it is reported as undefined.
Double shame on you for not reading the documents!!
> There must be a way to pull the variable straight in.
Yep ... those variables are seen by the perl script. They magically appear
in a hash called %ENV. To access the DISPLAY environment variable, for
example, you write:
$ENV{DISPLAY}
> 2) How can you make Perl default to looking for files in the
> directory the script was run from. I have to use complete
> pathnames (ie. /etc/ppp/output.txt), if I don't the file
> will end up in the root directory. I'm not sure if this
> happens when run by hand... but it does if the perl script
> is executed by the system (from within ip-up, cron, etc.)
Hmmm... I would do a "which" command (that's a UNIX command .. not Perl)
.. from within the perl script and store the value of the working
directory. There might be another way .. not sure!
--
Ala Qumsieh | No .. not just another
ASIC Design Engineer | Perl Hacker!!!!!
Matrox Graphics Inc. |
Montreal, Quebec | (Not yet!)
------------------------------
Date: Fri, 05 Jun 1998 19:21:52 GMT
From: dgwilson@gte.net (Douglas Wilson)
Subject: Re: decimal arithmetic
Message-Id: <6l9ggg$9g7$1@gte2.gte.net>
On 4 Jun 1998 22:55:27 GMT, Tom Christiansen <tchrist@mox.perl.com>
wrote:
> [courtesy cc of this posting sent to cited author via email]
>
>In comp.lang.perl.misc, dgwilson@gte.net (Douglas Wilson) writes:
>:The above gives me "Not equal".
>:If I change val1&val3 or val2&val3 by .01 it'll say "Equal".
>
>Man, it's Faqday today, eh?
>
>Floating-point numbers are funny little approximations to real numbers.
>How are you planning on storing 1/3? Or root 2? You can't. You just
>fudge. And you've been caught. Bottom line: stop trying to compare
>floats, especially with ==. I sometimes think we should add a warning
>for == on non-integers that says something like "Please attend a numerical
>analysis course.
>
>This is FAQ. It's on your system. It comes with Perl. Please read it.
Not on my system. Is it supposed to come with 5.003?
I did try:
http://cpan.perl.org/doc/FAQs/FAQ/html/perlfaq4.html
and did not find what you are referring to there.
I know floats are approximations, but I was lead astray when
I did:
$val4=$val1+$val2
print $val4,"\n";
Got what looked like '==' values, but still $val4!=$val3.
I suppose perl does some sort of rounding upon print,
which you get around with printf, which may or may not
be another faq, I don't know.
Anyway, thanks everyone,
Douglas Wilson
------------------------------
Date: Fri, 05 Jun 1998 18:04:24 GMT
From: John Porter <jdporter@min.net>
Subject: Re: Foreach Efficiency
Message-Id: <357834C6.E71@min.net>
Peter A Fein wrote:
>
> John Porter <jdporter@min.net> writes:
> > In that case, why are you bothering with usenet at all?
>
> Posting takes a few seconds tops.
Nothing against you personally, Peter; but it's this attitude
which has made clpm the cat-poop-filled place it is.
> Compared to d/l'd, installing, reading the docs,
???
If you have perl, you have the docs. What's to download?
> altering my code, running it, restoring my code &
Break::gimme().
@temp = sort &results;
for ( @temp ) { ...
vs.
for ( sort &results ) { ...
That would take too long to change -- not to mention the obfuscation!
John Porter
------------------------------
Date: Fri, 05 Jun 1998 18:21:23 GMT
From: edw@detel.com (Ed Weinberg)
Subject: ftp.pl problem with Linux RH 5.1
Message-Id: <358435db.199237127@news.javanet.com>
I am having a problem with ftp.pl in Liniux Red Hat 5.1.
First I was running 5.0, then I upgraded with the RPM from 5.1.
Here is the error I get:
Can't locate gnu/stubs.ph in @INC (did you run h2ph?) (@INC contains:
/usr/lib/perl5/i386-linux/5.00404 /usr/lib/perl5 /usr/lib/per.
Here is how I am testing it:
#!/usr/bin/perl
require "/usr/lib/perl5/ftp.pl";
print "done\n";
This works fine with RH 4.1.
ftp.pl does exist at /usr/lib/perl5/ftp.pl.
Anyone have any ideas?
a cc to edw@detel.com would be appreciated.
-- Ed Weinberg,
Detel, Inc., An Internet Presence Provider
edw@detel.com
www.detel.com/
www.serverking.com
www.q5.com/ <-- find someone to CoolTalk or chat with here
------------------------------
Date: 5 Jun 1998 18:46:21 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: ftp.pl problem with Linux RH 5.1
Message-Id: <6l9edt$g8f$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
edw@detel.com writes:
:I am having a problem with ftp.pl in Liniux Red Hat 5.1.
What's ftp.pl? Don't you mean Net/Ftp.pm?
:First I was running 5.0, then I upgraded with the RPM from 5.1.
:
:Here is the error I get:
:Can't locate gnu/stubs.ph in @INC (did you run h2ph?) (@INC contains:
:/usr/lib/perl5/i386-linux/5.00404 /usr/lib/perl5 /usr/lib/per.
% su
# cd /usr/include
# c2ph *.h */*.h
# c2ph */*/*.h
But upgrade while you still have the chance.
--tom
--
"The social dynamics of the net are a direct consequence of the fact
that nobody has yet developed a Remote Strangulation Protocol."
--Larry Wall
------------------------------
Date: Fri, 5 Jun 1998 15:57:41 GMT
From: Brent Michalski <perlguy@inlink.com>
Subject: Re: How do I get text counter perl script to work???
Message-Id: <35781575.82364D00@inlink.com>
1) Does the script work from the command line?
If no. Stop and get it working FIRST.
If yes, move on to #2.
2) Is your web server configured for SSI's?
No, configure it.
Yes, go to #3
3) Try: <!--#exec cgi="/counter.pl"--> instead of
<!--exec cgi="/counter.pl"-->
HTH,
Brent
------------------------------
Date: 5 Jun 1998 16:45:59 GMT
From: scott@softbase.com
Subject: Re: HTML to PERL translation Conversion
Message-Id: <6l97c7$nj2$1@mainsrv.main.nc.us>
Eadmund@writeme.com wrote:
> I have put together some pretty daunting web pages using notepad and MS-
> Frontpage. I now want (for various reasons) to have a Perl script generate
> the same HTML code with various forms etc filled in by my web server. I know
> that the filling in the data bit will have to be coded in to Perl script by
> hand, but....
The usual strategy for template-based HTML page generation using the
normal approach of substituting placeholder fields with real data is to
introduce special tags which the generator reads and substitutes real
data for. A case study would be the database extensions to HTML that
Microsoft did with their ASP -- the web server reads an ASP page,
replaces funny-looking symbols enclosed in <%tags%> with data out of
the database, and then prints a normal HTML page to the requesting
browser.
The raw page can be used as-is, or included as a here document
in the perl program.
Note that if you're running a Microsoft server, which you might be if
you are using FrontPage, you might want to see if ASP doesn't already
do what you want to do.
Scott
--
Look at Softbase Systems' client/server tools, www.softbase.com
Check out the Essential 97 package for Windows 95 www.skwc.com/essent
All my other cool web pages are available from that site too!
My demo tape, artwork, poetry, The Windows 95 Book FAQ, and more.
------------------------------
Date: Fri, 05 Jun 1998 11:08:30 -0700
From: Jim Bowlin <bowlin@sirius.com>
Subject: Re: I'm having problems:
Message-Id: <3578341E.2A99E82@sirius.com>
Chris Reynolds wrote:
>
> Can anyone help me: I am trying to do the following and am having a
> really hard time doing it.
>
> I am trying to write a Perl script called di that will provide summary
> information on a directory and its sub-directories.
> [snip program specs]
> If anyone can help I would really appreciate it. Thank-you!
That all sounds easy enough. Do you have a specific problem or do
you just want one of us to write your program for you?
-- Jim Bowlin
------------------------------
Date: Fri, 05 Jun 1998 14:12:12 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: More GIFgraph problems
Message-Id: <comdog-ya02408000R0506981412120001@news.panix.com>
Keywords: from just another new york perl hacker
In article <357658C2.3A70694B@pallas.tid.es>, Jurgen Koeleman <jurgen@pallas.tid.es> posted:
>I encountered some more problems with the GIFgraph module.
>
>In the following example I want an Y-axis starting with 0,
>and with the labels 1000, 2000, 3000, 4000 and 5000.
>So I set y_min_value=0 and y_tick_number=5.
>This script gives me the following labels on the Y-axis:
>
> 30, 1024, 2018, 3012, 4006, 5000.
>
>Why 30 i.s.o. 0 and why does it show an additional X-axis
>for Y = 30? Where did I go wrong?
the way that the y-axis labelling is handled is kinda
strange. the author is working on it though. if you like,
i have a very hacked version of axestype.pm (which i've also
shown to Martien, who likes some of it). i'm not sure if
i have test it since my last changes, and i'm running to catch
a train, so i can't test it now, but it is at
[THIS IS ALPHA SOFTWARE - THE INTERFACE WILL CHANGE]
<URL:http://www.smithrenaud.com/dev/axestype.pm>
[THIS IS ALPHA SOFTWARE - THE INTERFACE WILL CHANGE]
you are going to have to look at the code to see what i've
added. all of my additions are labelled with
# 199805xx - brian d foy <comdog@computerdog.com>
or
# bdf - tra la la la la
or something similar.
some features of this version [THIS IS ALPHA SOFTWARE -
THE INTERFACE WILL CHANGE]:
* much better support for things involving the x zero axis
(your particular problem)
* support for plot area background color that is different
from the overall background color
* configurable colors for ticks.
* can use dashed lines for ticks
* configurable placement of labels for x and y axes (not
the tick labels, the other ones :). same thing for
title
* lots of fixes for zero axis and negative number support.
i will, however, fix anything wrong with it when i get back
from defending the Constitution.
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers T-shirts! <URL:http://www.pm.org/tshirts.html>
[THIS IS ALPHA SOFTWARE - THE INTERFACE WILL CHANGE]
------------------------------
Date: Fri, 05 Jun 1998 18:21:55 GMT
From: John Porter <jdporter@min.net>
Subject: Re: Not even an RFD (yet)... comp.lang.perl.(newbie|questions)
Message-Id: <357838DF.76E9@min.net>
John Porter wrote:
> In a nutshell: it's a stupid idea.
O.k., "stupid" is a bit harsh. I apologize.
But it's not exactly a "good" idea, for the simple reason
that it won't work.
John Porter
------------------------------
Date: Fri, 05 Jun 1998 14:00:38 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: numeric $value to string
Message-Id: <35783246.3F3CCBAB@matrox.com>
Johan Priwshy wrote:
> Hi there. I'd like to convert a numeric variable to string.
> I had listened perl treats the variables as strings or as
> numbers depending on the context you're using them, thus
> making no conversions necesary.
True.
> The problem is I want a string containing some other joined
> strings, ending with some random numbers.
> I use the substr function to take only the not integer part
> of a random number generated with rand ().
>
> For example, rand (1) returns something as 0.2535464646 and
> I'd like not to take the first two characters:
>
> $nmbr = rand(1);
> substr($nmbr, 0, 2)= "";
Hmmm... I can think of more than one way to achieve this - TMTOWTDI!
One way:
$num = rand(1);
$num =~ s/^.*\.\d{2}//;
> but THIS do not work! Can something explain me how to do this??
>
Actually it does! What you have, gives the following result:
2535464646
Doesn't that mean anything to you? (Hint: a "0" is a character, a "." is
another character)!! Doesn't that inspire you to change the 2 into a 4??
substr($nmbr, 0, 4)= "";
> TIA
>
> CN.
Hope this helps.
--
Ala Qumsieh | No .. not just another
ASIC Design Engineer | Perl Hacker!!!!!
Matrox Graphics Inc. |
Montreal, Quebec | (Not yet!)
------------------------------
Date: 5 Jun 1998 18:07:00 GMT
From: Dan Nguyen <nguyend7@egr.msu.edu>
Subject: Re: perl cgi generated html with java app dont run
Message-Id: <6l9c44$9sb$2@msunews.cl.msu.edu>
Eadmund@writeme.com wrote:
>Hi all,
>I have a perl script which generates a page of HTML with a simple java cookie
>function embeded.
>When I run the script it generates the code ok, the html part is fine but the
>java func just crashes out.
>Here's the really odd bit: if I view-source the page that has just been
>generated and has crashed, save it as a local htm file, then load it back it
>to my browser directly, it all works fine - including the java?~?~?##/??
>It seams that when perl generates the script, it won't run the java component
>- why??????
>I'm running this under ms-frontpage 98 under windows NT4.0 server - internet
>server.
>Any ideas as to why this should be will be gratfully recieved.
Java or JavaScript? There's a difference. If your using Windows NT
you may want to try using Active Server Pages (ASP).
--
Dan Nguyen |
nguyend7@cps.msu.edu | Remember Byron.
http://www.cps.msu.edu/~nguyend7 |
------------------------------
Date: 5 Jun 1998 16:51:05 GMT
From: scott@softbase.com
Subject: Re: perl cgi generated html with java app dont run
Message-Id: <6l97lp$nj2$2@mainsrv.main.nc.us>
I hate it when people say things like "crashes out", it makes
absolutely no sense. If you are experiencing a problem, DESCRIBE THE
PROBLEM! No one can read your mind! You won't get good help by posting
vague and meaningless descriptions. If you get a "Java runtime
#1234-A" error, tell us. If nothing happens and something should, tell
us. Just describe the problem with some detail.
Eadmund@writeme.com wrote:
> It seams that when perl generates the script, it won't run the java component
> - why??????
You *ARE* giving the *FULL* URL to the applet, right? CGI output HTML
is relative to the CGI directory, whatever that is, not the main page
of the site or the HTML page from which the form originally came. I
imagine your Java program can't be found.
(If you save it in Notepad, you're probably saving it in the
directory with the applet.)
> I'm running this under ms-frontpage 98 under windows NT4.0 server - internet
> server.
Try running it under a web browser instead of FrontPage. FrontPage is
okay for a "print preview", but I would never use it for live page
testing. Frankly, I'd be shocked if it even ran Java applets.
Scott
--
Look at Softbase Systems' client/server tools, www.softbase.com
Check out the Essential 97 package for Windows 95 www.skwc.com/essent
All my other cool web pages are available from that site too!
My demo tape, artwork, poetry, The Windows 95 Book FAQ, and more.
------------------------------
Date: Fri, 05 Jun 1998 17:54:05 GMT
From: John Porter <jdporter@min.net>
Subject: Re: perl equivalent to C's local static var?
Message-Id: <3578325A.6742@min.net>
James Lawrence wrote:
>
> I wish to have a variable inside a perl subroutine
> which keeps its value when it goes out of scope.
>
> In C, one could do
>
> int f( void )
> {
> static int a = 0 ;
> return( ++a ) ;
> }
>
> and each call to f() returns the successor of the previous
> call.
>
> Is there a way to do this in perl without using a global
> variable?
Surely.
Now since you're using lexical ("my") variables, you want
to restrict their scope (but they still need to be outside
the subroutines). So use braces to make a lexical scope
for the purpose:
{
my $a = 0;
sub f { ++$a }
}
Since f (the sub) is global in scope, you can call it from
anywhere. But only f can see $a.
hth,
John Porter
------------------------------
Date: Fri, 05 Jun 1998 19:44:20 GMT
From: John Porter <jdporter@min.net>
Subject: Re: perl equivalent to C's local static var?
Message-Id: <35784C32.7695@min.net>
John Porter wrote:
> {
> my $a = 0;
> sub f { ++$a }
> }
As Larry Rosler pointed out in private email,
this has a potential problem: f() could get
called before $a has been initialized.
Therefore it is prudent to amend it to read as follows:
{
my $a;
BEGIN { $a=0 }
sub f { ++$a }
}
John Porter
------------------------------
Date: Fri, 05 Jun 1998 15:23:40 -0300
From: Colin Kilburn <hck@formalsys.ca>
Subject: Procedural call trace
Message-Id: <357837AC.FBAEF545@formalsys.ca>
Hi,
Before I try to do things the hard way, I was wondering if someone knows
the answer to the following question.
Is there a way to trace all the calls of a script?
I would like to generate a call trace of everything that a driver script
calls.
The driver script calls other scripts which may call other scripts.
Thanks,
Colin Kilburn
hck@formalsys.ca
------------------------------
Date: Fri, 05 Jun 1998 19:16:03 GMT
From: John Porter <jdporter@min.net>
Subject: Re: Procedural call trace
Message-Id: <35784591.1728@min.net>
Colin Kilburn wrote:
>
> I was wondering if someone knows the answer to the following question.
Larry Wall does. That's why he put it in the Camel book, p.331.
(Or maybe it was tchrist.)
> Is there a way to trace all the calls of a script?
-Dslt might be useful.
> I would like to generate a call trace of everything that a driver
> script calls.
> The driver script calls other scripts which may call other scripts.
Oh, now I'm confused by what you mean by "calls".
I guess you don't mean "function calls", you mean "execs".
So, do you care what each program is doing inside, or do you just
want to see who spawns what when?
I sure hope by "script" you mean "perl program". Because if not,
then God help you.
I think the best bet would be to have BEGIN and END blocks in each
program that gets executed, with print statements like
"Program $0 starting; args=@ARGV\n" and "Program $0 exiting".
Probly you'll want to print to a log file -- or even better, syslog.
hth,
John Porter
------------------------------
Date: 5 Jun 1998 19:48:33 GMT
From: gebis@albrecht.ecn.purdue.edu (Michael J Gebis)
Subject: Re: Procedural call trace
Message-Id: <6l9i2h$f6u@mozo.cc.purdue.edu>
Colin Kilburn <hck@formalsys.ca> writes:
}Before I try to do things the hard way, I was wondering if someone knows
}the answer to the following question.
}Is there a way to trace all the calls of a script?
}I would like to generate a call trace of everything that a driver script
}calls.
}The driver script calls other scripts which may call other scripts.
You may wish to play around with the profiling (DProf) module on
CPAN. It can present the information it gathers several different
ways, one of which probably meets your requirement of "trace all the
calls."
You might also be interested in the coverage module, so take a look at
that one too (although it seems to be less developed overall.)
Good luck.
--
Mike Gebis gebis@ecn.purdue.edu mgebis@eternal.net
------------------------------
Date: 5 Jun 1998 18:04:06 GMT
From: Dan Nguyen <nguyend7@egr.msu.edu>
Subject: Re: reading param values
Message-Id: <6l9bum$9sb$1@msunews.cl.msu.edu>
Gopinath Venkataramanan <vgopinat@cisco.com> wrote:
>Hi
>i hv a url with http:.....?x1=1.2&x2=3.0&x3=4 and so on
>I know how many x's are coming, ie the count,
>how to i get them in the perl script
>thro
>for ($i=0;$i<=10;$i++)
>{
>$x{$i} = $q->param('x1'); -- here i want to generate x1 by x$i
>}
>can you tell me how to do this
>regds.
Try using the CGI module.
--
Dan Nguyen |
nguyend7@cps.msu.edu | Remember Byron.
http://www.cps.msu.edu/~nguyend7 |
------------------------------
Date: 5 Jun 1998 18:42:18 GMT
From: cpierce1@cp500.fsic.ford.com (Clinton Pierce)
To: jorgen_nilsson@yahoo.com
Subject: Re: Sorting a Perl hash of complex records...
Message-Id: <6l9e6a$76r2@eccws1.dearborn.ford.com>
In article <6l0re4$a2f$1@nnrp1.dejanews.com>,
wiklund@my-dejanews.com writes:
>Im stumped on this problem of sorting
>a Perl hash of complex records on contained
>values.
>
>The definition of the hash is as follows:
>%EXPERIMENTS = (
> "TestA" => {
> Result => [
> {
> Type => "A",
> Time => "14,7ak"
> },
> {
> Type => "B",
> Time => "13,5ak"
> }
> ]
> },
> "TestB" => {
> Result => [
> {
> Type => "A",
> Time => "16,2M"
> },
> {
> Type => "B",
> Time => "17,2M"
> }
> ]
> }
>);
>
>What I wish to do is sort the hash according to the
>numeric value of "Time", the sorted result should look
>like this:
>TestA
> Type = B
> Time = 13,5ak
> Type = A
> Time = 14,7ak
>TestB
> Type = A
> Time = 16,2M
> Type = B
> Time = 17,2M
>
>So it's easy to see that first I wish to sort the whole
>hash on "Test?", then the "Test?" should be sorted with a
>numerical comparison on the field "Time" ignoring the
>trailing "ak or M".
>
>I've looked at the "perldsc" for direction on this problem
>but I just don't seem to grasp it. So any help would be
>highly appriciated.
Ok, I think you may be trying too hard. You should've posted some examples,
I'll bet you're close to the solution.
Approaching a sort like this can be a pain. What you've got are nested
records, and you wish to sort by the outermost, and then by the innermost
record. Right? (Your example is really piss-poor, 'cause all of the Times
in "TestA" happen to be less that all of the times in "TestB"!) Are you
sorting by the outermost key, and then within each "Test?" sorting by the
times? Ok, that sounds right. (The other way of reading it is trivial...)
Doing the sort isn't hard, just generalize it:
sort outerkeys keys(%EXPERIMENTS);
Then in "mysortfunc" you're going to get "a" and "b" where each of these
represents a key in the outermost set of records (%EXPERIMENTS). The
outermost keys are alpha, so this seems to work:
sub outerkeys {
if ($EXPERIMENTS{$a} eq $EXPERIMENTS{$b}) {
# Outermost keys are equal.
} else {
return($EXPERIMENTS{$a} cmp $EXPERIMENTS{$b});
}
}
Simplify this, 'cause it looks unlikely that there will ever by two
"TestA"'s:
sub outerkeys { return($EXPERIMENTS{$a} cmp $EXPERIMENTS{$b}); }
This ensures that EXPERIMENTS will always be processed: TestA, TestB,
TestC, TestD, etc...
To sort the inner records is a little trickier. (Yucky structure there,
Jorgen.) To loop through the different types, the following snippet can
be used. We're just gonna talk about "TestA" for a moment to keep things
clear:
foreach $result ( @ { $EXPERIMENTS{'TestA'}{'Result'} } ) {
print $$result{'Time'}, "\n";
}
This prints TestA's results in whatever order they're hashed in. Next
problem is sorting them. (We'll keep tinkering with just TestA's
results). What you have (overall) is this:
Hash -> Hash -> Array -> Hash
TestA-> Result-> | ->Type/Time
v
The thing we're foreach()ing above.
What you're next trying to do is sort by the innermost hash, by a particular
key. Good place for a temporary structure:
@TestA=@{$EXPERIMENTS{'TestA'}{'Result'}};
@H=sort { $$a{'Time'} cmp $$b{'Time'} } @TestA;
So now "@TestA" contains an array of hashes (the results from TestA).
@H will contain that same array of hashes sorted by the times for each
Test. (This can be collapsed further eliminating the need for temp
variables, but they make explanations clearer.) I'm still sorting the
times alphabetically, just for clarity.
Now, to print something useful:
foreach(@H) {
print 'Type = ', $$_{'Type'}, "\n";
print 'Time = ', $$_{'Time'}, "\n";
}
Now let's not limit ourselves to using "TestA"s results. Pull back
the code from earlier, and instead of the literal "TestA", we'll talk
about the outermost key (which happens to be sorted on):
sub outerkeys { return($EXPERIMENTS{$a} cmp $EXPERIMENTS{$b}); }
# Gives the TestA..TestB..sequence
foreach $outer (sort outerkeys keys(%EXPERIMENTS)) {
print $outer, "\n";
#
# Capture the Result's array from the sorted key above.
#
@TestA=@{$EXPERIMENTS{$outer}{'Result'}};
#
# Sort that array (whose elements are hashes) by Time
#
@H=sort { $$a{'Time'} cmp $$b{'Time'} } @TestA;
# Print that result.
foreach(@H) {
print ' Type = ', $$_{'Type'}, "\n";
print ' Time = ', $$_{'Time'}, "\n";
}
}
And this yeilds:
TestA
Type = B
Time = 13,5ak
Type = A
Time = 14,7ak
TestB
Type = A
Time = 16,2M
Type = B
Time = 17,2M
Not bad. But there's a bug. I didn't sort the times strictly on numeric
values. I just alpha sorted them (i.e. $$a{'Time'} cmp $$b{'Time'} ).
I'll leave that as an exercise for you. :-) Hint: In your sort function,
separate the time into subcomponents, and return the <=> of that.
If you don't like all of the temporary variables up there, you CAN
collapse the whole thing down a bit, but it gets harder to read:
foreach $outer (sort {$EXPERIMENTS{$a} cmp $EXPERIMENTS{$b}}
keys(%EXPERIMENTS)) {
print $outer, "\n";
# Print that result.
foreach( sort {$$a{'Time'} cmp $$b{'Time'}}
@{$EXPERIMENTS{$outer}{'Result'}}) {
print ' Type = ', $$_{'Type'}, "\n";
print ' Time = ', $$_{'Time'}, "\n";
}
}
It can be further collapsed by turning the whole thing inside out (doing
one sort instead of two). Also, once you get your sort function for the
mixed alpha/numerics...if this is a large dataset you may want to look
into a Schwartzian Transform to save time. But only after you Zen all of
this!
Have fun!
--
+------------------------------------------------------------------------+
| Clinton A. Pierce | "If you rush a Miracle Man, | http://www. |
| cpierce1@ford.com | you get rotten miracles" | dcicorp.com/ |
| fubar@ameritech.net |--Miracle Max, The Princess Bride| ~clintp |
+------------------------------------------------------------------------+
GCSd-s+:+a-C++UALIS++++P+++L++E---t++X+b+++DI++++G++e+>++h----r+++y+++>y*
------------------------------
Date: Fri, 05 Jun 1998 19:36:34 GMT
From: John Porter <jdporter@min.net>
Subject: Re: Sorting a Perl hash of complex records...
Message-Id: <35784A5E.5852@min.net>
Despite the fact that this problem has already been satisfactorily
addressed by other posters in the past few days,
Clinton Pierce pitched in:
>
> Approaching a sort like this can be a pain. What you've got are nested
> records, and you wish to sort by the outermost, and then by the innermost
> record. Right? (Your example is really piss-poor, 'cause all of the Times
> in "TestA" happen to be less that all of the times in "TestB"!)
No, that should never matter: times for one record should
never be compared to times in another record.
> sub outerkeys {
> if ($EXPERIMENTS{$a} eq $EXPERIMENTS{$b}) {
> # Outermost keys are equal.
> } else {
> return($EXPERIMENTS{$a} cmp $EXPERIMENTS{$b});
> }
> }
A common idiom, if you do need to sort by e.g. a secondary key, is:
sort {
$h{$a}{primary} cmp $h{$b}{primary} # if primary is alnum
or
$h{$a}{secondary} <=> $h{$b}{secondary} # if secondary is numeric
} keys %h
> Simplify this, 'cause it looks unlikely that there will ever by two
> "TestA"'s:
> sub outerkeys { return($EXPERIMENTS{$a} cmp $EXPERIMENTS{$b}); }
In fact there can never be two 'TestA's, because the values are
coming from the keys of a hash -- guaranteed unique.
> (Yucky structure there, Jorgen.)
Hardly. As given, each record only has one member, namely 'Result';
but it could easly have others, omitted from his post because
they don't figure in the sort.
> It can be further collapsed by turning the whole thing inside out (doing
> one sort instead of two).
Nah. Not only would it be an uglier sort, but the print() in the
outer loop becomes somewhat problematic.
> Also, once you get your sort function for the
> mixed alpha/numerics...if this is a large dataset you may want to look
> into a Schwartzian Transform to save time.
You're suggesting that a ST is somehow more efficient that what
you've given? Not bloody likely.
> But only after you Zen all of this!
What, now "Zen" is a transitive verb?
John Porter
------------------------------
Date: 5 Jun 1998 18:57:03 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Why is there no "in" operator in Perl?
Message-Id: <6l9f1v$de4$1@client3.news.psi.net>
Tom Christiansen (tchrist@mox.perl.com) wrote on MDCCXXXIX September
MCMXCIII in <URL: news:6l937l$49n$2@csnews.cs.colorado.edu>:
++ [courtesy cc of this posting sent to cited author via email]
++
++ In comp.lang.perl.misc,
++ les@MCS.COM (Leslie Mikesell) writes:
++ :So what's the best idiom for blasting a list or array of names into
++ :a hash with no associated values?
++
++ If you plan to test exclusively with exists, this is very cheap:
++
++ @hash{@array} = ();
++
++ If you plan to test boolean truth, as is more convenient, this
++ is what you wnat:
++
++ @hash{@array} = (1) x @array;
I tend to use
%hash = map {$_ => 1} @array;
as I find that more intuitive.
I was surprised to find that the map is much slower than the x.
#!/usr/local/bin/perl -w
use strict;
use Benchmark;
# Generate an array with random strings.
my @array = map {my $str = '';
foreach (1 .. 1 + int (rand 5) + int (rand 5)) {
$str .= chr (rand 256);
} $str;} (1 .. 5000);
timethese 10, {
'x' => sub {my %hash; @hash {@array} = (1) x @array},
'map' => sub {my %hash; %hash = map {$_ => 1} @array}
};
__END__
Benchmark: timing 10 iterations of map, x...
map: 14 secs (13.14 usr 0.11 sys = 13.25 cpu)
x: 1 secs ( 1.29 usr 0.01 sys = 1.30 cpu)
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
------------------------------
Date: 5 Jun 1998 17:02:03 GMT
From: scott@softbase.com
Subject: Re: Why is there no "in" operator in Perl?
Message-Id: <6l98ab$nj2$3@mainsrv.main.nc.us>
Glen Koundry (glengk@mindspring.com) wrote:
> Am I missing something or does Perl lack the ability to check if
> something is part of a list
Perl seems to be philosophically oriented towards lists, not sets. "In"
is not a list operation, it's a set operation. Lists can be cared,
cdred, sliced, joined, and sorted, etc, but the operations of in, not
in, union, intersection, etc apply to sets. The key point is list
operations are based on the *order* of the lists, not the content of
the lists (with the exception of sort, but it allows you to supply your
own content analyzer to make decisions about the elements -- sort
itself rearranges, based on your content decisions). Set operations
involve making decisions on the content of the lists.
These operators have probably never been considered for the language
(I'd love to hear what Larry Wall has to say about this issue!) because
most Perl list processing is textual and iterative, and "in" would be
more naturally a regular expression match. Data in the list would never
be put into a list, since you could see if a pattern was "in" a line of
data using =~ without ever having to put the data into a list.
Perl has never been a mathematics language in its orientation, it's
been a text-processing language.
I think set operations should be added to Perl for two reasons:
1. To see the punctuation characters that Larry Wall would invent for
the operations (What could you use? <-=->, <-!->, <-U->, <-O->?)
These alone would be worth it!
2. To let the great minds of the Perl hacker community unify set
operations with hashes, arrays, etc. I'd love to see one single set of
operations that would apply to all data structures possible in Perl.
I would love to see what they came up with to let users write their
own functions to evaluate whether something is "in" a deeply
nested hash-based data structure.
Scott
--
Look at Softbase Systems' client/server tools, www.softbase.com
Check out the Essential 97 package for Windows 95 www.skwc.com/essent
All my other cool web pages are available from that site too!
My demo tape, artwork, poetry, The Windows 95 Book FAQ, and more.
------------------------------
Date: 5 Jun 1998 19:39:14 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Why is there no "in" operator in Perl?
Message-Id: <6l9hh2$ke7$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
abigail@fnx.com writes:
:++ @hash{@array} = (1) x @array;
:I tend to use
: %hash = map {$_ => 1} @array;
:as I find that more intuitive.
Of course, those don't do quite the same thing. Consider:
@hash{@array1} = (1) x @array1;
@hash{@array2} = (1) x @array2;
:I was surprised to find that the map is much slower than the x.
You were? Think about the code ref you're executing, the localized
$_, etc. Doesn't surprise me.
--tom
--
You are unlucky enough to bump into all my rough edges. --Andrew Hume
------------------------------
Date: Fri, 5 Jun 1998 17:34:55 +0100
From: Russell Schulz <Russell_Schulz@locutus.ofB.ORG>
Subject: Re: Would this have been posted in c.l.p.moderated? (was Re: decimal arithmetic)
Message-Id: <19980605.173455.8b5.rnr.w164w@locutus.ofB.ORG>
sowmaster@juicepigs.com (Bob Trieger) writes:
> I am happy to have learned this and was wondering if my original [erroneous]
> post would have made the boards on the moderated group
why not? it was about Perl, it wasn't something in the perl FAQ, it wasn't
something on the banned list...
(I mean, it's not the moderator's duty to check for logic errors, spelling,
punctuation, syntax... is it?)
--
Russell_Schulz@locutus.ofB.ORG Shad 86c
------------------------------
Date: 5 Jun 1998 18:47:09 GMT
From: "Allan M. Due" <due@murray.fordham.edu>
Subject: Re: Would this have been posted in c.l.p.moderated? (was Re: decimal arithmetic)
Message-Id: <6l9efd$su2$0@206.165.146.184>
Bob Trieger wrote in message <6l7bnv$v45$7@ligarius.ultra.net>...
>I posted the following stupid suggestion to somebody asking a question
about
>arithmetic and floating-point numbers. Since then I have learned the errors
in
>my ways and perhaps it showed others why I was wrong.
>
>I am happy to have learned this and was wondering if my original post would
>have made the boards on the moderated group so that I could see how wrong I
>was or if it would have accomplished nothing in /dev/null
[snipage]
I, for one, am thankful for these occasional missteps and the subsequent
discourses. I continue to be educated (for free no less) and hopefully
avoid some of the mistakes I would have made along the way. Plus I see much
more elegant solutions than I would have come up with on my own. Thanks to
Larry and Tom for code bits that will go into my collection, and to Bob for
facilitating the process.
Allan M. Due
Due@discovernet.net
Admin@WhiteCrow.net
The beginning of wisdom is the definitions of terms.
- Socrates
------------------------------
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 2819
**************************************
