[13457] in Perl-Users-Digest
Perl-Users Digest, Issue: 867 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Sep 21 16:07:29 1999
Date: Tue, 21 Sep 1999 13:05:19 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <937944317-v9-i867@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 21 Sep 1999 Volume: 9 Number: 867
Today's topics:
a simple redirect with bells and whistles <aslamj@hotmail.com>
Re: Be careful about using constants (Larry Rosler)
Re: Be careful about using constants <uri@sysarch.com>
Re: Be careful about using constants (Kragen Sitaker)
Re: Be careful about using constants <uri@sysarch.com>
Re: Calling anonymous subroutines from a hash. How to <ltl@rgsun5.viasystems.com>
Re: Combining variables - newbie (Larry Rosler)
Re: Combining variables - newbie <jerrad@networkengines.com>
Re: Combining variables - newbie <jerrad@networkengines.com>
Re: Combining variables - newbie <jerrad@networkengines.com>
Re: Combining variables - newbie <aqumsieh@matrox.com>
DBD::Sybase, Using Stored Procs with output vars pcastine@prz.tu-berlin.de
Re: Getting results from system command <dan@tuatha.sidhe.org>
Re: Getting results from system command (Kragen Sitaker)
Re: How to create files from CGI script? <davids@desertigloo.com>
Re: How to create files from CGI script? <davids@desertigloo.com>
Re: I don't want to extract data from an HTML page. (Michael Stevens)
Re: Looking for tools. (Michael Stevens)
Re: mkdir(). What am I doing wrong? (Randal L. Schwartz)
Re: newbie (2) : form to html (Michael Stevens)
Optimizing processing of text files (Andy Squires)
Re: Perl FAQ problems (Michael Stevens)
Re: perl related question now! (Larry Rosler)
PerlBuilder v1.0e srochon@direct-internet.net
Re: Redirect STDERR (Kragen Sitaker)
Re: Redirect STDERR (Michael Stevens)
Re: Saving a list of filenames from directory into an a (Larry Rosler)
Re: Some e-mails get sent, some don't (Mark W. Schumann)
Re: Some e-mails get sent, some don't (Michael Stevens)
Re: String Splitting (Michael Stevens)
Re: String Splitting (Matthew David Zimmerman)
Re: THANKS <wlweb@webshore.net>
Time::Local <msanker@ispchannel.com>
Re: Time::Local <jerrad@networkengines.com>
Re: Time::Local (Kragen Sitaker)
Re: Trouble with perl5.004_04 on RH Linux (M.J.T. Guy)
Re: Using Perl Modules outside lib directory? <emschwar@rmi.net>
Re: Web browers <camerond@mail.uca.edu>
Re: Web browers (Michael Stevens)
Re: Which are the best books for learning Perl for use <camerond@mail.uca.edu>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 21 Sep 1999 19:51:02 GMT
From: MJA <aslamj@hotmail.com>
Subject: a simple redirect with bells and whistles
Message-Id: <37E7E0AB.B3CEC9BB@hotmail.com>
Hi Everyone,
How can I redirect the browser and send data (in the POST method) to
another script?
(More detailed)...my script once completed should send data to another
script as though it was posting the information from the client to a
FORM on that html page. Note: the browser should display the new page.
Thanks for your time,
Jamil.
------------------------------
Date: Tue, 21 Sep 1999 11:13:25 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Be careful about using constants
Message-Id: <MPG.12516aa574da330989fae@nntp.hpl.hp.com>
In article <7s4itc$fpj@netnews.hinet.net> on Mon, 20 Sep 1999 11:01:21
+0800, John Lin <johnlin@chttl.com.tw> says...
...
> (1) How come? It's hard for me to understand why
>
> print LOCK_EX+LOCK_NB,"\n";
> No warning.
This is interpreting '+LOCK_NB' as the argument to the function LOCK_EX,
which of course ignores it. Stupid, but true. It doesn't happen if the
constants are defined via 'use constant', which specifies a prototype of
no arguments. The specified additionoccurs.
But the constants in Fcntl.pm are defined using a different mechanism,
which I don't claim to understand. Perhaps someone will take a look at
the Fcntl module and explain why arguments to constants are permitted.
> print (LOCK_EX+LOCK_NB),"\n";
> Warning: print (...) interpreted as function
> Warning: Useless use of a constant in void context
> and the result is wrong (2 and no "\n")
The print function sees what is within the parentheses as its argument,
hence the same result as the case above. The useless constant in void
contest is "\n", which is sitting out there, homeless and ignored.
> print (LOCK_EX)+(LOCK_NB),"\n";
> Warning: print (...) interpreted as function
> Warning: Useless use of addition in void context
> Warning: Useless use of a constant in void context
> but the result is correct
No, it isn't. It prints 2 (the value of LOCK_EX) then adds 1 (the value
returned by print) to LOCK_NB and throws away the result.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 21 Sep 1999 15:24:44 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Be careful about using constants
Message-Id: <x74sgo6pab.fsf@home.sysarch.com>
>>>>> "LR" == Larry Rosler <lr@hpl.hp.com> writes:
LR> But the constants in Fcntl.pm are defined using a different
LR> mechanism, which I don't claim to understand. Perhaps someone
LR> will take a look at the Fcntl module and explain why arguments to
LR> constants are permitted.
lazy bastard! Fcntl just exports the constant names and handles them
with AUTOLOAD. it passes the constant's name string to an XS sub which
does a very long if/return list to find the right string and return the
C constant value. so they have no prototypes and therefore args are
allowed and eaten.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: Tue, 21 Sep 1999 19:27:35 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Be careful about using constants
Message-Id: <H_QF3.989$QJ.42107@typ11.nn.bcandid.com>
In article <x74sgo6pab.fsf@home.sysarch.com>,
Uri Guttman <uri@sysarch.com> wrote:
>>>>>> "LR" == Larry Rosler <lr@hpl.hp.com> writes:
>
> LR> But the constants in Fcntl.pm are defined using a different
> LR> mechanism, which I don't claim to understand. Perhaps someone
> LR> will take a look at the Fcntl module and explain why arguments to
> LR> constants are permitted.
>
>lazy bastard!
After reading this, I know I will never take offense at anything Uri
says to me. "After all, he called Larry Rosler a lazy bastard."
I suppose newbies shouldn't either.
> Fcntl just exports the constant names and handles them
>with AUTOLOAD. it passes the constant's name string to an XS sub which
>does a very long if/return list to find the right string and return the
>C constant value. so they have no prototypes and therefore args are
>allowed and eaten.
That's kind of gross.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Tue Sep 21 1999
48 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: 21 Sep 1999 15:55:43 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Be careful about using constants
Message-Id: <x7zoyg59a8.fsf@home.sysarch.com>
>>>>> "KS" == Kragen Sitaker <kragen@dnaco.net> writes:
KS> In article <x74sgo6pab.fsf@home.sysarch.com>,
KS> Uri Guttman <uri@sysarch.com> wrote:
>>>>>>> "LR" == Larry Rosler <lr@hpl.hp.com> writes:
>>
LR> But the constants in Fcntl.pm are defined using a different
LR> mechanism, which I don't claim to understand. Perhaps someone
LR> will take a look at the Fcntl module and explain why arguments to
LR> constants are permitted.
>>
>> lazy bastard!
KS> After reading this, I know I will never take offense at anything Uri
KS> says to me. "After all, he called Larry Rosler a lazy bastard."
KS> I suppose newbies shouldn't either.
but i have socialized with im f2f, coauthored a paper with him and
tranded insults and whatnot here for a few years. i am allowed to call
him that.
>> Fcntl just exports the constant names and handles them
>> with AUTOLOAD. it passes the constant's name string to an XS sub which
>> does a very long if/return list to find the right string and return the
>> C constant value. so they have no prototypes and therefore args are
>> allowed and eaten.
KS> That's kind of gross.
it is. why don't you write a patch that has prototypes? and maybe does
the constant lookup via a hash?
:-)
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: 21 Sep 1999 19:23:59 GMT
From: lt lindley <ltl@rgsun5.viasystems.com>
Subject: Re: Calling anonymous subroutines from a hash. How to make it work?
Message-Id: <7s8m0f$oo5$1@rguxd.viasystems.com>
CS <@mdo.net> wrote:
:>I've just written a module which generates a hash of anonymous subroutines,
:>which test whether or not a number inputed by the user is valid against a
:>certain mask.
:>This mask is effected by a regex in each subroutine.
:>However, I have found that when the anonymous subs are called after a regex
:>in the main program has been executed, it acts funny and gives unexpected
:>output.
[snip]
Most of the time people will not bother with attachments. Try to
simplify the example of the problem next time and include it in
your message.
Also, I found it amusing that you had exactly one comment in that entire
module. :-)
Here is the relevant piece:
$vcode->{$xtype}= sub {
(my $wrd)=@_; # $err is a reference to an error message routine.
while ($wrd=~/$regex/i, defined($1) == 0) {
&{$err}(@badlist);
chomp ($wrd=<STDIN>);
if ($wrd eq '') {return ''}
}
return $wrd;
};
The problem is your check for "defined($1)". When you put that
regexp you mentioned in your main program, it sets $1 to a value.
The following is from perldoc perlre:
The scope of $<digit> (and $`, $&, and $') extends to the end of the
enclosing BLOCK or eval string, or to the next successful pattern match,
whichever comes first.
Unsuccessful matches do not reset $1!!!!!
I did not look closely at your rexen. Do you have some where
the regexp could match but you don't want success unless $1
is set too? I'm not sure why you choose that somewhat bizarre
loop conditional. A comment may or may not have helped. :-)
You can figure it out from here.
--
// Lee.Lindley /// Programmer shortage? What programmer shortage?
// @bigfoot.com /// Only *cheap* programmers are in short supply.
//////////////////// 50 cent beers are in short supply too.
------------------------------
Date: Tue, 21 Sep 1999 11:28:07 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Combining variables - newbie
Message-Id: <MPG.12516e123c8f1cd7989fb0@nntp.hpl.hp.com>
In article <7s81fc$njd$1@nntp2.atl.mindspring.net> on Tue, 21 Sep 1999
09:30:33 -0400, Allan M. Due <Allan@due.net> says...
> Uri Guttman wrote in message ...
> :>>>>> "GWB" == Graham W Boyes <me@toao.net> writes:
> :
> : GWB> I have two variables, $var1 and $var2 which I'd like to combine
> : GWB> into a single variable $var3 with a space in between.
> : GWB> I grant that sounds really, REALLY stupid.
> :
> :yes. have you even read ANY docs or books on perl? this is too
> :fundamental to be just given a plain answer.
> :
> :there are probably a zillion ways to do it. here are some dumber ones:
> [snip]
> :i leave it as an exercise for the group to find more dumb ways. lets
> see
> :how many we can come up with. the dumber the better.
>
> $var3 = "$var1 a space $var2";
ITYM
$var3 = "${var1}a space$var2";
But that is a matter of interpreting an ambiguous problem statement.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 21 Sep 1999 14:55:53 -0400
From: jerrad pierce <jerrad@networkengines.com>
Subject: Re: Combining variables - newbie
Message-Id: <37E7D4B9.BD50CD8B@networkengines.com>
Eww eww here's one...
(he only _implied_ order)
$hash{$var1} = $var1;
$hash{$var2} = $var2;
foreach $key (reverse sort keys %hash){
$var3 =~ s/$/$key/;
}
------------------------------
Date: Tue, 21 Sep 1999 14:57:49 -0400
From: jerrad pierce <jerrad@networkengines.com>
Subject: Re: Combining variables - newbie
Message-Id: <37E7D52D.FCA2BAAB@networkengines.com>
Ooo ooo! here's one... (he only _implied_ order)
$hash{$var1} = $var1;
$hash{$var2} = $var2;
foreach $key (reverse sort keys %hash){
$var3 =~ s/$/ $key/;
}
$var3 =~ s/^ //;
------------------------------
Date: Tue, 21 Sep 1999 14:58:26 -0400
From: jerrad pierce <jerrad@networkengines.com>
Subject: Re: Combining variables - newbie
Message-Id: <37E7D552.C59FFD6D@networkengines.com>
doh! that one shouldn't have gotten through
------------------------------
Date: Tue, 21 Sep 1999 13:47:04 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Combining variables - newbie
Message-Id: <x3y67146tt6.fsf@tigre.matrox.com>
mgjv@comdyn.com.au (Martien Verbruggen) writes:
> In article <x7emfs7tfl.fsf@home.sysarch.com>,
> Uri Guttman <uri@sysarch.com> writes:
>
> > lets see how many we can come up with. the dumber the better.
>
> $var3 = unpack "A@{[length($var1) + length($var2) + 1]}",
> pack "A@{[length($var1) + 1]}A@{[length $var2]}", $var1, $var2;
You call that programming??!
Welcome to the real world:
#!/usr/local/bin/perl -w
use strict;
package Word;
sub new {
my $self = shift;
my $class = ref($self) || $self;
my $obj = {
WORD => undef,
CLASS => $class,
};
return bless $obj, $class;
}
sub word {
my $obj = shift;
if (@_) { $obj->{WORD} = shift }
return $obj->{WORD};
}
sub combine {
my $obj = shift;
my $str = shift;
if (ref($str) eq $obj->{CLASS}) {
$obj->{WORD} .= $str->word;
} else {
$obj->{WORD} .= $str;
}
}
package main;
my $var1 = new Word;
my $var2 = new Word;
$var1->word('VAR1');
$var2->word('VAR2');
$var1->combine(' ');
$var1->combine($var2);
print $var1->word, "\n";
__END__
VAR1 VAR2
HTH,
--Ala
------------------------------
Date: Tue, 21 Sep 1999 18:18:32 GMT
From: pcastine@prz.tu-berlin.de
Subject: DBD::Sybase, Using Stored Procs with output vars
Message-Id: <7s8i59$nvf$1@nnrp1.deja.com>
Perhaps I'm being a bit dim with trying to understand the POD for DBI and
DBD::Sybase. Be that as it may, can someone (please!) set me straight on
how to access values returned via output statements?
My code starts off like this (slightly truncated):
>>>
my $sql = sprintf qq{declare \@myCitID tCitID
execute AddCitation \@myCitID output, %s, %s},
$dbh->quote($myRefType),
$dbh->quote($myTitle);
<<<
tCitID is simply a user type that I use a lot in my DB; it's a numeric
used as an identity field in the Citation database. I need to grab its
value when the AddCitation stored proc returns.
When I do the declare/execute above manually in isql, I get the following
result:
>>>
1> declare @myCitID tCitID execute AddCitation @myCitID output, "Book",
"SQL for Smarties"
2> go
(return status = 0)
Return parameters:
-------
5
1>
<<<
So far, so good. Simple-minded me, I thought my Perl script could then do
something like the following immediately after assigning to the $sql
variable (as in the first code snippet above)
>>>
$citID = $dbh->selectcol_arrayref($sql);
<<<
This seems to work more or less as advertised in DBI.pm, and I get a
reference to an array in $citID. But $$citID[0] seems not to be the
output var from my stored proc.
Obviously, I'm missing something. Probably something basic. Any ideas?
FTR: DBI 1.13, DBD::Sybase 0.19.
If Michael Peppler is reading: more detailed examples in the .pod would
be wonderful, particularly for us folk who are diving into SQL, Sybase,
and Perl all at the same time. But thank you for making the module
available.
Peter Castine
(CC: to the reply-to address would be appreciated)
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 21 Sep 1999 19:19:59 GMT
From: Dan Sugalski <dan@tuatha.sidhe.org>
Subject: Re: Getting results from system command
Message-Id: <zTQF3.23946$xg5.2764@news.rdc1.ct.home.com>
Sniper <root@127.0.0.127> wrote:
> Ok after reading the FAQ, llama book and some of the Camel book, I am
> delurking for help, Help!
> I want to get the results of a system command into a variable to do a
> match on, however I don't seem to be getting what I expect.
> $SYS_CALL = "dir /s";
> @Result = system ($SYS_CALL);
You may not be getting what you expect, but you are getting what you asked
for. system() returns the status of the executed subprocess, more or less.
(You look to be on Win32, so I'm not 100% sure what you get back)
You probably want the output from backtics instead...
Dan
------------------------------
Date: Tue, 21 Sep 1999 19:25:15 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Getting results from system command
Message-Id: <vYQF3.984$QJ.41945@typ11.nn.bcandid.com>
In article <37edce0d.12239330@news.bcandid.deja.com>,
Sniper <root@127.0.0.127> wrote:
>Ok after reading the FAQ, llama book and some of the Camel book, I am
>delurking for help, Help!
The same question was asked this morning, yesterday, and the day
before. But it's hard to find it if you don't already know it
perhaps.
>I want to get the results of a system command into a variable to do a
>match on, however I don't seem to be getting what I expect.
>
>$SYS_CALL = "dir /s";
>
>@Result = system ($SYS_CALL);
>
>$looking = grep /auto/,@Result;
>
>print ($looking);
You want `$SYS_CALL`, not system.
FWIW, calling system is not a system call (I know you called it a
system command). Calling syscall is a system call. So are sysopen(),
sysread(), stat(), etc. system() does several system calls.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Tue Sep 21 1999
48 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Tue, 21 Sep 1999 12:40:12 -0700
From: "David P. Schwartz" <davids@desertigloo.com>
Subject: Re: How to create files from CGI script?
Message-Id: <37E7DF1C.602E6143@desertigloo.com>
And the question was... (this is how Netscape formats my replies, BTW)
"I.J. Garlick" wrote:
> In article <37E4B362.FE1AFE3C@desertigloo.com>,
> "David P. Schwartz" <davids@desertigloo.com> writes:
> > Thanks for the suggestion, Bob. What I forgot to add was that I created
> > a subdir beneath the one the scripts are in (inside cgi-bin) and it DOES
> > have 666 perms. Still doesn't work.
>
> Duh Derrrr!
>
> No No No. Never do this put it just about anywhere else but never in or
> below cgi-bin. The only things you should ever put their are executables.
> Data files should live somewhere away from the URL tree, whtaever it may be.
>
> You may well find you have more luck with permissions then. Failing that
> you need to modify your umask from withing the perl script. Be careful
> though as it is all to easy to give the outside world permission to do
> awful things to you.
>
> I think the perl man pages give you the way to do this somewhere I just
> can't remember where. (It may be the camel though)
>
> PS. You need to reformat your posts better, those lines were a bit long.
> Also you replied jeopardy style (some will kill file you for that alone)
> whatever that is (I am a Brit don't you know) :-)
>
Care to explain why not to put things under cgi-bin? People cannot read or write
things there, only execute them. I don't understand how placing sensitive data
files in more publically-accessible places == greater security. Esp. in a top-level
dir with 666 perms!!! Excuse me???
Also, everything is currently working just fine with the perms I showed earlier,
except that I cannot CREATE new files. I can write to them just fine from within the
script. (It's protect.pl at the top level.) Finally, I AM modifying the umask
within the script: umask 000. Doesn't change a darn thing.
------------------------------
Date: Tue, 21 Sep 1999 12:50:03 -0700
From: "David P. Schwartz" <davids@desertigloo.com>
Subject: Re: How to create files from CGI script?
Message-Id: <37E7E16B.7A178E65@desertigloo.com>
Kragen Sitaker wrote:
> In article <37E4B362.FE1AFE3C@desertigloo.com>,
> David P. Schwartz <davids@desertigloo.com> wrote:
> >umask 022
> >/cgi-bin 711
> >/cgi-bin/code_dir1 711
> >/cgi-bin/code_dir1/mydatadir 666
>
> This means no one, not even you, can open files in mydatadir. Is that
> what you wanted? If not, add +x for everybody, making it 777.
> (However, anybody, including you, can get a listing of mydatadir,
> delete files from it, etc.)
Well, all I can say is that it's working just fine, except I cannot CREATE NEW
FILES there, which was the purpose of this post in the first place -- to find out
how to do that.
> I suggest you move mydatadir out of your public_html (or equivalent)
> tree unless you want the Web server to give your data files to anyone
> who asks.
Thanks, I'll look into this.
> >sysadmins haven't been able to suggest anything yet either. Perms on
> >myscript.pl have
> >even been set with +s, which doesn't make any difference.
>
> This last is almost certainly a bad idea, although it's not as
> dangerous in Perl as in C.
why? It doesn't seem to make any difference. I've seen it work with shell
scripts, and I can see it working with c-generated exe's. Perl is interpreted, so
perhaps the Perl interpreter itself is the determining factor rather than the
script's settings. (So is the shell, but it's designed to address this.)
-David
------------------------------
Date: 21 Sep 1999 19:11:26 GMT
From: mstevens@ashre.demon.co.uk (Michael Stevens)
Subject: Re: I don't want to extract data from an HTML page.
Message-Id: <slrn7ufm2u.1du.mstevens@swirl.internal.fict>
On Tue, 21 Sep 1999 15:13:20 +0200, Alex Rhomberg <rhomberg@ife.ee.ethz.ch> wrote:
>[courtesy cc sent]
>Jody Fedor wrote:
>> After searching Deja for an hour I beg a bone from the masters:
>> I would like to use "real html" files as templates. Would like to know
>> if anyone has a collection of regexes that might process the html
>> file to be able to print it via the slurp the $html variable style. ie:
[much template stuff snipped]
You might want to look at one of the text template processing modules
on cpan (http://www.cpan.org). I like Text::Template myself, but YMMV.
What _is_ the good solution for parsing HTML in perl, if any? I had
thought HTML::Parser, but from what Abigail says it may not be the
right thing. I'd _guess_ that one of the SGML modules would be able
to do sensible things, but I've never really looked at them.
------------------------------
Date: 21 Sep 1999 19:14:31 GMT
From: mstevens@ashre.demon.co.uk (Michael Stevens)
Subject: Re: Looking for tools.
Message-Id: <slrn7ufm8n.1du.mstevens@swirl.internal.fict>
On 20 Sep 1999 19:41:07 -0300, MauWolff <mauriciowolffNOSPAM@hotmail.com> wrote:
>Perl Builder from solutionsoft lets you test the script debbuging line by line,
>and has a lot of other great stuff, inclding a time-saver wizard.
perl -d will also let you test a script debugging line by line.
However, it doesn't have a very pleasant user interface. I've heard
suggestions ddd will do perl debugging, but never actually investigate
this. My personal debugging method is liberal use of the 'print' statement,
as well as 'warn' and 'die'.
------------------------------
Date: 21 Sep 1999 12:36:37 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: mkdir(). What am I doing wrong?
Message-Id: <m1u2ookqey.fsf@halfdome.holdit.com>
>>>>> "Philip" == Philip 'Yes, that's my address' Newton <nospam.newton@gmx.net> writes:
Philip> As an octal number, yes. chmod numbers are usually given in octal. The
Philip> chmod(1) command assumes you're supplying them in octal. Perl assumes
Philip> you're supplying them in decimal, so you have to convert them yourself
Philip> (either write it as an octal constant, or -- if you're into useless
Philip> work -- change the permission number to base 10 and use a decimal
Philip> constant).
Uh, technically *no*. the chmod() operator in Perl doesn't presume
you're supplying them in "decimal". It presumes you are supplying a
number, in whatever number base is convenient for you, or the result
of a calculation.
It *must* do that, or else this wouldn't work:
$read = 4;
$write = 2;
$execute = 1;
$user = $read + $write + $execute;
$group = $other = $read + $execute;
$permission = ($user << 6) + ($group << 3) + $other;
mkdir ("FOO", $permission);
So, no, I wouldn't say it presumes decimal. It presumes *number*,
from a literal of your choice, or a calculation.
print "Just another Perl hacker,"
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: 21 Sep 1999 19:17:03 GMT
From: mstevens@ashre.demon.co.uk (Michael Stevens)
Subject: Re: newbie (2) : form to html
Message-Id: <slrn7ufmdf.1du.mstevens@swirl.internal.fict>
On Tue, 21 Sep 1999 13:00:33 GMT, H.P. Stroebel <hpstr@operamail.com> wrote:
>hi again !
>is there a script that can to write the user`s html form input into a html
>file (the name of which is one variable of the form) in a defined directory ?
>(to create a simple static homepage for users that want one, based on the
>data they entered in the form)
Yes.
------------------------------
Date: 21 Sep 1999 19:38:19 GMT
From: asquires@netcom.com (Andy Squires)
Subject: Optimizing processing of text files
Message-Id: <7s8mrb$e1l@dfw-ixnews5.ix.netcom.com>
Hi everyone,
I guess I'm looking for ideas on how I can make a process more efficient.
I have a directory with a boatload of .html, .jpg, and .txt files. All of
the file names are in lower case. I want to change all of the links in the
..html files which reference any of the files in the directory to lower
case. Now there a mishmash of lower, upper and mixed case and a nightmare
to maintain. Borrowing from the Perl FAQ I wrote the code below, but it
takes many hours to process a directory with about 980 files. Any ideas on
how I might make it run more quickly? TIA, I appreciate it.
#!/usr/local/bin/perl -w
$some_dir = '/home/squires/www';
opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";
@htmlfiles = grep { /html$/ && -f "$some_dir/$_" } readdir(DIR);
closedir DIR;
opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";
@files = grep { !/^\./ && -f "$some_dir/$_" } readdir(DIR);
closedir DIR;
foreach $file (@files) {
foreach $htmlfile (@htmlfiles) {
&procfiles($file, $htmlfile);
}
}
sub procfiles {
my($filepat, $htmlfile) = @_;
my($old, $new, $bak);
$old = $htmlfile;
$new = "$htmlfile.tmp.$$";
$bak = "$htmlfile.bak";
open(OLD, "< $old") or die "can't open $old: $!";
open(NEW, "> $new") or die "can't open $new: $!";
while (<OLD>) {
s/$filepat/$filepat/gi;
(print NEW $_) or die "can't write to $new: $!";
}
close(OLD) or die "can't close $old: $!";
close(NEW) or die "can't close $new: $!";
rename($old, $bak) or die "can't rename $old to $bak: $!";
rename($new, $old) or die "can't rename $new to $old: $!";
}
--
| Andy Squires "The trouble with life is
| asquires@netcom.com there's no background music."
| Web Page is at http://www.capitalrowing.org/andy/
------------------------------
Date: 21 Sep 1999 19:22:08 GMT
From: mstevens@ashre.demon.co.uk (Michael Stevens)
Subject: Re: Perl FAQ problems
Message-Id: <slrn7ufmn0.1du.mstevens@swirl.internal.fict>
On Tue, 21 Sep 1999 01:02:04 GMT, Kragen Sitaker <kragen@dnaco.net> wrote:
>I found a bug in perlfaq9, so I went to the URL mentioned in the FAQ to
>see if the bug had been fixed.
>The bug is:
> use Sys::Hostname;
> $address = sprintf('%s@%s', getpwuid($<), hostname);
>Since getpwuid has a list context, it's going to return all the
>fields. As a result, it will use my encrypted password (or whatever
>sits in that field) as a domain. So I get email addresses like
>'kragen@x' and 'kragen@##kragen'.
>I'm reading the FAQ because I recently posted some answer that, while
>correct, was far inferior to the FAQ answer.
I get the same behaviour and your explanation seems to make sense.
I'd recommend using perlbug.
------------------------------
Date: Tue, 21 Sep 1999 11:54:19 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: perl related question now!
Message-Id: <MPG.125174345c249d30989fb3@nntp.hpl.hp.com>
In article <x3y7llk6wkm.fsf@tigre.matrox.com> on Tue, 21 Sep 1999
12:47:22 -0400, Ala Qumsieh <aqumsieh@matrox.com> says...
>
> David Cassell <cassell@mail.cor.epa.gov> writes:
>
> > Note that I am not going
> > to continue by calling you a 'loser' also, as _ad_hominem_
> ^^^^^^^^^^^^
> ^^^^^^^^^^^^
> ^^^^^^^^^^^^
>
> > arguments and name-calling are not appropriate here.
>
> This word (ad hominem) popped up a couple of weeks ago in some post,
> and suddenly everyone is using it (and I *still* don't know what it
> means!).
>
> Is it The Way To Be? Is it good to be ad hominem?
Whatever has happened to dictionaries (or to their use, I guess)? Mine,
at least, is well-worn.
Having posted the use you seem to recall, I'll give you the definition:
ad hominem ... adj [New Latin, lit., to the man] : appealing to a
person's feelings or prejudices rather than his intellect.
And here is its opposite, gratis:
ad rem ... adv [Latin, to the thing] : to the point : RELEVANTLY
Why one of these is described as an adjective and the other as an adverb
is beyond me. Maybe I need a better dictionary. :-)
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 21 Sep 1999 18:11:41 GMT
From: srochon@direct-internet.net
Subject: PerlBuilder v1.0e
Message-Id: <7s8hof$nju$1@nnrp1.deja.com>
I am looking for the version v1.0e of Perbluilder.
I looked at www.solutionsoft.com but they only have the version 1.0d.
Is there someone out there who can help me. It would be very very
appreciate if someone can email it to me or send it by ICQ at 14286067.
Thanks.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 21 Sep 1999 19:08:26 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Redirect STDERR
Message-Id: <KIQF3.947$QJ.35638@typ11.nn.bcandid.com>
In article <1cb3e3d0.db7008ef@usw-ex0107-052.remarq.com>,
Samay <samay1NOphSPAM@hotmail.com> wrote:
>open STDERR,">errofile";
open STDERR, ">errofile" or die "Can't open errofile: $!";
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Tue Sep 21 1999
48 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: 21 Sep 1999 19:28:33 GMT
From: mstevens@ashre.demon.co.uk (Michael Stevens)
Subject: Re: Redirect STDERR
Message-Id: <slrn7ufn31.1du.mstevens@swirl.internal.fict>
On Tue, 21 Sep 1999 10:49:39 -0700, Samay <samay1NOphSPAM@hotmail.com> wrote:
>open STDERR,">errofile";
>your code
It gets more interesting if you want STDERR back later.
And do you really want to leave random files called 'errofile' lying
about all over this guy's hard drive?
I'd recommend something like:
# hide stderr
open SAVEERR, ">&STDERR";
open STDERR, ">/dev/null";
# some stuff which wants stderr hidden
# bring stderr back
open STDERR, "&SAVEERR";
I haven't tested the above.
Which is quickly modified from page 193 of my copy of the camel book.
What's a safe equivalent of /dev/null that's portable to win32 and
UNIX, if any?
------------------------------
Date: Tue, 21 Sep 1999 11:52:48 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Saving a list of filenames from directory into an array.
Message-Id: <MPG.125173d7ba98c862989fb1@nntp.hpl.hp.com>
In article <C1NF3.69$QJ.2561@typ11.nn.bcandid.com> on Tue, 21 Sep 1999
14:57:38 GMT, Kragen Sitaker <kragen@dnaco.net> says...
> In article <MPG.12513793eae75317989fac@nntp.hpl.hp.com>,
> Larry Rosler <lr@hpl.hp.com> wrote:
> >3. You forgot to read the correct solution posted by Kragen Sitaker
> >some thirteen hours ahead of yours (according to my newsfeed).
>
> Actually, my solution only finds files *named* *.gif or *.jpeg.
This was the original post, which I think you answered correctly if
interpreted literally ('jpeg and gif filenames', not 'files'):
"I am trying to find a way to save a list of jpeg and gif filenames from
a given directory into an array."
> (It doesn't even find *.jpg or *.GIF files.)
True. I would have used
/\.jpe?g$|\.gif$/i
Factoring out the '\.' and '$' as you did, but with noncapturing parens
around the guts, is longer by one stroke^Wcharacter:
/\.(?:jpe?g|gif)$/i
> I like Abigail's solution
> better, although I think it could be improved to fork and exec less.
Odd, I haven't seen an Abigail post in this thread.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 21 Sep 1999 14:13:58 -0400
From: catfood@apk.net (Mark W. Schumann)
Subject: Re: Some e-mails get sent, some don't
Message-Id: <7s8ht6$2cb@junior.apk.net>
In article <m1iu5a64o2.fsf@halfdome.holdit.com>,
Randal L. Schwartz <merlyn@stonehenge.com> wrote:
>What happens on the day that someone comes along with an email
>address of:
>
> 'merlyn@stonehenge.com </etc/passwd'
>
>Egah! I just got your password file.
>
>Or what about:
>
> '; rm -rf /'
>
>Egah! You just got spanked badly.
[and so on, all accurate as usual.]
My comment: and won't Perl catch these things if you leave taint
checking on? There's a _reason_ for taint checking.
People should think!
But they should also use the tools Larry gave us!
------------------------------
Date: 21 Sep 1999 19:31:26 GMT
From: mstevens@ashre.demon.co.uk (Michael Stevens)
Subject: Re: Some e-mails get sent, some don't
Message-Id: <slrn7ufn8e.1du.mstevens@swirl.internal.fict>
On Mon, 20 Sep 1999 18:52:30 -0700, Bill Moseley <moseley@best.com> wrote:
>> > Ok. What about the previous question:
>> > >> $addr =~ s/'/\\'/g;
>> > >> if(!open(M,"|mail '$addr'"){
>> > Can anyone think of holes in that simple approach?
>> Is this what you want? Cheers!
>> $addr = q(billg@microsoft.com\';echo gotcha);
>Should have seen that coming.
>What I've done quick and dirty (not for email address, but for other
>user data where I know I shouldn't see any single quotes):
>$adr =~ s/'/ /g;
>Now, what am I missing (besides a safe pipe open)?
A number of things pointed out by others. My recommendation is
to pipe to 'sendmail -t', or your local equivalent, avoiding the need
for user input to go near a shell. Or use one of the fine modules such
as Mail::Mailer.
------------------------------
Date: 21 Sep 1999 19:36:00 GMT
From: mstevens@ashre.demon.co.uk (Michael Stevens)
Subject: Re: String Splitting
Message-Id: <slrn7ufnh0.1du.mstevens@swirl.internal.fict>
On Tue, 21 Sep 1999 13:51:20 GMT, Ollie Cook <o.cook@etoncollege.org.uk> wrote:
[snippage]
>A sample line would be (all on one line):
>Sep 21 14:53:19 s108 sendmail[18811]: OAA18811:
>from=<user@etoncollege.org.uk>, size=1895, class=0, pri=31895,
>nrcpts=1,
>msgid=<A76C57705916D211B3400020480E101789C8D9@nts5.school.etoncollege.or
>g.uk>, proto=ESMTP, relay=nts5.school.etoncollege.org.uk
>[195.195.166.146]
[some stuff expressing the desire to parse this]
>Would someone be kind enough to point me in the right direction?
I'd advise the use of Text::CSV_XS (the perl module from www.cpan.org).
I haven't checked if it's happy with exactly this format, but you
should be able to get an array of strings of the form 'from=<some@email.addy>',
'size=12345', 'whatever=whomever'. This should be a good step towards
getting things going. I'd try regular expressions or split once you're
there to break it up into name,value pairs.
Actually, I might have a go at this myself, I'd like to be able
to see what stats I can get out of mail log files once they make it
to a SQL database.
------------------------------
Date: 21 Sep 1999 19:42:13 GMT
From: mdz4c@node14.unix.Virginia.EDU (Matthew David Zimmerman)
Subject: Re: String Splitting
Message-Id: <7s8n2l$dnc$1@murdoch.acc.Virginia.EDU>
In article <7s85hk$dm1$1@nnrp1.deja.com>, <andy_muscat@my-deja.com> wrote:
>
>get the line into a variable like
>$line = "Sep 21 14:53:19 s108 sendmail[18811]: OAA18811:
>from=<user@etoncollege.org.uk>, size=1895, class=0, pri=31895, nrcpts=1,
>msgid=<A76C57705916D211B3400020480E101789C8D9@nts5.school.etoncollege.or
>g.uk>, proto=ESMTP, relay=nts5.school.etoncollege.org.uk
>[195.195.166.146]";
What's wrong with this statement? (Hint: What kind of quoting characters
do you use around the string?)
># then get user and size
>$line =~/from=<([^>]+)>,\s*size=(\d+),/;
>$user = $1;
>$size = $2;
What happens if $line doesn't contain a match for both? What if the
'size='
field is before the 'user=' field?
Good effort, but always remember your error checking.
#####
#!/usr/bin/perl5 -lw
#
use strict;
my $string='Sep 21 14:53:19 s108 sendmail[18811]: OAA18811:
from=<user@etoncollege.org.uk>, size=1895, class=0, pri=31895, nrcpts=1,
msgid=<A76C57705916D211B3400020480E101789C8D9@nts5.school.etoncollege.or
g.uk>, proto=ESMTP, relay=nts5.school.etoncollege.org.uk
[195.195.166.146]';
print "From:$1" while $string =~ m/from=(.*?),/gs;
print "Size:$1" while $string =~ m/size=(.*?),/gs;
#####
HTH! Matt
--
Matthew Zimmerman ------------ http://www.people.virginia.edu/~mdz4c
Interdisciplinary Biophysics Program --------- University of Virginia
| "You got to be very careful if you don't know where you're going, |
| because you might not get there." -- Yogi Berra |
------------------------------
Date: Tue, 21 Sep 1999 15:58:20 -0500
From: "Tina - White Lake Web" <wlweb@webshore.net>
Subject: Re: THANKS
Message-Id: <sqRF3.1095$QJ.48055@typ11.nn.bcandid.com>
...and "it" would be???? : )
--
Tina Peters
$69 page design, $8.25/mo hosting
FREE Newsletter - TONZ of free website tips!
Pricing info and FREE newsletter sign up here:
http://www.WhiteLakeWeb.com
Daniel Vesma <daniel@vesma.co.uk> wrote in message
news:7s8erf$7i9$1@gxsn.com...
> Thanks guys! It's working great :)
>
> Daniel Vesma
> http://www.thewebtree.com
> http://www.thewebtree.com/daniel-vesma
>
>
>
------------------------------
Date: Tue, 21 Sep 1999 11:34:32 -0700
From: Mike Sanker <msanker@ispchannel.com>
Subject: Time::Local
Message-Id: <37E7CFB8.79AC0F8@ispchannel.com>
I am having trouble using the time local Module. I want to be able to
input some time(not localtime) and convert it to a chosen timezone. all
the documentation I find tells me how to use localtime. any help would
be greatly appreciated.
Mike
------------------------------
Date: Tue, 21 Sep 1999 15:00:41 -0400
From: jerrad pierce <jerrad@networkengines.com>
Subject: Re: Time::Local
Message-Id: <37E7D5D9.56B46B8D@networkengines.com>
maybe you use GMT then?
your question is very clear...
------------------------------
Date: Tue, 21 Sep 1999 19:16:32 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Time::Local
Message-Id: <kQQF3.974$QJ.38099@typ11.nn.bcandid.com>
In article <37E7CFB8.79AC0F8@ispchannel.com>,
Mike Sanker <msanker@ispchannel.com> wrote:
>I am having trouble using the time local Module. I want to be able to
>input some time(not localtime) and convert it to a chosen timezone. all
>the documentation I find tells me how to use localtime. any help would
>be greatly appreciated.
Date::Manip?
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Tue Sep 21 1999
48 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: 21 Sep 1999 18:16:55 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Trouble with perl5.004_04 on RH Linux
Message-Id: <7s8i2n$pgb$1@pegasus.csx.cam.ac.uk>
Danny Aldham <danny@hendrix.postino.com> wrote:
>X-Newsreader: TIN [version 1.2 PL2]
>
>I have a site running perl5.004_04 on x86 RedHat Linux. I am seeing
>resource type problems, something that could be a memory leak. I recall
>seeing that Redhat had distributed a poor version of perl at one time,
>and am wondering if this is it.
Avoid the Perl distributed by default with RedHat 5.2. Otherwise, you
should be OK.
You can check by going 'perl -V'. If the output contains lines
something like
Locally applied patches:
MAINT_TRIAL_4 - 5.004_05 maintenance trial 4
then you've got a bad 'un.
Mike Guy
------------------------------
Date: 21 Sep 1999 13:34:02 -0600
From: Eric The Read <emschwar@rmi.net>
Subject: Re: Using Perl Modules outside lib directory?
Message-Id: <xkfiu54kqj9.fsf@valdemar.col.hp.com>
dillon_rm@magix.com.sg (AcCeSsDeNiEd) writes:
> The administrator at the webhosting provider refuses to install
> certain perl modules in the lib directory.
My advice: get a more responsive webhosting provider. Don't waste your
time with someone who's not willing to give you what you need.
> Is there anyway I can install the perl modules in a different
> directory (e.g: cgi-bin) and let my script access the modules from
> there?
Perlfaq8: "How do I keep my own module/library directory?"
> How do I tell my scripts to access the modules from a different
> directory?
Perlfaq8: "How do I add the directory my program lives in to the
module/library search path?"
-=Eric
------------------------------
Date: Tue, 21 Sep 1999 14:06:02 -0500
From: Cameron Dorey <camerond@mail.uca.edu>
Subject: Re: Web browers
Message-Id: <37E7D71A.66DA8A86@mail.uca.edu>
Jazz wrote:
>
> What web browers was introduced in 1993.
I assume this is a typo, that instead of "browers" you meant "brewers."
Obviously, you are looking for the famous "Mr. Coffee III" line, which
included both 4- and 12-cup capacity brewers, as well as the "Mr. Iced
Tea," with variable hold time to make either weak or strong iced tea.
These were wildly successful in their time, since the wait to download a
typical web page was long enough to brew a good pot of coffee, and
getting one "heavy on the graphics" could be measured in multiple
iced-tea pots. This was truly the "golden era" of Web coffeehouses,
since nowadays, one has to use a microwave to get a beverage before a
download is over, and you just can't make good coffee that way. It's a
pity, really.
Cameron
--
Cameron Dorey
Associate Professor of Chemistry
University of Central Arkansas
Phone: 501-450-5938
camerond@mail.uca.edu
------------------------------
Date: 21 Sep 1999 19:36:58 GMT
From: mstevens@ashre.demon.co.uk (Michael Stevens)
Subject: Re: Web browers
Message-Id: <slrn7ufniq.1du.mstevens@swirl.internal.fict>
On Tue, 21 Sep 1999 09:56:34 -0700, Jazz <jazzie01NOmsSPAM@hotmail.com> wrote:
>What web brower was introduced in 1993?
You posted this twice from different email addresses, and it's not
a perl question.
------------------------------
Date: Tue, 21 Sep 1999 13:53:30 -0500
From: Cameron Dorey <camerond@mail.uca.edu>
Subject: Re: Which are the best books for learning Perl for use in a Web environment?
Message-Id: <37E7D42A.CED3C0FB@mail.uca.edu>
Paul McKnight wrote:
>
> Hi Cameron,
>
> Many thanks for replying.
>
> I am looking at both UNIX and Windows usage.
>
> Is there much difference?
No, just some (mostly minor) things are different, and if you haven't
used *nix, then some references in LP may not be familiar to you.
>
> Is the Official Guide To CGI.pm a general programming/reference guide, I
> looked at Amazon.com and it was referring to Libraries and alike?
CGI.pm is a Perl module which comes with the Stadard Distribution, which
those who don't want to "roll their own" CGI routines from scratch and
the RFP's find very useful, myself included. The indexer at Amazon.com
doesn't know what he's talking about.
>
> TIA,
>
> Paul.
>
> Email address fixed - let the deluge of spam begin!
Not quite, I'm one of those too lazy to manually un-munge an address,
sorry (usually because I just hit "reply to all" and get really ticked
off when I get a bounce message from it). Your email address is really
"news"? To be honest, I have not ever identified any spam which has come
to my mailbox as a result of posting here, so I tend to be somewhat *nal
about this point.
Cameron
--
Cameron Dorey
Associate Professor of Chemistry
University of Central Arkansas
Phone: 501-450-5938
camerond@mail.uca.edu
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 V9 Issue 867
*************************************
