[9632] in Perl-Users-Digest
Perl-Users Digest, Issue: 3226 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jul 22 17:07:22 1998
Date: Wed, 22 Jul 98 14:00:27 -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 Wed, 22 Jul 1998 Volume: 8 Number: 3226
Today's topics:
'eval' and 'require' <mgregory@asc.sps.mot.com>
@INC not working from within prog? <trobert@wpine.com>
Re: [Fwd: Perl 5.004_04 Configure script fails on Solar <cmason@transarc.com>
Re: Coding Quiz (was Re: efficiency: print<<"xxx" vs. p (Clinton Pierce)
Re: Coding Quiz (was Re: efficiency: print<<"xxx" vs. p <Eric.Zylberstejn@wanadoo.com>
Re: Copyright question <perlguy@inlink.com>
difference between Perl 5.003 and 5.004_04 (child signa <anibal@nortel.ca>
Re: Dynamically creating graph images <Eric.Zylberstejn@wanadoo.com>
Re: Dynamically creating graph images <dannyg@dannyg.com>
Re: Dynamically creating graph images <tacitus@foobar.net>
Re: Dynamically creating graph images (Larry Rosler)
Re: Env Variables. (Abigail)
Re: Env Variables. <maraism@sterlingdi.com>
Error message details: <GEN0> chunk 549 and <IN> chunk <hck@formalsys.ca>
Hash tree problems. <mkbowler@nortel.com>
im having trouble with a bit of perl script, if someone jhestyr@my-dejanews.com
Is Perl y2k compliant? <vonyemelukwe@att.com>
Re: Newbie question: a script that ALMOST works (using (Abigail)
Re: Newbie question: a script that ALMOST works (using (John Moreno)
Perl array name john_dawson@my-dejanews.com
Re: Perl array name (Greg Bacon)
Re: Perl array name (Larry Rosler)
Re: Perl array name (Michael J Gebis)
Perl with SSI <rmorgan@cse.unl.edu>
Re: Please HELP. Print problem (Craig Berry)
Re: question about split (Abigail)
Re: Reading in an email message into a Perl program (John Klassa)
Re: regexp vs. split (Abigail)
Re: Regular expressions for Perl 5 <*@qz.to>
result pending code..? <jpratt@command-central.nmsd.k12.nm.us>
Re: Reversing time <dean@mail.biol.sc.edu>
Re: Tcl is better than Perl (Cameron Laird)
The act of glueing one cat's nose to another's tail... <shaung@onlinetech.net>
Re: the low road <dean@mail.biol.sc.edu>
Re: the low road <maierc@chesco.com>
Re: Variable Interpolation (Eric Harley)
Re: Variable Interpolation <zenin@bawdycaste.org>
Re: what is offline mode? (Craig Berry)
Re: What's wrong? (Mick Farmer)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 22 Jul 1998 12:12:49 +0930
From: Martin Gregory <mgregory@asc.sps.mot.com>
Subject: 'eval' and 'require'
Message-Id: <r8iukqmwra.fsf@asc.sps.mot.com>
Hi,
How come I can't use eval to test require?
I have this code:
eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}' # -*- Perl -*-
& eval 'exec perl -w -S $0 $argv:q'
if 0;
eval 'require "foo";';
!$@ or die "ERROR: perl couldn't parse foo: $@\n";
require "foo";
.. and I get
[djarraba-mg]{jenna} foo.pl
foo did not return a true value at /home/mgregory/bin/foo.pl line 8.
[djarraba-mg]{jenna}
when I have an empty "foo" file.
_Is_ there any safe way to test 'require'?
(Note that I think that I have to use require because the file of
interest is a user configuration file: needs to be executed at the
right place in the program).
Thanks,
Martin.
------------------------------
Date: Wed, 22 Jul 1998 16:41:36 -0400
From: Tom Robert <trobert@wpine.com>
Subject: @INC not working from within prog?
Message-Id: <35B64E80.7F41298@wpine.com>
Hello.
Using -I on the command line works, but modifying
the @INC variable doesn't seem to. That is,
This works:
perl -I/Perl/lib myprog.pl
This doesn't:
unshift (@INC, '/Perl/lib');
[according to the doc, this is how I should add to the path]
It's on Win32 and I've tried different permutations such
as "D:\\Perl\\lib" and so forth, no effect.
Also, how do I modify the @INC variable at a global level?
thanks!
------------------------------
Date: Wed, 22 Jul 1998 16:37:26 -0400
From: Chris Mason <cmason@transarc.com>
To: chip@perl.com, perlbug@perl.com
Subject: Re: [Fwd: Perl 5.004_04 Configure script fails on Solaris...]
Message-Id: <35B64D86.4DA2451@transarc.com>
Chris Mason wrote:
> Chris Mason wrote:
> >
> > I grabbed 5.004_04 off CPAN, untarred, ran sh Configure. It just dies at
> > the prompt:
> >
> > Which of these apply, if any? [solaris_2]
> >
So I narrowed this down to this part of the hints/solaris_2.sh script.
Commenting this out allows perl to Configure normally. I haven't to
foggiest clue what's wrong with it, it just hangs:
#if $gnu_ld ; then :
#else
# case `which ld` in
# no\ ld\ in*|[Cc]ommand\ not\ found*)
# ;;
# /*gnu*/ld|/*GNU*/ld)
# gnu_ld=true ;;
# esac
# fi
# if $gnu_ld ; then
# cat <<END >&2
#
#NOTE: You are using GNU ld(1). GNU ld(1) will not build Perl.
#You must arrange to use /usr/ccs/bin, perhaps by adding it to the
#beginning of your PATH.
#
#END
# fi
I hope this is in someway helpful. Thanks for making cool stuff...
-c
--
[ Chris Mason cmason@transarc.com cmason@cmu.edu http://ros.res.cmu.edu ]
[ "He will debauch himself with ideas... if for only one second of his ]
[ life he can close his eyes to the hideousness of reality." -- Miller ]
------------------------------
Date: 22 Jul 1998 19:59:27 GMT
From: cpierce1@cp500.fsic.ford.com (Clinton Pierce)
Subject: Re: Coding Quiz (was Re: efficiency: print<<"xxx" vs. print)
Message-Id: <6p5gav$7de1@eccws1.dearborn.ford.com>
In article <x7sok1m7ai.fsf_-_@sysarch.com>,
Uri Guttman <uri@sysarch.com> writes:
>
>1. Who is main the PERSON you should think about while you are writing code?
The guy signing the checks.
>2. Other than comments, what is the most important HUMAN aspect of code?
That it work correctly, robustly, and suit its purpose.
>3. What is the main PURPOSE of comments?
To explain what the spell is for, not its incantation.
>Bonus: What is the OPPOSITE of spaghetti code?
fcnturggv pbqr?
--
+------------------------------------------------------------------------+
| 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: Wed, 22 Jul 1998 22:41:09 +0200
From: Eric Zylberstejn <Eric.Zylberstejn@wanadoo.com>
Subject: Re: Coding Quiz (was Re: efficiency: print<<"xxx" vs. print)
Message-Id: <35B64E65.6B51BABB@wanadoo.com>
Uri Guttman wrote:
> [...]
> 1. Who is main the PERSON you should think about while you are writing code?
The computer. Wasn't the PC nominated 'Man of the Year' by Time Magazine ?
> 2. Other than comments, what is the most important HUMAN aspect of code?
Somewhere, some place, some time it will fail. And you'll be blamed for this.
> 3. What is the main PURPOSE of comments?
Yelling WOW ! when the code analyzer reports around 50% comments.
> Bonus: What is the OPPOSITE of spaghetti code?
How about 'Gratin Dauphinois code', or even better: 'Tournedos Rossini code'.
Eric.pl
------------------------------
Date: Wed, 22 Jul 1998 18:12:22 GMT
From: Brent Michalski <perlguy@inlink.com>
Subject: Re: Copyright question
Message-Id: <35B62B86.CA31F2F5@inlink.com>
Dustin Cobb wrote:
.. snip
> for. Recently, I've been told by someone else in our company that the
> scripts that we've written in Perl cannot be copyrighted due to the fact
> that Perl isn't a compiled language.
.. snip
Well, if that is the case then no book or publication that is not
copyright(able)
Here is an example of copyrighted Perl code:
#!/usr/bin/perl
print "Copyright (c) 1998 by Brent Michalski";
Don't believe everything people tell you...
Brent
P.S. The above code is copyrighted. Any use of said code must be
cleared through the author. ;-)
------------------------------
Date: 22 Jul 1998 14:00:48 -0400
From: Anibal Jodorcovsky <anibal@nortel.ca>
Subject: difference between Perl 5.003 and 5.004_04 (child signal)
Message-Id: <g5qzpe17okv.fsf@nortel.ca>
The following script is executing differently if run by Perl 5.003 and Perl
5.004_04.
There are two problems with this simple program:
$SIG{CHLD} = sub { wait };
$command = `echo "hi"; exit 8;`;
print "command is ($command) [$?]\n";
When executed under Perl 5.003 the $? holds 2048, while in perl 5.004_04 $?
holds -1.
why is that?
Perl 5.003 -V:
Summary of my perl5 (5.0 patchlevel 3 subversion 0) configuration:
Platform:
osname=hpux, osver=9, archname=PA-RISC1.1
uname='hp-ux bmtlh640 a.09.05 a 9000712 2011130524 two-user license '
hint=recommended, useposix=true, d_sigaction=define
Compiler:
cc='cc', optimize='-O', gccversion=
cppflags='-D_HPUX_SOURCE -Aa -I/usr/local/include'
ccflags ='-D_HPUX_SOURCE -Aa -I/usr/local/include'
stdchar='unsigned char', d_stdstdio=define, usevfork=false
voidflags=15, castflags=0, d_casti32=define, d_castneg=define
intsize=4, alignbytes=8, usemymalloc=n, randbits=15
Linker and Libraries:
ld='ld', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib/pa1.1 /lib /usr/lib
libs=-lnet -lnsl_s -lndbm -lgdbm -lmalloc -ldld -lm -lc -lndir -lcrypt -lPW
libc=, so=sl
Dynamic Linking:
dlsrc=dl_hpux.xs, dlext=sl, d_dlsymun=, ccdlflags='-Wl,-E -Wl,-B,deferred '
cccdlflags='+z', lddlflags='-b -L/usr/local/lib'
@INC: /usr/local/pkg/perl/5.003/lib/PA-RISC1.1/5.003 /usr/local/pkg/perl/5.003/lib /usr/local/pkg/perl/5.003/lib/site_perl/PA-RISC1.1 /usr/local/pkg/perl/5.003/lib/site_perl .
Perl 5.004_04 -V:
Summary of my perl5 (5.0 patchlevel 4 subversion 4) configuration:
Platform:
osname=hpux, osvers=9, archname=PA-RISC1.1
uname='hp-ux bmtlh640 a.09.05 a 9000712 2011130524 two-user license '
hint=recommended, useposix=true, d_sigaction=define
bincompat3=y useperlio=undef d_sfio=undef
Compiler:
cc='cc', optimize='-O', gccversion=
cppflags='-D_HPUX_SOURCE -Aa -I/usr/local/include'
ccflags ='-D_HPUX_SOURCE -Aa -I/usr/local/include'
stdchar='unsigned char', d_stdstdio=define, usevfork=false
voidflags=15, castflags=0, d_casti32=define, d_castneg=define
intsize=4, alignbytes=8, usemymalloc=y, prototype=define
Linker and Libraries:
ld='ld', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /usr/lib/pa1.1 /lib /usr/lib
libs=-lnet -lnsl_s -lndbm -lgdbm -ldld -lm -lc -lndir -lcrypt -lPW
libc=/lib/libc.sl, so=sl
useshrplib=false, libperl=libperl.a
Dynamic Linking:
dlsrc=dl_hpux.xs, dlext=sl, d_dlsymun=undef, ccdlflags='-Wl,-E -Wl,-B,deferred '
cccdlflags='+z', lddlflags='-b -L/usr/local/lib'
Characteristics of this binary (from libperl):
Built under hpux
Compiled at Apr 8 1998 16:10:20
@INC:
/usr/local/pkg/perl/5.004_04/lib/PA-RISC1.1/5.00404
/usr/local/pkg/perl/5.004_04/lib
/usr/local/pkg/perl/5.004_04/lib/site_perl/PA-RISC1.1
/usr/local/pkg/perl/5.004_04/lib/site_perl
.
--
Anibal Jodorcovsky (o) (514) 765-8231
Nortel Technology (f) (514) 761-8505
Montreal, Canada <anibal@remove_me.nortel.remove-me.ca>
------------------------------
Date: Wed, 22 Jul 1998 21:29:09 +0200
From: Eric Zylberstejn <Eric.Zylberstejn@wanadoo.com>
To: Joseph M Carlton <carltjm@mail.auburn.edu>
Subject: Re: Dynamically creating graph images
Message-Id: <35B63D85.4E9F5CFE@wanadoo.com>
Joseph M Carlton wrote:
>
> I am using perl to fetch data from a database for a web project that I am
> working on. Now, I need to dynamically build a bar graph with this data.
> [...]
Take a look at :
http://reference.perl.com/query.cgi?graphics
Eric.pl
------------------------------
Date: Wed, 22 Jul 1998 13:02:28 -0700
From: Danny Goodman <dannyg@dannyg.com>
Subject: Re: Dynamically creating graph images
Message-Id: <35B64549.E5CCB1DC@dannyg.com>
Joseph M Carlton wrote:
>
> I am using perl to fetch data from a database for a web project that I am
> working on. Now, I need to dynamically build a bar graph with this data.
> Someone told me that I could use javascript and somebody told me that I
> could do the whole thing in perl. I have not been able to find any
> information on this topic for either javascript or perl. Could someone
> PLEASE direct me to a book or web page with information on this?
You can see an example in my 'Decision Helper' examples at my Web site (links
from <http://www.dannyg.com/javascript/>). Click on the 'Insert sample data'
button, and navigate (via the right arrow button) to the final page of the
application. This is fully documented in my JSBible.
The bottom line technique is to create a one-pixel image of your desired
color. Then use JavaScript to determine the size of each bar, and
document.write() the <IMG> tags to set the HEIGHT and WIDTH attributes as the
page loads. For all browsers except IE4, you must define these attributes as
the page loads, since the image won't be resizable thereafter.
Danny
"JavaScript Bible", 3rd Edition
http://www.dannyg.com
------------------------------
Date: Wed, 22 Jul 1998 13:26:29 -0700
From: Tacitus <tacitus@foobar.net>
Subject: Re: Dynamically creating graph images
Message-Id: <35B64AF5.9F5E327F@foobar.net>
1) What Database _engine_ are you using?
2) Are you using (or can you start using) a database _server_?
3) What OS are you using for this server?
4) What WWW server are you using?
There are many ways you can do this, and depending on your responces to the
above questions, there may be an automated procedure to put your info on the
web.
Joseph M Carlton wrote:
> I am using perl to fetch data from a database for a web project that I am
> working on. Now, I need to dynamically build a bar graph with this data.
> Someone told me that I could use javascript and somebody told me that I
> could do the whole thing in perl. I have not been able to find any
> information on this topic for either javascript or perl. Could someone
> PLEASE direct me to a book or web page with information on this? I am
> not limited to perl and javascript, so if anyone knows of a better way to
> do this. I would be VERY appreciative. Thanks in advance for your help.
>
> --
>
> Joey Carlton
> Senior, Computer Engineering
> Auburn University
> carltjm@mail.auburn.edu
>
------------------------------
Date: Wed, 22 Jul 1998 13:31:10 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Dynamically creating graph images
Message-Id: <MPG.101febec616a97a998973a@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and a copy sent to Danny Goodman
<dannyg@dannyg.com> and Joseph M Carlton <carltjm@mail.auburn.edu.>]
In article <35B64549.E5CCB1DC@dannyg.com> on Wed, 22 Jul 1998 13:02:28 -
0700, Danny Goodman <dannyg@dannyg.com> says...
> Joseph M Carlton wrote:
> >
> > I am using perl to fetch data from a database for a web project that I am
> > working on. Now, I need to dynamically build a bar graph with this data.
> > Someone told me that I could use javascript and somebody told me that I
> > could do the whole thing in perl. I have not been able to find any
> > information on this topic for either javascript or perl. Could someone
> > PLEASE direct me to a book or web page with information on this?
>
...
> The bottom line technique is to create a one-pixel image of your desired
> color. Then use JavaScript to determine the size of each bar, and
> document.write() the <IMG> tags to set the HEIGHT and WIDTH attributes as the
> page loads. For all browsers except IE4, you must define these attributes as
> the page loads, since the image won't be resizable thereafter.
This doesn't need JavaScript *at all*. From your Perl CGI program you
can build the bar graph directly by printing suitable <IMG HEIGHT=...
WIDTH=... ...> statements in your output to the browser.
--
Larry Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 22 Jul 1998 19:00:49 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Env Variables.
Message-Id: <6p5ct1$iha$2@client3.news.psi.net>
Samue Lopez (Samuel_lopez@mentorg.com) wrote on MDCCLXXXVI September
MCMXCIII in <URL: news:35B5FD92.14644F4E@mentorg.com>:
++ Hello.
++
++ The problem or question I have at the moment is this; does Perl supports
++ shell commands.
++ Meaning is there a way for perl to interpret c shell commands such as
++ source or setenv.
++ For example can I "setenv foo 1234" from within Perl and have this
++ variable visible in
++ the shell from which Perl was started?
Yes, but you need to read the FAQ to see what you need to do first.
++ Does any one know this.
++ Any help, suggestions would be very much appreciated.
Abigail
--
perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
------------------------------
Date: Wed, 22 Jul 1998 15:02:15 -0400
From: Michael Maraist <maraism@sterlingdi.com>
Subject: Re: Env Variables.
Message-Id: <35B63737.C6ECF672@sterlingdi.com>
> > > Hello.
> > > For example can I "setenv foo 1234" from within Perl and have this
> > > variable visible in
> > > the shell from which Perl was started?
> >
> > hmmm, if it would be possible, it would be quite bad. Someone else
> > starts my script from a shell, and I then can play around with his/her
> > ENV variables (Does that sound saucy?). Not nice, security-wise. And as
> > there is nothing quite bad about Perl, I therefore prove by the
> > mathematical method of negation, that it is not possible to change the
> > ENV stuff of the shell.
> >
> > Is that true, or I am trusting Perl too much?
'setenv' in (t)csh is equiv to 'export' in (ba|k)sh is equiv to
$ENV{VAR}=VAL in perl.
The following shell command demonstrates:
perl -e '$ENV{ BOB } = 2; print qx( echo \$BOB ),"\n";'
All child sub-processes of perl will inherit perl's environment. The
only way to have perl's parent process maintain altered environment
variables is to execute a shell script through (t)csh's source command
or (ba|k)sh's "." command. As in:
Perl Script ( env.pl ):
#!/opt/bin/perl
if ( $SHELL =~ /^t?c/ ) {
# (t)csh
print "setenv VAR VAL";
} else {
# (ba|k)sh
print "VAR=VAL";
}
ksh Command Line:
. `perl env.pl`
I believe Taint checking takes care of the security risk you are
concerned with. Haven't read up on it though.
------------------------------
Date: Wed, 22 Jul 1998 16:02:14 -0300
From: Colin Kilburn <hck@formalsys.ca>
Subject: Error message details: <GEN0> chunk 549 and <IN> chunk 24.
Message-Id: <35B63736.4FE11BBA@formalsys.ca>
Here are two error messages:
Use of uninitialized value at /lib/Customer/Customer.pm line 973, <GEN0>
chunk 549.
Use of uninitialized value at /lib/Customer/Customer.pm line 975, <IN>
chunk 24.
What does the '<GEN0> chunk 549' and '<IN> chunk 24' parts refer to?
--
=================================================================
= Colin Kilburn - FSI Software Developer - hck@formalsys.ca =
= Fredericton NB - phone 506 433 0300 - fax 506 433 0300 =
=================================================================
------------------------------
Date: Wed, 22 Jul 1998 15:55:38 -0400
From: Michael Bowler <mkbowler@nortel.com>
Subject: Hash tree problems.
Message-Id: <35B643BA.FE27A7B@nortel.com>
I am having problems with checking for existence of keys down non-existent
branches in a hash tree, causing those branches to be created. Is this how perl
is supposed to handle this?
I have the following piece of code:
-----------------
#!/opt/corp/local/bin/perl
use strict;
my %hash;
$hash{'one'}{'1'} = 1;
delete $hash{'one'};
if (exists($hash{'one'}{'1'})) {
print "Error, all of hash one should have been deleted.\n";
}
if (exists($hash{'one'})) {
print "Error, hash one has been recreated.\n";
}
-----------------
When this is executed, the second error message is written. ie. Checking for
the existence of the $hash{'one'}{'1'} caused $hash{'one'} to be created.
I tried the following code, which seems to work fine:
-----------------
$hash{'one'}{'1'} = 1;
delete $hash{'one'};
print "Contents of one: $hash{'one'}\n";
if (exists($hash{'one'})) {
print "Error: Created one\n";
}
print "Contents of one 1: $hash{'one'}\n";
if (exists($hash{'one'})) {
print "Error: Created one\n";
}
if (exists($hash{'one'}{'1'})) {
print "Error: Created one 1\n";
}
-------------------
So it seems that the 'exists' function is causing my problems, and that the
branches are not being created simply by reading from the invalid keys.
Any comments?
--
Michael Bowler Phone: 613-765-3432
IC Design Tools - 5T11 ESN: 39+53432
Nortel Semiconductors Email: mkbowler@nt.com
------------------------------
Date: Wed, 22 Jul 1998 18:46:15 GMT
From: jhestyr@my-dejanews.com
Subject: im having trouble with a bit of perl script, if someone could give me a hand
Message-Id: <6p5c1n$9gs$1@nnrp1.dejanews.com>
the idea of the program is to make x directories then randomly choose one,
change to that dir, then make x more directories, and so forth until the loop
runs out
heres what i have:
$prog=1;
$dir=1;
mkdir('temp', 0777);
chdir('temp');
while($prog <= 3){
until($dir == 4) {
print "dir = $dir\n";
print "prog = $prog\n";
mkdir("$dir", 0777);
$dir++;
}
srand();
$randnum = int( rand(3) ) + 1;
chdir("$randnum");
$prog++;
print "prog = $prog\n";
}
but after fulfilling the nested until command, it moves onto the random
funtion, and then exits the loop. mebbe putting a line: $count = 1 after the
$prog++ ?>??
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Wed, 22 Jul 1998 16:41:49 -0400
From: "Victor O." <vonyemelukwe@att.com>
Subject: Is Perl y2k compliant?
Message-Id: <35B64E8B.6B36D28E@att.com>
Hello All,
Is Perl y2k?
Thanks,
Victoro
------------------------------
Date: 22 Jul 1998 19:25:20 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Newbie question: a script that ALMOST works (using CGI-lib.pl)
Message-Id: <6p5eb0$j44$1@client3.news.psi.net>
David Fleming (ddallasnc@worldnet.att.net) wrote on MDCCLXXXVI September
MCMXCIII in <URL: news:35B5F166.8245E108@worldnet.att.net>:
++ I have some scripts that I copied from an older book that almost but
++ don't quite do what they are supposed to.
++
++ The whole script is listed below!!
++
++ #!/usr/bin/perl
Use -w
use strict;
++ #Includes cgi-lib file; if the cgi-lib doesn't exist, returns malformed
++ #header error
++ do "cgi-lib.pl" || die "Fatal Error: Can't load cgi library";
use CGI;
++ $command="mail dfleming@triadntr.net < /tmp/my_comment.$pid";
If you follow my advice, Perl will tell you what's wrong here.
Abigail
--
perl -wle '(1 x $_) !~ /^(11+)\1+$/ && print while ++ $_'
------------------------------
Date: Wed, 22 Jul 1998 15:31:10 -0400
From: phenix@interpath.com (John Moreno)
Subject: Re: Newbie question: a script that ALMOST works (using CGI-lib.pl)
Message-Id: <1dckpcr.1gf4y1dgn1t8qN@roxboro0-011.dyn.interpath.net>
David Fleming <ddallasnc@worldnet.att.net> wrote:
> I have some scripts that I copied from an older book that almost but
> don't quite do what they are supposed to.
>
> The html part is fine:
>
-snip-
>
> The perl part works except for the two lines having to do with mailing:
>
> specifically these two:
> $command="mail dfleming@triadntr.net < /tmp/my_comment.$pid";
> system($command);
>
> The whole script is listed below!!
>
> #!/usr/bin/perl
-snip-
> open(COMMENTSFILE,">/tmp/my_comment.$pid");
You don't check to see if open succeeds.
-snip-
> $command="mail dfleming@triadntr.net < /tmp/my_comment.$pid";
> system($command);
You don't know that the temp file exist, it'd be better if you had a
assigned the file name to a variable so you could inspect it and make
sure it's what you expect.
Also - is it possible that "mail" isn't available?
--
John Moreno
------------------------------
Date: Wed, 22 Jul 1998 18:57:17 GMT
From: john_dawson@my-dejanews.com
Subject: Perl array name
Message-Id: <6p5cmd$a8b$1@nnrp1.dejanews.com>
Hello. I'm a newbe to Perl and starting to write a program. After extracting a
variable name by using the substr function, I want to start an array with this
name. As the program will enter this subroutine several times and the variable
will be different every time, I would like to write some generic code to this.
An example of the code would be:
$variable = 'firstname' ;
@firstname = ( $variable2, $variable3, $variable4 );
Of course the second time into the code the array would be @secondname and so
on. How might one create a dynamic array name based upon a changing variable.
Thanks in advanced,
John
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 22 Jul 1998 19:28:35 GMT
From: gbacon@cs.uah.edu (Greg Bacon)
Subject: Re: Perl array name
Message-Id: <6p5eh3$enn$1@info.uah.edu>
[trimmed to 74 columns]
In article <6p5cmd$a8b$1@nnrp1.dejanews.com>,
john_dawson@my-dejanews.com writes:
: Hello. I'm a newbe to Perl and starting to write a program. After extra
: variable name by using the substr function, I want to start an array wi
: name. As the program will enter this subroutine several times and the v
: will be different every time, I would like to write some generic code t
Read the second called `Symbolic references' in the perlref manpage.
Hope this helps,
Greg
--
open(G,"|gzip -dc");$_=<<EOF;s/[0-9a-f]+/print G pack("h*",$&)/eg
f1b88000b620f22320303fa2d2e21584ccbcf29c84d2258084
d2ac158c84c4ece4d22d1000118a8d5491000000
EOF
------------------------------
Date: Wed, 22 Jul 1998 12:59:16 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Perl array name
Message-Id: <MPG.101fe46cf810d8e989739@nntp.hpl.hp.com>
In article <6p5eh3$enn$1@info.uah.edu> on 22 Jul 1998 19:28:35 GMT, Greg
Bacon <gbacon@cs.uah.edu> says...
> [trimmed to 74 columns]
>
> In article <6p5cmd$a8b$1@nnrp1.dejanews.com>,
> john_dawson@my-dejanews.com writes:
> : Hello. I'm a newbe to Perl and starting to write a program. After extra
> : variable name by using the substr function, I want to start an array wi
> : name. As the program will enter this subroutine several times and the v
> : will be different every time, I would like to write some generic code t
>
> Read the second called `Symbolic references' in the perlref manpage.
>
> Hope this helps,
> Greg
That is certainly a simple and usable approach, but might get you into
trouble in various ways. For example, suppose the name is not a valid
Perl identifier?
A more advanced way, which will teach you many more skills (and will work
for any name string), is to use a hash (concept 1) to store a reference
(concept 2) to an anonymous array (concept 3).
It would look like this:
my %arrays;
$arrays{$variable} = [ $variable2, $variable3, $variable4 ];
Note the square brackets, not parentheses.
Then later you use
@{$arrays{$variable}}
to get at the whole array, or
$arrays{$variable}->[constant or variable index expression]
to get at a particular element (you can leave out the -> for neatness).
But then you will no longer be a newbie to Perl :-)
--
Larry Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 22 Jul 1998 20:18:18 GMT
From: gebis@albrecht.ecn.purdue.edu (Michael J Gebis)
Subject: Re: Perl array name
Message-Id: <6p5hea$bli@mozo.cc.purdue.edu>
gbacon@cs.uah.edu (Greg Bacon) writes:
}In article <6p5cmd$a8b$1@nnrp1.dejanews.com>,
} john_dawson@my-dejanews.com writes:
}: Hello. I'm a newbe to Perl and starting to write a program. After extra
}: variable name by using the substr function, I want to start an array wi
}: name. As the program will enter this subroutine several times and the v
}: will be different every time, I would like to write some generic code t
}Read the second called `Symbolic references' in the perlref manpage.
But FIRST, go to dejanews and look for an article entitled:
Subject: Why it's stupid to `use a variable as a variable name'
Message-ID: <6lnb70$lct$1@monet.op.net>
From: mjd@op.net (Mark-Jason "The Dominator" Dominus)
Read it. Read it. Read it. Read it. Read it. Read it. Read it.
--
Mike Gebis gebis@ecn.purdue.edu mgebis@eternal.net
------------------------------
Date: Wed, 22 Jul 1998 15:46:25 -0500
From: Ryan Morgan <rmorgan@cse.unl.edu>
Subject: Perl with SSI
Message-Id: <35B64FA1.B925A659@cse.unl.edu>
hello
is there anyway to enbed ssi directives within perl scripts? I know
that you can set up which files are parsed for ssi using the SetHandler
command (in the apache config.) , but when the html is generated from a
perl script, (eg.. login.pl) the web server wont parse it since its
not coming from a file with a .shtml extension. Anyone have a work
around?
any help would be greatly appreciated,
-rpm
------------------------------
Date: 22 Jul 1998 20:38:41 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Please HELP. Print problem
Message-Id: <6p5ikh$mkn$2@marina.cinenet.net>
Glenn A. Cooper (cooperga@cig.mot.com) wrote:
: I need to cat a file to a printer using the enscript -r command. My
: program sucessfully writes the information to a file and I want to
: automatically send it to the printer with the above command. It keeps
: showing that there is no input. Any help would be GREATLY appreciated.
Please post your code (perhaps a dozen lines or so) which illustrates the
problem. It's hard to diagnose without seeing what you're doing. The
actual exact text of any error message you see would also be useful. Oh,
and be sure you're running under -w and (preferably) use strict -- those
alone might solve your problem without further help from us.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: 22 Jul 1998 19:03:07 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: question about split
Message-Id: <6p5d1b$iha$3@client3.news.psi.net>
gvacanti@my-dejanews.com (gvacanti@my-dejanews.com) wrote on MDCCLXXXVI
September MCMXCIII in <URL: news:6p4qnf$gqm$1@nnrp1.dejanews.com>:
++
++ @b and @c should be the same ("if the PATTERN is also omitted, the function
++ splits on white space, /\s+/, after skipping any leading whitespace"). But th
++ output I get is:
Which part of "after skipping any leading whitspace" don't you understand?
Abigail
--
perl -wle '$, = " "; sub AUTOLOAD {($AUTOLOAD =~ /::(.*)/) [0];}
print+Just (), another (), Perl (), Hacker ();'
------------------------------
Date: 22 Jul 1998 19:24:47 GMT
From: klassa@aursgh.aur.alcatel.com (John Klassa)
Subject: Re: Reading in an email message into a Perl program
Message-Id: <6p5e9v$2ok$1@aurwww.aur.alcatel.com>
On Sat, 18 Jul 1998 13:24:45 GMT, root.noharvest.\@not_even\here.com wrote:
> The below code will do everything you need:
I don't think so... In particular, it doesn't handle run-on fields as
in the following message header:
To: john_doe,
john_smith
From: mary_doe
Subject: a test
This is legal stuff that's not handled by your code.
--
John Klassa / Alcatel Telecom / Raleigh, NC, USA <><
------------------------------
Date: 22 Jul 1998 19:07:35 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: regexp vs. split
Message-Id: <6p5d9n$iha$4@client3.news.psi.net>
mboedicker@my-dejanews.com (mboedicker@my-dejanews.com) wrote on
MDCCLXXXVI September MCMXCIII in <URL: news:6p58im$4bm$1@nnrp1.dejanews.com>:
++ Does anyone see any reason why these two pieces of code wouldn't do the same
++ thing?
++
++ while(<SEARCH>) {
++ s/\"//g;
++ s/.*?\|//;
++ @fields = split(/\|/);
++ foreach $field (@fields) {
++ ... etc
++ --------------
++ while(<SEARCH>) {
++ s/\"//g;
++ @fields = split(/\|/);
++ $fields[0] = "";
++ foreach $field (@fields) {
++ ... etc
++ --------------
Is there any reason why they *should* be the same? In the first one, you
remove a `|', before doing the split, so you'll end up with an array with
as many elements as you had `|' to start with. The second fragment doesn't
delete `|', nor shortes the array, so you'll end up with one element more
than you had `|'s.
Maybe you want a 'shift @fields' instead of a '$fields[0] = ""'?
Abigail
--
perl -MNet::Dict -we '(Net::Dict -> new (server => "dict.org")\n-> define ("foldoc", "perl")) [0] -> print'
------------------------------
Date: 22 Jul 1998 19:47:00 GMT
From: Eli the Bearded <*@qz.to>
Subject: Re: Regular expressions for Perl 5
Message-Id: <eli$9807221543@qz.little-neck.ny.us>
In comp.lang.perl.misc, BJKim <shado@uclink4.berkeley.edu> wrote:
> Does Perl 4 not support certain aspects of regular expressions that Perl
> 5 does.
That is correct. Perl 5 has much more powerful REs.
> This is the error I get in Perl 4 but not in Perl 5
> /(<TD>(.*?)</TD><TD>(.*?)</TD>){1}?/: nested *?+ in regexp at change.cgi
> Any suggestions on what I should do?
Don't use perl 4.
What do you want to happen with that "(...){1}?" anyway?
Elijah
------
and you probably don't use .*? for that
------------------------------
Date: Wed, 22 Jul 1998 14:36:04 -0700
From: "J. Pratt" <jpratt@command-central.nmsd.k12.nm.us>
Subject: result pending code..?
Message-Id: <35B65B44.958E0EE3@command-central.nmsd.k12.nm.us>
I posted this letter at work and when I got home (several hours later) I
did not see the message anywhere. This lead me to believe it may not
have been posted.. or something. Better safe than not. Pardon me if
it did indeed post fine..
--
Greetings..
I was wondering how one would code something that is "outcome
dependent". What I mean by this term is. . let's say, you wanted a file
to be emptied (rm'ing it, I suppose) if and only if something is
successful. More specifically, I am going to have a cron job setup that
mails the contents of a file to myself, and if and only if the crontab
job is successful will the files contents be emptied.
The only real idea I had thought of so far is this.. The crontab entry
would look something like:
0 1 * * * whoever cat file_with_info | mail myself@feh.com
Now.. If I was to simply add "| rm file_with_info", it seems that would
do the trick. . Hmm? But, then again, there's no guarantee that the
file was mailed properly (but if not, it would go into the mail queue
and should eventually get sent). *shrug* Just a thought.. Any
feedback on this? I figure there's other methods of accomplishing my
goal.
Additionally, although this sounds somewhat complex (but a good feature,
nonetheless), I am wanting to make sure that if someone commits
information to the file (you will be able to add info. to the file via
the web) while the cron job is running and e-mailing the contents of the
file, that their line of info. is not deleted nor sent again in the next
e-mail job run.
Any relevant help is, as usual, greatly appreciated. .
Thanks in advance, llamas. :)
- J. Pratt
------------------------------
Date: 22 Jul 1998 14:45:05 -0400
From: Dean Pentcheff <dean@mail.biol.sc.edu>
Subject: Re: Reversing time
Message-Id: <m3r9zdohce.fsf@mail.biol.sc.edu>
Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at> writes:
> Re: Reversing time, martin <martin_harriss@my-dejanews.com> said:
> martin> How can I turn a given date in the dd mmm yyyy form
> martin> into the internal time format as returned by the
> martin> time function? I need to be able to compare the
> martin> time written in a file with the current time.
>
> check CPAN for the modules:
> Date::DateCalc
> Date::Manip
And also the standard modules (e.g. distributed along with Perl)
Time::Local.
-Dean
--
N. Dean Pentcheff <pentcheff@acm.org>
Biological Sciences, Univ. of South Carolina, Columbia SC 29208 (803-777-7068)
------------------------------
Date: 22 Jul 1998 15:29:40 -0500
From: claird@Starbase.NeoSoft.COM (Cameron Laird)
Subject: Re: Tcl is better than Perl
Message-Id: <6p5i3k$b9r$1@Starbase.NeoSoft.COM>
In article <6p22c9$58t$1@nnrp1.dejanews.com>, <schwern@starmedia.net> wrote:
>I don't know what you mean by "talk to my client".
>
>
>If you mean literally "to have a conversation with", then I think you should
>have a look at the Expect module (available at a CPAN near you.) This is
>actually a carry-over from the TCL universe and is probably what people were
>thinking of when they told you to use TCL.
>
>
>If you merely want to write a client which communicates a certain protocol
>(NNTP, SMTP, HTTP, etc...) tip-toe through CPAN and see if there's a module
>pre-built for you to use. In straight client/server communication, Perl
>should be much better than TCL.
.
.
.
Actually, writing a very simple client-server pair
is one of the tasks where Tcl happens to be a lot
friendlier to beginners than Perl.
The original questioner knows Perl. I'm a Tcl
advocate, but I don't think there's any particular
reason for him to learn Tcl. To do any of the
work he seems to need, he'll be happiest with Perl.
--
Cameron Laird http://starbase.neosoft.com/~claird/home.html
claird@NeoSoft.com +1 713 996 8546 FAX
------------------------------
Date: Wed, 22 Jul 1998 16:45:59 -0400
From: Shaun Gilroy <shaung@onlinetech.net>
Subject: The act of glueing one cat's nose to another's tail...
Message-Id: <35B64F87.EFC9705D@onlinetech.net>
...and a similar operation performed on strings.
Does anyone have a suggestion on how to copy and concatenate entire
files in PERL without resorting to:
exec "cp ..."; [and]
exec "cat ...";
?
I'd like to keep my CGIs as self contained/portable as possible and I am
aware of no outright method of concatenating or copying files with the
PERL command structure. Does anyone have a neat algorithm or subroutine
that they use to accomplish this? Or perhaps someone knows something
that I don't?
Thanks,
--
_______________________________________________________________________
Shaun E. Gilroy shaung@onlinetech.net
Online Technologies Corporation Phone: 734.761.8742 x-233
http://www.onlinetechnologies.net/
------------------------------
Date: 22 Jul 1998 14:58:23 -0400
From: Dean Pentcheff <dean@mail.biol.sc.edu>
Subject: Re: the low road
Message-Id: <m3pvexogq8.fsf@mail.biol.sc.edu>
"John" <jkramer@primenet.com> writes:
> First of all I would like to say that I am new to the Newsgroup and still in
> the learning stages with perl too but I will do my best not to sound
> completely ignorant. As to my topic I was creating a database program using
> perl cgi when I encountered a problem. It became necessary for form via an
> HTML page to pass information from a <textarea>. The problem was I needed
> to remove the \n's and replace them with <BR>'s. I opted to use the Split
> command to split at the \n's and then run a foreach loop to paste the <BR>'s
> in place. True to TIMTOWTDI form after I finished I got to thinking that
> there might have been a better way. Is it possible to set the Output Record
> Separator ($\) to <BR> and if so how do you get it in before the data is
> passed from the form?
>
> I have searched my stack of manuals and browsed till my eyes are falling out
> but I can't seem to find the answer. It could be that I am looking in the
> wrong area's but I differ to the wisdom of the board.
No worries: you failed to do the things that flame-victims do: come to
the group with a question and showing that they haven't thought it
through at all, or checked the manuals. You have.
So...
The output-record-separator ($\) approach is feasible. There's no
relationship between the input record separator (or data input in
general) and the output record separator. Hence, you can set (and
unset) the $\ variable at any time before you do your output.
For example (note: untested code follows):
my(@input) = <INFILE>;
$\ = "<br>";
print grep(/relevant/, @input);
That would print all the "relevant" lines from the input filehandle,
with each line ending in a newline (copied from the input) and then
"<br>". Since HTML ignores the newline, no worries.
Note that there's no split() there: I'm not sure why you really need
the split. If it's just a way to get rid of the terminal newlines,
you could just chomp() each incoming line.
However, a lot of folks tend to shy away from changing input and
output separators unless really necessary. It can lead to enormous
confusion for code maintainers, since it potentially leads to a kind
of "spooky action at a distance" far removed from the point in the
code where you change the separator.
An alternative to the \$ approach is to use join(). One could, for
example, do:
print join("<br>", <INFILE>);
That has the added advantage that there's no trailing useless "<br>".
And, y'know, there ain't nothing wrong with plain old:
while (<INFILE>) {
print "$_<br>";
}
On a side note, if you're doing CGI programming using Perl, you
really, really owe it to yourself to use the CGI.pm module. It should
be included with your Perl. If your version of Perl is old enough
that it's not, upgrade! And/or check the CGI.pm home site:
http://www-genome.wi.mit.edu/ftp/distribution/software/WWW/
Hope those are useful ideas!
-Dean
--
N. Dean Pentcheff <pentcheff@acm.org>
Biological Sciences, Univ. of South Carolina, Columbia SC 29208 (803-777-7068)
------------------------------
Date: Wed, 22 Jul 1998 18:24:06 GMT
From: Charles Maier <maierc@chesco.com>
Subject: Re: the low road
Message-Id: <35B4211D.3E9903E9@chesco.com>
John wrote: Is it possible to set the Output Record
> Separator ($\) to <BR> and if so how do you get it in before the data is
> passed from the form?
>
Anytime BEFORE you talk about the string.
This character is sometimes used to allow you to manipulate multi-line strings
as a single line.. broken by some OTHER entity. What you suggest doesn't make
sence.. since the input stream will not already have the <BR> in it.
This $\ what perl INTERPRETS as record separator.. it has nothing to do with
substituting any data for any other data.
--
Chuck Maier
CDM Consulting Services
http://www.cdmcon.com
(610) 943-2726
------------------------------
Date: Wed, 22 Jul 1998 12:05:18 -0700
From: eharley@pacbell.net (Eric Harley)
Subject: Re: Variable Interpolation
Message-Id: <eharley-2207981205190001@ppp-207-214-149-197.snrf01.pacbell.net>
> Why does this program compile just fine:
>
> $a = "$b" ;
>
> While this one produces a compiling error:
>
> $a = "@b" ;
>
> In string, @b now must be written as \@b at 2 line 1, near "@b"
> Execution of 2 aborted due to compilation errors.
Because you haven't defined @b yet the perl compiler doesn't do the
interpolation (what is there to interpolate.) Try this:
@b = qw(foo bar);
$a = "@b";
print $a,"\n";
my perl gives me:
foo bar
--
Eric Harley
Freelance Programmer
You need it done, I'm your man.
eharley@pacbell.net
http://burn.victim.com/~eharley
------------------------------
Date: 22 Jul 1998 19:40:44 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: Variable Interpolation
Message-Id: <901137030.670716@thrush.omix.com>
monty hindman <montyh@umich.edu> wrote:
: Why does this program compile just fine:
: $a = "$b" ;
: While this one produces a compiling error:
: $a = "@b" ;
: In string, @b now must be written as \@b at 2 line 1, near "@b"
: Execution of 2 aborted due to compilation errors.
Because @b hasn't been used anywere as a real array. All you need
to do is use it somewhere first, even if it doesn't actually do
anything.
$ perl -e '$a = "@b"'
In string, @b now must be written as \@b at -e line 1, near "@b"
Execution of -e aborted due to compilation errors.
$ perl -wce '@b = @b; $a = "@b"'
-e syntax OK
--
-Zenin (zenin@archive.rhps.org) From The Blue Camel we learn:
BSD: A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts. Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.) The full chemical name is "Berkeley Standard Distribution".
------------------------------
Date: 22 Jul 1998 20:36:18 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: what is offline mode?
Message-Id: <6p5ig2$mkn$1@marina.cinenet.net>
Gaetano Vocca (gvoc@etb.bel.alcatel.be) wrote:
: I'm a new Perl user enjoying the vast and "magic" Perl community. The
: question I have is the typical newbie one. I would like to use the
: routines of the CGI module to generate some HTML pages but not in a CGI
: program. Each time I try to run my small script the Perl program prints
: on STDOUT the message:
: (offline mode: enter name=value pairs on standard input)
: waits for a string of arguments and then it runs regularly.
: Is there any way to avoid this message and the request of the arguments?
Please drop the mime encodings and vcard and all that next time -- Usenet
is a pure text medium.
You can suppress CGI.pm's request for offline-mode arguments by giving it
at least one name=value pair on the command line:
> perl foo.pl a=b
Seeing any name=value pair on the command line causes CGI.pm to use
those rather than prompting.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Wed, 22 Jul 1998 17:11:03 GMT
From: mick@picus.dcs.bbk.ac.uk (Mick Farmer)
Subject: Re: What's wrong?
Message-Id: <EwIAEF.Dro@mail2.ccs.bbk.ac.uk>
Dear Wilson,
Be careful with a name like ex, it's the name of an
editor. Are you sure you're executing the Perl program?
Regards,
Mick
------------------------------
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 3226
**************************************
