[11974] in Perl-Users-Digest
Perl-Users Digest, Issue: 5574 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed May 5 19:07:11 1999
Date: Wed, 5 May 99 16:00:25 -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, 5 May 1999 Volume: 8 Number: 5574
Today's topics:
/i case insensitive not working. (Steve .)
Re: /i case insensitive not working. <t-armbruster@ti.com>
Re: /i case insensitive not working. (Nem W Schlecht)
Re: /i case insensitive not working. (Steve .)
==> REGEX, how do I use a variable as a seach pattern <khowe@performance-net.com>
Re: ==> REGEX, how do I use a variable as a seach patte <t-armbruster@ti.com>
Re: ==> REGEX, how do I use a variable as a seach patte <t-armbruster@ti.com>
Re: ==> REGEX, how do I use a variable as a seach patte <t-armbruster@ti.com>
anyone want to shoot uncle bill for me? <uri@ibnets.com>
Re: anyone want to shoot uncle bill for me? (John Stanley)
DATE PROBLEM bababozorg@aol.com
Re: DATE PROBLEM <t-armbruster@ti.com>
Re: Dumb Question <gellyfish@gellyfish.com>
egad; unpack works differently on different UNIXes <jdhunter@nitace.bsd.uchicago.edu>
Re: egad; unpack works differently on different UNIXes <greg.wimpey@waii*removetomail*.com.invalid>
Re: grep to scalar instead of variable?, subroutine exi <uri@ibnets.com>
Re: having problems getting this script to work... <uri@ibnets.com>
Help with Oracle Connection and SQL <e.katzman@stanleyassoc.com>
Re: HTML-code in textarea <gellyfish@gellyfish.com>
Re: Is there a way how to turn a PERL program into ane <carvdawg@patriot.net>
Re: Mapping Question <gellyfish@gellyfish.com>
matching hyphenated words across line ends (Jed Parsons)
Re: matching hyphenated words across line ends <t-armbruster@ti.com>
Re: matching hyphenated words across line ends (Jed Parsons)
Re: Newbie having problems getting this script to work. (Bob Trieger)
Newbie: how do I use modules locally? <andy.georges@village.uunet.be>
Re: Newbie: how do I use modules locally? <gregm@well.com>
Re: Newbie: how do I use modules locally? (Bob Trieger)
Re: OReilly bullshit.... Camel logo trademark <news@i-tradeonline.com>
Re: pattern matching <gellyfish@gellyfish.com>
Pentium III Chips Released with IDs - Intel won't budge (Intel No Privacy)
Re: Perl and ping <gellyfish@gellyfish.com>
PerLDAP problems... harasty@my-dejanews.com
Re: Please help me (nobody ever does :( <gellyfish@gellyfish.com>
Re: print<<EOF <gellyfish@gellyfish.com>
Problem with Net::Telnet and its output <tashbrook@edisonenterprises.com>
regexp for matching IP address block <gavin@optus.net.au>
Re: regexp for matching IP address block (Nem W Schlecht)
Re: regexp for matching IP address block <design@raincloud-studios.com>
Re: regexp for matching IP address block (John Stanley)
Re: SOLVED (Was: I'm new - Please help - Sorting Questi <news@i-tradeonline.com>
The truth about the Pentium III chip and ID --- **boyco (Intel No Privacy)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 05 May 1999 22:19:03 GMT
From: syarbrou@nospam.enteract.com (Steve .)
Subject: /i case insensitive not working.
Message-Id: <3730c303.18758937@news.enteract.com>
The below code doesn't seem to recognize it as true. How come? I
thought the i would make it case insensitive. If $key is all caps it
prints out 34. Thanks.
Steve
$key=qUESTION34;
if ($key =~ /QUESTION/i)
{
($first,$number) = split( /^QUESTION/,$key);
print $number;
}
------------------------------
Date: Wed, 5 May 1999 17:33:43 -0500
From: "Tim Armbruster" <t-armbruster@ti.com>
Subject: Re: /i case insensitive not working.
Message-Id: <aL3Y2.38$zh2.2373@dfw-service1.ext.raytheon.com>
-----Original Message-----
From: Steve . <syarbrou@nospam.enteract.com>
Newsgroups: comp.lang.perl.misc
Date: Wednesday, May 05, 1999 5:19 PM
Subject: /i case insensitive not working.
>The below code doesn't seem to recognize it as true. How come? I
>thought the i would make it case insensitive. If $key is all caps it
>prints out 34. Thanks.
>
>Steve
>
>
>$key=qUESTION34;
>
I guess it doesn't matter if you use single-quotes. I expected it to puke
on this.
>if ($key =~ /QUESTION/i)
> {
> ($first,$number) = split( /^QUESTION/,$key);
You need to ignore case on this match as well, i.e. :
/^QUESTION/i
------------------------------
Date: 5 May 1999 22:30:27 GMT
From: nem@empyrean.lib.ndsu.nodak.edu (Nem W Schlecht)
Subject: Re: /i case insensitive not working.
Message-Id: <7gqgq3$kt6$1@node2.nodak.edu>
[courtesy copy e-mailed to author(s)]
In comp.lang.perl.misc, Steve . <syarbrou@nospam.enteract.com> wrote:
>The below code doesn't seem to recognize it as true. How come? I
>thought the i would make it case insensitive. If $key is all caps it
>prints out 34. Thanks.
>
>Steve
>
>
>$key=qUESTION34;
>
>if ($key =~ /QUESTION/i)
> {
> ($first,$number) = split( /^QUESTION/,$key);
^^
It works perfectly. You just need to put another 'i' in.
--
Nem W Schlecht schlecht@plains.nodak.edu
NDSU Library http://www.nodak.edu/~nem/
"Perl did the magic. I just waved the wand."
------------------------------
Date: Wed, 05 May 1999 22:47:20 GMT
From: syarbrou@nospam.enteract.com (Steve .)
Subject: Re: /i case insensitive not working.
Message-Id: <3730ca6d.20657864@news.enteract.com>
Woops. Thanks guys.
Steve
On Wed, 5 May 1999 17:33:43 -0500, "Tim Armbruster"
<t-armbruster@ti.com> wrote:
>-----Original Message-----
>From: Steve . <syarbrou@nospam.enteract.com>
>Newsgroups: comp.lang.perl.misc
>Date: Wednesday, May 05, 1999 5:19 PM
>Subject: /i case insensitive not working.
>
>
>>The below code doesn't seem to recognize it as true. How come? I
>>thought the i would make it case insensitive. If $key is all caps it
>>prints out 34. Thanks.
>>
>>Steve
>>
>>
>>$key=qUESTION34;
>>
>
>
>I guess it doesn't matter if you use single-quotes. I expected it to puke
>on this.
>
>>if ($key =~ /QUESTION/i)
>> {
>> ($first,$number) = split( /^QUESTION/,$key);
>
>You need to ignore case on this match as well, i.e. :
>
>/^QUESTION/i
>
>
>
>
------------------------------
Date: Wed, 5 May 1999 19:23:44 -0300
From: "Kevin Howe" <khowe@performance-net.com>
Subject: ==> REGEX, how do I use a variable as a seach pattern
Message-Id: <nv3Y2.27382$134.317100@tor-nn1.netcom.ca>
How do you use a variable as the search pattern in s// ?
Example
----------------------------------------------------------
$string = "<-this-> blah blah blah <+that+>";
$search= "<-(*.?)->|<+(*.?)+>";
$string =~ s/$search/hello/gi;
----------------------------------------------------------
$string would equal "<-hello-> blah blah blah <+hello+>";
Much appreciated,
Kevin
------------------------------
Date: Wed, 5 May 1999 17:31:49 -0500
From: "Tim Armbruster" <t-armbruster@ti.com>
Subject: Re: ==> REGEX, how do I use a variable as a seach pattern
Message-Id: <oJ3Y2.37$zh2.2349@dfw-service1.ext.raytheon.com>
-----Original Message-----
From: Steve . <syarbrou@nospam.enteract.com>
Newsgroups: comp.lang.perl.misc
Date: Wednesday, May 05, 1999 5:19 PM
Subject: /i case insensitive not working.
>The below code doesn't seem to recognize it as true. How come? I
>thought the i would make it case insensitive. If $key is all caps it
>prints out 34. Thanks.
>
>Steve
>
>
>$key=qUESTION34;
>
I guess it doesn't matter if you use single-quotes. I expected it to puke
on this.
>if ($key =~ /QUESTION/i)
> {
> ($first,$number) = split( /^QUESTION/,$key);
You need to ignore case on this match as well, i.e. :
/^QUESTION/i
------------------------------
Date: Wed, 5 May 1999 17:34:23 -0500
From: "Tim Armbruster" <t-armbruster@ti.com>
Subject: Re: ==> REGEX, how do I use a variable as a seach pattern
Message-Id: <PL3Y2.39$zh2.2335@dfw-service1.ext.raytheon.com>
Sorry, responded to wrong question.
------------------------------
Date: Wed, 5 May 1999 17:47:18 -0500
From: "Tim Armbruster" <t-armbruster@ti.com>
Subject: Re: ==> REGEX, how do I use a variable as a seach pattern
Message-Id: <WX3Y2.40$zh2.2315@dfw-service1.ext.raytheon.com>
Kevin Howe wrote in message ...
>How do you use a variable as the search pattern in s// ?
>
perlfaq6: How do I match a pattern that is supplied by the user?
------------------------------
Date: 05 May 1999 18:01:21 -0400
From: Uri Guttman <uri@ibnets.com>
Subject: anyone want to shoot uncle bill for me?
Message-Id: <397lqnb2ha.fsf@ibnets.com>
here's another brain damage that i have to fix because of redmondware. i
designed a module to read and write files with some possibly very long
lines (k's of chars). it works fine on unix in multiple programs. now i
get reports of bugs which i track down to those long lines being wrapped
(which is not cool) by some unknown force. it appears that dragging and
dropping those files into mailers on redmondware boxes is doing it. i
have a cute one liner fix.
all lines begin with a part number in this format:
123-0123456
so this will remove all newlines that are not followed by a part number
(the wrapped text cannot match a part number)
perl -0777pe 's/\n(?!\d{3}-\d{6})//g'
that is my first production use of negative lookahead. cool.
what i may do now is run that script in my file load method to fix a file
before i read it. i read it line by line so i have to have it fixed
beforehand.
any other ideas?
kill bill! kill bill!
uri
--
Uri Guttman Hacking Perl for Ironbridge Networks
uri@sysarch.com uri@ironbridgenetworks.com
------------------------------
Date: 5 May 1999 22:47:42 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: anyone want to shoot uncle bill for me?
Message-Id: <7gqhqe$as7$1@news.NERO.NET>
In article <397lqnb2ha.fsf@ibnets.com>, Uri Guttman <uri@ibnets.com> wrote:
>
>what i may do now is run that script in my file load method to fix a file
>before i read it. i read it line by line so i have to have it fixed
>beforehand.
>
>any other ideas?
Create a function that returns the next line. Have it keep reading and
appending until the next thing it reads has a part number at the start.
Remember the incomplete next line for the next call. Return the
completed line.
It's sorta like processing continuation lines in mail/news headers.
------------------------------
Date: Wed, 05 May 1999 21:51:31 GMT
From: bababozorg@aol.com
Subject: DATE PROBLEM
Message-Id: <7gqeh2$bmi$1@nnrp1.deja.com>
hi
can you please tell me how can i find out if the date i have is later than
today or earlier. for example:
i have the date 31-5-99
and i want to know if i have passed this date or not.
i mean if i check it when my date is 01-6-99 the program should tell me the
date is over (passed)
can you plase tell me how to do it?
thanks
hamed
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 5 May 1999 17:31:08 -0500
From: "Tim Armbruster" <t-armbruster@ti.com>
Subject: Re: DATE PROBLEM
Message-Id: <MI3Y2.36$zh2.2356@dfw-service1.ext.raytheon.com>
-----Original Message-----
From: bababozorg@aol.com <bababozorg@aol.com>
Newsgroups: comp.lang.perl.misc
Date: Wednesday, May 05, 1999 4:51 PM
Subject: DATE PROBLEM
>hi
>can you please tell me how can i find out if the date i have is later than
>today or earlier. for example:
Check out the Date:: and Time:: modules on CPAN.
------------------------------
Date: 5 May 1999 19:57:03 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Dumb Question
Message-Id: <7gq7qf$3ja$1@gellyfish.btinternet.com>
On Wed, 5 May 1999 01:53:17 -0400 Jody Fedor wrote:
> my $query = $ENV{'QUERY_STRING'};
> ???????? $query =~ s/&*//; ??????????
> $query =~ s/s=//;
> $query =~ s/%[0-9a-fA-F]{2}/ /g;
> my @words = ($query =~ /\w+/g);
>
Er.
use CGI qw(:standard);
my @words = split / /,param('s');
;-}
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Wed, 5 May 1999 21:54:32 GMT
From: John Hunter <jdhunter@nitace.bsd.uchicago.edu>
Subject: egad; unpack works differently on different UNIXes
Message-Id: <1rogjz41yf.fsf@ace.bsd.uchicago.edu>
I have a binary file on an NFS mounted file system which I access from
Linux and Solaris 2.7. When I unpack it, I get different results
(with the same perl code) depending on whether I run the code under
Solaris or Linux. I thought perl would buffer me from these kinds of
problems. What's going on and what is to be done???
Here's a code sample:
#!/usr/bin/perl
open(BINARY_INPUT, '012001.dat');
seek(BINARY_INPUT, 0, 0) or die "seek:$!";
until (eof BINARY_INPUT) {
read(BINARY_INPUT, $record, 10) or die "read binary input: $!";
($ind, $ad1, $ad2, $dig) = unpack("lsss", $record);
print "1: $ind\n2: $ad1\n3: $ad2\n4: $dig\n\n";
}
For background, the data are two's complement signed integers
generated by a quick basic program. There is a single long (4 byte)
integer followed by three short (2 byte) integers and then this
pattern repeats until EOF. The above code unpacks the short integers
correctly under Linux but gives screwy output under solaris.
Tips will be appreciated,
John Hunter
------------------------------
Date: 05 May 1999 16:20:18 -0600
From: Greg Wimpey <greg.wimpey@waii*removetomail*.com.invalid>
To: John Hunter <jdhunter@nitace.bsd.uchicago.edu>
Subject: Re: egad; unpack works differently on different UNIXes
Message-Id: <snpv4ff9b1.fsf@ddcspn37.denver.waii.com>
John Hunter <jdhunter@nitace.bsd.uchicago.edu> writes:
> I have a binary file on an NFS mounted file system which I access from
> Linux and Solaris 2.7. When I unpack it, I get different results
> (with the same perl code) depending on whether I run the code under
> Solaris or Linux. I thought perl would buffer me from these kinds of
> problems. What's going on and what is to be done???
>
[snip]
Au contraire. IIRC, 'unpack' treats the 'l' and 's' specifiers as
local integers. And, since the x86 is a "little-endian" architecture,
while SPARC (and most other RISC architectures) is "big-endian", the
order of bytes in an integer will be swapped between the two
machines. If you're running Solaris on an x86, I honestly don't know
what might happen.
Here's what 'perldoc -f pack' tells me:
s A signed short value.
S An unsigned short value.
(This 'short' is _exactly_ 16 bits, which may differ from
what a local C compiler calls 'short'.)
l A signed long value.
L An unsigned long value.
(This 'long' is _exactly_ 32 bits, which may differ from
what a local C compiler calls 'long'.)
Note that nothing is said about byte order. However, we also have
these specifiers:
n A short in "network" (big-endian) order.
N A long in "network" (big-endian) order.
v A short in "VAX" (little-endian) order.
V A long in "VAX" (little-endian) order.
So, it looks like, if you know that the numbers will always be in one
order or the other, that you can use 'n/N/v/V' to get the order you
need.
Hope this helps
--
Greg Wimpey
greg.wimpey@waii*removetomail*.com.invalid
------------------------------
Date: 05 May 1999 17:00:03 -0400
From: Uri Guttman <uri@ibnets.com>
To: "Charles R. Thompson" <design@raincloud-studios.com>
Subject: Re: grep to scalar instead of variable?, subroutine exists?
Message-Id: <39aevjb5bg.fsf@ibnets.com>
>>>>> "CRT" == Charles R Thompson <design@raincloud-studios.com> writes:
CRT> my @button = grep(/^btn_(.*)/, $query->param);
CRT> &{$actions{$button[0]}} ;
CRT> actions is a hash of buttons and matching subroutines. It works.. but I
CRT> know of two areas that are incorrect. I'm shooting for a two liner, and
CRT> wouldn't mind seeing if I could get it to one if I can get the grep to
CRT> evaluate to one item and error check the subroutine afterwards.
&{$actions{ (grep(/^btn_/, param()))[0]} || \&default_sub } ;
that is a index on the list result of grep and a default sub ref if
actions is empty for that button name.
i removed the (.*) since you don't need it. /^btn_/ will match the same
thing and you also weren't using the grab. beware of using parens in
regexes unless you need the grab. lookup (?: regex) for nor grabbing
grouping.
also CGI.pm has a non-object mode with exported regular sub names. in
most cgi's that is all you need and it eliminated the need to keep using
$query all over the place.
so there you have a one line button dispatcher with a default sub.
uri
--
Uri Guttman Hacking Perl for Ironbridge Networks
uri@sysarch.com uri@ironbridgenetworks.com
------------------------------
Date: 05 May 1999 16:53:04 -0400
From: Uri Guttman <uri@ibnets.com>
Subject: Re: having problems getting this script to work...
Message-Id: <39btfzb5n3.fsf@ibnets.com>
>>>>> "LR" == Larry Rosler <lr@hpl.hp.com> writes:
LR> ($,, $\) = ("\n", "\n"); print OUT @data }, }); __END__
i think those vars should be localized. it might change the benchmark a tad.
it would not be nice to have them changed globally in a script!
and what about
{ local($,) = "\n"; print @data, '' }
that should work too. and it save changing a var.
this is the first time i have seen $, used for good and not for evil.
uri
--
Uri Guttman Hacking Perl for Ironbridge Networks
uri@sysarch.com uri@ironbridgenetworks.com
------------------------------
Date: 5 May 1999 21:41:08 GMT
From: "Eugene Katzman" <e.katzman@stanleyassoc.com>
Subject: Help with Oracle Connection and SQL
Message-Id: <01be973f$d8b92a20$987769ce@katzmae>
Hi
I just completed writing a C program for compiling with the ProC
precompiler.
Now I find that I can no longer access the Precompiler. I need to write
the same program in Perl.
What I need to know is what I have to post as #include or use ie use
ORALIB
the other thing I need to know is what has to preceed the SQL like
EXEC SQL
or
SQLPLUS and how do I get the Oracle statements to execute out of the
program to wherever it needs to go and how to run the connect operation.
With Pro C I use EXEC SQL begin declare section;
varchar userid[10], password[15];
EXEC SQL end declare section;
after some logic to obtain userid and passwd,
EXEC SQL connect :userid identified by :password;
if (sqla.sqlcode != 0)
fprintf(stderr, "Failed");
etc
How is it done in Perl, do you use the sqlca structure for returning
values. How does one get data returned from a select statement, ie
EXEC SQL select idnum into :peridnum from table1 where columnb equals
tempvalue;
Thanks a lot
Gene Katzman e.katzman@stanleyassoc.com (703)739-8559x232
------------------------------
Date: 5 May 1999 21:10:56 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: HTML-code in textarea
Message-Id: <7gqc50$3ld$1@gellyfish.btinternet.com>
On Wed, 05 May 1999 14:50:46 GMT jajacek@my-dejanews.com wrote:
> In article <7gplck$j0f$1@nnrp1.dejanews.com>,
> dzuy@my-dejanews.com wrote:
>> In article <7gpkr6$if6$1@nnrp1.dejanews.com>,
>> jajacek@my-dejanews.com wrote:
>> > A user must put HTML-code in textarea field. This code will be a part of
>> > HTML-page. How can I this easy make? And how can I validate this input?
>> >
>> > Perl-module, applet?
>> >
>> > Jacek
>> >
>> > -----------== Posted via Deja News, The Discussion Network ==----------
>> > http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
>> >
>>
>> I wrote a module that parses HTML form. If anyone is interested, let
>> me know. If I get lots of response, I'll consider making public.
>>
>> Dzuy
>>
>> -----------== Posted via Deja News, The Discussion Network ==----------
>> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
>>
>
> but how I can made this EASY FOR USER!
>
Er.
You design your application so that it makes it easy for your user -
well thats would I would do anyway.
I would also probably take this comp.infosystems.www.authoring.cgi as
they are the people who like to talk about this stuff.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Wed, 05 May 1999 17:27:31 +0100
From: Marquis de Carvdawg <carvdawg@patriot.net>
Subject: Re: Is there a way how to turn a PERL program into ane EXE file?
Message-Id: <37307173.904DC941@patriot.net>
This issue seems to be raised often...so I thought I would just
ask a question. I've tried a couple of methods of converting
a Perl script to an EXE, only b/c I want to have something
available if a machine doesn't have Perl on it...
What are advisable methods to use to convert a script to an
.exe file when using modules such as Win32::AdminMisc and
Win32::Perms?
If "convert to C" is the answer, what is the best method of doing
so? Is there a recommended Perl-to-C script?
Thanks
vepxistqaosani@my-dejanews.com wrote:
> In article <3730834B.C882BA6A@mail.cor.epa.gov>,
> David Cassell <cassell@mail.cor.epa.gov> wrote:
> > Why do you want to do this?
>
> In my organization, I have been assured that (a) many computers are too
> small/slow to install ActivePerl (yes, they're all Redmond-impaired), (b) most
> users are not computer-literate enough to be able to run Perl, and (c) the
> Networks department won't support Perl.
>
> So I port to C and distribute executables. That way I can put in all those
> neat virii that will be triggered when I leave. (Just kidding ... but how do
> _they_ know?)
>
> Fred
> $_="ustJay notherAay ewNay erlPay ackerHay";s/(\w+?)(\w)ay/$2$1/g;print;
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 5 May 1999 20:40:55 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Mapping Question
Message-Id: <7gqacn$3jo$1@gellyfish.btinternet.com>
On Tue, 4 May 1999 16:44:52 GMT news.boeing.com wrote:
> I have 2 computers. Computer is the IIS Server with all my CGIs and HTMLS,
> the other is where the data is stored. I can now create a dynamic page of
> the files on the data server but I can not figure out how to do the URL
> links.
>
> Example.
>
> Server.
> "http://myserver.com/index.cgi?DirecotryName" will produce a list of files
> of "DirectoryName"
>
> Data Server
> "//NT-SERVER/Dir1/DirectoryName"
>
> When I create the link to the other server, how does the URL read.
> http://???? or is it file://????
>
No you probably cannot (or shouldnt ) do it like that - you will have
to write your index.cgi so that it will be able to open the files on
the other server and print them. The following (Didnt I post this only
a month or so ago ?) uses a hard-coded directory but that could easily
become a parameter of some sort - it then produces a list of links to
itself with a parameter that indicates the file. Of course this is
only a toy program and you will have to think of all sorts of things
if you are going to do it on NT (binmode(), network permissions etc ).
But its a start. You will probably want to take the CGI things to
comp.infosystems.www.authoring.cgi and the server things to whatever
group talks about that.
/J\
#!/usr/bin/perl -w
use CGI qw(:standard);
my $filename = param('filename');
my $directory = '/home/gellyfish';
my $me = script_name();
if ($filename)
{
$fullpath = "$directory/$filename";
if ($filename =~ /html*$/ )
{
$content = 'text/html';
}
elsif ( -T $fullpath )
{
$content = 'text/plain';
}
else
{
$content = 'application/x-unknown';
}
if ( open(INFILE,$fullpath) )
{
print header(- type => $content);
while(<INFILE>)
{
print $_;
}
close INFILE;
}
else
{
print header,start_html('Oops');
print h1('Couldnt open the file');
print end_html;
}
}
else
{
print header,start_html("Directory of : $directory");
if ( opendir(DIR,$directory ))
{
@files = grep {/^[^.]/ && -f "$directory/$_"} readdir(DIR);
closedir(DIR);
print "<UL>\n";
foreach (@files)
{
print "<LI>\n";
print "<A HREF='$me?filename=$_'>$_</A>\n";
print "</LI>\n";
}
print "</UL>\n";
print end_html;
}
else
{
print h1("Cant open the directory");
print end_html;
}
}
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 5 May 1999 21:01:15 GMT
From: jed@socrates.berkeley.edu (Jed Parsons)
Subject: matching hyphenated words across line ends
Message-Id: <7gqbir$e78$1@agate.berkeley.edu>
I know I've read somewhere how to do this, but haven't been able to figure
out the answer from the faq or from the books. What's the best way to match
hyphenated words at line end? It seems I could do this by taking input in
paragraph mode, do replacements, and then do the match, but this will mess
other things up (like bona fide hyphenated words). Any suggestions?
Thanks,
Jed
--
Jed Parsons: ``Lingua balbus, hebes ingenio
Harpsichordist, Classicist, Homebrewer. Viris doctis sermonem facio.''
mailto:jed@socrates.berkeley.edu -- Archipoeta
http://www.OCF.Berkeley.EDU/~jparsons/
------------------------------
Date: Wed, 5 May 1999 16:58:49 -0500
From: "Tim Armbruster" <t-armbruster@ti.com>
Subject: Re: matching hyphenated words across line ends
Message-Id: <se3Y2.35$zh2.2387@dfw-service1.ext.raytheon.com>
Jed Parsons wrote in message <7gqbir$e78$1@agate.berkeley.edu>...
>I know I've read somewhere how to do this, but haven't been able to figure
>out the answer from the faq or from the books. What's the best way to
match
>hyphenated words at line end? It seems I could do this by taking input in
>paragraph mode, do replacements, and then do the match, but this will mess
>other things up (like bona fide hyphenated words). Any suggestions?
>
What is the format of the file you are trying to read? I assume it's not a
flat file, or this would be relatively simple. Is there a character
designated as a "soft return?" What distinguished between lines in a
paragraph? Do you have any code (40 lines or less) that would help us in
diagnosing your problem?
------------------------------
Date: 5 May 1999 22:43:37 GMT
From: jed@socrates.berkeley.edu (Jed Parsons)
Subject: Re: matching hyphenated words across line ends
Message-Id: <7gqhip$j02$1@agate.berkeley.edu>
I confess, it is a flat file, and I haven't messed with $/, so as you say,
this sould be ``relatively simple'' (except that I'm fairly new at
this... :^)
One possiblity I thought up would be to add a hyphen to every hyphen
followed by a word character, then get rid of newlines, get rid of
isolated hyphens, and work with the resulting string. But I suspect
that's way too much work (violates the virtuous laziness constraint).
Thanks for any suggestions,
Jed
--
Jed Parsons: ``Lingua balbus, hebes ingenio
Harpsichordist, Classicist, Homebrewer. Viris doctis sermonem facio.''
mailto:jed@socrates.berkeley.edu -- Archipoeta
http://www.OCF.Berkeley.EDU/~jparsons/
------------------------------
Date: Wed, 05 May 1999 21:48:02 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: Newbie having problems getting this script to work...
Message-Id: <7gqdij$glp$1@fir.prod.itd.earthlink.net>
[ courtesy cc sent by mail if address not munged ]
mriedel@neuearbeit.de wrote:
>
>#! /usr/bin/perl
No -w switch!!!!
>$toprocess='/tmp';
>
>opendir(DIR, $toprocess);
No check for a failing status on the opendir!
Unneeded parentheses.
>@files = grep {
> /^33_(.*)\.txt$/; $_=$1; defined($1);
>} readdir(DIR);
Questionable indenting.
>closedir DIR;
>
>undef $/;
Globally undefining $/??
>map {
> $src="$toprocess/33_$_.txt"; $dst=">$toprocess/$_";
>
> open(SRC, $src);
Not checking status!
Unneeded paren.
> $data=<SRC>; $data =~ s/[\015\016]//gs; # octal
> close(SRC);
>
> open(DST, $dst);
Not checking status!
Unneeded paren.
> print DST $data;
> close(DST);
Unneeded paren.
>} @files;
map in a void context!
Bad style, no indenting, multiple functions on some lines, double new
lines between others in same block.
------------------------------
Date: Wed, 05 May 1999 22:11:40 +0200
From: Andy Georges <andy.georges@village.uunet.be>
Subject: Newbie: how do I use modules locally?
Message-Id: <3730A5FC.6A51BD24@village.uunet.be>
Hi,
I hope this is the right place to ask this.
Anyway, I have this cgi script which needs certain modules, but the damn
sysadmin
is refusing to install them where they belong, i.e. with the perl
installation
and I was told to install them locally, i.e. in the dir where my script
resides.
then how do I load them?
use CGI;
use IO::File;
doesn't work (gives some error, I don't know what since the WWW server
just says a error has occurred while executing a cgi script).
do I have to change @INC or something?
thank you,
Andy
--------------------------------------------------------------------------------
The typewriting machine, when played with expression, is no more
annoying than the piano when played by a sister or near relation.
-- Oscar Wilde
--------------------------------------------------------------------------------
------------------------------
Date: Wed, 05 May 1999 14:38:38 -0700
From: Greg McCann <gregm@well.com>
Subject: Re: Newbie: how do I use modules locally?
Message-Id: <3730BA5E.FDF1AFC9@well.com>
Andy Georges wrote:
> Anyway, I have this cgi script which needs certain modules, but the damn
> sysadmin
> is refusing to install them where they belong, i.e. with the perl
> installation
> and I was told to install them locally, i.e. in the dir where my script
> resides.
>
> then how do I load them?
perlfaq8: How do I keep my own module/library directory?
--
======================
Gregory McCann
http://www.calypteanna.com
"Be kind, for everyone you meet is fighting a great battle." Saint Philo of
Alexandria
------------------------------
Date: Wed, 05 May 1999 21:58:43 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: Newbie: how do I use modules locally?
Message-Id: <7gqe6i$glp$2@fir.prod.itd.earthlink.net>
[ courtesy cc sent by mail if address not munged ]
Andy Georges <andy.georges@village.uunet.be> wrote:
>Hi,
>
>I hope this is the right place to ask this.
>
>Anyway, I have this cgi script which needs certain modules, but the damn
>sysadmin
>is refusing to install them where they belong, i.e. with the perl
>installation
>and I was told to install them locally, i.e. in the dir where my script
>resides.
>
>then how do I load them?
Check out the last 3 entries in PerlFAQ8.
------------------------------
Date: Wed, 05 May 1999 22:53:33 GMT
From: Chance Houston <news@i-tradeonline.com>
Subject: Re: OReilly bullshit.... Camel logo trademark
Message-Id: <3730CC64.CAEBA0B@i-tradeonline.com>
I'm on your side of this issue.
I think it serves to reinforce their book as a useful tool for learning perl.
They should be glad to have you display the camel on your site.
Just my two cents.
Chance Houston
------------------------------
Date: 5 May 1999 21:34:24 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: pattern matching
Message-Id: <7gqdh0$3lj$1@gellyfish.btinternet.com>
On 4 May 1999 03:26:06 GMT Riemann Medici wrote:
> TRG Software : Tim Greer explains it all:
>
> [snip o' doom]
>
> You talk too much.
>
> *plonk*
>
Another interesting Sociological Moment in the world of
comp.lang.perl.misc ...
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Wed, 05 May 1999 21:07:19 GMT
From: Intelz@nospam.net (Intel No Privacy)
Subject: Pentium III Chips Released with IDs - Intel won't budge
Message-Id: <3764acce.5879494@news.earthlink.net>
Pentium III chip with the individual serial number that can
track your web surfing and buying habits can now have the ID number
turned on and off by software. Following some links I found the
www.fightdivx.com website and noticed that they have a Intel Boycott
page with links, quotes and info on why you should boycott the
invasion of privacy Pentium III chips. Just like everyone suspected,
the ID number can be taken without a customers knowledge. Just like
cellular phone fraud, once someone has your unique ID number, they
could pose as you on the internet. Do not be fooled by reports that
this problem is fixed because Intel disabled this feature by software
on their up coming chips. Information is power. They want to know
your surfing and buying habits. That is what this is all about. Here
is the link to the page with the boycott info and links.
http://www.fightdivx.com/intelboycott.htm
Also you will find a Boycott Intel screen saver and banner on their
page above. Spread it around.
------------------------------
Date: 5 May 1999 19:28:10 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Perl and ping
Message-Id: <7gq64a$3ii$1@gellyfish.btinternet.com>
On Tue, 04 May 1999 20:42:04 -0700 Goten wrote:
> I have a question, I am just wondering if there is any way that I can
> code to ping a destination if it is alive or not. However, the server
> is known to be behind a firewall, and only one port is open to public.
> So, is there anyone know how to code a "ping" program that could ping on
> a certain port? I will greatly appreciate for any ideas.
>
It depends on what port that is and what service might be running on it.
If for instance you have port 7 (the 'echo') port then you could use the
Net::Ping module and its TCP or UDP 'ping' methods (not really a ping
at all but it passes as ping). If alternatively the port was 80 (HTTP)
then you would probably want to use LWP::UserAgent with a HEAD request
method.
For some arbitrary port you might just get away with trying to open a
socket connection to it - but then again you might not.
Like I say - it all depends.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Wed, 05 May 1999 21:22:39 GMT
From: harasty@my-dejanews.com
Subject: PerLDAP problems...
Message-Id: <7gqcqq$a1t$1@nnrp1.deja.com>
In article <7fpth2$qio$1@nnrp1.dejanews.com>,
michielpeene@my-dejanews.com wrote:
If you said this:
> I've installed PerLDAP-1.0 on my Win95 machine ...
> Btw I'm using Active Perl build 515 ...
Then why are you doing this?:
> I've installed PerLDAP-1.0 ... by typing "perl install-bin"
I think that is the stuff from Mozilla.org that worked with the "Standard
Perl", that is, a version of Perl that predates the convergence of "Standard
Perl" with ActiveState's Perl.
ActiveState Perl comes with the "Perl Package Manager", or PPM. Run PPM from
the command line, read the docs (both the ActiveState Perl docs and the
embedded help commands), and realize that "typing 'perl install-bin'" is no
longer needed... you can simply type "install Perldap" from inside PPM, and
the app will go out on the net to ActiveState's site and load the most recent
package.
If you're not on the net when you run PPM, you need to download the package
in zip format (http://www.activestate.com/packages/zips/), and follow the
Readme in the zip.
That's the good news.
Here's the bad news:
I'm finding that even the most recent version of PerLDAP installed with PPM
is flakey with ActiveState Perl 515. Sometimes my whole script with 40 LDAP
calls will work. Sometimes none of them work and Perl dies with "Error:
Runtime exception". Sometimes some of the calls work and then I get "Error:
Runtime exception". Once, Perl died and NT put up a dialog saying that the
process running Perl had an access violation.
The thing is, all my Perl scripts were working just fine with PerLDAP 1.0 and
Standard Perl 5.004_02...
Anyone out there involved with ActiveState or PerLDAP that can tell me (us)
what this "Runtime exception" is?
- Dan Harasty
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 5 May 1999 19:41:36 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Please help me (nobody ever does :(
Message-Id: <7gq6tg$3j6$1@gellyfish.btinternet.com>
On Tue, 4 May 1999 23:07:13 +0200 Asbjorn Gjemmestad wrote:
>
> If you want to redirect people to the ftp, you need to do the following:
>
> #!C:\PERL\BIN\PERL.EXE
>
> use CGI param,header,p;
>
> $user = param("Username");
> $pass = param("Password");
> # print header(); Do NOT print the http header - otherways, the location
> will just be printed, which apparantly is
> # your problem...
> print p("Location:ftp://$user:$pass\@194.134.134.??");
>
>
Hang on a second - that just dont work. That p() is an HTML producing
method of CGI.pm - the Location header will thus have '<P>' in front of
it - whoops. Lets do this right just so no-one gets the wrong idea
(and just so someone accuse me of being a hypocrite for giving a CGI
question :) :
#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);
my $user = param("Username");
my $pass = param("Password");
if ($pass && $user )
{
print redirect("ftp://$user:$pass\@194.134.134.??");
}
else
{
# Of course one would probably want to do something better
print header('text/plain');
print 'Username or password not supplied';
}
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 5 May 1999 20:53:56 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: print<<EOF
Message-Id: <7gqb54$3l8$1@gellyfish.btinternet.com>
On Wed, 05 May 1999 16:36:32 GMT Charles R. Thompson wrote:
>> print <<'TEST';
>> if ($a eq "test") {
>> print $a;
>> }
>> TEST
>
>
> I may be wrong about this, but I think 'TEST' and TEST are two different
> things. I can only hazard the guess that Windows has some sort of
> problem with single quotes.
>
Nah. The quotes around the terminator indicate what kind of quoted
string it is to interpreted as and dont actually form part of the
terminator itself.
Back to perlfaq4 and the perlop manpage I tink
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Wed, 5 May 1999 16:00:11 -0700
From: "Tom Ashbrook" <tashbrook@edisonenterprises.com>
Subject: Problem with Net::Telnet and its output
Message-Id: <d34Y2.5832$ny.578181@typhoon-sf.snfc21.pbi.net>
I have a small script that reads server names from an Oracle database and
then telnets to each server and runs one simple command (uptime) and prints
out the result. Eventually it will do a more exhaustive check on each
server but for now...
I can log in fine.
All the prompts are the same for the account on each server.
I am useing PERL 5.005xxxxx and Net::Telnet(3).
The servers I am connecting to are HP9000s and AIX 4.3
The code is run from an AIX server.
The problem is that the output from the uptime command is there on some runs
and not there on others BUT ONLY FOR THE AIX boxes. The HP servers don't
have a problem with it and the output is there every time. I have tried to
run the same command three times in a row and still no output sometimes and
other times there is. Anyone know what this might be?
I don't know if this has anything to do with it but in another script that
looks at disk space (bdf or df -Ik depending on the OS) and I wont get the
first line of output back and other times I will, again only on the AIX
servers. This leads me to believe it may be something with the
configuration of the individaul servers.?.!?
TIA,
Tom.
Her is a snippet of the procedure that does the telnet...
<snip><snip>
foreach (@host)
{
get_info($_);
}
sub get_info
{
use Net::Telnet;
print "\n...Generating output from the @_ server...\n";
$dino = new Net::Telnet (Host => "@_",
Timeout => 30,
Prompt => '/.*>/');
$dino->login(blahblah,correct pword edited out for this post);
# set up the command to get the disk info
$host_cmd = "uptime";
# get the disk space info
#even if i do this 3 times in a row it doesn't output sometimes or not at
all#####################
@lines = $dino->cmd("$host_cmd");
$dino->close;
print @lines;
}
------------------------------
Date: Wed, 05 May 1999 22:21:25 GMT
From: Gavin Cato <gavin@optus.net.au>
Subject: regexp for matching IP address block
Message-Id: <3730D2F0.EE62DC60@optus.net.au>
Has anyone ever managed to create a regexp that matches if input is a valid IP
address block?
i.e.
202.33.77.0
177.88.0.0
207.124.8.0
etc.. etc...
My feeble brain has tried, failed & couldn't find anything in my trusty perl
cookbook or the FAQ.
thanks
Gavin
------------------------------
Date: 5 May 1999 22:28:51 GMT
From: nem@empyrean.lib.ndsu.nodak.edu (Nem W Schlecht)
Subject: Re: regexp for matching IP address block
Message-Id: <7gqgn3$pla$1@node2.nodak.edu>
[courtesy copy e-mailed to author(s)]
In comp.lang.perl.misc, Gavin Cato <gavin@optus.net.au> wrote:
>Has anyone ever managed to create a regexp that matches if input is a valid IP
>address block?
>
>i.e.
>202.33.77.0
>177.88.0.0
>207.124.8.0
I take it want something more robust than:
if ($ip =~ /^\d+\.\d+\.\d+\.\d+$/) {
...
}
Hmm.. I guess this would do it:
if ($ip =~ /\d\d?\d?\.\d\d?\d?\.\d\d?\d?\.\d\d?\d?/) {
...
}
Four groups, min. of 1 number, max of 3. You'll still have to check make
sure each is < 256. Probably easier to to the Net::Ping module. ;-)
--
Nem W Schlecht schlecht@plains.nodak.edu
NDSU Library http://www.nodak.edu/~nem/
"Perl did the magic. I just waved the wand."
------------------------------
Date: Wed, 05 May 1999 22:45:44 GMT
From: "Charles R. Thompson" <design@raincloud-studios.com>
Subject: Re: regexp for matching IP address block
Message-Id: <sS3Y2.1814$iu1.1592@news.rdc1.tn.home.com>
Gavin Cato wrote in message <3730D2F0.EE62DC60@optus.net.au>...
>Has anyone ever managed to create a regexp that matches if input is a valid
IP
>address block?
>i.e.
>202.33.77.0
>177.88.0.0
>207.124.8.0
IP Addresses can be faked so 'valid' is somewhat of a limited term there. Even
if you matched an IP Address, it still doesn't make it valid.
CT
------------------------------
Date: 5 May 1999 22:52:00 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: regexp for matching IP address block
Message-Id: <7gqi2g$auh$1@news.NERO.NET>
In article <sS3Y2.1814$iu1.1592@news.rdc1.tn.home.com>,
Charles R. Thompson <design@raincloud-studios.com> wrote:
>Gavin Cato wrote in message <3730D2F0.EE62DC60@optus.net.au>...
>>Has anyone ever managed to create a regexp that matches if input is a valid IP
>>address block?
>>i.e.
>>202.33.77.0
>>177.88.0.0
>>207.124.8.0
>
>IP Addresses can be faked so 'valid' is somewhat of a limited term there. Even
>if you matched an IP Address, it still doesn't make it valid.
An IP address can be valid but not currently assigned or not currently
reachable.
This was discussed at lenght a while ago, look in DejaNews. It isn't as
simple as "four parts less than 256 with dots." 127.1 is a valid IP
address, as is 131245369.
------------------------------
Date: Wed, 05 May 1999 22:46:31 GMT
From: Chance Houston <news@i-tradeonline.com>
Subject: Re: SOLVED (Was: I'm new - Please help - Sorting Question)
Message-Id: <3730CABD.3E41C720@i-tradeonline.com>
Larry,
You are great and I am small.
Thanks for your input. It will take me days of research to begin to
understand what you just said.
Thanks.
Chance Houston
------------------------------
Date: Wed, 05 May 1999 21:08:33 GMT
From: Intelz@nospam.net (Intel No Privacy)
Subject: The truth about the Pentium III chip and ID --- **boycott info**
Message-Id: <3766acd2.5882594@news.earthlink.net>
Take the Pentium III Boycott Survey
http://mail.infotrieve.com/isurvey/index.cfm?vendorid=6045&formid=F0006045
Pentium III chip with the individual serial number that can
track your web surfing and buying habits can now have the ID number
turned on and off by software. Following some links I found the
www.fightdivx.com website and noticed that they have a Intel Boycott
page with links, quotes and info on why you should boycott the
invasion of privacy Pentium III chips. Just like everyone suspected,
the ID number can be taken without a customers knowledge. Just like
cellular phone fraud, once someone has your unique ID number, they
could pose as you on the internet. Do not be fooled by reports that
this problem is fixed because Intel disabled this feature by software
on their up coming chips. Information is power. They want to know
your surfing and buying habits. That is what this is all about. Here
is the link to the page with the boycott info and links.
http://www.fightdivx.com/intelboycott.htm
Also you will find a Boycott Intel screen saver and banner on their
page above. Spread it around.
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 5574
**************************************
