[6636] in Perl-Users-Digest
Perl-Users Digest, Issue: 261 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Apr 9 19:17:16 1997
Date: Wed, 9 Apr 97 16:00:30 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 9 Apr 1997 Volume: 8 Number: 261
Today's topics:
Re: CGI output HTML <derekb@teleport.com>
"Dummies" book any good? (Robert Ducharme)
Re: "Rip the head of...." <seay@absyss.fr>
Admin task in perl <rachel@cbogate.peel.edu.on.ca>
Re: bdf <seay@absyss.fr>
Re: beginner in Perl (Andrew M. Langmead)
Re: Can It Be Done (Tad McClellan)
converting apps from Net::FTP > Win32::Internet - HELP! <chris@exmachina.com>
file uploads using a form?? correct file name? (Chris Thornton)
Re: Getting system function output into variable? <merlyn@stonehenge.com>
Re: Head of mail.... <seay@absyss.fr>
How Do You Handle Enumerations in Perl Extensions? <Kevin.Montagne@fmr.com>
HTML parsing (Ron Watkins)
interpolate (Bart Lateur)
Re: Kudos to Tom Christiansen and problems with OO (Chris Nandor)
Re: Kudos to Tom Christiansen and problems with OO (Nathan V. Patwardhan)
Re: Learning Perl <tchrist@mox.perl.com>
Re: list directory files in order of creation. (Tim Gim Yee)
Re: msql perl print columns (Brian Jepson)
Need info on Larry, Tom, Randy, etc. <kspence@pike.modes.tc.faa.gov>
Re: Need info on Larry, Tom, Randy, etc. <tchrist@mox.perl.com>
Re: Need to hack RCS files (Paddy Spencer)
Re: Need to hack RCS files (Randy J. Ray)
Re: No GUI environment for Perl? elarishy@aol.com
Re: No GUI environment for Perl? (Nathan V. Patwardhan)
Re: Pattern matching (Regexp) <tom@eiscat.uit.no>
Perl and FTP ???? <pelatimtt@poboxes.com>
Re: Perl and FTP ???? (Nathan V. Patwardhan)
Placing info at the top of a file <bhaney@elvis.turner.com>
Re: splitting and reading data in an elm mailbox <tchrist@mox.perl.com>
Re: Substitution Question <rfi@uebemc.siemens.de>
Re: timelocal strangeness and my obvious insanity... :) (John Stanley)
Re: Unix and ease of use (WAS: Who makes more ...) (Kaz Kylheku)
Re: Vendor Support for Perl5 on SGI <seay@absyss.fr>
Re: Working perl script... not running with HTTP get. (nick^)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 9 Apr 1997 14:19:09 -0700
From: Derek Boonstra <derekb@teleport.com>
To: paull@saa-cons.co.uk
Subject: Re: CGI output HTML
Message-Id: <Pine.GSO.3.96.970409141148.26963B-100000@kelly.teleport.com>
; "SAA" <paull@saa-cons.co.uk> wrote:
;I'm now trying to make it easier to maintain the HTML which is returned
;as
;it is currently in the Perl code i.e. print <<END_OF_HTML;
; <html goes here>
; END_OF_HTML;
;so I took the HTML and placed it in another file which the scripts reads
;in
;using
;OPEN(IN, filename) and outputs it as before, unfortunately the variable
;values marked by $var_name in the HTML no longer get replaced with the
;Perl
;values but just get shown as '$var_name'.
though there are easier ways about the ends as is most probably
true for a more efficient way to evaluate, try...
while (<IN>) {
s/"/\\"/g, eval qq(\$_ = "$_"), print;
}
__ __ __
___/ /__ _______ / /__ / /
/ _ / =_) __/ =_) '_// _ \
\_._/\__/_/ \__/_/\_\/_.__/@teleport.com
------------------------------
Date: 09 Apr 1997 14:33:50 -0400
From: duchar96@sparky.cs.nyu.edu (Robert Ducharme)
Subject: "Dummies" book any good?
Message-Id: <sywybasf3ld.fsf@sparky.cs.nyu.edu>
Has anyone had a chance to take a look at the recently released "Perl
for Dummies" book? Is it any good? I'm looking for something to
recommend to non-programmer complete beginners.
thanks,
Bob DuCharme
bobducharme@acm.org
------------------------------
Date: Wed, 09 Apr 1997 16:08:51 +0100
From: Douglas Seay <seay@absyss.fr>
To: Magnus Holmberg <pucko@lysator.liu.se>
Subject: Re: "Rip the head of...."
Message-Id: <334BB103.7272@absyss.fr>
Magnus Holmberg wrote:
>
> HI!
>
> Can someone tell me how to "rip the head" of a mail-file?
> I have the mail-file stored by the elm-filter and it has som
> real uggly rows at the beginnig that I like to remove.
Mail::Internet::body() returns the body (ie - no header).
------------------------------
Date: Wed, 09 Apr 1997 13:18:04 -0400
From: rachel <rachel@cbogate.peel.edu.on.ca>
Subject: Admin task in perl
Message-Id: <334BCF4C.606B32D1@cbogate.peel.edu.on.ca>
I am trying to create adduser, delete user, and change password programs
on internet using html, cgi and perl.
My problem is tainted data. How do I untaited data from web sever???
For example
$request_method = $ENV{'REQUEST_METHOD'};
if ($request_method eq "GET") {
$query_string = $ENV{'QUERY_STRING'};
} elsif ($request_method eq "POST") {
read (STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
}
else { $request_method = $ENV{'REQUEST_METHOD'};
As you can see the data from web server is tainted so how do I make it
not tainted.
Side Note: The reason why I need the varibles not to be tainted is
because in perl -T when you are using system
commands to mkdir and etc perl won't do it unless
the variables are not tainted.
Please help me I can figure out the answer
My trival try at it
$request_method = $ENV{'REQUEST_METHOD'};
if ($request_method eq "GET") {
$ENV{'QUERY_STRING'}=~ /^([^&]+)/;
$ENV{'QUERY_STRING'}=~ /^([^=]+)/;
$query_string = $ENV{'QUERY_STRING'};
} elsif ($request_method eq "POST") {
read (STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
$query_string=~ /^([^&]+)/;
$query_string=~ /^([^=]+)/;
} else {
&return_error (500, "Server Error",
$request_method = $ENV{'REQUEST_METHOD'};
IT's not working :(
HELP.... HELP....
cheers
rach
------------------------------
Date: Wed, 09 Apr 1997 18:48:13 +0100
From: Douglas Seay <seay@absyss.fr>
To: SHILUV Naama Westreich 5810 <naama@cpm.elex.co.il>
Subject: Re: bdf
Message-Id: <334BD65D.125A@absyss.fr>
SHILUV Naama Westreich 5810 wrote:
>
> hi!
> Is there a command in perl, similar to "bdf" in unix, so i can find
> disk capacity?
>
> naama
I think that would be
sub bdf
{
my $filesystems = join(' ', @_);
open(BDF, "bdf $filesystems |");
my @bdf = <BDF>;
close(BDF);
chomp(@bdf);
@bdf;
}
# homework assignment: add error handling
But building something around bdf isn't a good idea. Isn't it HP-UX
only? In Solaris try /usr/ucb/df. Dunno what it would be for the other
Unicies.
And a quick glance at the module list at CPAN (you did look at CPAN,
didn't you?) shows the following modules that might be useful.
10) File Names, File Systems and File Locking (see also File Handles)
Name DSLI Description Info
----------- ---- -------------------------------------------- -----
Filesys::
::Df ad?? Free disk space utilities
FTASSIN
::dfent adpf By-name interface TOMC
::mntent adpf By-name interface TOMC
::statfs adpf By-name interface TOMC
They may do more of what you want. I've never used them, so I can't say
how useful they are. Good luck.
- doug
------------------------------
Date: Wed, 9 Apr 1997 13:40:40 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: beginner in Perl
Message-Id: <E8DHzs.AHG@world.std.com>
[a copy of this article was emailed to the author of the referenced article.]
In comp.lang.perl.misc "Serginho" <serginho@usa.net> wrote:
> I'm a Perl Beginner and I'd like some help... :)) Well...Is it the same
>thing Perl and CGI ? Or CGI it's a perl program compiled ? In a Web Server
>(Novell Intranetware I'll use), a perl program is auto-executable if it's
>in cgi-bin directory ? And I need to compile the program or Perl run like
>html (interpret) ?
Perl is a general purpose programming language. CGI is a data protocol
(or series of actions and rules) for an HTTP server and a program to
comunicate with.
You can use perl to create programs that speak the CGI protocol. You
can also use perl to make web servers and browsers. You can even make
perl programs that turn your lights on and off and start your coffee
maker in the morning (with the proper I/O connections between your
lights, your coffee maker, and your computer.)
Almost any programming language can be used to create programs that
use the CGI protocol. Perl, C, Lisp, BASIC, FORTRAN, or anything
else. But different programming languages have their own strengths and
weaknesses, and Perl's strengths in string and text handling make it a
very good choice for a lot of WWW development projects.
For details about learning the perl programming language, you might
want to order a book like "Learning Perl". According to
<http://www.perl.com/CPAN/doc/FAQs/> the ordering information for the
book is as follows.
Learning Perl (the Llama Book):
Author: Randal Schwartz, with intro by Larry Wall
ISBN 1-56592-042-2 (English)
ISBN 4-89502-678-1 (Japanese)
ISBN 2-84177-005-2 (French)
ISBN 3-930673-08-8 (German)
You might want to take a look at the FAQ document that I mentioned
above. Maybe even poke around the rest of <http://www.perl.com/perl/>
For details on how to create programs that speak the CGI protocol, you
are better off looking in newsgroups and web sites that deal with HTTP
servers. For a newsgroup, check comp.infosystems.www.authoring.cgi.
--
Andrew Langmead
------------------------------
Date: Wed, 9 Apr 1997 05:40:20 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Can It Be Done
Message-Id: <kmrfi5.ho.ln@localhost>
jhardy@cins.com wrote:
: In article <5a3ci5.rq.ln@localhost>,
: tadmc@flash.net (Tad McClellan) wrote:
: > jhardy@cins.com wrote:
: >
: > : Come on guy's, give me a break! I know one of you Guru's know how to do this
: > : and I just can't figure it out.
: >
: > This is very simple thing. The exalted status of guru is most
: > certainly not required.
: Hmmm....
: >
: > As I am only a lowly Intermediate type perl programmer, I hope you
: > don't intend to exclude me from answering your question...
: >
: > If you _did_ intend to exclude me, it didn't work ;-)
: >
: > : I have a flat file database whcih looks like this;
: >
: > : Item Description Price
: >
: > : Monitor MegaImage $375.00
: > : Monitor Toshiba $800.00
: > : CPU 486 $100.00
: > : CPU 486 OD 100 MHZ $235.00
: > : Motherboards MB $25.00
: > : Motherboards MN2 $100.00
: >
: > : So far I can get the script to read the file and print out the database in a
: table.
: > : Being a newbie to Perl I finally figured that out. Now instead of printing
: it to a
: > : table I want to read it in like below
: >
: > : #!/usr/bin/perl
: >
: > Hey! You are a newbie to perl and you don't want perl to help
: > you debug your scripts?
: >
: > perl will help you if you ask it to:
: >
: > #!/usr/bin/perl -w
: > # ^^ ALWAYS enable compiler warnings...
: >
: I do use -w (normally ?)
Thank you. I see several questions each week on c.l.p.m that -w
would have helped with.
So I mention it _every_ time I see it left off...
Sorry.
[ snip my first code attempt ]
: I already figured this out but it will not work. What I need is to be
: able to simply go to my DB admin script and enter new items i.e. "Memory"
: The script will then search the database and find that I have entered a
: NEW ITEM called Memory read it into the variable with the rest of the
: items in the database and send it out to the form so the user can select
: it.
Oh, I see.
: If I use this in the script
: @cpu = grep /^CPU/, @database;
: > @monitor = grep /^Monitor/, @database;
: > @motherboard = grep /^Motherboards/, @database;
: then everytime I add a new item to the database I will have to also enter
: it in the script.
Yeah, that would be a pain.
: @memory = grep /^CPU, @database;
: In other words as soon as the script is called it will be its job to
: search the database find all the ITEMS in the first columb of the
: database (Items) sort them in proper ordered groups and send them to the
: form in order of Monitors Motherboards, CPU , Memory or whatever
: (including the description & price for each). If I could figure out how
: to get the script to do this I know how to send it to the form in a
: select box and I also know how to send it back to the script and parse
: and calculate the information to be sent back to the browser. But I can't
: figure out the most important part.
: Not so easy any more is it?
Not _as_ easy, but still pretty easy ;-)
-----------------------------
#! /usr/bin/perl -w
while (<DATA>) { # get each column into its own array
($item, $describ, $price) = unpack "A16A24A*", $_;
push(@items, $item);
push(@describ, $describ);
push(@price, $price);
$itemkinds{$item}++; # unique list of items
}
foreach $kind (sort keys %itemkinds) {
print "-----\n$kind:\n-----\n";
for ($i=0; $i<@items; $i++) { # walk through item list
printf("%-16s%-24s%s\n", # print if this 'kind' of item
$items[$i],
$describ[$i],
$price[$i]) if $items[$i] eq $kind;
}
print "\n\n";
}
__DATA__
Monitor MegaImage $375.00
Monitor Toshiba $800.00
CPU 486 $100.00
CPU 486 OD 100 MHZ $235.00
Motherboards MB $25.00
Motherboards MN2 $100.00
-----------------------------
If you have a _very_ large catalog, then that walking through the
entire array for each unique item kind will be slow...
: by the way, you sound like my wife when I forget to do something
: nag nag nag nag nag :)
Sorry dear. ;-)
Now:
Take out the garbage!
Mow the lawn!
Gimme your paycheck!
--
Tad McClellan SGML Consulting
Tag And Document Consulting Perl programming
tadmc@flash.net
------------------------------
Date: Wed, 09 Apr 1997 16:35:57 -0400
From: Chris Luttrell <chris@exmachina.com>
Subject: converting apps from Net::FTP > Win32::Internet - HELP!
Message-Id: <334BFDAD.6425@exmachina.com>
I converted this:
#!/usr/bin/perl
use Net::FTP;
sub Ftp {
my ($host,$name,$passwd,$rfile,$lfile) = @ARGV;
$ftp = Net::FTP-> new("$host");
$ftp->login("$name","$passwd");
$ftp->get("$rfile","$lfile");
$ftp->binary();
$ftp->quit;
print
$host,"\n",$name,"\n",$passwd,"\n",$rfile,"\n",$lfile,"\n";
return;
}
&Ftp();
exit 0;
to this for NT:
use Win32::Internet;
my ($host,$name,$passwd,$rfile,$lfile) = @ARGV;
$ftp = Win32::Internet->new("$host");
$ftp->Username("$name");
$ftp->Password("$passwd");
$ftp->Binary();
$ftp->Get("$rfile","$lfile");
print $host,"\n",$name,"\n",$passwd,"\n",$rfile,"\n",$lfile,"\n";
exit 0;
The first one works like a charm.. the second one appears to only be
passing the first $host arg and nothing else although it returns the
values of my args in the final print statement. The script runs with no
PERL errors, but returns no file when its done... I am a UNIX programmer
by nature and this is my first crack at porting something over to win32,
so any help would be greatly appreciated.
chris@exmachina.com
--
".. I gotta tombstone head and a graveyard mind .."
- Bo Diddley
_______________________________________________________
chris luttrell + systems engineer + airmedia + 11
e26th st + 16th fl, nyc, 10010 + 212.843.0000 x260
pager: 800.SKY.TEL2 pin#1911614 pagechris@exmachina.com
email: chris@exmachina.com
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
------------------------------
Date: Wed, 09 Apr 1997 12:02:42 GMT
From: almar@huron.net (Chris Thornton)
Subject: file uploads using a form?? correct file name?
Message-Id: <334c8546.137820083@nntp.uunet.ca>
Hi all, I need a biit of help here. I've been trying to upload a file
from a form, and I can't get it to save the file on the server with
the correct file name.
I'm using cgi-lib.pl and the script available on cgi-lib's web page to
do it. All I did was change the upload dir. I don't think the script
was set up to do correct file names, and I'm not too good with perl,
so I can't tell what to do.
the html I'm using also came from the cgi-lib web page, and can be
viewed there at: http://www.bio.cam.ac.uk/cgi-lib/ex/fup.html.txt
the script is also there and can be seen at:
http://www.bio.cam.ac.uk/cgi-lib/ex/fup.cgi.txt
there is also a copy of cgi-lib at http://www.bio.cam.ac.uk/cgi-lib/
somewhere.
If anyone can help, I'd appreciate it.
Please Email me the response as I may not notice it in the newsgroup.
Thanks,
Chris Thornton
almar@huron.net
------------------------------
Date: 09 Apr 1997 05:01:48 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: anthony@outshine.com (Anthony Boyd)
Subject: Re: Getting system function output into variable?
Message-Id: <8cohbowgk3.fsf@gadget.cscaper.com>
>>>>> "Anthony" == Anthony Boyd <anthony@outshine.com> writes:
Anthony> Yep, brilliant. Succinct. Solved my problem and headed off
Anthony> a follow-up question ("so, what's the difference between
Anthony> backticks and system?"). I hope Larry gets something similar
Anthony> into the 3rd edition of Programming Perl. The 2nd edition's
Anthony> page on system() isn't very intuitive compared to your
Anthony> paragraph.
That's because we deliberately didn't make the camel a teaching book,
or it would have been twice as fat as it is. You needed the llama for
that, and I went into great detail there about the differences between
system(), `backquotes`, open(PROC,"cmd|"), and so-on. Maybe you could
beg, borrow, steal, or even (gasp!) buy a copy of the llama to get
some more detailed information.
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,495.69 collected, $182,159.85 spent; just 510 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@ora.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Wed, 09 Apr 1997 16:20:56 +0100
From: Douglas Seay <seay@absyss.fr>
To: Magnus Holmberg <pucko@lysator.liu.se>
Subject: Re: Head of mail....
Message-Id: <334BB3D7.5E59@absyss.fr>
Magnus Holmberg wrote:
>
> I like so sort the Subject, From,Date, .... Field of a mail-file and
> store those in to variabels $dubject, $from, .....
>
> This work, but I have a feelin that this is not so clever.
> Can someone tell me how to do this i a better way???
>
> ======================
> open(IS, $file);
> @EMAIL=<IS>;
> close(IS);
> foreach $line (@EMAIL)
> {
> ($name, $value) = split(/:/, $line);
> $LIST{$name}=$value;
> }
> subject=$LIST{'Subject'};
> chomp($subject);
> $from=$LIST{'From'};
> chomp($from);
> $to=$LIST{'To'};
> chomp($to);
> $date=$LIST{'Date'};
> chomp($date);
I think that Mail::Internet.pm will do this for you. But I don't see
anything wrong with what you're doing other than:
do the chomp() of $value at the top instead of each variable
make the assignment look like check for non-existance
$to = $LIST{'To'} || '';
look for the blank line after the header lines before the body
last unless ( $line );
- doug
------------------------------
Date: Fri, 04 Apr 1997 10:19:48 -0600
From: Kevin Montagne <Kevin.Montagne@fmr.com>
Subject: How Do You Handle Enumerations in Perl Extensions?
Message-Id: <33452A24.51A0@fmr.com>
I am trying to build my first extension in Perl. It is to an existing
library of C functions. Some of the functions use enumerations (both as
input and return values). What is a good way to handle enumerations with
xsubpp.
I searched the faq, docs and news archives but I did not get any hits.
(I have the new Camel on order so I have not been able to check it.)
--
Kevin Montagne
Kevin.Montagne@fmr.com
------------------------------
Date: 9 Apr 1997 21:10:51 GMT
From: ron@argus.lpl.Arizona.EDU (Ron Watkins)
Subject: HTML parsing
Message-Id: <5ih0kr$fr4$1@news.ccit.arizona.edu>
Keywords: HTML
I need to find a way to parse out multiple META tags from an HTML document.
The meta tag information is stored as follows:
<Meta Name="aaa" Content="bbb">
and I need to generate an associative array of name=content pairs.
So far, I have been able to read in the HTML document into a perl variable,
$html, with the newline characters stripped out.
Can anyone give me some hints on how I might parse these name=content pairs
out of the HTML content?
I have tried the following but it's not doing what I need. I just don't know
how to proceed? What am I looking for?
($name,$content) = ($html =~ s/.*<Meta\s+Name="(\w+)"\s+Content="(\w*)">.*/$1 $2/g);
------------------------------
Date: Wed, 09 Apr 1997 14:14:09 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: interpolate
Message-Id: <334b9d96.12705745@news.tornado.be>
It would be nice if Perl had a built-in function to interpolate
variables in strings, on user demand, so that
$orig = 'The file has $num lines.';
$string = interpolate($orig);
would have the same effect as
$string = "The file has $num lines.";
This function would be really useful when the strings, with variable
names, are read from a text file, in an array, or otherwise
user-supplied, and not hard-coded into the script.
You can get the same effect by using eval, like in
$string = eval('"'.$orig.'"');
but some quick tests have shown me that (on my system) this runs over 60
times slower, than by doing just
$string = "The file has $num lines.";
That means that a script that requires one second to run, suddenly would
take over a minute, if made more general!
Of course this overhead originates from the fact that eval doesn't have
a clue about what kind of code it has to execute before it starts
compiling. So, yes, I believe that a more resticted function would be
really nice.
In the meantime, does anybody have any better suggestions on how to
tackle this?
One particular problem is to replace a substring in some text, where the
search patterns are in a text file, and the replacements too.
This works:
s/$pattern/$replacement/;
but only if the replacement string doesn't contain any variables (like
$1).
Gent (Ghent, Gand),
Belgium,
Europe,
3rd planet from the sun.
------------------------------
Date: Wed, 09 Apr 1997 09:40:23 -0400
From: pudge@pobox.com (Chris Nandor)
Subject: Re: Kudos to Tom Christiansen and problems with OO
Message-Id: <pudge-ya02408000R0904970940230001@nntp.noc.netcom.com>
In article <334B6FA3.59F1@sysdeco.no>, Luca Passani <lpa@sysdeco.no> wrote:
# a couple of days ago, I posted a question about a problem I was having
#with Perl 5 Object Oriented features (which I'm trying to learn).
# Tom was the only one who cared to answer, even though many here could
#have taken a moment to take a look at my original question and given the
#answer. That is why I would like to thank him publicly.
#This problem, even though simple for gurus, can result deadly for
#newbie. Didn't such a question deserve an answer on the newsgroup?
I apologize on behalf of everyone here (except Tom) for not GIVING OUR FREE
TIME TO YOU.
While I understand your frustration, it sounds as though you feel it is the
obligation of people here to help you. That is a bit presumptuous.
But furthermore, Tom is generally considered to be one of the top three
experts of Perl. If he answers you, why should any of us bother?
Glad you got the help you needed,
#================================================================
Ambition is like a frog sitting on a Venus Flytrap. The flytrap
can bite and bite, but it won't bother the frog because it only
has little tiny plant teeth. But some other stuff could happen
and it could be like ambition.
--Jack Handey
Chris Nandor pudge@pobox.com
PGP Key 1024/B76E72AD http://pudge.net/
Keyfingerprint = 08 24 09 0B CE 73 CA 10 1F F7 7F 13 81 80 B6 B6
------------------------------
Date: 9 Apr 1997 14:32:40 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Kudos to Tom Christiansen and problems with OO
Message-Id: <5ig9a8$n9r@fridge-nf0.shore.net>
Luca Passani (lpa@sysdeco.no) wrote:
: Tom was the only one who cared to answer, even though many here could
: have taken a moment to take a look at my original question and given the
: answer. That is why I would like to thank him publicly.
Just be glad that *someone* took the time; you must account for the
number of "helping bodies" versus the number of postings per day. With
my current killfiling, I see about 200 postings on this newsgroup per
day. Without the killfile, I suspect there would be twice as many. I
*do* read all of the postings (which are not killfiled), but after
reading all of them, I re-read the newsgroup to see how many of these
questions have been answered (and answered reasonably for that matter).
If I find that question x about x topic has been answered sufficiently, why
add another answer which is exactly like the other responses? It causes
clutter, and it's slightly wasteful. If I find a question which remains
unanswered, I'll try to respond to it. If I don't know the answer to a
question, I might look it up to find an answer, but in doing so, this takes
time, and it's likely that the question will be answered soon before I find
an answer (Murphy's Law).
In other words, it's not that people didn't want to help you, but once
they realized you were already being assisted, they may have had consid-
erations like the above. Also, please don't assume that by posting here
you (or anyone) is guaranteed an answer; you're not the only person
posting to this newsgroup. It's free help, after all; please keep the
situation in perspective. :-)
--
Nathan V. Patwardhan
nvp@shore.net
------------------------------
Date: 9 Apr 1997 22:04:29 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Learning Perl
Message-Id: <5ih3pd$1v0$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Randal Schwartz <merlyn@stonehenge.com> writes:
:just read from the beginning
:until you're tired of reading. Repeat as necessary.
Day 1: read chapters 1 and 2; get tired.
Day 2: read chapters 1 and 2; get tired.
Day 3: read chapters 1 and 2; get tired.
Day 4: read chapters 1 and 2; get tired.
This reminds me of how people try to learn to play a new piano
piece: they never get to the end. :-)
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
Ken is very smart but also very opinionated. --Doug Gwyn
------------------------------
Date: Wed, 09 Apr 1997 22:11:31 GMT
From: tgy@chocobo.org (Tim Gim Yee)
Subject: Re: list directory files in order of creation.
Message-Id: <334c1130.7922481@news.seanet.com>
On 9 Apr 1997 18:07:19 GMT, whawkes@lynx.dac.neu.edu (walter hawkes)
wrote:
>I'm writing a program that reads the files in a directory and prints
>them out in the order they were last modified.
>
>I'm having a problem with getting them in the order they were created.
>So that the newest files will be printed first.
>
>This is about as far as I have gotten:
>#!/usr/bin/perl
>
>opendir(DIR,"path name") ||
> die "Sorry couldn't open directory\n";
>while ($file = readdir(DIR)){
> print "$file\n";
>}
opendir DIR, '.' or die "Couldn't open current dir: $!";
@files = sort {-M $a <=> -M $b} readdir DIR;
The directory is read in an array context, then sorted based on the
file's age, -M. HTH.
-- Tim Gim Yee tgy@chocobo.org
http://www.dragonfire.net/~tgy/moogle.html
"Will hack perl for a moogle stuffy, kupo!"
------------------------------
Date: 9 Apr 1997 13:25:08 GMT
From: bjepson@bjepson.ids.net (Brian Jepson)
Subject: Re: msql perl print columns
Message-Id: <slrn5kmntu.8s.bjepson@bjepson.ids.net>
In article <01bc447e$cfdbfc40$58056c81@rogue>, Systems Group wrote:
>I am using the msql perl interphase version 1.03
>
>I want to be able to retrieve all data from a column and print it out......
>however I have no idea how to implement this.....
>I understand FetchRow will allow me to retrieve a record...but how do I
>retrieve a
>column?????????Help Please as soon as possible...!!
Please correct me if I am misunderstanding your question; it sounds like
you are trying to retrieve an entire column from a result set as though
it were a row. Unfortunately, SQL is really quite row-oriented, so you
will need to process each row in order to get every column in the
result set. You could do something like this, but it still won't let
you grab the entire column in one operation:
use Msql;
$dbh = Msql->connect('localhost');
$dbh->selectdb("mydb");
if ($dbh) {
# issue a query
$sth = $dbh->query("select first_name, last_name from lecturer");
# fetch each row into a hash
while (%row = $sth->fetchhash) {
# just get the last name
print "$row{last_name}\n";
}
}
Hope this helps,
--
Brian Jepson * (bjepson@ids.net) * http://www.ids.net/~bjepson
Int(ra|er)net Database Developer, Author, Crypto-Fluxologist
Non-Prophet Arts Technology Flux: http://www.ids.net/~as220
WWW/Database/NT,Java/Database: http://www.ids.net/~bjepson/books
------------------------------
Date: Wed, 09 Apr 1997 08:29:57 -0400
From: Kimberly Spence <kspence@pike.modes.tc.faa.gov>
Subject: Need info on Larry, Tom, Randy, etc.
Message-Id: <334B8BC5.6433@pike.modes.tc.faa.gov>
Help -- I am writing a paper about the
maintainers/creator of PERL. The material
is going to be interesting/historical, not all technical.
Can anyone tell me where Larry and the gang work?
How they began working together on PERL?
What type of education they had?
Maybe people can even send testamonials about
what PERL has meant to them .
Thanks!
Kim Spence
--
***********************************************************************
Spend your life for something that outlasts it.
***********************************************************************
This is my personal opinion and not that of my employer !!!
------------------------------
Date: 9 Apr 1997 14:22:08 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Need info on Larry, Tom, Randy, etc.
Message-Id: <5ig8mg$8ei$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Kimberly Spence <kspence@pike.modes.tc.faa.gov> writes:
:Help -- I am writing a paper about the
:maintainers/creator of PERL. The material
:is going to be interesting/historical, not all technical.
:
:Can anyone tell me where Larry and the gang work?
:How they began working together on PERL?
:What type of education they had?
The maintainers of Perl are the Perl Porters, most of whom are listed
at the bottom of page xx and the top of page xxi, with Larry acting as
both Grey Emminence and Arbiter of Good Taste, giving insights into
technical workings, exercising his veto power over bad directions,
and occasionally providing patches of his own. The Perl Porters are
essential to Perl's continued maintenance and developement. Do not
understate their contributions. Perl has grown bigger than just Larry.
The bios at the back of the Camel, just past the index, will tell you
a fair bit about us, including our respective educational backgrounds.
Let me add some things that aren't there.
Randal (*not* Randy, and with only one ell) I know only peripherally
through his newsgroup postings and his work on the Perl books. I'm not
sure whether he, Larry, and I have anything particular in common beyond
being reared on BASIC-PLUS on RSTS/E and having a penchant for painful
puns and wearisome wordplay.
Larry, on the other hand, is a different story. I first "met" Larry many
years ago, way before Perl was born, through simple correspondence about
his rn program back when I was still in school (mid 80s). When Perl
was released, I grabbed it not only because the idea was interesting,
but also because I appreciated Larry's prior work. Since that time,
I grew to become close friends with Larry and his family, really more
for personal reasons than merely hacking ones. In fact, when we get
together, we spend little time chatting about computers. Larry and I
grew up in similar churches, and share a common background grounded in
letters and in music: both our houses seem to have enough books to start
a small-town library. Making music (often classical) is essential to our
well-being: Larry's a violinist; I dabble at piano; both of us are tenors.
My own contributions to Perl have often been more of an advocacy
and motivational role than direct code manipulation of the core.
I may be Perl's biggest booster; for this reason, Larry has likened
my proselytization to St. Paul's missionary work to the Gentiles.
When Perl's version 5 rewrite was being designed, I early on pushed
for constructs to facilitate larger and more robust programs, better
data structures, and easy OO usage. I'm contributed several of Perl's
programming and documentation tools, a few of the libraries, and have
probably written more of Perl's documentation than anyone else, possibly
but not necessarily excepting Larry himself. I continually call for
clear, intuitive, and obvious coding practices while at the same time
decrying opaque cleverness for its own sake.
I'll let others provide testimonials.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
/* And you'll never guess what the dog had */
/* in its mouth... */
--Larry Wall in stab.c from the v4.0 perl source code
------------------------------
Date: Wed, 09 Apr 1997 12:33:06 GMT
From: paddy.spencer@parallax.co.uk (Paddy Spencer)
Subject: Re: Need to hack RCS files
Message-Id: <860589133.67255@red.parallax.co.uk>
clines@airmail.net (Kevin Cline) kirjoittanut::
: Does anyone have any code to parse RCS files?
Erm, I've got the RCS binaries[1]; they generally do a pretty good
job.
If they're not enough I've got a text editor.
What _specifically_ do you want?
-----------------
[1] Is use of the "b" word frowned upon round here?
--
Paddy Spencer Parallax Solutions Ltd (http://www.parallax.co.uk/)
A [pseudo]random number generator is much like sex: when it's good it's
wonderful, and when it's bad it's still pretty good. -- G. Marsaglia
------------------------------
Date: 09 Apr 1997 15:11:29 -0600
From: rjray@tremere.ecte.uswc.uswest.com (Randy J. Ray)
Subject: Re: Need to hack RCS files
Message-Id: <uowd8s3oq9q.fsf@tremere.ecte.uswc.uswest.com>
paddy.spencer@parallax.co.uk (Paddy Spencer) writes:
> clines@airmail.net (Kevin Cline) kirjoittanut::
>
> : Does anyone have any code to parse RCS files?
>
> Erm, I've got the RCS binaries[1]; they generally do a pretty good
> job.
>
> If they're not enough I've got a text editor.
I don't know exactly what is desired, but if I ever get enough round tuits, I
am still designing on my RCS module, and may yet get to code the damnable
thing.
Randy
--
===============================================================================
Randy J. Ray -- U S WEST Technologies IAD/CSS/DPDS Phone: (303)595-2869
Denver, CO rjray@uswest.com
"It's not denial. I'm just very selective about the reality I accept." --Calvin
===============================================================================
------------------------------
Date: Wed, 09 Apr 1997 07:33:13 -0600
From: elarishy@aol.com
Subject: Re: No GUI environment for Perl?
Message-Id: <860578984.9616@dejanews.com>
In article <334c0caa.2460566@news.ntr.net>,
mark@ntr.net (Mark Mills) wrote:
>
> On 8 Apr 1997 18:59:04 GMT, scott@lighthouse.softbase.com () wrote:
>
> >Luca Passani (lpa@sysdeco.no) wrote:
> >: If Perl was delivered with a nice GUI interface (both on Unix and PCs),
> >: it would gain much more appeal to the novices which are scared by a
> >: learning curve they will have to climb anyway.
> Unless there was *NO* way to turn off -w, :>
>
> Then it would help a little.
>
Hi Mark,
Here what I am doing NOW, running under win95 .. I go to dos then edit
then perl then reedit then perl then reedit .. get the picture ... can
you help in making it easy for me to test and debug so I can enjoy perl
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: 9 Apr 1997 13:27:34 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: No GUI environment for Perl?
Message-Id: <5ig5g6$k22@fridge-nf0.shore.net>
elarishy@aol.com wrote:
: Here what I am doing NOW, running under win95 .. I go to dos then edit
: then perl then reedit then perl then reedit .. get the picture ... can
: you help in making it easy for me to test and debug so I can enjoy perl
What's wrong with keeping one MS-DOS window open with your editor buffer,
and another for your command-line, from which you will run your Perl
programs? :-)
There's no reason to deny yourself the enjoyment of Perl because there
isn't a pretty interface...
--
Nathan V. Patwardhan
nvp@shore.net
------------------------------
Date: 09 Apr 1997 15:19:45 +0200
From: Tom Grydeland <tom@eiscat.uit.no>
Subject: Re: Pattern matching (Regexp)
Message-Id: <trlo6s1gge.fsf@eiscat.uit.no>
[posted and Cc:ed]
"$Bill Luebkert" <dbe@wgn.net> writes:
> foreach (@_) {
> if ( ! /[0-9][0-9]\/[0-9][0-9]\/[0-9][0-9]/ ) { die "blah...";}
> }
Come on! Try
m,\d{2}/\d{2}/\d{2}, # The commas are the delimiters.
two digits, a slash, two digits, a slash and two digits.
> ,-/- __ _ _ $Bill Luebkert
--
//Tom dot Grydeland at phys dot uit dot no
The case of Randal Schwartz - http://www.lightlink.com/fors/
------------------------------
Date: 9 Apr 1997 21:36:32 GMT
From: "Matteo Pelati" <pelatimtt@poboxes.com>
Subject: Perl and FTP ????
Message-Id: <01bc2da3$41dc3140$314078c3@pelati>
I'd like to know if it possible to use perl commands ( for instance
readdir, open ) when I'm connected to an ftp site and see the ftp archive
as a local hard drive. If it's possible how can I tell perl to do that?
Thanks
Regards
Matteo Pelati
please reply to : pelatimtt@poboxes.com
------------------------------
Date: 9 Apr 1997 22:04:15 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Perl and FTP ????
Message-Id: <5ih3ov$nbk@fridge-nf0.shore.net>
Matteo Pelati (pelatimtt@poboxes.com) wrote:
: I'd like to know if it possible to use perl commands ( for instance
: readdir, open ) when I'm connected to an ftp site and see the ftp archive
: as a local hard drive. If it's possible how can I tell perl to do that?
If I understand you correctly, you're trying to run an FTP session
through a Perl script? If so, use Net::FTP, which has implemented
a number of commands you might use during an FTP session.
--
Nathan V. Patwardhan
nvp@shore.net
------------------------------
Date: Wed, 09 Apr 1997 15:14:45 -0400
From: Brian Haney <bhaney@elvis.turner.com>
Subject: Placing info at the top of a file
Message-Id: <334BEAA5.33FC@elvis.turner.com>
In PERL 5.00x I need to add text on top of the previous line of text in
a text file. Does anyone have a suggestion?
Thanks
Brian
------------------------------
Date: 9 Apr 1997 13:26:17 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: splitting and reading data in an elm mailbox
Message-Id: <5ig5dp$5e2$1@csnews.cs.colorado.edu>
Keywords: perl, email, array, mailbox, sort, split
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
r.polanskis@nepean.uws.edu.au,grove@zeta.org.au writes:
:I am trying to write a program to scan an elm mailbox
:and then print out stats based on the data contained in the "From " envelope
:header, the Subject: and the body of the message.
That's not too hard. Here's an example of the technique I use:
$/ = '';
$msg = '';
@msgs = ();
while (<>) {
if ( /^From / )
push @msgs, $msg;
$msg = '';
}
$msg .= $_;
}
push @msgs, $msg;
Now you have an array of msgs. If you wanted to do a sort-by-subject,
this is a simple approach. We'll keep a hash %msg this time instead.
$/ = '';
while (<>) {
if ( /^From / ) {
($id) = /^Message-ID:\s*(.*)/mi;
$sub{$id} = /^Subject:\s*(Re:\s*)*(.*)/mi
? uc($2)
: $id;
}
$msg{$id} .= $_;
}
print @msg{ sort { $sub{$a} cmp $sub{$b} } keys %msg};
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
I'm TRYING to be a back end! - --Andrew Hume
------------------------------
Date: 09 Apr 1997 15:33:16 +0200
From: Ronald Fischer <rfi@uebemc.siemens.de>
Subject: Re: Substitution Question
Message-Id: <xz2912ss4mb.fsf@uebemc.siemens.de>
>>>>> On Tue, 08 Apr 1997 16:16:36 -0400
>>>>> "Thomas" == Thomas Parker <thpr@vnet.ibm.com> wrote:
Thomas> If I have:
Thomas> $temp_item = "A+B";
Thomas> $master_item = "((A+B)/C)+((A+B)-D)";
Thomas> how do I get $master_item to be:
Thomas> ((E)/C)+((E)-D)
Thomas> I have tried:
Thomas> $master_item =~ s/$temp_item/E/g;
Thomas> But this fails because $temp_item contains a "+" which seems to be
Thomas> evaluated as a regular expression.
AFIK, there is no non-regular substitution function in Perl (at least
not in Perl 4 - don't know about Perl 5). In your particular case, you
could write
$temp_item="A[+]B"
to get the substitution, but in the general case, the best thing I
know is to loop over the pattern and enclose each character in square
brackets.
But let me know if you find a better way to do this...
--
Ronald Otto Valentin Fischer
business: ronald.fischer@uebemc.siemens.de
private: ronald.fischer@acm.org
http://ourworld.compuserve.com/homepages/ronald_fischer
------------------------------
Date: 9 Apr 1997 21:50:44 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: timelocal strangeness and my obvious insanity... :)
Message-Id: <5ih2vk$dp7@news.orst.edu>
In article <01bc4455$33aee4a0$ccc69f96@dunt0008>,
Peter Dohm <dohmp@lci.com> wrote:
>$scalar1 = timegm(59,59,23,31,3,97);
April has but 30 days. April 31 is treated like May 1.
>$scalar2 = timegm(0,0,0,1,4,97);
>
>when i do this, i expect to see scalar2 - scalar1 to be "1" second.
>
>instead, i get scalar2 to be 1 second short of one day **LESS/EARLIER**
>than scalar1...
0:0:0 May 1 is one second short of one day earlier than 23:59:59 May 1
------------------------------
Date: 9 Apr 1997 11:29:01 GMT
From: kaz@vision.crest.nt.com (Kaz Kylheku)
Subject: Re: Unix and ease of use (WAS: Who makes more ...)
Message-Id: <5ifuht$t4e@bcrkh13.bnr.ca>
In article <E8C6G5.BB0@ukb.novell.com>,
Martin Sohnius x24031 <msohnius@novell.co.uk> wrote:
>Well, yes and no. It may be easy in retrospect to prove that you did write
>something, or at least that you agree with what was written, but it is very
>difficult to prove that you have *not* written something. That's what
>these keys are really for.
This proof is not needed (in a cryptographically sensitive society :).
To prove that you did not write something, simply point to the obvious
lack of a digital signature and refute the contents.
>They show that someone is so convinced of his own importance, that
>he is sure someone else would want to fake his postings.
Hmm, interesting slant! Either way, it's pompous. :)
>begin PGP key
>
>hey man, I didn't this crap!
>
>end PGP key
;)
------------------------------
Date: Wed, 09 Apr 1997 16:12:48 +0100
From: Douglas Seay <seay@absyss.fr>
To: justin.lodge@telecom.co.nz
Subject: Re: Vendor Support for Perl5 on SGI
Message-Id: <334BB1F0.3A42@absyss.fr>
justin.lodge@telecom.co.nz wrote:
>
> I want to write automatic file transfer scripts in Perl5 to run on SGI
>
> The operations people won't accept this because we are still running IRIX
> 5.x here on our production SGI's and Perl5 isn't supported by SGI unless
> we upgrade to IRIX 6.4 (see http://reality.sgi.com/scotth/info/perl5) -
> Our upgrades aren't likely before Dec'97 and my file transfers won't wait
> that long.....
>
> So does anyone know of a ***reputable*** vendor that will take easy ;-)
> money off our operations dept. for supporting Perl5 on all of the various
> flavours of IRIX until version 6.4?
>
> Don't you just love the people who don't trust something unless they've
> paid through the nose for it.
>
> Help please
Go read http://mox.perl.com/perl/info/support.html about the Perl
Clinic. This page includes the contact info
Tel: +44 1483 424424
Fax: +44 1483 419419
Web: http://www.perl.co.uk/
Email: perl-support-info@perl.co.uk or Tim.Bunce@ig.co.uk
------------------------------
Date: Wed, 09 Apr 1997 19:40:20 GMT
From: webmaster@componentweb.com (nick^)
Subject: Re: Working perl script... not running with HTTP get.
Message-Id: <334bf085.20733141@news.come.net.uk>
On Tue, 08 Apr 1997 10:25:04 GMT, webmaster@componentweb.com (nick^)
wrote:
>I have got a form to mail script working on my server. I cannot make
>any scripts I have written work in the same way from an HTTP GET.
>I have written a search script, which runs on my machine. I have had
>problems making the script run on the web server. To debug the cause,
>I have written a very simple script. It works when called from the
>IRIX command line but I get a server misconfiguration error when I use
>a submit button on a web browser form (Netscape/ MSIE). I have chmod
>755 the script.
>
>I expect "Hello World" to be displayed on the web browser when I do a
>GET from a web browser form.
>
>I get the "Server misconfiguration error..." message.
>
>Here's the script:
>#!/usr/bin/perl
># Program to do the obvious
>#
>print 'Hello world xxx.'; # Print a message
>
There are many helpful people on this newsgroup, Thank you for your
help.
I received a few replies pointing out the missing header.
The header was a problem, but there was a less obvious problem... I
edited the file in a win/dos editor which places ASCII 13,10 at the
and of the line, in the normal DOS fashion. This causes IRIX to
mis-interpret the file header and not run PERL.
I have now got the debugging program (hello world...) working.
I had another problem today where PERL on the IRIX kept hanging on the
program I have written. The problem was not shown by the -w or -wc
switch. I had to debug by cutting code out until I found the offending
piece (YUCK!).
I had two lines searching $_ and returning back to a specific foreach
if found thus:
if (/Dollar Values/) {next filecycle}
if (/<\/pre>/i) {next blockcycle}
The first searches for the string 'Dollar Values', the second for
'</pre>'or '</PRE>'. Both these lines of code were causing the program
to hang. (these both work OK on my perl5, 32 bit).
I overcame the hang by:
$crit1='Dollar Values';
$crit2='<\/pre>';
if (/$crit1/) {next filecycle}
if (/$crit2/i) {next blockcycle}
This is'nt a pretty way of coding, is there something wrong with my
syntax or with the PERL interpreter? Is there any way I can more
quickly debug such problems?
You can see the PERL script working by going to
http://www.componentweb.com/index.htm
Regards
Nick.
>Parameters will be passed from the form to the URL to the environment
>and these will be ignored, Right?
>
>Have i missed a basic requirement when using a perl script called with
>an HTTP GET, or should it run as I expect?
>
>Regards
>
>Nick.
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 261
*************************************
