[12576] in Perl-Users-Digest
Perl-Users Digest, Issue: 6176 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jun 30 11:07:26 1999
Date: Wed, 30 Jun 99 08: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 Wed, 30 Jun 1999 Volume: 8 Number: 6176
Today's topics:
Re: alphabetical sorting (John Borwick)
Appending to pages using CGI scripts mfawley@praxis-cs.co.uk
Re: Apples and Oranges (William Herrera)
Re: Apples and Oranges (Doug Edmunds)
Re: cgi-lib.pl (I R A Aggie)
DBD installation with Oracle 8.0.5 nickr3814@my-deja.com
exec problem (Fulko van Westrenen)
Re: Extracting specific text from specific files in a l <leejk@cat.com>
how do I open a % based on a $ ? <mda@unb.ca>
Re: how do I open a % based on a $ ? <mda@unb.ca>
Re: how do I open a % based on a $ ? <nospam.newton@gmx.net>
Re: how do I open a % based on a $ ? <swiftkid@bigfoot.com>
How to remove the x number of lines from top of a file <dazimi@yahoo.com>
Re: Indexing <martin@adoma.se>
Re: Indexing <otis@my-deja.com>
Re: killing subprocess ==> reproducible core dump <jcreed@cyclone.jprc.com>
Re: Newbie needs help <prlawrence@lehigh.edu>
parallel port access? <mwilson@sundog.larc.nasa.gov>
Re: Perl or PNP...which is better? (Abigail)
Re: Perl or PNP...which is better? (Tad McClellan)
Re: Perl without Web-Server <andre.pletschette@ltam.lu>
Re: random numbers ? (M.J.T. Guy)
Re: random numbers ? (Bart Lateur)
Re: Regular Expression <nospam.newton@gmx.net>
Re: Robot email/poster for this group (Tad McClellan)
Re: search and replace with <> (Anno Siegel)
Re: Search Engine Problem -- newbie question <latsharj@my-deja.com>
Re: Short Circuit Query (M.J.T. Guy)
Re: shortest self printing perl program <nospam.newton@gmx.net>
Re: simple question. (M.J.T. Guy)
Re: Starting asynchronous process from Perl <pweingart@worldnet.att.net>
Re: Starting asynchronous process from Perl <jcreed@cyclone.jprc.com>
strange regex behaviour - don't understand what's going (I.J. Garlick)
system() and exit status <paul.mutyambizi@citicorp.quit-spam.com>
system() and exit status <paul.mutyambizi@citicorp.quit-spam.com>
Re: There is a smarter way, but i dont know how. <pweingart@worldnet.att.net>
Upgrade Perl 5.003_07 -> 515 | higher <m.weindorf@mainz.netsurf.de>
Re: Verifying an existing file with a PERL web script frm_79@my-deja.com
Re: Week Number without Date Module? <michel.combes@hl.siemens.de>
Re: win32 file access <kmassey@mratings.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 30 Jun 1999 12:41:44 GMT
From: John.Borwick@sas.com (John Borwick)
Subject: Re: alphabetical sorting
Message-Id: <377c0f10.173872194@newshost.unx.sas.com>
...
>@array = <>;
>
>foreach (sort alphabetically @array)
>{
> print;
>}
>
>sub alphabetically
>{
> $tempa = $a;
> $tempb = $b;
> $tempa =~ tr/A-Z/a-z/;
> $tempb =~ tr/A-Z/a-z/;
> ($tempa cmp $tempb);
>}
If @array is sizeable, it might be more worth your time to lowercase
the entire array before you perform the sort.
print sort ( map { lc $_ } @array );
Sort's qsort algorithm will perform the comparison many many times, so
it's good to keep the overhead of the sort function low.
John Borwick
------------------------------
Date: Wed, 30 Jun 1999 14:19:05 GMT
From: mfawley@praxis-cs.co.uk
Subject: Appending to pages using CGI scripts
Message-Id: <7ld90b$fai$1@nnrp1.deja.com>
I'm trying to append text from a form to another web page using a PERL
script. If I run the PERL script from UNIX, it does exactly what it's
supposed to. However, when I click on the submit button on the form on
my web page (run from NT) I get the error message:
"The server encountered an internal error or misconfiguration and was
unable to complete your request."
I can fix this by removing "or die" statements from my PERL script but
then the script doesn't do what it should. Any ideas???
Cheers,
Martin
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 30 Jun 1999 13:58:18 GMT
From: posting.account@lynxview.com (William Herrera)
Subject: Re: Apples and Oranges
Message-Id: <377a21ea.90684725@news.rmi.net>
On Tue, 29 Jun 1999 13:25:41 -0400, Ala Qumsieh <aqumsieh@matrox.com>
wrote:
>No .. it's not a bug .. but you are using symbolic references, which
>are very confusing sometimes. In Perl's regexps, $1, $2, etc, are
>special READONLY vars that are set to whatever is matched by their
>respective parentheses (see perlre for more info).
>
>When you use a string that starts with a number as a symbolic ref,
>Perl thinks that you are trying to set one of those read-only vars,
>and complains.
Worse than that, it thinks it IS the $n variable It only looks at the
leading number! Look at this:
#################
$t = '1 orange';
$s = 'testing fruit';
$s =~ /.+(es).*(fr)/;
print "testing: $$t, $1, $2\n\n";
###################
prints :
es, es, fr
---
The above from: address is spamblocked. Use wherrera (at) lynxview (dot) com for the reply address.
------------------------------
Date: Wed, 30 Jun 1999 14:45:42 GMT
From: edmundsMUNGED@pacifierMUNGED.com (Doug Edmunds)
Subject: Re: Apples and Oranges
Message-Id: <377a2c2f.75553861@news.pacifier.com>
On 29 Jun 1999 13:14:56 -0000, anno4000@lublin.zrz.tu-berlin.de (Anno
Siegel) wrote:
>In the light of the above, you are trying to assign to a variable
>with the name "2 oranges". This is too much, even for perl. I
>suppose the interpreter thinks you mean the variable $2 (one of
>the regex related variables to which you can't assign).
>
>Anno
But notice that changing $a from *2 apples" to "3,000 apples"
or even "3000apples" (no spacing), gives the same result.
It is only the first character in the string that causes this.
" 2 apples" (with a space in front of the 2) doesn't exhibit this
behavior.
Doug Edmunds
# --- code starts ------
#! perl -w
use Data::Dumper;
print "test 1 \n";
undef $a;
$$a = "Two apples";
print "Before assignment to \$a\n";
print "\$\$a is $$a \$a is $a \n";
print "Dumper \$\$a: ". Dumper ($$a);
print "Dumper \$a : ". Dumper ($a);
print "\n";
$a = "Three thousand apples";
print "After assignment to \$a\n";
print "\$\$a is $$a \$a is $a \n";
print "Dumper \$\$a: ". Dumper ($$a);
print "Dumper \$a : ". Dumper ($a);
print "\n";
$$a = "Two apples";
print "Reassign to \$\$a\n";
print "\$\$a is $$a \$a is $a \n";
print "Dumper \$\$a: ". Dumper ($$a);
print "Dumper \$a : ". Dumper ($a);
print "\n";
print "test 2 \n";
undef $a;
$$a = "Two apples";
print "Before assignment to \$a\n";
print "\$\$a is $$a \$a is $a \n";
print "Dumper \$\$a: ". Dumper ($$a);
print "Dumper \$a : ". Dumper ($a);
print "\n";
$a = "3,000 apples"; # ########## Make changes here ###########
print "After assignment to \$a\n";
print "\$\$a is $$a \$a is $a \n";
print "Dumper \$\$a: ". Dumper ($$a);
print "Dumper \$a : ". Dumper ($a);
print "\n";
#this is where it crashes
$$a = "Two apples";
print "Reassign to \$\$a\n";
print "\$\$a is $$a \$a is $a \n";
print "Dumper \$\$a: ". Dumper ($$a);
print "Dumper \$a : ". Dumper ($a);
print "\n";
#--- code ends ------
------------------------------
Date: 30 Jun 1999 13:32:44 GMT
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: cgi-lib.pl
Message-Id: <slrn7nk787.d9a.fl_aggie@thepentagon.com>
On Tue, 29 Jun 1999 22:46:44 -0300, mage <mage@golden.net>, in
<7lc0vv$6lo$1@cougar.golden.net> wrote:
+ command zcat < gzipfile | CGI.pm to unzip it and create the pm module. Does
+ this sound right?
Ummm...no...I usually use something like:
gunzip -c file.tar.gz | tar -xvf -
At that point, you have docs that will explain installation.
James
------------------------------
Date: Wed, 30 Jun 1999 13:30:16 GMT
From: nickr3814@my-deja.com
Subject: DBD installation with Oracle 8.0.5
Message-Id: <7ld658$e2v$1@nnrp1.deja.com>
Operating System: Digital Unix 4.0D on DEC alpha
Oracle version: 8.0.5
Perl version: 5.00502
DBI version: 1.10
DBD versions: Have tried DBD-Oracle-0.59 and 1.02
Problem:
I have proceeded through: perl Makefile.PL, make, make test.
make test returns following:
t/base..............install_driver(Oracle) failed: Can't load
'blib/arch/auto/DB
D/Oracle/Oracle.so' for module DBD::Oracle: dlopen: cannot load
blib/arch/auto/D
BD/Oracle/Oracle.so at /usr/local/lib/perl5/5.00502/alpha-
dec_osf/DynaLoader.pm
line 168.
Note: I have installed the same version of DBD on an identical system
except with Oracle 7.3.4 and it went smoothly.
I have set LD_LIBRARY_PATH to include ORACLE_HOME/lib
I am assuming that some library functions in under Oracle 8.0.5 are
either missing or corrupted ?? However there were no messages returned
during "perl Makefile.PL" or "make stages" to suggest anything was
awry.
Can anyone provide some clues .. thanks
Nick Rose
Copenhagen
ps. I have checked that $ORACLE_HOME/rdbms/lib/sysliblist exists and
contains "-lc"
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 30 Jun 1999 12:14:49 GMT
From: fulko@dizzy.ipo.tue.nl (Fulko van Westrenen)
Subject: exec problem
Message-Id: <slrn7nk2hp.1ne.fulko@dizzy.ipo.tue.nl>
Hello,
I have a problem when executing a program from a perl script.
De problematic code is:
my $pid = open(FOONGREP, '-|');
&PrintMessage_BailOut ('Cannot open a pipe.')
unless defined $pid;
unless ( $pid ) {
exec ($Pref{'Foongrep'}, @arg) ||
&PrintMessage_BailOut ('Can't start ', $Pref{'Foongrep'});
{
The variable @arg contains the options for the program hold in $Pref{'Foongrep'}
and the result should be:
exec(/usr/local/bin/foongrep -C /usr/local/cdfoon -i -o stdout -a iso -,c
-1000 -T 120); [wrapped by me]
Unfortunately is there a problem with passing the options to `foongrep'.
Anyone any idea?
Thanks,
Fulko
--
Fulko van Westrenen
fulko@monk.wtm.tudelft.nl
------------------------------
Date: Wed, 30 Jun 1999 10:10:42 -0400
From: "Keith Lee" <leejk@cat.com>
Subject: Re: Extracting specific text from specific files in a list
Message-Id: <7ld8go$5rp$1@ns1.cat.com>
Yes, I have tried this and other different variations of this, but each time
I get an error back saying:
"Uncaught exception from user code: /^assembly(name="1322500.vdi/:
unmatched () in regexp at ./vdimerge.cgi line 20, <FOO> chunk 1"
I am new to writing pattern matches, and I have the feeling that this is a
simple fix and when some of you point out what is wrong here, I am going to
feel pretty stupid. Anybody?
$string = 'assembly (name="';
open(FILE, ">newfile") or die "Can't write new file: $!";
for my $file (@input) { #multiple filenames gathered from user input
if (-f "$vdi_dir/$file" && open(FOO, "$vdi_dir/$file")) {
while (<FOO>) {
print FILE <FOO> if /^$string$file/ ... eof;
}
close(FOO);
}
}
close FILE;
Tom Phoenix <rootbeer@redcat.com> wrote in message
news:Pine.GSO.4.02A.9906291602560.4425-100000@user2.teleport.com...
> On Tue, 29 Jun 1999, Keith Lee wrote:
>
> > ### I need some kind of pattern matching here to start reading at a
> > ### certain place in the file
> > print FILE <FOO>; #new file's filehandle
>
> Maybe you want something like this.
>
> while (<FOO>) {
> print FILE if /start_here/..eof;
> }
>
> Or maybe this.
>
> my $printing;
> while (<FOO>) {
> print FILE if $printing;
> $printing ||= /start_after_here/;
> }
>
> Good luck!
>
> --
> Tom Phoenix Perl Training and Hacking Esperanto
> Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
>
------------------------------
Date: Wed, 30 Jun 1999 10:21:31 -0300
From: "Matt A" <mda@unb.ca>
Subject: how do I open a % based on a $ ?
Message-Id: <7ld5l2$s4c@sol.sun.csd.unb.ca>
hey all,
I am trying to open a hash based on the name of a variable.
ie. My code looks basically like
$nodedb = $node . "_db";
foreach $i (sort keys(%$nodedb))
Do some stuff
}
This is not working...So basically I want to open a hash, and the name of
the hash is stored in a scalar...is this possible?
Thanks
Matt
------------------------------
Date: Wed, 30 Jun 1999 10:58:00 -0300
From: "Matt A" <mda@unb.ca>
Subject: Re: how do I open a % based on a $ ?
Message-Id: <7ld7pi$6dh@sol.sun.csd.unb.ca>
Basically, I know I probably need to use references,,,but I guess I'm not
sure how...
Matt A wrote in message <7ld5l2$s4c@sol.sun.csd.unb.ca>...
>hey all,
>
>I am trying to open a hash based on the name of a variable.
>
>ie. My code looks basically like
>
>$nodedb = $node . "_db";
>foreach $i (sort keys(%$nodedb))
>
> Do some stuff
> }
>
>This is not working...So basically I want to open a hash, and the name of
>the hash is stored in a scalar...is this possible?
>
>Thanks
>
>Matt
>
>
------------------------------
Date: Wed, 30 Jun 1999 16:07:49 +0200
From: "Philip 'Yes, that's my address' Newton" <nospam.newton@gmx.net>
Subject: Re: how do I open a % based on a $ ?
Message-Id: <377A24B5.D07F7173@gmx.net>
Matt A wrote:
>
> So basically I want to open a hash, and the name of
> the hash is stored in a scalar...is this possible?
Yes (what happened when you tried it out?). But usually not desirable.
You probably want a hash of hashes, or something like that.
Have a look at http://www.plover.com/~mjd/perl/varvarname.html , for
example. Or read the "Apples and Oranges" thread in this newsgroup.
Also, read perllol and perldsc.
Then, if anything is still unclear, come back here.
Cheers,
Philip
------------------------------
Date: Wed, 30 Jun 1999 19:15:14 +0500
From: "Faisal Nasim" <swiftkid@bigfoot.com>
Subject: Re: how do I open a % based on a $ ?
Message-Id: <7lec2a$6au1@news.cyber.net.pk>
> ie. My code looks basically like
>
> $nodedb = $node . "_db";
> foreach $i (sort keys(%$nodedb))
>
> Do some stuff
> }
>
> This is not working...So basically I want to open a hash, and the name of
> the hash is stored in a scalar...is this possible?
Perhaps you want:
foreach $i ( sort keys % { $nodeb } )
{
#blah
}
have fun
P.S. I have added the " " in the sig now! :)
--
Faisal Nasim (the Whiz Kid)
Web: http://wss.hypermart.net/
AOL: Whiz Swift ICQ: 4265451
FAX: (815) 846-2877
------------------------------
Date: Wed, 30 Jun 1999 09:43:58 -0400
From: "Dariush_news" <dazimi@yahoo.com>
Subject: How to remove the x number of lines from top of a file
Message-Id: <7ld75q$1lm$1@clio.net.metrotor.on.ca>
Hi there;
How can I remove the x number of lines from top of a file.?
Can you suggest anything?
Thank you.
Please forward ans to
Dariush_Azimi@mta1.metrodesk.metrotor.on.ca
------------------------------
Date: Wed, 30 Jun 1999 14:59:45 +0100
From: Martin Quensel <martin@adoma.se>
Subject: Re: Indexing
Message-Id: <377A22D1.E61154F2@adoma.se>
Michael Burrows wrote:
>
> Hi
> Do search engines index the web by traversing links? Would it be faster to
> delegate the indexing to web servers, and then merge indexes received back?
> Mike
Do camels drink water before going in to the desert or do they venture
out, finding an oasis, and then drink?
Do wild camels do the same as domestic camels?
Well, the wild camels are random creatures, they kinda do as they
please..
The domestic ones however dont have an option, they do as their
"drivers" please..the camel "drivers" are just like the wild camels.
There isent any pattern, the camel drivers are random cratures!
Now lets translate that camel thing to perl, since you posted in a perl
newsgroup i assume you want some kind of ansver related to perl huh?
First of all, there arent any wild perlscripts roaming around the webb
(desert) reproducing as they wish, and indexing (drinking water) where,
and how, they please.
the only perlprograms that exist in the desert (webb) are domestic ones,
often genetically constructed (written) by some camel "driver"
(programmer).
The driver creates camels as he seems fit, camesl with diffrent
functions...some of these, roam around the desert(webb), drinking
water(traversing links) or eating fruits(collecting mail addresses) that
grow near the oasis(webbpage/webbserver).
But these domestic camels (written programs) do exactly what their
driver (programmer) told (wrote) them to do.
Maybee the camel driver would like the fruits and water of the oasis
come to him, so he wouldent need to send his camels out, what do i
know...
Anyway, it would be kewl with some wild camels in the desert...but there
isent a god (AI) powerfull to genetically create them (program them).
It sure dident ansver your question, but maybee gave you something to
think about.
Next time you maybee should ask a perl related question, for a usefull
ansver.
Hope you liked the story though
Best regards Martin Quensel
------------------------------
Date: Wed, 30 Jun 1999 13:48:22 GMT
From: Otis Gospodnetic <otis@my-deja.com>
Subject: Re: Indexing
Message-Id: <7ld771$egk$1@nnrp1.deja.com>
In article <01bec2d4$02a9f2a0$a5cbac3e@default>,
"Michael Burrows" <michael.burrows@lineone.net> wrote:
> Hi
> Do search engines index the web by traversing links? Would it be
faster to
> delegate the indexing to web servers, and then merge indexes received
back?
> Mike
>
It probably would be and has been proposed before, but it obviously did
not work - it requires too much organization, coordination, etc.
Like communism, nice in theory, but hard/impossible in practice.
Otis Gospodnetic
--
InfoJump - Information For The Masses
- 5,000,000 articles in 4,000 periodicals
- http://www.infojump.com/
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 30 Jun 1999 10:14:14 -0400
From: Jason Reed <jcreed@cyclone.jprc.com>
Subject: Re: killing subprocess ==> reproducible core dump
Message-Id: <a14sjpg4i1.fsf@cyclone.jprc.com>
Jamie Zawinski <jwz@jwz.org> writes:
> That's not working either -- interestingly, though, this version makes
> it dump core on Linux as well (instead of saying "out of memory") so
> this time I was able to get a stack trace:
How about this: (I moved the waitpid outside the signal handler
and the alarm inside the if-open-pipe-successful)
Sorry about the previous version being obviously wrong
for at least the reason that I neglected you were piping
into the other program.
#!/usr/local/bin/perl5
require 5;
#use diagnostics;
use strict;
use POSIX;
my $cvt_timeout = 5;
sub foo {
my $cmd = "perl -e '1 while 1'";
my $body = "blah blah blah";
my $pid;
@_ = eval {
my $timed_out;
local $SIG{ALRM} = sub {
print "timed out ($cvt_timeout) for $cmd\n";
print "timed out: killing $pid\n";
if ($pid) {
kill ('TERM', $pid);
print "awaiting $pid death...\n";
print "dead.\n";
}
$timed_out = 1;
};
print "running $cmd...";
if (($pid = open(PIPE, "| $cmd"))) {
alarm $cvt_timeout;
$timed_out = 0;
print PIPE $body;
close PIPE;
waitpid ($pid, 0);
$timed_out and die "alarm\n";
return 1;
} else {
print "failed: $!\n";
return 0;
}
};
die if ($@ && $@ ne "alarm\n"); # propagate errors
if ($@) {
print "timed out\n";
return ();
} else {
print "completed normally.\n";
alarm 0;
return @_;
}
}
while (1) {
$|=1;
foo;
sleep 2;
}
---Jason
------------------------------
Date: Wed, 30 Jun 1999 09:06:30 -0400
From: "Phil R Lawrence" <prlawrence@lehigh.edu>
Subject: Re: Newbie needs help
Message-Id: <7ld4qf$11s4@fidoii.cc.Lehigh.EDU>
CapWalker <jamescwalker@csi.com> wrote in message
news:930695520.11103@www.remarq.com...
...
> On another note, I'm using Netscape to get here through
> Remarq. Is there a way to get the Perl newgroups in with my
> other newsgroups ?
If you have other newsgroups in your Netscape client that would imply your
succesful connection to a news server... Add clpm the same way you added the
other news groups. If you can't find clpm ask your news source to add it!
--
Phil R Lawrence
Lehigh University
Enterprise Systems Implementation
Programmer / Analyst
prlawrence@lehigh.edu - work
prlawrence@planetall.com - personal
--
until (!$self->{'plaid pants'}) { bless $self, $class }
------------------------------
Date: 30 Jun 1999 08:48:00 -0400
From: Mark Wilson <mwilson@sundog.larc.nasa.gov>
Subject: parallel port access?
Message-Id: <uo2k8slyhvj.fsf@sundog.larc.nasa.gov>
Hello,
Can anyone point me to a resource that could shed some light on
accessing the parallel port (LPT1) using the Win32 port under Win95?
I'll keep digging through the documentation I can find in the meantime.
Thanks!!
-Mark.
--- fax: (757)825-8659
Mark Wilson voice: (757)827-4631
Analytical Services & Materials, Inc. email: m.r.wilson@larc.nasa.gov
------------------------------
Date: 30 Jun 1999 08:03:21 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Perl or PNP...which is better?
Message-Id: <slrn7nk5ca.31h.abigail@alexandra.delanet.com>
Tad McClellan (tadmc@metronet.com) wrote on MMCXXVIII September MCMXCIII
in <URL:news:jnral7.181.ln@magna.metronet.com>:
$$ Daniel (danielrod@nts.co.jp) wrote:
$$
$$ : I am interested in knowing which might be the more beneficial tool to
$$ : learn, coming from a "no previous experience" background. I.e., If I
$$ : am not a Perl programmer, and I am not a PNP programmer, which has the
$$ ^^^
$$ : best future potential? (both technical and careerwise)
$$
$$
$$ What is PNP?
Perl nor (a) Python
Abigail
--
sub J::FETCH{Just }$_.='print+"@{[map';sub J::TIESCALAR{bless\my$J,J}
sub A::FETCH{Another}$_.='{tie my($x),$';sub A::TIESCALAR{bless\my$A,A}
sub P::FETCH{Perl }$_.='_;$x}qw/J A P';sub P::TIESCALAR{bless\my$P,P}
sub H::FETCH{Hacker }$_.=' H/]}\n"';eval;sub H::TIESCALAR{bless\my$H,H}
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 30 Jun 1999 04:34:53 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Perl or PNP...which is better?
Message-Id: <drkcl7.4j.ln@magna.metronet.com>
Daniel (danielrod@nts.co.jp) wrote:
: Sorry for the blatant mistake on my part everyone! I meant to say PHP,
: not PNP.
What is PHP?
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 27 Jun 1999 10:14:09 +0200
From: "Pletschette Andri" <andre.pletschette@ltam.lu>
Subject: Re: Perl without Web-Server
Message-Id: <7l4mbt$srb$1@calais.pt.lu>
First I just want to thank, but when I click on a Link as <a
href="helloworld.cgi?hello"> the browser just returns the text of
helloworld.cgi, and with <a href="helloworld.cgi?hello"> he asks me where
to save helloworld.cgi, I think that's not what I'm looking for.
At the other side, could you just give me the minimum Settings of the Apache
WebServer to:
- test CGI-Programs
- to have a local domain
- and letting every user make use of it
I thank you in advance.
Bart Lateur wrote in message <377632d3.740608@news.skynet.be>...
>Pletschette Andri wrote:
>
>>I just want to know if it's possible to run (test) Perl CGI-Programs
without
>>a Web-Server.
>>
>>the page and the CGI Program are in /home/cgi-test/
>>and Perl is under /usr/bin/perl
>
>Uh... yes, but not interactively with a web browser. You can set a
>variable (like "$debug") so that the CGI-script then reads the
>parameters from a file, and saves the output to another file. Then
>simply load that file, if it's a HTML-file, into the browser. All you
>need to do after you ran the script with new parameters, is click
>"Reload" on the browser.
>
>Alternatively, you can download and install a http server, like Apache,
>and run it on your computer even without a network connection.
>
> HTH,
> Bart.
------------------------------
Date: 30 Jun 1999 12:52:49 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: random numbers ?
Message-Id: <7ld3v1$sok$1@pegasus.csx.cam.ac.uk>
Randal L. Schwartz <merlyn@stonehenge.com> wrote:
>
>Second, there's an even faster way to do what you want.
That may be true for the example given, but if you replace 47 by say
10000, it's probably not.
>Let's do this:
>
> ## chose 6 draws of 47, non-replacing:
> @deck = (1..47);
> @draws = ();
> for (1..6) {
> push @draws, splice @deck, rand @deck, 1;
> }
That's an O(N**2) algorithm. There are well-known O(N) algorithms.
Mike Guy
------------------------------
Date: Wed, 30 Jun 1999 13:33:24 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: random numbers ?
Message-Id: <377a1b49.244031@news.skynet.be>
M.J.T. Guy wrote:
>>Let's do this:
>>
>> ## chose 6 draws of 47, non-replacing:
>> @deck = (1..47);
>> @draws = ();
>> for (1..6) {
>> push @draws, splice @deck, rand @deck, 1;
>> }
>
>That's an O(N**2) algorithm. There are well-known O(N) algorithms.
Why is it O(N**2)? Because splice is O(N)?
I like the algorythm. You can make it O(N) (I hope) by doing the same
thing in another way:
for my $i (0..5) {
my $j = $i + int rand(@deck - $i);
@deck[$i,$j] = @deck[$j,$i]; # swap
}
@deck[0..5];
Bart.
------------------------------
Date: Wed, 30 Jun 1999 14:15:41 +0200
From: "Philip 'Yes, that's my address' Newton" <nospam.newton@gmx.net>
To: Justin Wills <justin@nectar.com.au>
Subject: Re: Regular Expression
Message-Id: <377A0A6C.3A23656B@gmx.net>
[posted and a courtesy copy mailed]
Justin Wills wrote:
>
> your regex is looking for 'Language = "string"' not 'Language = string'.
> see the \" ???
>
> Eric Anderson wrote:
>
> > I have a regular expression that I am trying to get to match to
> > $parseString. Basically the code is as follows:
> >
> > if ( $parseString =~ /\<%\s*@\s*language\s*=\s*\"?(\w+)\"?\s*%\>/i )
He's looking for either. See the ? after the \" ???
HTH, HAND :)
Cheers,
Philip
------------------------------
Date: Wed, 30 Jun 1999 05:37:09 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Robot email/poster for this group
Message-Id: <5gocl7.4j.ln@magna.metronet.com>
Abigail (abigail@delanet.com) wrote:
: But bots don't belong on Usenet anyway.
I agree.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 30 Jun 1999 14:42:41 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: search and replace with <>
Message-Id: <7ldad1$dp1$1@lublin.zrz.tu-berlin.de>
Philip 'Yes, that's my address' Newton <nospam.newton@gmx.net> wrote in comp.lang.perl.misc:
>Anno Siegel wrote:
>>
>> While there are ways to tell them apart (see
>> the __FILE__ token) it would be tedious to do so here.
>
>The __FILE__ token? Not $ARGV, or ARGV?
>
>(Hint: __FILE__ refers to the *source* file, not to anything you may
>read in.)
You are right.
Anno
------------------------------
Date: Wed, 30 Jun 1999 12:34:10 GMT
From: Dick Latshaw <latsharj@my-deja.com>
Subject: Re: Search Engine Problem -- newbie question
Message-Id: <7ld2s1$cr9$1@nnrp1.deja.com>
In article <slrn7njfv2.1gv.abigail@alexandra.delanet.com>,
abigail@delanet.com wrote:
> ;; What's wrong? I'm getting only 10 hits and that's it.
>
> Ah yes. This is a task for the crystal ball. Please do sit down, this
[Snip]
Sheesh, Abi - all that and you forgot to tell him that it's an error at
the end of line 17.
--
Regards,
Dick
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 30 Jun 1999 12:19:08 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Short Circuit Query
Message-Id: <7ld1vs$qto$1@pegasus.csx.cam.ac.uk>
In article <37786f61.75062866@news>, Jim Britain <jbritain@home.com> wrote:
>
>sequence(comma) operator is your friend
True. And that was my thought for this code.
> #!/usr/bin/perl
>
> sub fred_is_alive { print "fred checked\n"; return 1 }
> sub tom_is_alive { print "tom checked\n"; return 1 }
>
>
> if ($tom=tom_is_alive(), fred_is_alive() || $tom){
> print "buddies are alive\n";
> }
> else { print "buddies return 0\n"}
>
>
... but it's probably clearer and less prone to precedence problems to write
$tom=tom_is_alive();
if (fred_is_alive() || $tom){
Just because you *can* do something in one line in Perl, doesn't mean
you should.
Mike Guy
------------------------------
Date: Wed, 30 Jun 1999 14:06:35 +0200
From: "Philip 'Yes, that's my address' Newton" <nospam.newton@gmx.net>
Subject: Re: shortest self printing perl program
Message-Id: <377A084B.CD3B8B1B@gmx.net>
These all go to STDOUT. Here's one that reproduces itself to STDERR:
Illegal division by zero at /tk/users/pne/tmp/perl/quine.pl line 1.
Replace the path by the full name of the file, and call it with its full
name.
Enjoy.
Cheers,
Philip
------------------------------
Date: 30 Jun 1999 12:31:39 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: simple question.
Message-Id: <7ld2nb$rg5$1@pegasus.csx.cam.ac.uk>
Hong Yuan <hongy@panther.cs.ucla.edu> wrote:
>Thanks for all the responses!
>
>A few more words on the issue. I actually found the
>
> || (warn ... , return);
>
>line in the File::Find.pm module. It has a few of those, so those
>warning messages will never be seen.
Eh? What version of Perl are you using? The File::Find in current
Perl releases contains no such usage.
Mike Guy
------------------------------
Date: Wed, 30 Jun 1999 10:30:37 -0400
From: Philip Weingart <pweingart@worldnet.att.net>
Subject: Re: Starting asynchronous process from Perl
Message-Id: <377A2A0D.8FA3D51D@worldnet.att.net>
Abigail wrote:
>
> Philip Weingart (pweingart@worldnet.att.net) wrote on MMCXXVIII September
> MCMXCIII in <URL:news:377915D8.21118806@worldnet.att.net>:
> $$
> $$ I want to fire off a subprocess from a Perl script and continue with the scri
> $$ without waiting for the subprocess to finish. In the Korn shell something lik
> $$ this is simple; you just enclose the call in parenthesis, invoking a subshell
> $$ How do I do it in Perl?
>
> fork ()
Resisting the temptation to pun obscenely...
I've read about fork, and so far cannot see the usefulness of creating a copy of
the existing process. It's another program I want to run, not the same one.
Clearly I'm missing something. Would you enlighten me concerning how this is
usually used?
It happens that I solved my original question by using IPC::open3, which fires
off a process in the background and opens files descriptors to talk to the child
process' STDIN, STDOUT, and STDERR. Very handy, but probably inefficient. The
other suggestions made in this thread would have worked also. And I do feel a
little stupid about not seeing immediately that I could use system("myprocess
&"). As I said, brain hiccup.
Thanks, all.
Phil W.
------------------------------
Date: 30 Jun 1999 10:44:01 -0400
From: Jason Reed <jcreed@cyclone.jprc.com>
Subject: Re: Starting asynchronous process from Perl
Message-Id: <a1wvwleojy.fsf@cyclone.jprc.com>
Philip Weingart <pweingart@worldnet.att.net> writes:
> I've read about fork, and so far cannot see the usefulness of creating a copy
> of the existing process. It's another program I want to run, not the same
> one. Clearly I'm missing something. Would you enlighten me concerning how
> this is usually used?
fork, then (inside the child process) exec whatever else you want to run.
---Jason
------------------------------
Date: Wed, 30 Jun 1999 11:45:38 GMT
From: ijg@connect.org.uk (I.J. Garlick)
Subject: strange regex behaviour - don't understand what's going on
Message-Id: <FE5202.I6J@csc.liv.ac.uk>
Hi All,
I am getting an error from some code in a regex that leads me to believe
$1 isn't getting set, but the regex does what I want it too. If I could
loose the error a would be as happy as a pig in mud.
Here is the sample code that produces said error :-
#!/usr/bin/perl -w
use strict;
$/ = undef;
my $txt = <DATA>;
$txt =~ s{([^=])?(http://.*?)(\s+|[^/\w]+\s)}
{$1<A HREF=$2 TARGET=newwin>$2</A>$3}gsx;
print "$txt\n";
__DATA__
Just a load of rubbish to pad the data out. Just a load of rubbish to pad
the data out. Just a load of rubbish to pad the data out. Just a load of
rubbish to pad the data out.
Now for the problem bit
somewhere.com home: http://www.somewhere.com/group/thegroup
http://www.somewhere.com - Doing something.
-end of code-
If you run it you will get the following error
Use of uninitialised value at ./try.pl line 8, <DATA> chunk 1.
followed by the output from the print statement.
As far as I can work out it seems to be the last 'http://www.somewhere.com
- Doing something.' line the messes up. (If I remove it the error goes
away).
I get the feeling that the ([^=])? part of the regex needs something
before it or in it to deal with the start of a line or ????? not sure
that's why I am asking for help.
Anyone got any ideas? Thanks.
--
Ian J. Garlick
ijg@csc.liv.ac.uk
The seven deadly sins ... Food, clothing, firing, rent, taxes,
respectability and children. Nothing can lift those seven milestones
from man's neck but money; and the spirit cannot soar until the
milestones are lifted.
-- George Bernard Shaw
------------------------------
Date: Wed, 30 Jun 1999 13:27:59 +0100
From: Paul Mutyambizi <paul.mutyambizi@citicorp.quit-spam.com>
Subject: system() and exit status
Message-Id: <377A0D4E.99804483@citicorp.quit-spam.com>
--------------76874D5F7AAAA4374C393B7B
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
All,
I have the following line in a perl (5.005_02) script on a Solaris 7
box:
system ("valdate -f %m%d%Y $DOPT") || die "blah, blah: $!"
== OR ==
`valdate -f %m%d%Y $DOPT` || die "blah, blah: $!"
where %m = month number: 01 - 12
%d = day of month: 01 - [28|29|30|31] respectively
%Y = four-digit year e.g. 1999
when $DOPT does not conform to the valdate format specified above as
described in ckdate(1) then the exit status should be 1 or fail (e.g.
$DOPT = 06311999 should give $?==1) otherwise the exit status should be
0 or success (e.g. $DOPT = 06301999 should give $?==0).
However, no matter what crazy combination I enter for a date, it always
evaluates true. Does this have to do with the forking of the system
command? Could someone please point me in the right direction regarding
capturing of correct exit stati when doing this sort of system call.
Thank you.
Paul
--
*************************************
Opinions expressed are solely my own!
To reply to me, remove 'quit-spam'
from the e-mail address shown above.
*************************************
--------------76874D5F7AAAA4374C393B7B
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
All,
<p>I have the following line in a perl (5.005_02) script on a Solaris 7
box:
<p>system ("valdate -f %m%d%Y $DOPT") || die "blah, blah: $!"
<p> ==
OR ==
<p>`valdate -f %m%d%Y $DOPT` || die "blah, blah: $!"
<p> where %m = month number: 01 - 12
<br>
%d = day of month: 01 - [28|29|30|31] respectively
<br>
%Y = four-digit year e.g. 1999
<p>when $DOPT does not conform to the valdate format specified above as
described in ckdate(1) then the exit status should be 1 or fail (e.g. $DOPT
= 06<i>31</i>1999 should give $?==1) otherwise the exit status should be
0 or success (e.g. $DOPT = 06301999 should give $?==0).
<p>However, no matter what crazy combination I enter for a date, it always
evaluates true. Does this have to do with the forking of the system command?
Could someone please point me in the right direction regarding capturing
of correct exit stati when doing this sort of system call.
<p>Thank you.
<p>Paul
<br>--
<br>*************************************
<br>Opinions expressed are solely my own!
<br>To reply to me, remove 'quit-spam'
<br>from the e-mail address shown above.
<br>*************************************
<br> </html>
--------------76874D5F7AAAA4374C393B7B--
------------------------------
Date: Wed, 30 Jun 1999 15:37:25 +0100
From: Paul Mutyambizi <paul.mutyambizi@citicorp.quit-spam.com>
Subject: system() and exit status
Message-Id: <377A2BA4.6E04F6F7@citicorp.quit-spam.com>
All,
I have the following line in a perl (5.005_02) script on a Solaris 7
box:
system ("valdate -f %m%d%Y $DOPT") || die "blah, blah: $!"
== OR ==
`valdate -f %m%d%Y $DOPT` || die "blah, blah: $!"
where %m = month number: 01 - 12
%d = day of month: 01 - [28|29|30|31] respectively
%Y = four-digit year e.g. 1999
when $DOPT does not conform to the valdate format specified above as
described in ckdate(1) then the
exit status should be 1 or fail (e.g. $DOPT = 06311999 should give
$?==1) otherwise the exit status should
be 0 or success (e.g. $DOPT = 06301999 should give $?==0).
However, no matter what crazy combination I enter for a date, it always
evaluates true. Does this have to
do with the forking of the system command? Could someone please point me
in the right direction regarding
capturing of correct exit stati when doing this sort of system call.
Thank you.
Paul
--
*************************************
Opinions expressed are solely my own!
To reply to me, remove 'quit-spam'
from the e-mail address shown above.
*************************************
------------------------------
Date: Wed, 30 Jun 1999 10:38:19 -0400
From: Philip Weingart <pweingart@worldnet.att.net>
Subject: Re: There is a smarter way, but i dont know how.
Message-Id: <377A2BDB.9E25B22@worldnet.att.net>
You are correct. My bad.
John Boswick wrote:
>
> <snip>
> >> print "%Urls{@SortedUrls[$i]} @SortedUrls[$i]\n";
> ...
> >Your print statement syntax has an error; it should be "%Urls{$SortedUrls[$i]}."
> >Dollar sign ($) in front of the array variable, not At sign (@). I would use tab
> >characters or formats to separate the two fields in the print statement, to make
> >the columns line up. And, you must put a conditional "last" statement inside the
> >for loop, against the condition that there are fewer than ten Urls in the list.
>
> I believe the line should read $Urls{$SortedUrls[$i]}. In other
> words, both the at sign and the percent sign should be dollar signs.
>
> John Borwick
------------------------------
Date: Wed, 30 Jun 1999 14:10:11 +0100
From: "Matthias Weindorf" <m.weindorf@mainz.netsurf.de>
Subject: Upgrade Perl 5.003_07 -> 515 | higher
Message-Id: <377a0b14.0@juno.wiesbaden.netsurf.de>
Hi,
looking to the y2k I think about to upgrade Perl 5.003_07 (Build 316) to a
newer release.
Unfortunately there is no unattended setup possible. In 5.003_07 it was
possible with '\bin\perlw32-installmod.bat'.
Does anyone know how to install the new release unattended?
A second problem is that with the new perl the scripts are not running. I
don't rembember the error msg.
I'm administering 100 NT-Servers and I don't want to make changes to each
script I use.
Who can help me?
Greetings
Matthias
--
=======================
Matthias Weindorf
m.weindorf@mainz.netsurf.de
cellfon 0170 226 2240
cellfax 0170 13 226 2240
=======================
------------------------------
Date: Wed, 30 Jun 1999 14:12:20 GMT
From: frm_79@my-deja.com
Subject: Re: Verifying an existing file with a PERL web script
Message-Id: <7ld8jo$f5h$1@nnrp1.deja.com>
I moved the script to the same directory as the files and it works
fine. I will look into how to change rights on scripts when I decide to
move them back to their own directory. For the meantime this will work
fine.
Thank you.
In article <3777A8DF.DB32EF6@mail.cor.epa.gov>,
David Cassell <cassell@mail.cor.epa.gov> wrote:
> frm_79@my-deja.com wrote:
> >
> > Hello,
> >
> > I have a script that needs to verify that a file exists in either
Excel
> > format (.xls) or Word format (.doc) inside a directory, and give a
link
> > to it. What I have it do is open the file with the 'open
> > (filehandle,filename)' command inside an if loop as follows (I'm
>
> You're not being lazy enough. Look up the -X operators in the
> perlop pages, and check out in particular -e .
>
> > assuming that open returns TRUE if it opens the file and FALSE if it
> > doesn't):
>
> You're *assuming* this? Isn't that kind of risky? Why don't
> you just read the perlfunc pages and make sure?
>
> > $filename = "file";
> > if (open(FILE1,"../$filename.xls"))
> > { print "this file exists in .xls format";}
> > elsif (open(FILE1,"../$filename.xls"))
> > { print "this file exists in .doc format";}
> > else { print "this file does not exist in either
.xls
> > or .doc format";}
> >
> > This works fine if I run it in manually, but it doesn't if I run it
> > from the web. It goes to ELSE and tells me the file doesn't exist
even
> > [snip]
>
> Okay, the real problem here is not Perl-related. It is your
> web server. You're using a relative apth to your file. But
> IIS (and plenty of other web servers) change the environment
> of the CGI process. It runs your script as a different user
> [probably user nobody] from a different directory. So you'll
> have to:
> [1] specify the 'absolute' path instead; and
> [2] make sure that the permissions on your files are suitable
> for whatever you want to do next.
>
> If you need to open() those files for reading or writing,
> you'll want to check that you open() succeeded, and if not,
> you'll want to look at the special variable $! to see why not.
>
> HTH,
> David
> --
> David Cassell, OAO cassell@mail.cor.epa.gov
> Senior computing specialist
> mathematical statistician
>
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 30 Jun 1999 14:46:57 +0200
From: Michel Combes <michel.combes@hl.siemens.de>
Subject: Re: Week Number without Date Module?
Message-Id: <377A11C1.9FE7E21B@hl.siemens.de>
Just use something like :
perl -e '$yweek= sprintf("%02d", (localtime(time))[7]/7 +1); print
$yweek,"\n";'
-Michel
------------------------------
Date: Wed, 30 Jun 1999 13:09:58 GMT
From: Kenneth Massey <kmassey@mratings.com>
Subject: Re: win32 file access
Message-Id: <377A18DF.BA1F37F0@mratings.com>
That works great, but I need to actually replace an entry in "file.txt",
rather than just append to it. If I call
open(FILE, ">$filename")
then this will delete the file before it checks to see if it has
been locked by someone else. (I did an experiment to verify this)
So my problem is that I have a list of names/emails/settings
People login and change their settings, which I must replace in
"list.txt".
My plan was to
1) open "list.txt" and read the whole file into an array
2) open ">list.txt" and write the array back out, with the modified
entry
This doesn't seem appealing to me, especially if the file contains many
entries.
Any ideas? Thanks,
Kenneth
flounder99@my-deja.com wrote:
>
> flock-ing file blocks on the flock() not the open()
> try running something like this:
>
> use Fcntl ':flock';
> $filename = "file.txt";
> open(FILE, ">>$filename") || die "could not open $filename";
> print "Opened\n";
> flock (FILE, LOCK_EX);
> print "Locked\n";
> #seek to end of FILE in case someone else changed
> #the file's length between open() and flock()'s return
> seek(FILE, 0, 2);
> print FILE "opened at " . localtime() . "\n";
> print "Sleeping\n";
> sleep 20;
> flock (FILE, LOCK_UN);
> print "Unlocked\n";
> close FILE;
> print "Closed\n";
>
> in in separate dos boxes. The second one will print "Opened" and
> wait until the first one unlocks the file.
>
> In article <377914E4.E3BDE87@cs.sandia.gov>,
> Kenneth Massey <kpmasse@cs.sandia.gov> wrote:
> > I've tried the .tmp solution, but unlink does not delete the file.
> What
> > is the command to delete a file for NT. I read previously that
> flock()
> > should work on NT, but I wrote a test script that simply
> > {opened,locked,delayed 20 seconds,closed,unlocked} in that order (is
> > that the correct order?). I then was able to run the script a second
> > time while the first run supposedly had the file locked for 20
> seconds.
> > Thanks for your help.
> >
> > Kenneth
> >
> > Faisal Nasim wrote:
> > >
> > > flock() should work on NT.
> > >
> > > Anyway you can always create a .tmp file and delete it after
> close(),
> >
> > >
> > >
> >
>
> Sent via Deja.com http://www.deja.com/
> Share what you know. Learn what you don't.
------------------------------
Date: 12 Dec 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 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 6176
**************************************
