[16760] in Perl-Users-Digest
Perl-Users Digest, Issue: 4172 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 30 00:05:32 2000
Date: Tue, 29 Aug 2000 21:05:12 -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: <967608312-v9-i4172@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 29 Aug 2000 Volume: 9 Number: 4172
Today's topics:
`pos' after !//g (Hideaki Hase)
Any chance of a little more explanation? <markmccarthy1@home.com>
Re: calling CGI programs <elephant@squirrelgroup.com>
Re: calling CGI programs <jpalley@jps.net>
Calling methods of Objects without thier Package Qualif shaikhr17109@my-deja.com
Re: Calling methods of Objects without thier Package Qu <elephant@squirrelgroup.com>
Re: Calling methods of Objects without thier Package Qu (Hasanuddin Tamir)
Re: Creating seperate HTML files via CGI script <elephant@squirrelgroup.com>
Re: DBD installation problem <bGhassemlou@home.com>
Re: fetching information from cookie with name FireScap (Tony L. Svanstrom)
Re: get newsfeeds from a content site with perl? <mojiazho@hotmail.com>
Re: get newsfeeds from a content site with perl? (Martien Verbruggen)
Re: Getting the greedy RegEx, wanting the Lazy - help? ptomsic@my-deja.com
Re: Getting the greedy RegEx, wanting the Lazy - help? (Abigail)
Glob errors? <mmesarch@wcom.net>
Re: Glob errors? <elephant@squirrelgroup.com>
Re: how about programming a mud driver in Perl? (Abigail)
Re: How can I sort using two fields? (Abigail)
Re: How to Unzip a .tar.gz file (Keith Calvert Ivey)
Re: Just another silly post. (Abigail)
Re: Just another silly post. <rick.delaney@home.com>
Re: method="get" <bart.lateur@skynet.be>
Re: output fun (Keith Calvert Ivey)
Re: output fun (Keith Calvert Ivey)
png/gif format <imurray@wel.co.nz>
Re: png/gif format (Abigail)
Re: Question about variable use <r28629@email.sps.mot.com>
Re: quickie obfuscation... (Keith Calvert Ivey)
Re: quickie obfuscation... <elephant@squirrelgroup.com>
Re: reading a line from the serial port <dale@icr.com.au>
Re: Reg Exp Problem - What is wrong with this?? <shamilton@plateausystems.holdthespam.com>
Re: Regexp help required <dietmar.staab@t-online.de>
Re: Trouble Reading From Database File... (Abigail)
Re: Trouble Reading From Database File... (Martien Verbruggen)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 30 Aug 2000 02:53:38 GMT
From: hase@mech.usp.ac.jp (Hideaki Hase)
Subject: `pos' after !//g
Message-Id: <8ohsvi$l2e$1@spins1.spins.usp.ac.jp>
Sorry if such a question has been frequently asked.
Is there any way to keep the return of `pos' function the value before
the corresponding pattern matching with `g' option when the matching
results failure?
If not, I'd like to propose specifying the pattern match operator with
`g' option keeps the `pos' value or introducing a new option for it.
Its reason is it would makes writing a lexical analizer easier such as:
while (!/^G$/g) {
if (/^G$pattern1/g) {
# $token1;
} elsif (/^G$pattern2/g) {
# $token2;
} else {
# syntax error
}
}
In the specification of my Perl (5.005), the matchings for $pattern1&2
start from the head. I can think only of such a solution:
while ($pos = pos, !/^G$/g) {
if (pos = $pos, /^G$pattern1/g) {
# $token1;
} elsif (pos = $pos, /^G$pattern2/g) {
# $token1;
} else {
# syntax error
}
}
Thanks.
---
Hideaki HASE
School of Mechanical Systems Engineering,
The University of Shiga Prefecture, 522-8533 JAPAN
2500 Hassaka-cho, Hikone-shi, Shiga
Phone: +81-749-28-8394 E-mail: hase@mech.usp.ac.jp
------------------------------
Date: Wed, 30 Aug 2000 01:52:17 GMT
From: "Mark McCarthy" <markmccarthy1@home.com>
Subject: Any chance of a little more explanation?
Message-Id: <lNZq5.40293$xg1.381373@news1.rdc1.sdca.home.com>
"Larry Rosler" <lr@hpl.hp.com> wrote in message
news:MPG.1415ed2af4a5235a98acf8@nntp.hpl.hp.com...
> This is fine for 100 lines (in fact, almost anything is :-), but when
> you get up to 10,000 you might want to do better -- the Guttman-Rosler
> Transform (ta-da!)
>
> my @sorted =
> map substr($_, 1 + rindex $_, "\0") => sort
> map { my ($link4, $link2) = (split /\|/)[3, 1];
> pack 'A*xA*xA*' => uc $link4, uc $link2, $_ } <DATA>;
>
> > Thanks for your time.
>
> Heck, all the hard work was done more than a year ago.
Would it be too much to ask Larry for you to explain the GRT sort for me -
not in abstraction but - say for this particular example. I understand the
ST pretty well (mostly because of Tom's article). But GRT just blows my mind
despite having read the paper you co-authored with Uri and other examples
that use this method eg at http://www.perlfaq.com/faqs/id/162.
Even like three or four lines would be nice if you have time; Any insights
will be much appreciated. Thanks for the most instructive replies that you
give in this group. Im pretty much a newbie myself but I learn a tremendous
amount from you...
Mark McCarthy
------------------------------
Date: Wed, 30 Aug 2000 03:02:42 GMT
From: jason <elephant@squirrelgroup.com>
Subject: Re: calling CGI programs
Message-Id: <MPG.141716c4d1fabb2698972b@localhost>
Jonathan Palley <jpalley@jps.net> wrote ..
>How do you call one PERL script from within another?
no idea .. this group's about Perl not PERL (whatever that is) .. read
perlfaq1
What's the difference between "perl" and "Perl"?
but to your question .. there are many ways .. in an order that you will
only understand once you've read the documentation .. try these from the
command line
perldoc -f eval
perldoc -f do
perldoc -f require
perldoc -f use
please not the complete absense of any reference to the 'system' or
'exec' functions
and if you've never heard of perldoc then type the following at the
command line first
perldoc perldoc
--
jason -- elephant@squirrelgroup.com --
------------------------------
Date: Tue, 29 Aug 2000 21:00:59 -0700
From: Jonathan Palley <jpalley@jps.net>
Subject: Re: calling CGI programs
Message-Id: <39AC86FB.2E80781E@jps.net>
I'm not sure i'm following you....i don't know how to capitalize PERL, but
i'm talking about the language being discussed here. I can probably broaden
my question, if it helps to just how do you open a webpage in a browser from
a perl cgi script?
jason wrote:
> Jonathan Palley <jpalley@jps.net> wrote ..
> >How do you call one PERL script from within another?
>
> no idea .. this group's about Perl not PERL (whatever that is) .. read
> perlfaq1
>
> What's the difference between "perl" and "Perl"?
>
> but to your question .. there are many ways .. in an order that you will
> only understand once you've read the documentation .. try these from the
> command line
>
> perldoc -f eval
> perldoc -f do
> perldoc -f require
> perldoc -f use
>
> please not the complete absense of any reference to the 'system' or
> 'exec' functions
>
> and if you've never heard of perldoc then type the following at the
> command line first
>
> perldoc perldoc
>
> --
> jason -- elephant@squirrelgroup.com --
------------------------------
Date: Wed, 30 Aug 2000 02:16:27 GMT
From: shaikhr17109@my-deja.com
Subject: Calling methods of Objects without thier Package Qualifier?
Message-Id: <8ohqpb$ta8$1@nnrp1.deja.com>
I am having problems with tying to call methods
of objects without thier Package Qualifier.
I have one file (car.pm) that is used create
a class object and another file (drive.pm)
that instantiates the car object and tries to
access its methods. But instead it gives an
error.
#FILE 1: car.pm
package car;
use strict;
sub new
{
my ($class, $self) =@_;
$self ={ 'color' => 'red',
'size' => 'bag',
'miles' => 0
};
bless ($self,$class);
return $self;
}
sub move($)
{
my ($self,$mil) =@_;
$self->{'miles'} = 1 + $mil ;
return $self->{'miles'};
}
1;
#FILE2 drive.pl
use strict;
use car;
my $c = car::new();
print $c->{color};
print $c->move(3);
ERROR:
redCan't locate object method "move" via
package "main" at drive.pl line 6.
It worked when I qulified the method with the
package name i.e. car::move. Is there a way
to call a method of an object without
having to quailfy the package name?
Thanks a bunch for anyone attempting to answer!
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 30 Aug 2000 03:19:54 GMT
From: jason <elephant@squirrelgroup.com>
Subject: Re: Calling methods of Objects without thier Package Qualifier?
Message-Id: <MPG.14171ad128342db798972d@localhost>
shaikhr17109@my-deja.com <shaikhr17109@my-deja.com> wrote ..
>I am having problems with tying to call methods
>of objects without thier Package Qualifier.
>
>I have one file (car.pm) that is used create
>a class object and another file (drive.pm)
>that instantiates the car object and tries to
>access its methods. But instead it gives an
>error.
>
>#FILE 1: car.pm
>package car;
>use strict;
>
>sub new
>{
>my ($class, $self) =@_;
>$self ={ 'color' => 'red',
> 'size' => 'bag',
> 'miles' => 0
> };
>bless ($self,$class);
>return $self;
>}
>
>
>sub move($)
>{
>my ($self,$mil) =@_;
>$self->{'miles'} = 1 + $mil ;
>return $self->{'miles'};
>
>}
>1;
>
>
>#FILE2 drive.pl
>use strict;
>use car;
>
>my $c = car::new();
^^^^^^^^^^...this is not the correct way to call new
you should be calling new like one of the following
my $c = new car();
or
my $c = car->new();
there is no difference (except personal preference and in some cases
readability) between the two examples I provided .. but your :: example
doesn't call 'new' in any special way
the two methods of calling (of which the first is by far the most
accepted for the new() function) new that I show both pass the 'class'
name as their first argument .. so that your new sub will receive it and
be able to bless the hash reference appropriately
the first line of your new sub is also incorrect .. you will only get
the class name .. you will not get a self-reference with the new
function
consult the perltoot section of the documentation .. Tom's OO tutorial
perldoc perltoot
--
jason -- elephant@squirrelgroup.com --
------------------------------
Date: Wed, 30 Aug 2000 17:33:03 GMT
From: hasant@trabas.co.id (Hasanuddin Tamir)
Subject: Re: Calling methods of Objects without thier Package Qualifier?
Message-Id: <slrn8qp0kt.ane.hasant@borg.intern.trabas.co.id>
On Wed, 30 Aug 2000 02:16:27 GMT, shaikhr17109@my-deja.com wrote:
> I am having problems with tying to call methods
> of objects without thier Package Qualifier.
>
> I have one file (car.pm) that is used create
> a class object and another file (drive.pm)
> that instantiates the car object and tries to
> access its methods. But instead it gives an
> error.
>
> #FILE 1: car.pm
> package car;
> use strict;
>
> sub new
> {
> my ($class, $self) =@_;
What the $self is there for?
> $self ={ 'color' => 'red',
> 'size' => 'bag',
> 'miles' => 0
> };
> bless ($self,$class);
> return $self;
The bless() simply returns the object itself.
> }
>
>
> sub move($)
> {
> my ($self,$mil) =@_;
> $self->{'miles'} = 1 + $mil ;
> return $self->{'miles'};
>
> }
> 1;
>
>
> #FILE2 drive.pl
> use strict;
> use car;
>
> my $c = car::new();
Your class takes one argument, that's the class name, but you gave it nothing.
Read perlmod, perltoot, perlobj, or manual of one of OO modules, and you
will find something like these,
my $c = car->new;
my $c = new car;
or if you insist,
my $c = car::new('car');
> print $c->{color};
You'll get a "bonus" with -w here.
> print $c->move(3);
This says that "object" $c calls move() method but $c is not recognized to
have such a method, since $c isn't really an object of class car. Instead,
it's an object of package main, hence the error.
Use -w switch, and it will tell you more why.
HTH
san
--
trabasLabs * hasant@trabas.com * http://www.trabas.com
Zero Point * hasant@zp.f2s.com * http://www.zp.f2s.com
------------------------------
Date: Wed, 30 Aug 2000 02:56:12 GMT
From: jason <elephant@squirrelgroup.com>
Subject: Re: Creating seperate HTML files via CGI script
Message-Id: <MPG.1417154413d0401698972a@localhost>
gallantknave <gallantknave@my-deja.com> wrote ..
>I would like to know if it's possible for a cgi script to automatically
>create seperate HTML files for each message posted on a bulletin board
>so as to create a link to the individual message when listed in a index
>page of the message entries.
yes
--
jason -- elephant@squirrelgroup.com --
------------------------------
Date: Wed, 30 Aug 2000 03:21:45 GMT
From: "bjg" <bGhassemlou@home.com>
Subject: Re: DBD installation problem
Message-Id: <d5%q5.136915$c5.3656076@news2.rdc1.on.home.com>
I just found the proper answer in another group. for other's info
1- Go to Dos command screen under NT
2- cd\perl\bin
3-PPM
4- Install DBI
5- Install DBD::mysql
This will install DBD properly.
"bjg" <bGhassemlou@home.com> wrote in message
news:6sMq5.130516$c5.3343904@news2.rdc1.on.home.com...
> I am trying to use MySQL on NT. I finally installed, I had problem with
DBI
> and installed it too (took me 2 weeks) now I just found I need DBD! It was
> down loaded and extracted (there are not installation instructions? I get
> the following error message when running the test program.(It is
frustrating
> it is over 3 month that I am trying to run a query against MySQL and still
> no hope!)
> cand anyone give me a hint what is wrong???
>
> This is the error message I get:
>
> install_driver(mysql) failed: Can't locate loadable object for module
> DBD::mysql in @INC (@INC contains: D:/Perl/lib D:/Perl/site/lib .) at
(eval
> 1) line 3
> Compilation failed in require at (eval 1) line 3.
> Perhaps a module that DBD::mysql requires hasn't been fully installed
> at d:\Xitami\webpages\cgi-bin\Behzad.pl line 17
>
> How do I install the driver ??
> Thanks
>
>
>
------------------------------
Date: Wed, 30 Aug 2000 03:38:31 +0200
From: tony@svanstrom.com (Tony L. Svanstrom)
Subject: Re: fetching information from cookie with name FireScape
Message-Id: <1eg5rah.1f2plvryxxar9N%tony@svanstrom.com>
Daniel van den Oord <danielxx@bart.nl> wrote:
> I want to fetch the info in a cookie with the name FireScape how can I do
> that ????
> I have read the cgi::cookie but since my english isn't that good I don't
> understand what they mean... if somebody could maybe post a example on
> howto do that I would be very greatfull !!!
Here is some code that does it without that module.
## start code
local($chip, $val);
foreach (split(/; /, $ENV{'HTTP_COOKIE'})) {
s/\+/ /g;
($chip, $val) = split(/=/,$_,2);
$chip =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
$val =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
$cookie{$chip} .= "\1" if (defined($cookie{$chip}));
$cookie{$chip} .= $val;
}
## end code
If you add that code to your script then you will find the info in the
cookie in this: $cookie{'FireScape'}
/Tony
--
/\___/\ Who would you like to read your messages today? /\___/\
\_@ @_/ Protect your privacy: <http://www.pgpi.com/> \_@ @_/
--oOO-(_)-OOo---------------------------------------------oOO-(_)-OOo--
on the verge of frenzy - i think my mask of sanity is about to slip
---ôôô---ôôô-----------------------------------------------ôôô---ôôô---
\O/ \O/ ©99-00 <http://www.svanstrom.com/?ref=news> \O/ \O/
------------------------------
Date: Wed, 30 Aug 2000 10:32:11 +0800
From: "Wowo" <mojiazho@hotmail.com>
Subject: Re: get newsfeeds from a content site with perl?
Message-Id: <22E71DAEC504D111B78100805FFE9DC73E8A8EF5@pfs21.ex.nus.edu.sg>
oh, i guess u don't even know what it is newsfeeds.
but never mind, i have work it out by myself.
do u mean that my question is stupid? oh, it may be. but
u got a wrong answer. and, there are other more stupid
question in this group, don't u think so?
u will know if u read all the post carefully.
thanks for your replay:-)
Martien Verbruggen <mgjv@verbruggen.comdyn.com.au> wrote in message
news:slrn8qmhp9.ra.mgjv@verbruggen.comdyn.com.au...
> On Tue, 29 Aug 2000 12:42:43 +0800,
> Mo Jiazhou <isc80031@nus.edu.sg> wrote:
> > hi, people:
> >
> > how to get newsfeeds from another site, eg, a newspaper's site,
> > with perl scripts? is there any place i can find sample code? or
> > i can learn more about this?
>
> I suppose you mean you want to read HTML pages from a Web site?
>
> You want to have a look at the LWP modules. You can get them from
> CPAN: http://www.cpan.org/
>
> This question, or questions very similar to it, come up quite often on
> this group. You might consider using something like www.deja.com next
> time you have a question, or simply read a few of the posts in the
> group before you post yourself. If you did that, then next time you
> should probably be a bit more thorough.
>
> Martien
> --
> Martien Verbruggen |
> Interactive Media Division | "In a world without fences,
> Commercial Dynamics Pty. Ltd. | who needs Gates?"
> NSW, Australia |
------------------------------
Date: Wed, 30 Aug 2000 03:41:49 GMT
From: mgjv@verbruggen.comdyn.com.au (Martien Verbruggen)
Subject: Re: get newsfeeds from a content site with perl?
Message-Id: <slrn8qot2l.ra.mgjv@verbruggen.comdyn.com.au>
[please in the future, put your reply after the suitably shortened
text you reply to. It makes reading messages much easier. Thanks]
On Wed, 30 Aug 2000 10:32:11 +0800,
Wowo <mojiazho@hotmail.com> wrote:
> Martien Verbruggen <mgjv@verbruggen.comdyn.com.au> wrote in message
> news:slrn8qmhp9.ra.mgjv@verbruggen.comdyn.com.au...
> > On Tue, 29 Aug 2000 12:42:43 +0800,
> > Mo Jiazhou <isc80031@nus.edu.sg> wrote:
> > > hi, people:
> > >
> > > how to get newsfeeds from another site, eg, a newspaper's site,
> > > with perl scripts? is there any place i can find sample code? or
> > > i can learn more about this?
> >
> > I suppose you mean you want to read HTML pages from a Web site?
> >
> > You want to have a look at the LWP modules. You can get them from
> > CPAN: http://www.cpan.org/
>
> oh, i guess u don't even know what it is newsfeeds.
I know what _I_ mean by newsfeed. I can come up with lots of other
possible interpretations of the same word. I also know what 99% of the
posters mean when they say 'other site' on this group. That's what I
went on. Your question was unclear, you got an answer from someone who
misunderstood it. If you don't like that, you should be more precise.
> but never mind, i have work it out by myself.
Well.. I'm still not 100% clear on what you mean. Do you mean you want
to write a client that accesses a news server using the NNTP protocol?
You probably discovered that there are a few modules for that. I
personally don't bother writing this stuff myself, and use slrnpull or
more ideally, leafnode. To get a real newsfeed, you'll have to install
a real local newsserver, and talk to the admin of the site you want
the feed from.
> do u mean that my question is stupid? oh, it may be. but
> u got a wrong answer. and, there are other more stupid
> question in this group, don't u think so?
I didn't think it was stupid. I just misunderstood, and therefore
obviously thought it was unclear.
> u will know if u read all the post carefully.
Nope. Reread it, several times. It's still ambiguous and unclear to
me. Part of it may be the language problem, but I honestly just simply
misunderstood the first time, and am still not entirely clear on what
you want.
> thanks for your replay:-)
No problem.
Martien
--
Martien Verbruggen |
Interactive Media Division | If at first you don't succeed, try
Commercial Dynamics Pty. Ltd. | again. Then quit; there's no use
NSW, Australia | being a damn fool about it.
------------------------------
Date: Wed, 30 Aug 2000 02:57:00 GMT
From: ptomsic@my-deja.com
Subject: Re: Getting the greedy RegEx, wanting the Lazy - help?
Message-Id: <8oht5j$10$1@nnrp1.deja.com>
In article <%VYq5.9474$D7.360632@news-west.usenetserver.com>,
daniel@chetlin.com wrote:
> But the thing is, you can still use HTML::Parser for something like
that, and
> it's much more likely to work well.
>
> If you post a better spec of exactly what you're trying to do, I'll
be happy
> to try to show you how.
Okay:
You're requesting a better spec of what I'm trying to do..
I've got large static html files (30+ kb) that I"ve got to run thru,
kill the extra whitespace, and compact as best I can (without smashing
the JavaScript, or the SSI's), then parse it apart for two flags, a <!--
BEGIN STUFF--> and an <!---END STUFF--> marker.
Whatever is in-between, is exactly what I need, but those markers are
not consistent across each file, as they were done by a few temps' from
agencies, so sometimes there's a few BEGIN lines
and sometimes there's a few END lines. And obviously, there's no
consistencies for the markers that I'm looking for, but they're NEARLY
what I've typed above. Sometimes they've got
"less than, bang, three hyphens, lowercase begin, five spaces, upper-
case STUFF, one space, two hyphens, greater than" and other times it
could be slightly different.
Ultimately, though, I'm looking for that combo (at least one less than,
one bang, at least one hyphen, the word BEGIN followed by the word
STUFF, at least one hyphen, and a greater than)
to START The DESIRED content, then it will be terminated by the same
thing, but END STUFF is the key words. So, syntax-wise:
<TD><T><TH><TABLE><B><B>/<B>blahblahblah</B></Table><!--- BEGIN
STUFF-->this\n\n\t
is the desired TEXT<!END><!--END stuff-->ALL this can be disregarded<!--
END STUFF-->
So the end result would be simply the string containing
this is the desired TEXT
(I've since replaced the \n and the \t with simple spaces)
Thank you for your time.
PJT
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 30 Aug 2000 03:10:52 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Getting the greedy RegEx, wanting the Lazy - help?
Message-Id: <slrn8qouoc.bbg.abigail@alexandra.foad.org>
Mike Cameron (mcameron@mirusweb.com) wrote on MMDLV September MCMXCIII in
<URL:news:39AC3C81.9FFEDA4A@mirusweb.com>:
`` Rookie looking to learn. Just curious..
As is shown by your Jeopardy postings. Don't do that.
`` Why not use RE's to parse html?
That's explained in the FAQ. Why don't you read that before posting here?
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
------------------------------
Date: Tue, 29 Aug 2000 21:34:41 -0400
From: "Mike Mesarch" <mmesarch@wcom.net>
Subject: Glob errors?
Message-Id: <8ohocf$ksk$1@sshuraaa-i-1.production.compuserve.com>
I am running perl on an NT box and this glob line is causing a problem. As
a note I stole the code from a script I wrote in Solaris which worked fine.
I am essentially just running a script to recurse through directories. If
it is a directory I want it to do something special and recurse through it.
The problem lies when a directory has a space in the name. For example the
directory M:\Compaq Support now becomes M:./Compaq. Below is the line and
the sub causing the problem. Any help would be appreciated. As you can
tell by the code I am no guru.
Thanks!
-Mike
<line causing problems>
foreach $file (glob("$dir\\*"))
<the entire sub>
sub printcontents {
my $dir = shift;
foreach $file (glob("$dir\\*"))
{
next if ($file eq ".");
next if ($file eq "..");
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,
$blocks) = stat($file);
if (substr($mode, 0, 2) == 16)
{
printcontents($file);
}
}
}
------------------------------
Date: Wed, 30 Aug 2000 03:09:53 GMT
From: jason <elephant@squirrelgroup.com>
Subject: Re: Glob errors?
Message-Id: <MPG.141718743373b61298972c@localhost>
Mike Mesarch <mmesarch@wcom.net> wrote ..
>I am running perl on an NT box and this glob line is causing a problem. As
>a note I stole the code from a script I wrote in Solaris which worked fine.
>I am essentially just running a script to recurse through directories. If
>it is a directory I want it to do something special and recurse through it.
>The problem lies when a directory has a space in the name. For example the
>directory M:\Compaq Support now becomes M:./Compaq. Below is the line and
>the sub causing the problem. Any help would be appreciated. As you can
>tell by the code I am no guru.
glob on Win32 isn't very good .. it has to spawn a new process and is
messy and yucky *8^) .. sorry - can't be bothered giving technical
reasons not to use it .. read the perlwin32 section of the manual for a
more detailed description
use either File::DosGlob as perlwin32 recommends .. or from what you're
saying your task could easily be solved with File::Find (again covered
in the documentation)
perldoc perlwin32
perldoc File::DosGlob
perldoc File::Find
--
jason -- elephant@squirrelgroup.com --
------------------------------
Date: 30 Aug 2000 02:50:08 GMT
From: abigail@foad.org (Abigail)
Subject: Re: how about programming a mud driver in Perl?
Message-Id: <slrn8qothf.bbg.abigail@alexandra.foad.org>
Nick Maxwell (maxwelln@purdue.edu) wrote on MMDLV September MCMXCIII in
<URL:news:8ohbhc$4d$1@mozo.cc.purdue.edu>:
`' >First, it gives you access to the system, and second,
`'
`' I would be writing my own language/interpreter in perl with memory hogging
`' things done in C.
Since about everything in Perl hogs memory, I'm not sure what you mean
by this.
`' >I'd just stick with DGD....
`'
`' But what I am trying to do is take a whole new approach to driver
`' implementation and new base features that are intrinsic to my system but not
`' to others that are already out there. I also think this would be a good
`' exercise in programming in general. What are your thoughts?
Writing a useful mud driver isn't what I call a programming exercise.
You wouldn't be asking questions like this if your programming
capabilities are such that creating a mud driver is a mere exercise. ;-)
Abigail
--
perl -le 's[$,][join$,,(split$,,($!=85))[(q[0006143730380126152532042307].
q[41342211132019313505])=~m[..]g]]e and y[yIbp][HJkP] and print'
------------------------------
Date: 30 Aug 2000 03:08:49 GMT
From: abigail@foad.org (Abigail)
Subject: Re: How can I sort using two fields?
Message-Id: <slrn8qoukg.bbg.abigail@alexandra.foad.org>
Carter (carter@aodinc.com) wrote on MMDLV September MCMXCIII in
<URL:news:8ohd3i$8q3$1@news.chatlink.com>:
::
:: I have a list of lines stored in an array called @links.
:: Each line contains 5 words separated by |. Of course, each line is ended by
:: \n. BTW, the entire array contains 100 lines.
::
:: I need to sort this list alphabetically by group 4. If more than one word
:: in group 4 match, then those links must be further sorted alphabetically
:: according to group 2.
One could use a simple radix sort.
foreach my $k (reverse (4, 2)) {
my $key = $k - 1;
my %radix;
foreach (@data) {push @{$radix {(split /\|/)[$key]}} => $_}
@links = map {@{$radix {$_}}} sort keys %radix;
}
Abigail
--
perl -wle '$, = " "; sub AUTOLOAD {($AUTOLOAD =~ /::(.*)/) [0];}
print+Just (), another (), Perl (), Hacker ();'
------------------------------
Date: Wed, 30 Aug 2000 00:08:22 GMT
From: kcivey@cpcug.org (Keith Calvert Ivey)
Subject: Re: How to Unzip a .tar.gz file
Message-Id: <39ac4fac.1460597@news.newsguy.com>
dennis100@webtv.net (BUCK NAKED1) wrote:
>PS to Keith: FWIW, whataman is my pc addy and bucknaked is my webtv
>addy. It depends on which machine that I am posting from.
Have you considered that people might respond better if you used
names that made you appear to be more than 12 years old? It's
your decision, of course.
--
Keith C. Ivey <kcivey@cpcug.org>
Washington, DC
------------------------------
Date: 30 Aug 2000 02:55:09 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Just another silly post.
Message-Id: <slrn8qotqs.bbg.abigail@alexandra.foad.org>
Steve Mading (madings@baladi.bmrb.wisc.edu) wrote on MMDLV September
MCMXCIII in <URL:news:8ohh9t$i52$2@news.doit.wisc.edu>:
\\ Abigail <abigail@foad.org> wrote:
\\ : Steve Mading (madings@baladi.bmrb.wisc.edu) wrote on MMDLII September
\\ : MCMXCIII in <URL:news:8o752v$ipq$2@news.doit.wisc.edu>:
\\ : :: Abigail <abigail@foad.org> wrote:
\\ : ::
\\ : :: : No, it won't. It's a common misconception that $ matches the end of a
\\ : :: : string. It might, but it doesn't have to. $ matches the end of a *line
\\ : :: : And it can do so before a newline. Hence, ".\n" and "..\n", which are
\\ : :: : perfectly valid filenames, will be filtered out by the grep.
\\ : ::
\\ : :: This is configurable behaviour that can be fixed trivially. Perl
\\ : :: regex's can be told to match $ to end-of-string with a switch.
\\
\\ : You got me there. Can to tell us which switch that is? I can't find
\\ : it in man perlrun.
\\
\\ This is from "man perlre", the perl regex page. In the documentation
\\ for the switches you can put at the end of the epression (for example,
\\ the /i for case insensitive), there is this /s switch:
\\
\\ s Treat string as single line. That is, change "." to
\\ match any character whatsoever, even a newline, which
\\ it normally would not match.
\\
\\ The /s and /m modifiers both override the $* setting.
\\ That is, no matter what $* contains, /s without /m
\\ will force "^" to match only at the beginning of the
\\ string and "$" to match only at the end (or just
\\ before a newline at the end) of the string. Together,
\\ as /ms, they let the "." match any character
\\ whatsoever, while yet allowing "^" and "$" to match,
\\ respectively, just after and just before newlines
\\ within the string.
Really? That doesn't do at all you claim it is doing, now does it?
Abigail
--
perl -wle\$_=\<\<EOT\;y/\\n/\ /\;print\; -eJust -eanother -ePerl -eHacker -eEOT
------------------------------
Date: Wed, 30 Aug 2000 03:00:02 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Just another silly post.
Message-Id: <39AC7B17.21299273@home.com>
Steve Mading wrote:
>
> Abigail <abigail@foad.org> wrote:
> : Steve Mading (madings@baladi.bmrb.wisc.edu) wrote
> : ::
> : :: This is configurable behaviour that can be fixed trivially. Perl
> : :: regex's can be told to match $ to end-of-string with a switch.
>
> : You got me there. Can to tell us which switch that is? I can't find
> : it in man perlrun.
>
> This is from "man perlre", the perl regex page. In the documentation
> for the switches you can put at the end of the epression (for example,
> the /i for case insensitive), there is this /s switch:
>
> s Treat string as single line. That is, change "." to
> match any character whatsoever, even a newline, which
> it normally would not match.
>
> The /s and /m modifiers both override the $* setting.
> That is, no matter what $* contains, /s without /m
> will force "^" to match only at the beginning of the
> string and "$" to match only at the end (or just
> before a newline at the end) of the string. Together,
> as /ms, they let the "." match any character
> whatsoever, while yet allowing "^" and "$" to match,
> respectively, just after and just before newlines
> within the string.
This is from "man perlrun".
-s enables rudimentary switch parsing for switches on the
command line after the program name but before any filename
arguments (or before a --). Any switch found there is
removed from @ARGV and sets the corresponding variable in
the Perl program. The following program prints "1" if the
program is invoked with a -xyz switch, and "abc" if it is
invoked with -xyz=abc.
#!/usr/bin/perl -s
if ($xyz) { print "$xyz\n" }
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Wed, 30 Aug 2000 01:02:42 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: method="get"
Message-Id: <00noqs449k2naeo9t9er9ju0bgjf4njgc8@4ax.com>
Tony L. Svanstrom wrote:
>No, you don't search for a module when all you want is
>$ENV{'QUERY_STRING'}
Most of the time, and in the general case, you need to decode the string
as well. There's where all the cargo cult code (s/%(..)/pack 'c', hex
$1/ge, anyone?) comes in. A module is better for this, making sure you
get it right. Even Steve Brenner's old cgi-lib.pl is better for this.
But I do think that CGI.pm is overkill. I never need it to generate HTML
anyway (I always use template mechanisms, or here-docs for single
pages), so the bulk of it is ballast.
--
Bart.
------------------------------
Date: Wed, 30 Aug 2000 01:27:47 GMT
From: kcivey@cpcug.org (Keith Calvert Ivey)
Subject: Re: output fun
Message-Id: <39af6057.5728158@news.newsguy.com>
rgarciasuarez@free.fr (Rafael Garcia-Suarez) wrote:
>$_="ABCDEFGFEDCBA\n";print;print while y/G/ /||s/(\w)( *)\1/' 'x(2+length$2)/eg;
$_="ABCDEFGFEDCBA\n";print;print while s/G|(?<= )\w|\w(?= )/ /g;
--
Keith C. Ivey <kcivey@cpcug.org>
Washington, DC
------------------------------
Date: Wed, 30 Aug 2000 02:39:03 GMT
From: kcivey@cpcug.org (Keith Calvert Ivey)
Subject: Re: output fun
Message-Id: <39b07210.10265948@news.newsguy.com>
Uri Guttman <uri@sysarch.com> wrote:
>$_="ABCDEFGFEDCBA\n";print;print while y/G/ /||s/.( +)\S/ $1 /g;
$_="ABCDEFGFEDCBA\n";print,s/G|(?<= ).|.(?= )/ /g while/\S/;
Four strokes shorter, and avoids printing the extra blank line.
--
Keith C. Ivey <kcivey@cpcug.org>
Washington, DC
------------------------------
Date: Wed, 30 Aug 2000 14:20:07 +1200
From: "Ivan Murray" <imurray@wel.co.nz>
Subject: png/gif format
Message-Id: <Ua_q5.1627$eZ8a.11075872@news.xtra.co.nz>
I'm playing with Multi Router Traffic Grapher (www.mrtg.org) and it seems
perl is producing PNG and GIF files incorrectly. It outputs an html file
with graphs. When you view the html in a browser, the graphs dont load and
the progress bar does not move. When you get the properties of the graph
placeholder within the browser, it reports the size as -1.
Any ideas?
Cheers
Ivan
------------------------------
Date: 30 Aug 2000 03:24:59 GMT
From: abigail@foad.org (Abigail)
Subject: Re: png/gif format
Message-Id: <slrn8qoviq.bbg.abigail@alexandra.foad.org>
Ivan Murray (imurray@wel.co.nz) wrote on MMDLVI September MCMXCIII in
<URL:news:Ua_q5.1627$eZ8a.11075872@news.xtra.co.nz>:
][ I'm playing with Multi Router Traffic Grapher (www.mrtg.org) and it seems
][ perl is producing PNG and GIF files incorrectly. It outputs an html file
][ with graphs. When you view the html in a browser, the graphs dont load and
][ the progress bar does not move. When you get the properties of the graph
][ placeholder within the browser, it reports the size as -1.
I guess there's a bug in line 17.
Abigail
--
$_ = "\nrekcaH lreP rehtona tsuJ"; my $chop; $chop = sub {print chop; $chop};
$chop -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
-> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
------------------------------
Date: Wed, 30 Aug 2000 09:26:42 +0800
From: Tk Soh <r28629@email.sps.mot.com>
Subject: Re: Question about variable use
Message-Id: <39AC62D2.E52FB207@email.sps.mot.com>
lishy1950@my-deja.com wrote:
>
> Hello
> I'm trying to set an array of a list of file names in a directory. What
> I have currently is something like this:
>
> @FILELIST=(`ls /dir/subdir/subdir/filename.txt.*`);
>
> It's not working. Should it be brackets instead of () ?
what do you mean by "not working". Anyway, for something quick, I would
just use <...> or glob:
@filelist = </mydir/*>;
@another_list = glob "/mydir/*";
------------------------------
Date: Wed, 30 Aug 2000 00:39:01 GMT
From: kcivey@cpcug.org (Keith Calvert Ivey)
Subject: Re: quickie obfuscation...
Message-Id: <39ad5583.2955645@news.newsguy.com>
jason <elephant@squirrelgroup.com> wrote:
>Craig Berry <cberry@cinenet.net> wrote ..
>>So Perl parses your example as:
>>
>> (print 1) and 0;
>>
>>It dutifully prints 1, which coincidentally also returns the value 1, then
>>ands this with 0, producing a false value, which is then tossed away
>>unused.
>
>the last paragraph is not true
What exactly isn't true in it?
>.. it would appear that the evaluation of
>the return value of the print statement is higher precedence than the
>'and'
Yes, the "print 1" is evaluated before the "and 0", just as
Craig said.
>and so the value of
>
> print 1 and 0
>
>is 1 .. and the 0 is thrown away .. deparses to either
I can't parse your sentence here. The return value of
print 1 and 0
is 0 as Craig said (and as you seem to be saying earlier and
below).
> (print(1)) and '???'
>
>or
>
> '???' if print 1
Exactly. How is that different from what Craig said? The
return value is 0. The only reason you're getting '???' is that
you're not doing anything with the return value. Try this:
C:\>perl -MO=Deparse -e"sub test {print 1 and 0}"
-e syntax OK
sub test {
0 if print 1;
}
--
Keith C. Ivey <kcivey@cpcug.org>
Washington, DC
------------------------------
Date: Wed, 30 Aug 2000 02:10:49 GMT
From: jason <elephant@squirrelgroup.com>
Subject: Re: quickie obfuscation...
Message-Id: <MPG.14170a9dc7be6819989729@localhost>
Keith Calvert Ivey <kcivey@cpcug.org> wrote ..
>jason <elephant@squirrelgroup.com> wrote:
>>Craig Berry <cberry@cinenet.net> wrote ..
>
>>>So Perl parses your example as:
>>>
>>> (print 1) and 0;
>>>
>>>It dutifully prints 1, which coincidentally also returns the value 1, then
>>>ands this with 0, producing a false value, which is then tossed away
>>>unused.
>>
>>the last paragraph is not true
>
>What exactly isn't true in it?
the sequence of parsing is not true
it does the print(1) and assigns the value of the statement based on
that (because assignment is a higher precedence than 'and') .. the 'and
0' is then done in a void context and does not affect the value of the
statement (which remains true)
perl -MO=Deparse -e "print 1 and 0"
produces
'???' if print 1;
>>.. it would appear that the evaluation of
>>the return value of the print statement is higher precedence than the
>>'and'
>
>Yes, the "print 1" is evaluated before the "and 0", just as
>Craig said.
>
>>and so the value of
>>
>> print 1 and 0
>>
>>is 1 .. and the 0 is thrown away .. deparses to either
>
>I can't parse your sentence here. The return value of
>
> print 1 and 0
>
>is 0 as Craig said (and as you seem to be saying earlier and
>below).
terminology is a virus .. the 'return value' and the 'value of the
statement' are two different things .. functions have return values ..
statements just have values .. the value of the statement
print 1 and 0
is true .. not false because the value of the statement is calculated
BEFORE the 'and 0' is done .. and then the 'and 0' is done in a void
context and does not affect the value of the statement .. use Deparse to
see for yourself
>> (print(1)) and '???'
>>
>>or
>>
>> '???' if print 1
>
>Exactly. How is that different from what Craig said? The
>return value is 0. The only reason you're getting '???' is that
>you're not doing anything with the return value. Try this:
>
> C:\>perl -MO=Deparse -e"sub test {print 1 and 0}"
> -e syntax OK
> sub test {
> 0 if print 1;
> }
that example is not the same as what's happening here .. that statement
provides a *return* value .. calculating the return value is a lower
precedence than 'and' and so is done after the 'and' .. the value of a
statement is an *assigned* value .. and assignment is higher precedence
than 'and' and so is done BEFORE the 'and' .. then the 'and 0' is done
in a void context and thrown away
this explains the difference in the following three deparses .. AND why
Craig's answer was incorrect .. and why your (and Abigail's) sub test {}
example is not relevant
perl -MO=Deparse -e "print 1 and 0"
'???' if print 1;
perl -MO=Deparse -e "$x = print 1 and 0"
'???' if $x = print(1);
perl -MO=Deparse -e"sub test {print 1 and 0}"
sub test {
0 if print 1;
}
hope that explains it completely
--
jason -- elephant@squirrelgroup.com --
------------------------------
Date: Wed, 30 Aug 2000 11:21:41 +1000
From: Dale Walker <dale@icr.com.au>
Subject: Re: reading a line from the serial port
Message-Id: <39AC61A5.42841084@icr.com.au>
David Efflandt wrote:
>
><snipped>
> >
> >The script I've been trying lately is based on the sample from Jamie
> >Zawinski in the faq.
> (snip)
> >Any suggestions????
>
> Have you checked out the Device::SerialPort module? I was able to talk to
> a modem with it (AT commands) in Linux. It is a Unix port of
> Win32::SerialPort.
>
hmm... I've just had a quick look at cpan
looks good, however I may only use this as a last resort, I think I want
to conquer these open() statements first, otherwise I'll go batty ---
wait --- I might already be there....
--
Dale Walker dale@icr.com.au
------------------------------
Date: Wed, 30 Aug 2000 02:50:08 GMT
From: "Scott" <shamilton@plateausystems.holdthespam.com>
Subject: Re: Reg Exp Problem - What is wrong with this??
Message-Id: <AD_q5.116301$eS6.1115470@news1.rdc1.md.home.com>
Eli the Bearded <elijah@workspot.net> wrote in message
news:eli$0008291601@qz.little-neck.ny.us...
> Oh, it still has plenty of problems finding arbitrary correct
> email addresses (and will match plenty of bad ones) but I coulbn't
> help not fixing that '.' in the localpart problem.
Thanks so much, Elijah, I really appreciate your help!
Incidentally, you mention:
> Ah. If that's what you are doing, be very careful about what HTML
> you let people submit. There are very devious ways of sticking
> malicious javascript into HTML.
What kind of bad things might someone do? Certainly nothing that could
trash the server or someone's machine other than locking up the browser,
right?
Thanks again,
Scott
------------------------------
Date: Wed, 30 Aug 2000 03:59:25 +0100
From: "Dietmar Staab" <dietmar.staab@t-online.de>
Subject: Re: Regexp help required
Message-Id: <8ohpu2$5m7$10$1@news.t-online.com>
In article <MPG.1415f687376e7f3998acfc@nntp.hpl.hp.com>, Larry Rosler
<lr@hpl.hp.com> wrote:
> In article <8ohj2f$nrd$18$1@news.t-online.com> on Wed, 30 Aug 2000
> 02:02:18 +0100, Dietmar Staab <dietmar.staab@t-online.de> says...
>> In article <8ohf97$g0u$1@nnrp1.deja.com>, marty_t@my-deja.com wrote:
>> > Thanks for this, but can anyone tell me how to write regular
>> > expressions please.
>>
>> perls documentation is your source
>>
>> perldoc perlre
>>
>> give's all you need to write regular expressions. ;-)
>
> I hope the smiley is because you realize how bad that advice is. It is
> truly sadistic to suggest that one learn about regular expressions from
> perlre, which is a reference manual, not a tutorial.
don't know if it's a bad advice to understand the syntax before writing
regular expressions ... but I'm not sadistic.
I've searched for some links - hope they will help
http://www.cclabs.missouri.edu/things/instruction/perl/perlcourse.html
http://virtual.park.uga.edu/humcomp/perl/regex2a.html
http://www.netcat.co.uk/rob/perl/win32perltut.html#77-BasicRegularExpressions
http://www.perl.com/reference/query.cgi?regexp
The completest source for regexps is the book mentioned by Larry. Other
books like "Programming Perl" offer a few pages about regular expressions,
but less detailed (I think reading the "Programming Perl" book isn't a bad
choice, even for learning the basics about regexps).
D.
------------------------------
Date: 30 Aug 2000 03:28:30 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Trouble Reading From Database File...
Message-Id: <slrn8qovpd.bbg.abigail@alexandra.foad.org>
Captain Ginyu (SeiferAlmasy-@webtv.net) wrote on MMDLVI September
MCMXCIII in <URL:news:13348-39AC57C4-64@storefull-107.iap.bryant.webtv.net>:
:) I've tried and tried...but it never works. I've even been told this
:) *should* work....
:)
:) It *only* checks the _first_ line or the file.
:)
:) open(TXT, "data.txt");
:) @TEXT = <TXT>;
:) close(TXT);
:) foreach $i(@TEXT){
:) ($username,$password) = split(/\|/,$i);
:) if($user_name eq $username){
:) &login;
:) } else {
:) &home;
:) }
:) }
:)
:) Any help/ideas?
Yeah, learn how to indent.
Abigail
--
sub f{sprintf$_[0],$_[1],$_[2]}print f('%c%s',74,f('%c%s',117,f('%c%s',115,f(
'%c%s',116,f('%c%s',32,f('%c%s',97,f('%c%s',0x6e,f('%c%s',111,f('%c%s',116,f(
'%c%s',104,f('%c%s',0x65,f('%c%s',114,f('%c%s',32,f('%c%s',80,f('%c%s',101,f(
'%c%s',114,f('%c%s',0x6c,f('%c%s',32,f('%c%s',0x48,f('%c%s',97,f('%c%s',99,f(
'%c%s',107,f('%c%s',101,f('%c%s',114,f('%c%s',10,)))))))))))))))))))))))))
------------------------------
Date: Wed, 30 Aug 2000 03:52:03 GMT
From: mgjv@verbruggen.comdyn.com.au (Martien Verbruggen)
Subject: Re: Trouble Reading From Database File...
Message-Id: <slrn8qotlq.ra.mgjv@verbruggen.comdyn.com.au>
On Tue, 29 Aug 2000 19:39:32 -0500 (CDT),
Captain Ginyu <SeiferAlmasy-@webtv.net> wrote:
> I've tried and tried...but it never works. I've even been told this
> *should* work....
>
> It *only* checks the _first_ line or the file.
My lightbulb works. Your code, slightly adapted to be standalone:
#!/usr/local/bin/perl -w
sub login { print "logging in\n" }
sub home { print "going home\n" }
$user_name = 'fee';
@TEXT = <DATA>;
foreach $i(@TEXT){
($username,$password) = split(/\|/,$i);
if($user_name eq $username){
&login;
} else {
&home;
}
}
__DATA__
foo|bar
baz|bazbanana
fee|fie
fo|fum
OUTPUT:
Name "main::password" used only once: possible typo at foo.pl line 11.
going home
going home
logging in
going home
All four lines were processed. Do you have more than one line in that
file that you're reading?
You should probably write it as
#!/usr/local/bin/perl -w
use strict;
sub login { print "logging in\n" }
sub home { print "going home\n" }
my $user_name = 'fee';
while (my $line = <DATA>)
{
my ($username,$password) = split(/\|/, $line);
if ($user_name eq $username)
{
login();
}
else
{
home();
}
}
__DATA__
foo|bar
baz|bazbanana
fee|fie
fo|fum
...unless you know the difference between &home and home() and you were
deliberately using it this way.
Martien
--
Martien Verbruggen |
Interactive Media Division | We are born naked, wet and hungry.
Commercial Dynamics Pty. Ltd. | Then things get worse.
NSW, Australia |
------------------------------
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 4172
**************************************
