[22394] in Perl-Users-Digest
Perl-Users Digest, Issue: 4615 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Feb 24 11:06:45 2003
Date: Mon, 24 Feb 2003 08:05:09 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 24 Feb 2003 Volume: 10 Number: 4615
Today's topics:
Re: Assigning filenames from variables (Win32 ActivePer (SnappyDresser)
auto generate curly brackets around C-statements (regex (norbert sant)
Checking something to see if it isn't there.......... <spero126NOSPAM@yahoo.com>
Re: Checking something to see if it isn't there........ <josef.moellers@fujitsu-siemens.com>
Re: Checking something to see if it isn't there........ (Anno Siegel)
Re: Checking something to see if it isn't there........ <twhu@lucent.com>
Re: Checking something to see if it isn't there........ <spero126NOSPAM@yahoo.com>
Re: Checking something to see if it isn't there........ <barryk2@SPAM-KILLER.mts.net>
Re: extract string from another string <barryk2@SPAM-KILLER.mts.net>
How to temporarily untie and then tie again (John Lin)
Re: How to temporarily untie and then tie again <nobull@mail.com>
Re: How to temporarily untie and then tie again <johnlin@cht.com.tw>
If statement chacking if a variable is something OR som <daby55@NOSPAM.com>
Re: If statement chacking if a variable is something OR <josef.moellers@fujitsu-siemens.com>
Re: If statement chacking if a variable is something OR <bernard.el-hagin@DODGE_THISlido-tech.net>
Re: If statement chacking if a variable is something OR <bernard.el-hagin@DODGE_THISlido-tech.net>
Re: If statement chacking if a variable is something OR <josef.moellers@fujitsu-siemens.com>
Re: If statement chacking if a variable is something OR <tassilo.parseval@post.rwth-aachen.de>
Re: If statement chacking if a variable is something OR <jurgenex@hotmail.com>
Re: Just wanted to share this technique (and hear some <bik.mido@tiscalinet.it>
Re: Just wanted to share this technique (and hear some <bik.mido@tiscalinet.it>
Re: Newbie request for script review <asu1@c-o-r-n-e-l-l.edu>
Re: On Windows: how to drag&drop files onto a perl scri <simon.andrews@bbsrc.ac.uk>
Re: parens () (Sara)
Re: Q: about opening many processes in parallel as file <bik.mido@tiscalinet.it>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: try my program out... (Sara)
Re: Use or not to use modules (trwww)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 24 Feb 2003 07:58:43 -0800
From: thesnappydresser@yahoo.com (SnappyDresser)
Subject: Re: Assigning filenames from variables (Win32 ActivePerl, Novice)
Message-Id: <382cf033.0302240758.1c28ed3d@posting.google.com>
"David" <perl-dvd@darklaser.com> wrote in message news:<1Tv5a.72$F6.13877@news-west.eli.net>...
> "SnappyDresser" <thesnappydresser@yahoo.com> wrote in message
> > Hi, I'm converting a pipe-delimited file to a series of HTML files.
> > ... I've made sure the variable was valid, but Perl ignores it.
> No, looks like it should work. Try this:
>
> $term = "wowsah.txt";
> $termFilename = $term;
> $termFilename =~ tr/ /_/;
> open( OUT1, ">$termFilename" );
>
> If that works, you know there is something wrong with the value of $term
> before we get to the $termFilename assignment.
> By the way, I would make the recommendation to include the full path to
> where you want to write your file. For example:
>
> # yes with perl you can use / even on windows
> open( OUT1, ">C:/tmp/$termFilename" );
>
> Regards,
> David
Thanks David, and everyone else. With clpm's help, I was able to get
it working! I added a die line to see what WAS happening. Long story
short: The code works now that I added this line as well:
$termFilename =~ tr/\//_/;
For those that don't want to decipher, the first occurrence of
$termFilename ended up with an illegal "/" in the filename. Bad data
was the culprit. Argh...
Thanks again!
Stan
------------------------------
Date: 24 Feb 2003 06:12:54 -0800
From: norbert.sant@laposte.net (norbert sant)
Subject: auto generate curly brackets around C-statements (regexp?)
Message-Id: <fd47274b.0302240612.51cc8d81@posting.google.com>
Hi everybody,
I wonder if there's an easy way in Perl to detect following constructs
in a C-file
1. if (cond)
action;
2. for (init; cond; incr)
action;
3. do
action;
while (cond);
and replace them with their equivalent versions surrounded by curly
brackets, like
1. if (cond)
{
action;
}
2. for (init; cond; incr)
{
action;
}
3. do
{
action;
}
while (cond);
I tried different solutions, but could not accomodate all the possible
constructs you might be able to think of in C.
(eg.
if (cond)
for (;;){
...
do{
...
}
while(cond);
}
)
Any help would be appreciated!
Thx
N.S
------------------------------
Date: Mon, 24 Feb 2003 13:30:59 -0000
From: "Spero" <spero126NOSPAM@yahoo.com>
Subject: Checking something to see if it isn't there..........
Message-Id: <b3d6nk$j4p$1@wisteria.csv.warwick.ac.uk>
Hello,
I'm wondering if I can have your help please?
I have a perl script that initially takes in options and arguments related
to those options:
Usage: perlfile [options] operation
After the options have been entered a mandatory argument is required (the
'operation') and this is always entered last. I want to check the last
argument to see if it is in the correct format and see if it has been
entered.
BUT
If it hasn't been entered I can't check it because I get a "use of
uninitialised value" error.
This is the code I am using:
if ($ARGV[$#ARGV] == 1 || $ARGV[$#ARGV] == 2 || $ARGV[$#ARGV] == 3 ||
$ARGV[$#ARGV] == 4)
{
$operation = $ARGV[$#ARGV];
}
else {
print "Invalid operation";
exit 1;
}
How can I successfully check if $ARGV[$#ARGV] has been entered and it is in
the correct format?
Thank-you for your time,
Spero
------------------------------
Date: Mon, 24 Feb 2003 14:42:38 +0100
From: Josef =?iso-8859-1?Q?M=F6llers?= <josef.moellers@fujitsu-siemens.com>
Subject: Re: Checking something to see if it isn't there..........
Message-Id: <3E5A214E.E71E72C4@fujitsu-siemens.com>
Spero wrote:
> =
> Hello,
> =
> I'm wondering if I can have your help please?
> =
> I have a perl script that initially takes in options and arguments rela=
ted
> to those options:
> =
> Usage: perlfile [options] operation
> =
> After the options have been entered a mandatory argument is required (t=
he
> 'operation') and this is always entered last. I want to check the last
> argument to see if it is in the correct format and see if it has been
> entered.
> =
> BUT
> =
> If it hasn't been entered I can't check it because I get a "use of
> uninitialised value" error.
The usual way to do this (TMTOWTDI) is to first parse the options, then
check if there's anything left. Getopt::Std will remove whatever options
are recognized from the argument vector @ARGV and you can the check
what's left:
use Getopt::Std;
getopts($options, \%opt);
if ($#ARGV =3D=3D -1) {
print STDERR "No argument given\n";
exit 1;
}
$arg =3D $#ARGV[$#ARGV];
HTH,
-- =
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: 24 Feb 2003 13:43:14 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Checking something to see if it isn't there..........
Message-Id: <b3d7hi$fbb$1@mamenchi.zrz.TU-Berlin.DE>
Spero <spero126NOSPAM@yahoo.com> wrote in comp.lang.perl.misc:
> Hello,
>
> I'm wondering if I can have your help please?
>
> I have a perl script that initially takes in options and arguments related
> to those options:
>
> Usage: perlfile [options] operation
>
> After the options have been entered a mandatory argument is required (the
> 'operation') and this is always entered last. I want to check the last
> argument to see if it is in the correct format and see if it has been
> entered.
>
> BUT
>
> If it hasn't been entered I can't check it because I get a "use of
> uninitialised value" error.
>
> This is the code I am using:
>
> if ($ARGV[$#ARGV] == 1 || $ARGV[$#ARGV] == 2 || $ARGV[$#ARGV] == 3 ||
> $ARGV[$#ARGV] == 4)
> {
> $operation = $ARGV[$#ARGV];
> }
> else {
> print "Invalid operation";
> exit 1;
> }
>
> How can I successfully check if $ARGV[$#ARGV] has been entered and it is in
> the correct format?
If anything is in @ARGV at all $ARGV[$#ARGV] (or, equivalently $ARGV[-1])
will be its last element. So you could do this:
die "Invalid operation" unless @ARGV;
my $operation = @ARGV[ -1];
# ...
Anno
------------------------------
Date: Mon, 24 Feb 2003 08:40:49 -0500
From: "Tulan W. Hu" <twhu@lucent.com>
Subject: Re: Checking something to see if it isn't there..........
Message-Id: <b3d7dg$1kp@netnews.proxy.lucent.com>
"Spero" <spero126NOSPAM@yahoo.com> wrote in ...
> Hello,
>
> I'm wondering if I can have your help please?
>
> I have a perl script that initially takes in options and arguments related
> to those options:
>
> Usage: perlfile [options] operation
>
> After the options have been entered a mandatory argument is required (the
> 'operation') and this is always entered last. I want to check the last
> argument to see if it is in the correct format and see if it has been
> entered.
[snip]
I would use the Getopt.
perldoc Getopt::Std
------------------------------
Date: Mon, 24 Feb 2003 14:04:58 -0000
From: "Spero" <spero126NOSPAM@yahoo.com>
Subject: Re: Checking something to see if it isn't there..........
Message-Id: <b3d8pc$kdd$1@wisteria.csv.warwick.ac.uk>
"Anno Siegel" <anno4000@lublin.zrz.tu-berlin.de> wrote in message
news:b3d7hi$fbb$1@mamenchi.zrz.TU-Berlin.DE...
> Spero <spero126NOSPAM@yahoo.com> wrote in comp.lang.perl.misc:
> > Hello,
> >
> > I'm wondering if I can have your help please?
> >
> > I have a perl script that initially takes in options and arguments
related
> > to those options:
> >
> > Usage: perlfile [options] operation
> >
> > After the options have been entered a mandatory argument is required
(the
> > 'operation') and this is always entered last. I want to check the last
> > argument to see if it is in the correct format and see if it has been
> > entered.
> >
> > BUT
> >
> > If it hasn't been entered I can't check it because I get a "use of
> > uninitialised value" error.
> >
> > This is the code I am using:
> >
> > if ($ARGV[$#ARGV] == 1 || $ARGV[$#ARGV] == 2 || $ARGV[$#ARGV] == 3 ||
> > $ARGV[$#ARGV] == 4)
> > {
> > $operation = $ARGV[$#ARGV];
> > }
> > else {
> > print "Invalid operation";
> > exit 1;
> > }
> >
> > How can I successfully check if $ARGV[$#ARGV] has been entered and it is
in
> > the correct format?
>
> If anything is in @ARGV at all $ARGV[$#ARGV] (or, equivalently $ARGV[-1])
> will be its last element. So you could do this:
>
> die "Invalid operation" unless @ARGV;
> my $operation = @ARGV[ -1];
> # ...
>
> Anno
Hello,
This was the only solution I was able to implement.
I was wondering if I could have more control over the error message and
also return an exit status of 1 using the Anno's method?
> die "Invalid operation" unless @ARGV;
> my $operation = @ARGV[ -1];
> # ...
instead of "Invalid operation at line xx" I would like "No operation given"
(i.e. I need to remove the "at line" bit)
Also, I really need to prduce an exit status of 1 if the last argument isn't
there,
Thank-you,
Spero
------------------------------
Date: Mon, 24 Feb 2003 08:25:00 -0600
From: Barry Kimelman <barryk2@SPAM-KILLER.mts.net>
Subject: Re: Checking something to see if it isn't there..........
Message-Id: <MPG.18c3e732192d90ac989713@news.mts.net>
In article <b3d6nk$j4p$1@wisteria.csv.warwick.ac.uk>, Spero
(spero126NOSPAM@yahoo.com) says...
> Hello,
>
> I'm wondering if I can have your help please?
>
> I have a perl script that initially takes in options and arguments related
> to those options:
>
> Usage: perlfile [options] operation
>
> After the options have been entered a mandatory argument is required (the
> 'operation') and this is always entered last. I want to check the last
> argument to see if it is in the correct format and see if it has been
> entered.
>
> BUT
>
> If it hasn't been entered I can't check it because I get a "use of
> uninitialised value" error.
>
> This is the code I am using:
>
> if ($ARGV[$#ARGV] == 1 || $ARGV[$#ARGV] == 2 || $ARGV[$#ARGV] == 3 ||
> $ARGV[$#ARGV] == 4)
> {
> $operation = $ARGV[$#ARGV];
> }
> else {
> print "Invalid operation";
> exit 1;
> }
>
> How can I successfully check if $ARGV[$#ARGV] has been entered and it is in
> the correct format?
>
> Thank-you for your time,
>
> Spero
>
>
>
#!/usr/bin/perl -w
use Getopt::Std;
%options = ( "d" => 0 , "a" => 0 );
$status = getopts("daf:",\%options);
if ( 1 > @ARGV || !$status ) {
die("Usage : $0 [-da] [-f string] operation\n");
}
--
---------
Barry Kimelman
Winnipeg, Manitoba, Canada
email : bkimelman@hotmail.com
------------------------------
Date: Mon, 24 Feb 2003 08:18:57 -0600
From: Barry Kimelman <barryk2@SPAM-KILLER.mts.net>
Subject: Re: extract string from another string
Message-Id: <MPG.18c3e5c932e01db1989712@news.mts.net>
In article <Usenet.pemtljpi@localhost>, piet (pdhze@yahoo.co) says...
> $teststring = 'stuff 650 N other stuff'
> another example of string 'stuff stuff stuff stuff 90 N'
>
> What would I do to extract 650 N and 90 N from the string?
>
> 650 N is an example: it can be from 111 A to 999 Z
> 90 N is an example: it can be from 10 A to 99 N
> They are not on a specific place in the string.
>
> I know how to check if they are in the string, but I don't now how to
> extract them. So I need 650 N and 90 N stored in a variable or an array
>
> This is what I already have:
> if ($teststring =~ /\d\d\d [a-zA-Z]|\d\d [a-zA-Z]/) {
> print $teststring;
> }
>
> Thanks for your help
> piet
>
>
if ($teststring =~ /(\d\d\d [a-zA-Z]|\d\d [a-zA-Z])/) {
print "Found a match in : $teststing\n";
print "The part I matched was [$1]\n";
}
--
---------
Barry Kimelman
Winnipeg, Manitoba, Canada
email : bkimelman@hotmail.com
------------------------------
Date: 24 Feb 2003 03:10:57 -0800
From: johnlin@chttl.com.tw (John Lin)
Subject: How to temporarily untie and then tie again
Message-Id: <a73bcad1.0302240310.318882a@posting.google.com>
Dear all,
I want to temporarily untie *STDOUT (before using open2)
and then tie it back again (after using open2). The code is like this:
my $tied = tied *STDOUT;
untie *STDOUT if $tied; # temporarily untie
local(*IN,*OUT);
my $pid = open2(*IN,*OUT,"sqlplus") or die $!;
waitpid $pid,0;
tie *STDOUT,ref($tied),"How to pass parameters here?"
if ref $tied; # tie it back again
In my real case, there are many kind of tied *STDOUT:
tie *STDOUT,'TeeTo',*STDOUT,*LOG,*F,*STDERR;
tie *STDOUT,'WriteLog';
tie *STDOUT,'Redirect',$filename;
...
It seems impossible to restore the tied *STDOUT if the original tie was
called "with paramaters".
Is there some way I can directly tie it back to the original blessed object?
tie *STDOUT,$tied; # No, it doesn't work.
How to solve this problem? Thank you very much.
John Lin
------------------------------
Date: 24 Feb 2003 12:05:25 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: How to temporarily untie and then tie again
Message-Id: <u9vfz9c2mi.fsf@wcl-l.bham.ac.uk>
johnlin@chttl.com.tw (John Lin) writes:
> I want to temporarily untie [...] and then tie it back again
> Is there some way I can directly tie it back to the original blessed object?
> tie *STDOUT,$tied; # No, it doesn't work.
use Tie::Restore;
tie *STDOUT, 'Tie::Restore', $tied; # Yes, it does work.
In the case of redirecting output consider instead select().
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 24 Feb 2003 23:11:16 +0800
From: "John Lin" <johnlin@cht.com.tw>
Subject: Re: How to temporarily untie and then tie again
Message-Id: <b3df2r$2ro@netnews.hinet.net>
"Brian McCauley" wrote
> (John Lin) writes:
> > I want to temporarily untie [...] and then tie it back again
> use Tie::Restore;
> tie *STDOUT, 'Tie::Restore', $tied; # Yes, it does work.
Thank you!!!
Cool! The source code of this module is only a few lines:
package Tie::Restore;
our $VERSION = 0.11;
sub TIESCALAR { $_[1] }
sub TIEARRAY { $_[1] }
sub TIEHASH { $_[1] }
sub TIEHANDLE { $_[1] }
1;
So, just grabbing what I need, my code becomes:
tie *STDOUT,'Tie::Restore',$tied;
sub Tie::Restore::TIEHANDLE { $_[1] }
> In the case of redirecting output consider instead select().
OK. Thank you!
John Lin
------------------------------
Date: Mon, 24 Feb 2003 13:38:45 -0000
From: "Daby" <daby55@NOSPAM.com>
Subject: If statement chacking if a variable is something OR something else?
Message-Id: <b3d78t$hes$1@news7.svr.pol.co.uk>
Why does if and OR(||) not work as I expect?
If $y = 1 && $x =2 # this will behaves as I expect checking if y is 1 AND
x is 2
yet
If $y= 1 || $y=99 #this does not work as I expect
I think I know what happens here, if $y is not 1 then $y is set to 99 right?
I wanted to check if $y is 1 OR if $y is 99.
So how do you go about doing what I intended to do. I`m a relative newbie
using Perl although I have already worked on some fairly large scripts
already!. I`m quite surprised I haven`t already come across this
---
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.456 / Virus Database: 256 - Release Date: 18/02/2003
------------------------------
Date: Mon, 24 Feb 2003 14:44:55 +0100
From: Josef =?iso-8859-1?Q?M=F6llers?= <josef.moellers@fujitsu-siemens.com>
Subject: Re: If statement chacking if a variable is something OR something else?
Message-Id: <3E5A21D7.C3381457@fujitsu-siemens.com>
Daby wrote:
> =
> Why does if and OR(||) not work as I expect?
> =
> If $y =3D 1 && $x =3D2 # this will behaves as I expect checking if y=
is 1 AND
> x is 2
> =
> yet
> =
> If $y=3D 1 || $y=3D99 #this does not work as I expect
Even the statement above will not work "as you expect" if all you expect
is to check the variables.
The numerical equality compare operator in Perl is "eq".
The check "If $y =3D 1 && $x =3D2" will modify $x and $y.
The check "If $y=3D 1 || $y=3D99" will modify $x and $y.
-- =
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: Mon, 24 Feb 2003 13:41:34 +0000 (UTC)
From: "Bernard El-Hagin" <bernard.el-hagin@DODGE_THISlido-tech.net>
Subject: Re: If statement chacking if a variable is something OR something else?
Message-Id: <Xns932C94C368FFEelhber1lidotechnet@62.89.127.66>
Daby wrote:
> Why does if and OR(||) not work as I expect?
>
> If $y = 1 && $x =2 # this will behaves as I expect checking if y is
> 1 AND x is 2
>
> yet
>
> If $y= 1 || $y=99 #this does not work as I expect
>
> I think I know what happens here, if $y is not 1 then $y is set to 99
> right? I wanted to check if $y is 1 OR if $y is 99.
>
> So how do you go about doing what I intended to do. I`m a relative
> newbie using Perl although I have already worked on some fairly large
> scripts already!. I`m quite surprised I haven`t already come across
> this
You should enable warnings when developing Perl code. Run the above code
with warnings enabled and you'll find out what the problem is.
--
Cheers,
Bernard
--
echo 42|perl -pe '$#="Just another Perl hacker,"'
------------------------------
Date: Mon, 24 Feb 2003 13:43:04 +0000 (UTC)
From: "Bernard El-Hagin" <bernard.el-hagin@DODGE_THISlido-tech.net>
Subject: Re: If statement chacking if a variable is something OR something else?
Message-Id: <Xns932C950498C81elhber1lidotechnet@62.89.127.66>
Josef Möllers wrote:
> Daby wrote:
>>
>
>> Why does if and OR(||) not work as I expect?
>>
>
>> If $y = 1 && $x =2 # this will behaves as I expect checking if y
> is 1 AND
>> x is 2
>>
>
>> yet
>>
>
>> If $y= 1 || $y=99 #this does not work as I expect
>
> Even the statement above will not work "as you expect" if all you expect
> is to check the variables.
> The numerical equality compare operator in Perl is "eq".
^^^^
Did you mean '=='?
--
Cheers,
Bernard
--
echo 42|perl -pe '$#="Just another Perl hacker,"'
------------------------------
Date: Mon, 24 Feb 2003 15:57:31 +0100
From: Josef =?iso-8859-1?Q?M=F6llers?= <josef.moellers@fujitsu-siemens.com>
Subject: Re: If statement chacking if a variable is something OR something else?
Message-Id: <3E5A32DB.FC81FAA0@fujitsu-siemens.com>
Bernard El-Hagin wrote:
> =
> Josef M=F6llers wrote:
> =
> > Daby wrote:
> >>
> >
> >> Why does if and OR(||) not work as I expect?
> >>
> >
> >> If $y =3D 1 && $x =3D2 # this will behaves as I expect checking i=
f y
> > is 1 AND
> >> x is 2
> >>
> >
> >> yet
> >>
> >
> >> If $y=3D 1 || $y=3D99 #this does not work as I expect
> >
> > Even the statement above will not work "as you expect" if all you exp=
ect
> > is to check the variables.
> > The numerical equality compare operator in Perl is "eq".
> ^^^^
> =
> Did you mean '=3D=3D'?
Ouch, yes, I did mean "=3D=3D", "eq" is for strings. Ashes on my head.
Josef
-- =
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: 24 Feb 2003 15:00:23 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@post.rwth-aachen.de>
Subject: Re: If statement chacking if a variable is something OR something else?
Message-Id: <b3dc27$5bc$1@nets3.rz.RWTH-Aachen.DE>
Also sprach Bernard El-Hagin:
> Daby wrote:
>
>> Why does if and OR(||) not work as I expect?
>>
>> If $y = 1 && $x =2 # this will behaves as I expect checking if y is
>> 1 AND x is 2
>>
>> yet
>>
>> If $y= 1 || $y=99 #this does not work as I expect
[...]
> You should enable warnings when developing Perl code. Run the above code
> with warnings enabled and you'll find out what the problem is.
And even without warnings he'll quickly realize that something is
severely rotten with his code. Have you ever heard of an "If" keyowrd in
Perl? ;-)
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Mon, 24 Feb 2003 15:38:02 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: If statement chacking if a variable is something OR something else?
Message-Id: <u%q6a.5619$ES3.2239@nwrddc04.gnilink.net>
Daby wrote:
> Why does if and OR(||) not work as I expect?
>
> If $y = 1 && $x =2 # this will behaves as I expect checking if y
> is 1 AND x is 2
Actually it assigns 1 to $y and 2 to $x. If you expect it to compare
anything then you are mistaken.
Not to mention that there is no 'If' in Perl (at least as far as I know).
jue
------------------------------
Date: Mon, 24 Feb 2003 16:25:08 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Just wanted to share this technique (and hear some opinions about it)
Message-Id: <85ak5v432q0q23lrrv6agnmstsdi33c3e5@4ax.com>
On Sun, 23 Feb 2003 21:33:53 GMT, "John W. Krahn" <krahnj@acm.org>
wrote:
>The value of $cnt starts out at 0, then you increment here to 1, then at
>the end of the loop you set it to 0 again so at this point the value of
Yes, but I C<redo> the loop (without C<continue>'ing to reset $cnt to
0) if I'm not satisfied...
Also, still being a newbie, I wouldn't have posted the code without
having at least checked it to work as intended! :-)
>> chomp $f;
>> $_ = $pre[0] . $f;
>> -e and print
>> or push(@pre, shift @pre), redo;
>
>Unless print() returns "false" (the current filehandle ARGV has been
>closed, etc.) the "push(@pre, shift @pre), redo;" part of this statement
>will not execute. Perhaps you meant to write it like this?
Well, my aim was a quick hack, so I chose a condensed syntax.
However I think you'll find that just as C<or>, also C<and>
short-circuits, and has a higher precedence over the former[*], so my
code *should* be equivalent to the one you proposed, modulo more
subtle issues I'm not aware of...
>What it looks like you are trying to do could be written as:
[...]
>while ( my $f = <> ) {
> chomp $f;
> -e and print and last for map "$pre[$_]$f", @cnt;
> }
Hmmm, this is exactly the type of code I wanted to "improve" by
"remembering" the last good match!
[*] May I suppose that this choice was done on purpose for situations
like this one?
Michele
--
>It's because the universe was programmed in C++.
No, no, it was programmed in Forth. See Genesis 1:12:
"And the earth brought Forth ..."
- Robert Israel on sci.math, thread "Why numbers?"
------------------------------
Date: Mon, 24 Feb 2003 16:25:10 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Just wanted to share this technique (and hear some opinions about it)
Message-Id: <gbdk5vch7u98e4l738tepmhe93prmigs22@4ax.com>
On Mon, 24 Feb 2003 07:07:59 GMT, "John W. Krahn" <krahnj@acm.org>
wrote:
>Benjamin Goldberg wrote:
>> The code you provided is *not* equivilant to his code, since it never
>> alters the order of items in the @pre array.
^^^^^^^^^^^^^^
>No, I made a little mistake. However, after some testing, this is
>equilalent to the OP's code.
Unless I'm missing something obvious, it still isn't - see the
underlined comment above!
>while ( my $f = <> ) {
> chomp $f;
> -e and print and last for map "$_$f", @pre;
> }
Since you always want to both C<print> an C<last> when -e, then you
could use
-e and print, last for map "$_$f", @pre;
instead. Or even
LINE: while ( my $f = <> ) {
chomp $f;
-e and print, next LINE for map "$_$f", @pre;
}
Michele
--
>It's because the universe was programmed in C++.
No, no, it was programmed in Forth. See Genesis 1:12:
"And the earth brought Forth ..."
- Robert Israel on sci.math, thread "Why numbers?"
------------------------------
Date: 24 Feb 2003 14:41:02 GMT
From: "A. Sinan Unur" <asu1@c-o-r-n-e-l-l.edu>
Subject: Re: Newbie request for script review
Message-Id: <Xns932C6282F2606asu1cornelledu@132.236.56.8>
"Tassilo v. Parseval" <tassilo.parseval@post.rwth-aachen.de> wrote in
news:b3cifb$7ts$1@nets3.rz.RWTH-Aachen.DE:
> Also sprach A. Sinan Unur:
>
>> tadmc@augustmail.com (Tad McClellan) wrote in
>> news:slrnb5ir9m.cru.tadmc@magna.augustmail.com:
>
>>> You should check to see if you got it:
>>>
>>> opendir(PHOTO_DIR, $photo_path) or die "could not open
>>> '$photo_path' dir $!";
>>
>> I am a little confused about whether it is OK to use die in CGI
>> scripts.
...
> In a CGI context you probably want a more graceful exit to at least
> print out same valid headers and a few lines of HTML:
>
> opendir PHOTO_DIR, $photo_path or bail_out();
Thank you for the clarification.
--
A. Sinan Unur
asu1@c-o-r-n-e-l-l.edu
Remove dashes for address
Spam bait: mailto:uce@ftc.gov
------------------------------
Date: Mon, 24 Feb 2003 13:49:44 +0000
From: Simon Andrews <simon.andrews@bbsrc.ac.uk>
Subject: Re: On Windows: how to drag&drop files onto a perl script file ?
Message-Id: <3E5A22F8.859C44F6@bbsrc.ac.uk>
Ivan Vecerina wrote:
>
> Unfortunately, I didn't manage to configure Windows so that it would
> allow me to drop files onto a .pl script file icon.
> Does anyone know how to do this ?
> Any Registry setting that does the trick ?
>
> What I am doing so far is keep a .bat next to each of my .pl script,
> with a DOS command such as:
> @perl -w "%~dpn0.pl" %*
> It just seems silly do double-up each file this way.
> Any better option on Windows ?
Only a minor refinement. With ActivePerl comes a script called pl2bat
which will turn your script into a (single) batch file, which you can
drag 'n' drop on to. This means you only need to distribute the batch
file, which has the perl code embedded into it.
Another way to do this would be to use Tk and Tk::DropSite, but this
requires the Perl script to be running already.
Hope this helps
Simon.
------------------------------
Date: 24 Feb 2003 04:16:38 -0800
From: genericax@hotmail.com (Sara)
Subject: Re: parens ()
Message-Id: <776e0325.0302240416.584f64b4@posting.google.com>
tadmc@augustmail.com (Tad McClellan) wrote in message news:<slrnb5erl5.9vr.tadmc@magna.augustmail.com>...
> Robert Krueger <racsw@frontiernet.net> wrote:
>
> > Why does this work:
> > print (( 2 * 3 ) * 8 );
> >
> > and this doesn't?
> > print ( 2 * 3 ) * 8;
>
>
> You should always enable warnings when developing Perl code!
I totally agree- in fact I pretty much always leave them on in my
production code as well. Since I clean code up until its warning-free
generally, why remove the switch?
Proposal- I'm not sure if Perl 6 is this way, but given then strong
and I believe justified tendancy here to employ -w, why not make
"warnings" the Perl default (warnings) and make the -w switch mean (no
warnings)? Seems like it would cut down on a lot of bandwidth in this
and other Perl groups, and would likely bring newbies along faster? I
s'pose it might break some existing programs however?
Just a passing thought as I read this admonishment here once again.
Its one of the major bandwidth contributors I fear.. That and read the
docs!
-Gx
>
>
> For a more in-depth explanation than is given in the warnings,
> search for the ID below at:
>
> http://groups.google.com/advanced_group_search
>
> Message-Id: <slrnatq036.2q2.tadmc@magna.augustmail.com>
------------------------------
Date: Mon, 24 Feb 2003 16:25:06 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Q: about opening many processes in parallel as filehandles and win* OSes
Message-Id: <jcdk5vkdlg9ifv3voeso19dp4oeh7f06uh@4ax.com>
On Sat, 22 Feb 2003 18:45:45 -0500, Benjamin Goldberg
<goldbb2@earthlink.net> wrote:
> my @p;
> local $/;
> for( 1 .. 255 ) {
> print readline shift @p if @p == 64;
> open $p[@p], "-|", "ping $net$_ -c 10"
> or die "Couldn't start ping for $net$_: $!\n"
> }
> print readline $_ for @p;
> __END__
>[untested]
Fine!! What surprises me more is that the code is not substantially
more complex than the original one...
The code works, modulo calling ping as "ping -n 10..." - I tried it on
Win98.
As a side note, first I thought of a typo because of the "$p[@p]"
construct, but then... I learnt something new! And, as usual, when you
discover this kind of things you say "why didn't I think of it
myself?"
OTOH, don't you loose, so to say, (approximately) 3/4 of
parallelization this way? That is 64 pings are started first, but from
then on a new one is started only as the "first in" terminates - or is
this utter nonsense?
Michele
--
>It's because the universe was programmed in C++.
No, no, it was programmed in Forth. See Genesis 1:12:
"And the earth brought Forth ..."
- Robert Israel on sci.math, thread "Why numbers?"
------------------------------
Date: Mon, 24 Feb 2003 12:50:53 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <v5k59ddsmloibe@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 17 Feb 2003 12:53:10 GMT and ending at
24 Feb 2003 12:16:38 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 2003 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@(?:.*\.)?perl\.com
faq\@(?:.*\.)?denver\.pm\.org
comdog\@panix\.com
Totals
======
Posters: 249
Articles: 888 (415 with cutlined signatures)
Threads: 190
Volume generated: 1746.3 kb
- headers: 785.0 kb (14,793 lines)
- bodies: 916.4 kb (29,725 lines)
- original: 543.4 kb (19,156 lines)
- signatures: 43.9 kb (1,237 lines)
Original Content Rating: 0.593
Averages
========
Posts per poster: 3.6
median: 2 posts
mode: 1 post - 123 posters
s: 12.8 posts
Posts per thread: 4.7
median: 3.0 posts
mode: 1 post - 46 threads
s: 6.4 posts
Message size: 2013.7 bytes
- header: 905.3 bytes (16.7 lines)
- body: 1056.8 bytes (33.5 lines)
- original: 626.6 bytes (21.6 lines)
- signature: 50.7 bytes (1.4 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
51 126.5 ( 43.6/ 76.0/ 44.5) Benjamin Goldberg <goldbb2@earthlink.net>
30 64.6 ( 22.8/ 41.3/ 16.3) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
28 55.6 ( 26.1/ 24.6/ 23.0) abigail@abigail.nl
25 80.6 ( 27.0/ 50.4/ 43.8) tadmc@augustmail.com
23 69.1 ( 22.9/ 40.9/ 22.2) tassilo.parseval@post.rwth-aachen.de
23 46.2 ( 21.2/ 23.3/ 11.7) Brian McCauley <nobull@mail.com>
22 37.4 ( 16.5/ 19.9/ 11.0) helgi@decode.is
21 42.2 ( 20.3/ 20.5/ 11.1) Gunnar Hjalmarsson <noreply@gunnar.cc>
20 32.6 ( 14.2/ 18.4/ 8.5) Jay Tilton <tiltonj@erols.com>
19 39.2 ( 21.0/ 17.7/ 12.4) "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
These posters accounted for 29.5% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
126.5 ( 43.6/ 76.0/ 44.5) 51 Benjamin Goldberg <goldbb2@earthlink.net>
80.6 ( 27.0/ 50.4/ 43.8) 25 tadmc@augustmail.com
69.1 ( 22.9/ 40.9/ 22.2) 23 tassilo.parseval@post.rwth-aachen.de
64.6 ( 22.8/ 41.3/ 16.3) 30 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
55.6 ( 26.1/ 24.6/ 23.0) 28 abigail@abigail.nl
46.2 ( 21.2/ 23.3/ 11.7) 23 Brian McCauley <nobull@mail.com>
42.2 ( 20.3/ 20.5/ 11.1) 21 Gunnar Hjalmarsson <noreply@gunnar.cc>
41.3 ( 20.8/ 20.2/ 8.9) 19 Sandman <mr@sandman.net>
39.2 ( 21.0/ 17.7/ 12.4) 19 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
37.4 ( 16.5/ 19.9/ 11.0) 22 helgi@decode.is
These posters accounted for 34.5% of the total volume.
Top 10 Posters by Volume of Original Content (min. five posts)
==============================================================
(kb)
Posts orig Address
----- ----- -------
51 44.5 Benjamin Goldberg <goldbb2@earthlink.net>
25 43.8 tadmc@augustmail.com
28 23.0 abigail@abigail.nl
23 22.2 tassilo.parseval@post.rwth-aachen.de
30 16.3 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
19 12.4 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
23 11.7 Brian McCauley <nobull@mail.com>
21 11.1 Gunnar Hjalmarsson <noreply@gunnar.cc>
22 11.0 helgi@decode.is
19 8.9 Sandman <mr@sandman.net>
These posters accounted for 37.7% of the original volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.964 ( 3.2 / 3.3) 5 g <the_game_is_never_over@yahoo.co.uk>
0.937 ( 23.0 / 24.6) 28 abigail@abigail.nl
0.869 ( 43.8 / 50.4) 25 tadmc@augustmail.com
0.749 ( 4.3 / 5.8) 7 Bart Lateur <bart.lateur@pandora.be>
0.738 ( 5.9 / 7.9) 7 "Smiley" <smiley@uvgotemail.com>
0.729 ( 2.3 / 3.2) 5 "Alan J. Flavell" <flavell@mail.cern.ch>
0.703 ( 12.4 / 17.7) 19 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
0.699 ( 5.0 / 7.1) 15 "Tore Aursand" <tore@aursand.no>
0.695 ( 2.4 / 3.5) 5 Robert Nicholson <robert@elastica.com>
0.675 ( 6.3 / 9.3) 5 "Ian.H [dS]" <ian@WINDOZEdigiserv.net>
Bottom 10 Posters by OCR (minimum of five posts)
================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.394 ( 0.6 / 1.5) 5 nobody <noemail@nowhere.net>
0.388 ( 1.2 / 3.1) 6 tyrannous@o-space.com
0.385 ( 1.6 / 4.3) 5 Ryan Shondell <shondell@cis.ohio-state.edu>
0.377 ( 1.3 / 3.6) 8 "Justin A. Graham" <justinagraham@hotmail.com>
0.360 ( 3.6 / 9.9) 11 "John W. Krahn" <krahnj@acm.org>
0.355 ( 7.5 / 21.0) 16 "Mikey" <PleaseDontThrowSpam@Me.com>
0.351 ( 0.6 / 1.9) 5 Ryan McCarthy <remccart@uiuc.edu.spam>
0.296 ( 1.9 / 6.5) 9 Barry Kimelman <barryk2@SPAM-KILLER.mts.net>
0.208 ( 1.7 / 8.2) 8 Ron Reidy <rereidy@indra.com>
0.162 ( 0.8 / 4.8) 9 "Bernard El-Hagin" <bernard.el-hagin@DODGE_THISlido-tech.net>
45 posters (18%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
45 Religious question: commenting
27 How do I get the current date?
25 Switch order of sprintf conversions
22 use DBI;
19 Also religious: brackets
17 Check for occurrence of element in Array
16 Unsuccesful "Print"
15 having PERL respond to a key press
15 parens ()
13 Newbie Q re form to mail script FormProcessorPro
These threads accounted for 24.1% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
119.0 ( 48.3/ 67.1/ 37.3) 45 Religious question: commenting
59.4 ( 22.4/ 34.8/ 16.9) 25 Switch order of sprintf conversions
46.5 ( 25.5/ 19.3/ 10.2) 27 How do I get the current date?
43.0 ( 19.0/ 21.9/ 16.2) 22 use DBI;
39.7 ( 13.1/ 25.9/ 17.1) 12 Problem with buffering on non-blocking socket under win32
35.6 ( 10.2/ 24.9/ 12.1) 12 pipe() + fork() + exit() == problem?
35.3 ( 16.6/ 17.7/ 10.1) 19 Also religious: brackets
34.7 ( 15.9/ 17.8/ 8.9) 17 Check for occurrence of element in Array
33.6 ( 10.8/ 22.3/ 11.7) 13 Returning the field list from DBI
32.8 ( 14.9/ 17.1/ 9.7) 15 having PERL respond to a key press
These threads accounted for 27.5% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
=============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.789 ( 3.5/ 4.5) 6 Uploading a file
0.779 ( 8.0/ 10.2) 6 Help needed -- HCP distribution curve
0.746 ( 6.6/ 8.8) 6 Reading tab delimited files into a hash.
0.739 ( 16.2/ 21.9) 22 use DBI;
0.738 ( 1.8/ 2.4) 8 When is perl6 expected to be available?
0.730 ( 3.3/ 4.5) 8 Get Public IP Address of Linux Machine
0.718 ( 5.4/ 7.5) 6 Perl, Large Memory, and autofork
0.699 ( 8.3/ 11.8) 13 map two lists
0.683 ( 7.6/ 11.1) 15 parens ()
0.673 ( 4.2/ 6.2) 9 Chucking up text on word boundaries?
Bottom 10 Threads by OCR (minimum of five posts)
================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.465 ( 1.0 / 2.1) 5 one liner in command line
0.457 ( 3.5 / 7.6) 10 Regular Expression Noob
0.455 ( 0.9 / 2.1) 5 Change a variable
0.446 ( 2.0 / 4.5) 5 Retrieving Information
0.440 ( 1.7 / 3.8) 6 parsing string with whitespace
0.423 ( 5.6 / 13.2) 16 Unsuccesful "Print"
0.393 ( 4.9 / 12.6) 13 Newbie Q re form to mail script FormProcessorPro
0.386 ( 1.4 / 3.6) 5 hashes and lists
0.335 ( 1.8 / 5.3) 5 dbd-pg (postgres) on windows
0.313 ( 1.8 / 5.7) 10 Having problems writing a tar file. Correction
63 threads (33%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
20 alt.perl
6 rec.games.bridge
6 sci.stat.math
5 comp.lang.perl.modules
5 comp.programming
3 comp.lang.perl.tk
3 be.comp.programming
2 comp.databases.ibm-db2
2 comp.lang.perl
2 comp.lang.python
Top 10 Crossposters
===================
Articles Address
-------- -------
9 "Smiley" <smiley@uvgotemail.com>
6 "Ganchrow Harris Peck" <ganchrow@nospam.com>
4 Philip Lees <pjlees@ics.forthcomingevents.gr>
4 Michael Budash <mbudash@sonic.net>
4 "Jan de Kleijn" <jan@oberon.nl>
3 Brian McCauley <nobull@mail.com>
3 "Dieter D'Hoker" <webmaster@neverseenbefore.com>
3 Chris Lowth <dont@want.spam>
2 Jeff Zucker <jeff@vpservices.com>
2 "Rob" <cyberob@freemail.nl>
------------------------------
Date: 24 Feb 2003 04:06:11 -0800
From: genericax@hotmail.com (Sara)
Subject: Re: try my program out...
Message-Id: <776e0325.0302240406.79bda0fc@posting.google.com>
"Jürgen Exner" <jurgenex@hotmail.com> wrote in message news:<Eek6a.5561$ES3.1697@nwrddc04.gnilink.net>...
> Some One wrote:
> > Its a guestbook program, i need it looked at and opinions given..
> >
> > http://www.[...]/guestbook.exe
>
> How stupid does someone have to be to run an unknown exe from an unknown web
> site written/submitted by an unknown poster who is using a faked name and
> doesn't even provide a valid email address for questions or to submit those
> opinions he pretents to be looking for?
>
> This doesn't smell like a virus or probably more like a Trojan horse, it
> stinks like one for five miles against the wind.
>
> jue
Oh come now with an addy like "nospam" and a name like "Someone" it
MUST be authentic! LOL..
Good call Jue!
-Gx
------------------------------
Date: 24 Feb 2003 05:01:01 -0800
From: toddrw69@excite.com (trwww)
Subject: Re: Use or not to use modules
Message-Id: <d81ecffa.0302240501.3626b5b9@posting.google.com>
noreply@gunnar.cc (Gunnar Hjalmarsson) wrote in message news:<3fcbff18.0302230730.16378c16@posting.google.com>...
> "Jürgen Exner" <jurgenex@hotmail.com> wrote in message news:<liN5a.193$V42.108@nwrddc03.gnilink.net>...
> > Gunnar Hjalmarsson wrote:
> > > "Steffen Beyer" <Steffen.Beyer@de.bosch.com> wrote in message
> > > news:<b34itt$hn8$1@ns2.fe.internet.bosch.com>...
> > >> But in general, it is of course a good idea not to re-invent
> > >> the wheel and to use modules wherever possible.
> > >
> > > I don't agree on "wherever possible".
> >
> > I think that depends on your personal definition of "possible".
> > I prefer "feasible", but I guess that's just playing with definitions.
>
> On the contrary, that's my whole point.
>
> I'm not *against* using modules; that would just be stupid. I use
> modules all the time *wherever feasible*. But for tasks, that *I*
> consider to be simple enough, I often use my own code, even if it
> would have been possible to load a few more modules instead. It
> facilitates my own learning, and it makes me feel a little more
> comfortable. :)
>
> I don't like dogmatism. That's why I disagree on "wherever possible".
>
My theory as applies to perl modules is this:
It is impossible to give a bug free stamp to all but the simplest of
modules on CPAN. But it is highly probable that the CPAN module will
have at least one less bug than a roll-your-own solution.
Todd W.
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.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 V10 Issue 4615
***************************************
