[19830] in Perl-Users-Digest
Perl-Users Digest, Issue: 2025 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Oct 28 02:05:38 2001
Date: Sun, 28 Oct 2001 00:05:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <1004252709-v10-i2025@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sun, 28 Oct 2001 Volume: 10 Number: 2025
Today's topics:
File parseing and testing for existing data <mpsilva@csupomona.edu>
Re: File parseing and testing for existing data <ronh@iainc.com>
Re: GGI param/regex difficulties <please@no.spam>
Re: how to set up a CGI on my webpage <william-seeley@home.com>
Re: Local/CGI help please <please@no.spam>
Re: multiple tag replacement within a string (Tad McClellan)
Re: multiple tag replacement within a string <leblanc@keyslapper.nospam.org>
mysql problem in cobalt <izz@sahara.com.sa>
Re: NEWBIE: double sort on a string <please@no.spam>
Re: NEWBIE: double sort on a string <uri@sysarch.com>
Obtaining Windows Structure in Perl <Jodyman@usa.net>
OT: mysql problem in cobalt <nobody@nowhere.com>
Perl in PWS <gmanon@netzero.net>
Re: perl loozer <uri@sysarch.com>
Re: Perl Newbie question : How can I open an internet c (Jay Tilton)
Re: printing html (Mark Taylor)
Re: printing html <darkon@one.net>
Re: printing html <jurgenex@hotmail.com>
Re: regular expression for url <pne-news-20011027@newton.digitalspace.net>
Re: Regular expression stumps me ... <goldbb2@earthlink.net>
Screen handling question <coec@iinet.net.au>
Re: study() question <nospam-abuse@ilyaz.org>
Re: Win32 Perl book/software suggestions? (Frank McKenney)
Re: Win32 Perl book/software suggestions? (Frank McKenney)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 27 Oct 2001 16:56:51 -0700
From: "Matias P. Silva" <mpsilva@csupomona.edu>
Subject: File parseing and testing for existing data
Message-Id: <9rfhg2$103d1$1@hades.csu.net>
Hello to all....
I'm trying to test if a username already exists with in a comma delimited
file.
I tried this below but no joy. The file exists and I am able to write to
it.
while($line = <USERFILE>){
if($line =~ /$userName/){
$result = "true";
print "$line";
}
}
what am I doing wrong?
I also want to be sure if the username is unique e.g Mark A Silva username
will
be the same as Matias P Silva so I want to also test first and last names
too when
I check the username. So how would I be able to perform this (line below)
correctly using perl syntax?
if($line =~/$userName,$firstName,$lastName/){
}
cheers!
Matias
------------------------------
Date: Sun, 28 Oct 2001 01:55:55 GMT
From: "Ron Hartikka" <ronh@iainc.com>
Subject: Re: File parseing and testing for existing data
Message-Id: <LAJC7.38955$bK.479409@typhoon.mw.mediaone.net>
could you post a sample from the file?
first snip looks like it should work
"Matias P. Silva" <mpsilva@csupomona.edu> wrote in message
news:9rfhg2$103d1$1@hades.csu.net...
> Hello to all....
> I'm trying to test if a username already exists with in a comma delimited
> file.
> I tried this below but no joy. The file exists and I am able to write to
> it.
>
> while($line = <USERFILE>){
> if($line =~ /$userName/){
> $result = "true";
> print "$line";
> }
> }
>
> what am I doing wrong?
>
> I also want to be sure if the username is unique e.g Mark A Silva username
> will
> be the same as Matias P Silva so I want to also test first and last names
> too when
> I check the username. So how would I be able to perform this (line
below)
> correctly using perl syntax?
>
> if($line =~/$userName,$firstName,$lastName/){
> }
>
> cheers!
> Matias
>
>
------------------------------
Date: Sun, 28 Oct 2001 01:21:25 GMT
From: Andrew Cady <please@no.spam>
Subject: Re: GGI param/regex difficulties
Message-Id: <87zo6cv9xf.fsf@homer.cghm>
"Paul Bruno" <paullyb8@fnol.net> writes:
> when the script splits on 2 newlines, it doesn't find a delimiter,
> and puts all the data into one array element. However, when I
> changed my pattern to /\n\s*\n/, it matched my test data fine.
Print out the string unambiguously with e.g.:
s/([[:^print:] %])/sprintf "%%%.2x", ord $1/ge;
Then look at it and you'll see what's in between your newlines.
------------------------------
Date: Sun, 28 Oct 2001 03:03:39 GMT
From: "William Seeley" <william-seeley@home.com>
Subject: Re: how to set up a CGI on my webpage
Message-Id: <fAKC7.41269$%B6.17145522@typhoon.southeast.rr.com>
For a more object oreiented approach, you could also try:
====================================
#!/usr/bin/perl -w
use CGI;
use strict;
use vars(
$q
);
$q=new CGI;
print $q->header,
$q->start_html({-title=>"Hello",
-bgcolor=>"white"});
print $q->p("Hello there!");
print $q->end_html;
====================================
Once this file is in your cgi-bin (assuming the script is called hello.pl),
ssh to the server and execute the following command:
eos% chmod +x hello.pl
(eos% represents your Unix prompt).
You should now be able to run the script from a web browser as follows:
http://domain.com/cgi-bin/hello.pl
Additionally, you can see if the script will compile by typing the following
(while ssh'd into your server):
eos% perl -c hello.pl
In any case, you should probably consider buying a perl or CGI.pm reference.
There are a lot of them. Also, you might
take a look at the many great man pages (start with [eos% man perl] to get
the index) already installed on your server. Then
you could go to perl.org and/or perl.com.
Good luck.
-Will
"Steven Wüthrich" <spam@dsxs.net> wrote in message
news:3bdaf787$1_4@news.bluewin.ch...
> Hi there,
>
> ive been working with perl for several months now, and now id like to
> put a cgi script on my website, just to test it...
>
> id only like the script to print
>
> Hello there
>
> ( ;)) its only to test how the CGI thing between browser and Server
works,
> right!!! ;))
>
> anyway, my script looks like this
>
>
> #!/bin/perl
>
> print "Hello there\n";
>
>
>
> thats all!!
> now, ive put this file into my CGI-bin on the server. how do i call the
> script now? how do i make it execute itself?
>
> its an easy question, so i hope to get an answer... thanks in advance,
> anyway!
>
>
> greets, steven
>
>
------------------------------
Date: Sun, 28 Oct 2001 00:57:55 GMT
From: Andrew Cady <please@no.spam>
Subject: Re: Local/CGI help please
Message-Id: <874rokwpl1.fsf@homer.cghm>
sjoris@rocketmail.com (Stefan) writes:
> I use win32::driveinfo::drivespace to check used/available disk space
> on a bunch of server volumes.
>
> Following script works perfectly from command prompt and displays
> drivespace info array; ex 3709337600104857600003709337600.
>
> #!c:/perl/bin/perl
> use win32::DriveInfo;
> use CGI qw(:all);
> print "Content-type: text/plain\r\n\r\n";
> $ServerName="myserver";
> print Win32::DriveInfo::DriveSpace("\\\\$ServerName\\data");
>
> However, in web browser nothing is displayed.
The first question you should ask: is the server producing an error?
What's the precise output (don't use a browser; telnet to port 80)?
My guess is that \r\n\r\n is wrong; either perl or the OS is
translating \n to \r\n and it's coming out \r\r\n\r\r\n. In any case,
as long as you're useing CGI anyway, you should use:
print header('text/plain');
Which should get it right either way. You might want to enable
autoflush before that, with $| = 1; Some web servers like that.
> My troubleshooting steps so far..
>
> - use lib...
> - moving win32 libfolder would give error, so module was found
> - enable perl option -U
>
> Any help would be appreciated!!
First figure out whether the script is even running. (If it's a
problem with your server, it's off-topic here).
------------------------------
Date: Sat, 27 Oct 2001 22:29:12 GMT
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: multiple tag replacement within a string
Message-Id: <slrn9tmagl.bnd.tadmc@tadmc26.august.net>
Louis LeBlanc <leblanc@keyslapper.nospam.org> wrote:
>For each
>tag, there is an internal variable. If that variable is defined, I
>want to replace the tag with that value, or else I want to replace it
>with the word 'unavailable'.
>
>So far, I have done the following:
> if (defined $not_found)
> {
$not_found =~ s/_DATE_/defined($date) ? $date : 'unavailable'/ge;
>Especially when you see al 8 tags
>replaced. Any ideas on how to make this more elegant and, hopefully,
>more efficient?
Use a hash with 8 keys instead of variables with 8 names.
Then you can do all 8 substitutions with a single s///e:
my $tagRE = join '|', keys %config;
$not_found =~ s/($tagRE)/ defined($config{$1}) ?
$config{$1} :
'unavailable'/ge ;
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 28 Oct 2001 01:35:46 GMT
From: Louis LeBlanc <leblanc@keyslapper.nospam.org>
Subject: Re: multiple tag replacement within a string
Message-Id: <20011027213713.B74961@keyslapper.org>
Thanks Jeff and Tad. I used both your suggestions and it works very
nicely.
Lou
--
To e-mail me for *legitimate* purposes, remove 'nospam',
otherwise post replies to the NG! If I need help here,
I should darn well be willing to come back for it, right?
Law of the Jungle:
He who hesitates is lunch.
------------------------------
Date: Sun, 28 Oct 2001 09:19:27 +0300
From: "IzzEddeen Al Karajeh" <izz@sahara.com.sa>
Subject: mysql problem in cobalt
Message-Id: <3bdba3f5$1@news.sahara.com.sa>
This is a multi-part message in MIME format.
------=_NextPart_000_00E3_01C15F91.A48F83D0
Content-Type: text/plain;
charset="windows-1256"
Content-Transfer-Encoding: quoted-printable
hello
I wonder how to install mysql service to the package of services in =
cobalt RAK 4.
And how to administer it? How to give permissions to users to create a =
database on it?
--=20
------=_NextPart_000_00E3_01C15F91.A48F83D0
Content-Type: text/html;
charset="windows-1256"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dwindows-1256">
<META content=3D"MSHTML 6.00.2479.6" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>hello</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>I wonder how to install mysql service =
to the=20
package of services in cobalt RAK 4.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>And how to administer it? How to give =
permissions=20
to users to create a database on it?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2><BR>-- <BR></FONT></DIV></BODY></HTML>
------=_NextPart_000_00E3_01C15F91.A48F83D0--
------------------------------
Date: Sun, 28 Oct 2001 00:41:54 GMT
From: Andrew Cady <please@no.spam>
Subject: Re: NEWBIE: double sort on a string
Message-Id: <87g084wqbq.fsf@homer.cghm>
Uri Guttman <uri@sysarch.com> writes:
> Andrew Cady <please@no.spam> writes:
>
> > Uri Guttman <uri@sysarch.com> writes:
> >
> > > Andrew Cady writes:
> > >
> > > > Using the regex syntax isn't an idiom, it's just typical
> > > > (although I frequently see strings used for splits on a single
> > > > character).
>
> my point is that it is wrong and shouldn't be typical.
No, your point is that it's right and should remain typical. However,
you still seem to think that this thread is about split, whereas in
reality, while that was once the topic, it is now about the fact that:
* I said something
* you misread it as being the opposite of what it was
* you said it back to me, and called me wrong
This type of mistake actually happens all the time (in fact, you did
it again right in this thread, in your sentence above), and I
shouldn't make such a big deal out of it, but I can't help myself
(really).
> > > > Unfortunately, I somehow forgot that the escape is still
> > > > necessary when you use a string, so my original code would not
> > > > have worked.
>
> that is why you should use //. to remind yourself it is a regex.
Which is what I said.
> > > > Oops. And '\|' doesn't near the aesthetic appeal of '|'.
> > > > Perhaps
>
> what does aesthetics have to do with correctness?
Nothing, in this case. Did I say it did? (No.) In context, the
above sentence (mine) illustrated that using quotes provides little
advantage in this case.
> > True. Hence, "using a string to supply a regex".
>
> doesn't matter. did you know that the right side of =~ can be ANY
> expression and not m// and it will be converted to a regex? yet, do
> you see anyone doing that?
What doesn't matter? I don't think that I do see anyone else doing
that, why do you ask?
(Here again the problem is that we are arguing different things.
Above I was arguing that my post did not contradict yours (unquoted),
whereas you (above) are arguing some entirely unrelated point based on
out-of-context misinterpretation of my above quoted sentence as
advocating the use of a string to supply a regex).
> > > you are not escaping a char in a string but you ARE ESCAPING a
> > > metachar in a regex.
>
> > Yep.
>
> you didn't state that in the string form it needs escaping for that
> reason.
I didn't say or imply otherwise (and I did say it needs to be escaped,
and that it is interpreted as a regex).
> > How is what you said in any way contradictory to what I said? In
> > fact, how is it any more than a rewording of what I said?
>
> see above.
I don't see the question answered above. OK, I'll grant that I did
not explicitly state the reason that | must be escaped, whereas you
did. Besides that single (trivially obvious) piece of information
(which I implied), you merely rephrased what I said, and called me
wrong. I still see nothing that was wrong.
(Why do I care?)
------------------------------
Date: Sun, 28 Oct 2001 03:21:40 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: NEWBIE: double sort on a string
Message-Id: <x7heskzbwv.fsf@home.sysarch.com>
>>>>> "AC" == Andrew Cady <please@no.spam> writes:
<BIG SNIP>
AC> I don't see the question answered above. OK, I'll grant that I did
AC> not explicitly state the reason that | must be escaped, whereas you
AC> did. Besides that single (trivially obvious) piece of information
AC> (which I implied), you merely rephrased what I said, and called me
AC> wrong. I still see nothing that was wrong.
trivially obvious things do matter in software. other readers of this
thread (which has gotten way off topic) do need to be CONSTANTLY
reminded that the first arg of a split is a regex. we see that bug here
(particularly the split on | version) ALL the time.
AC> (Why do I care?)
good question.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture and Stem Development ------ http://www.stemsystems.com
Search or Offer Perl Jobs -------------------------- http://jobs.perl.org
------------------------------
Date: Sat, 27 Oct 2001 22:11:02 -0400
From: "Jody Fedor" <Jodyman@usa.net>
Subject: Obtaining Windows Structure in Perl
Message-Id: <9rfpee$cbc$1@plonk.apk.net>
Is there a way to obtain in Perl the structure in "My Computer",
"Network Neighborhood" or "Entire Network"?
I'm trying to write a friendly worm for our network to find shared
resources. The object is to find shared resources and un-passworded
directories before the viruses do so we can plug the security leak.
Any Ideas out there or places to look for answers?
TIA
Jody
------------------------------
Date: Sun, 28 Oct 2001 17:01:07 +1000
From: "Gregory Toomey" <nobody@nowhere.com>
Subject: OT: mysql problem in cobalt
Message-Id: <p0OC7.6088$c5.64603@newsfeeds.bigpond.com>
"IzzEddeen Al Karajeh" <izz@sahara.com.sa> wrote in message
news:3bdba3f5$1@news.sahara.com.sa...
hello
>I wonder how to install mysql service to the package of services in cobalt
RAK 4.
>And how to administer it? How to give permissions to users to create a
database on it?
This question is very offtopic.
Cobalt http://www.cobalt.com/ is a company owned by Sun that makes rack
mounted Linux boxes, designed for hosting companies that host multiple web
sites. I moved my site to one of these 2 weeks ago. Is your question about
setting up this server, or about running your particular site? Cobalt comes
configured with Linux/Apache/Perl/Mysql. If you are a system administrator
then you should know how to configure this so go fire yourself!
From the control panel of the Cobalt machine I use you cannot set up a new
mysql database. If you have a website on a Cobalt machine then you will need
to ask your service provider to set up a Mysql database, just give them a
userid and a password.
(I use http://aussiehosts.com/hosting.html for Cobalt hosting. And, no, I
don't work for them, I just host a site with them).
gtoomey
------------------------------
Date: Sun, 28 Oct 2001 04:29:37 GMT
From: "gmanon" <gmanon@netzero.net>
Subject: Perl in PWS
Message-Id: <RQLC7.11389$XA5.3644912@typhoon.nyc.rr.com>
I am trying to run Perl CGI on a MS-PWS in Windows98 and I keep getting this
error
The specified CGI application misbehaved by not returning a complete set of
HTTP headers. The headers it did return are:
Can't locate cgi-lib.pl in @INC (@INC contains: D:/Perl/lib D:/Perl/site/lib
.) at C:\Inetpub\wwwroot\cgi-bin\greet.pl line 5.
I wonder if I have to write the first code line like this:
#!D:/Perl/lib/Perl.exe;
Does anyone here knows how to solve this?
Please thank you
gmanon
------------------------------
Date: Sun, 28 Oct 2001 03:25:08 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: perl loozer
Message-Id: <x7elnozbr1.fsf@home.sysarch.com>
>>>>> "JS" == Joe Schaefer <joe+usenet@sunstarsys.com> writes:
JS> Jonathan Stowe <gellyfish@gellyfish.com> writes:
>> The construct :
>>
>> print <<EOF;
>>
>> EOF
>>
>> is discussed in the perlop manpage in some detail.
JS> ^^^^^^
JS> ITYM "perldata" here, but you're right- it probably
JS> *should* be in perlop.
tough choice. it is really a quoting thing so it should be with the
other quotes in perldata. but quotes in perl are really ops. :)
double quoted strings actually compile to a join( '', LIST )
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture and Stem Development ------ http://www.stemsystems.com
Search or Offer Perl Jobs -------------------------- http://jobs.perl.org
------------------------------
Date: Sun, 28 Oct 2001 04:43:36 GMT
From: tiltonj@erols.com (Jay Tilton)
Subject: Re: Perl Newbie question : How can I open an internet connetion from Perl ?
Message-Id: <3bdb8ba7.86707281@news.erols.com>
On Fri, 26 Oct 2001 23:48:16 +0100, "John Smith"
<john@smithIndustries.com> wrote:
>I'm writing a Perl script to grab some data from the web.
[...]
>Does anyone know of how I can "force" a connection, i.e. dial my ISP and
>make a connection, if i am not connected to the internet ?
Assuming that it's meant to run on a Windows machine, based on
"X-Newsreader: Microsoft Outlook Express" in your message
headers, the module Win32::RASE appears to have all the
capabilities you need.
------------------------------
Date: 27 Oct 2001 16:50:08 -0500
From: mtaylor@lrim.com (Mark Taylor)
Subject: Re: printing html
Message-Id: <Xns9147AD84A6323mtaylorlrimcom@128.242.171.114>
"Devon Perez" <hoss@chungk.com> wrote in
<2wFC7.1004105$si5.17738955@typhoon.kc.rr.com>:
>Escape your quotes within the print lines. As in...
>
>
>print "<a href=\"http://www.kernel.org\">www.kernel.org</a>\n";
>
>do i need to put \ in every link or what?
>
>
>"Mark Taylor" <mtaylor@lrim.com> wrote in message
>news:Xns9147A1DEFA774mtaylorlrimcom@128.242.171.114...
>> "Devon Perez" <hoss@chungk.com> wrote in
>> <3%EC7.331215$ME2.35361430@typhoon.kc.rr.com>:
>>
>> >when i try to print a webpage with my script, the quotes from the
>> >html errors up the program, how can i keep it from doing this?
>> >
>> >thanks
>> >
>> >
>> >
>>
>> Throwing caution to the wind and risking upsetting Jeff I'll just
>> say....
>>
>> Escape your quotes within the print lines. As in...
>>
>>
>> print "<a href=\"http://www.kernel.org\">www.kernel.org</a>\n";
>>
>>
>>
>> Mark
>>
>>
>> ps: Sorry Jeff, just had to do it. :-)
>>
>>
>_________________________________________________________________________
>___ __
>> Posted Via Binaries.net = SPEED+RETENTION+COMPLETION =
>http://www.binaries.net
>
>
If you have a lot of html code use the "Print till..." command suggested by
Jeff. That's the easiest way.
Mark
i.e.
print <<HTML_end;
<put all your code here as normal html code>
HTML_end
______________________________________________________________________________
Posted Via Binaries.net = SPEED+RETENTION+COMPLETION = http://www.binaries.net
------------------------------
Date: Sun, 28 Oct 2001 01:09:05 GMT
From: "David K. Wall" <darkon@one.net>
Subject: Re: printing html
Message-Id: <Xns9147D7675E9darkononenet@24.2.68.108>
"Devon Perez" <hoss@chungk.com> wrote:
> when i try to print a webpage with my script, the quotes from the html
> errors up the program, how can i keep it from doing this?
You already have several correct responses, but let me suggest one more
thing: please don't post the same question twice on separate newsgroups.
You posted this in alt.perl, and also here in comp.lang.perl.misc, but
there's no indication in your post that you did so. Because of this, there
are now two separate threads about this question, instead of the one thread
that would have occurred had you crossposted the question simultaneously to
both newsgroups.
For a more compete discussion of this, see the "Why crosspost" section in
http://www.cs.tut.fi/~jkorpela/usenet/xpost.html
--
David Wall
darkon@one.net
------------------------------
Date: Sat, 27 Oct 2001 23:14:30 -0700
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: printing html
Message-Id: <3bdba24d@news.microsoft.com>
"Devon Perez" <hoss@chungk.com> wrote in message
news:3%EC7.331215$ME2.35361430@typhoon.kc.rr.com...
> when i try to print a webpage with my script, the quotes from the html
> errors up the program, how can i keep it from doing this?
Several options:
- use qq
- use here documents (maybe with the proper quotes)
- escape the quotes using backslashes
- use single quotes to enclose your strings
It all depends on what you want to do
jue
------------------------------
Date: Sun, 28 Oct 2001 06:55:58 +0100
From: Philip Newton <pne-news-20011027@newton.digitalspace.net>
Subject: Re: regular expression for url
Message-Id: <6j2lttkskdiruapijk9h8pas4sjt2l6rak@4ax.com>
On Sat, 27 Oct 2001 00:36:13 -0500, "Aditya" <isaditya@yahoo.com> wrote:
> 1. If i have just one word string as input i need to add 'http://www' as
> prefix and '.com' as suffix.
Define "word". I suppose you mean, in this context, "a sequence of
letters, digits, and hyphens which does not begin nor end with a
hyphen". So check whether your input only contains such characters (for
example, with a regular expression containing a character class; don't
forget to anchor it to the beginning and end of the string).
> 2. If i do have 'http://' prefix and no suffix then add '.com' to the end
> and vice-versa.
So check for the substring 'http://' at the beginning of your substring
and the absence of a "suffix" (however you choose to define it).
> 3. Check whether the syntax of url is proper,
You could use this regex (by Abigail), which matches a URL:
(?:http://(?:(?:(?:(?:(?:[a-zA-Z\d](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?)\.
)*(?:[a-zA-Z](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?))|(?:(?:\d+)(?:\.(?:\d+)
){3}))(?::(?:\d+))?)(?:/(?:(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F
\d]{2}))|[;:@&=])*)(?:/(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{
2}))|[;:@&=])*))*)(?:\?(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{
2}))|[;:@&=])*))?)?)|(?:ftp://(?:(?:(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?
:%[a-fA-F\d]{2}))|[;?&=])*)(?::(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-
fA-F\d]{2}))|[;?&=])*))?@)?(?:(?:(?:(?:(?:[a-zA-Z\d](?:(?:[a-zA-Z\d]|-
)*[a-zA-Z\d])?)\.)*(?:[a-zA-Z](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?))|(?:(?
:\d+)(?:\.(?:\d+)){3}))(?::(?:\d+))?))(?:/(?:(?:(?:(?:[a-zA-Z\d$\-_.+!
*'(),]|(?:%[a-fA-F\d]{2}))|[?:@&=])*)(?:/(?:(?:(?:[a-zA-Z\d$\-_.+!*'()
,]|(?:%[a-fA-F\d]{2}))|[?:@&=])*))*)(?:;type=[AIDaid])?)?)|(?:news:(?:
(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[;/?:&=])+@(?:(?:(
?:(?:[a-zA-Z\d](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?)\.)*(?:[a-zA-Z](?:(?:[
a-zA-Z\d]|-)*[a-zA-Z\d])?))|(?:(?:\d+)(?:\.(?:\d+)){3})))|(?:[a-zA-Z](
?:[a-zA-Z\d]|[_.+-])*)|\*))|(?:nntp://(?:(?:(?:(?:(?:[a-zA-Z\d](?:(?:[
a-zA-Z\d]|-)*[a-zA-Z\d])?)\.)*(?:[a-zA-Z](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d
])?))|(?:(?:\d+)(?:\.(?:\d+)){3}))(?::(?:\d+))?)/(?:[a-zA-Z](?:[a-zA-Z
\d]|[_.+-])*)(?:/(?:\d+))?)|(?:telnet://(?:(?:(?:(?:(?:[a-zA-Z\d$\-_.+
!*'(),]|(?:%[a-fA-F\d]{2}))|[;?&=])*)(?::(?:(?:(?:[a-zA-Z\d$\-_.+!*'()
,]|(?:%[a-fA-F\d]{2}))|[;?&=])*))?@)?(?:(?:(?:(?:(?:[a-zA-Z\d](?:(?:[a
-zA-Z\d]|-)*[a-zA-Z\d])?)\.)*(?:[a-zA-Z](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d]
)?))|(?:(?:\d+)(?:\.(?:\d+)){3}))(?::(?:\d+))?))/?)|(?:gopher://(?:(?:
(?:(?:(?:[a-zA-Z\d](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?)\.)*(?:[a-zA-Z](?:
(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?))|(?:(?:\d+)(?:\.(?:\d+)){3}))(?::(?:\d+
))?)(?:/(?:[a-zA-Z\d$\-_.+!*'(),;/?:@&=]|(?:%[a-fA-F\d]{2}))(?:(?:(?:[
a-zA-Z\d$\-_.+!*'(),;/?:@&=]|(?:%[a-fA-F\d]{2}))*)(?:%09(?:(?:(?:[a-zA
-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[;:@&=])*)(?:%09(?:(?:[a-zA-Z\d$
\-_.+!*'(),;/?:@&=]|(?:%[a-fA-F\d]{2}))*))?)?)?)?)|(?:wais://(?:(?:(?:
(?:(?:[a-zA-Z\d](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?)\.)*(?:[a-zA-Z](?:(?:
[a-zA-Z\d]|-)*[a-zA-Z\d])?))|(?:(?:\d+)(?:\.(?:\d+)){3}))(?::(?:\d+))?
)/(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))*)(?:(?:/(?:(?:[a-zA
-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))*)/(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(
?:%[a-fA-F\d]{2}))*))|\?(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]
{2}))|[;:@&=])*))?)|(?:mailto:(?:(?:[a-zA-Z\d$\-_.+!*'(),;/?:@&=]|(?:%
[a-fA-F\d]{2}))+))|(?:file://(?:(?:(?:(?:(?:[a-zA-Z\d](?:(?:[a-zA-Z\d]
|-)*[a-zA-Z\d])?)\.)*(?:[a-zA-Z](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?))|(?:
(?:\d+)(?:\.(?:\d+)){3}))|localhost)?/(?:(?:(?:(?:[a-zA-Z\d$\-_.+!*'()
,]|(?:%[a-fA-F\d]{2}))|[?:@&=])*)(?:/(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(
?:%[a-fA-F\d]{2}))|[?:@&=])*))*))|(?:prospero://(?:(?:(?:(?:(?:[a-zA-Z
\d](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?)\.)*(?:[a-zA-Z](?:(?:[a-zA-Z\d]|-)
*[a-zA-Z\d])?))|(?:(?:\d+)(?:\.(?:\d+)){3}))(?::(?:\d+))?)/(?:(?:(?:(?
:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[?:@&=])*)(?:/(?:(?:(?:[a-
zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[?:@&=])*))*)(?:(?:;(?:(?:(?:[
a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[?:@&])*)=(?:(?:(?:[a-zA-Z\d
$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[?:@&])*)))*)|(?:ldap://(?:(?:(?:(?:
(?:(?:[a-zA-Z\d](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?)\.)*(?:[a-zA-Z](?:(?:
[a-zA-Z\d]|-)*[a-zA-Z\d])?))|(?:(?:\d+)(?:\.(?:\d+)){3}))(?::(?:\d+))?
))?/(?:(?:(?:(?:(?:(?:(?:[a-zA-Z\d]|%(?:3\d|[46][a-fA-F\d]|[57][Aa\d])
)|(?:%20))+|(?:OID|oid)\.(?:(?:\d+)(?:\.(?:\d+))*))(?:(?:%0[Aa])?(?:%2
0)*)=(?:(?:%0[Aa])?(?:%20)*))?(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F
\d]{2}))*))(?:(?:(?:%0[Aa])?(?:%20)*)\+(?:(?:%0[Aa])?(?:%20)*)(?:(?:(?
:(?:(?:[a-zA-Z\d]|%(?:3\d|[46][a-fA-F\d]|[57][Aa\d]))|(?:%20))+|(?:OID
|oid)\.(?:(?:\d+)(?:\.(?:\d+))*))(?:(?:%0[Aa])?(?:%20)*)=(?:(?:%0[Aa])
?(?:%20)*))?(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))*)))*)(?:(
?:(?:(?:%0[Aa])?(?:%20)*)(?:[;,])(?:(?:%0[Aa])?(?:%20)*))(?:(?:(?:(?:(
?:(?:[a-zA-Z\d]|%(?:3\d|[46][a-fA-F\d]|[57][Aa\d]))|(?:%20))+|(?:OID|o
id)\.(?:(?:\d+)(?:\.(?:\d+))*))(?:(?:%0[Aa])?(?:%20)*)=(?:(?:%0[Aa])?(
?:%20)*))?(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))*))(?:(?:(?:
%0[Aa])?(?:%20)*)\+(?:(?:%0[Aa])?(?:%20)*)(?:(?:(?:(?:(?:[a-zA-Z\d]|%(
?:3\d|[46][a-fA-F\d]|[57][Aa\d]))|(?:%20))+|(?:OID|oid)\.(?:(?:\d+)(?:
\.(?:\d+))*))(?:(?:%0[Aa])?(?:%20)*)=(?:(?:%0[Aa])?(?:%20)*))?(?:(?:[a
-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))*)))*))*(?:(?:(?:%0[Aa])?(?:%2
0)*)(?:[;,])(?:(?:%0[Aa])?(?:%20)*))?)(?:\?(?:(?:(?:(?:[a-zA-Z\d$\-_.+
!*'(),]|(?:%[a-fA-F\d]{2}))+)(?:,(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-f
A-F\d]{2}))+))*)?)(?:\?(?:base|one|sub)(?:\?(?:((?:[a-zA-Z\d$\-_.+!*'(
),;/?:@&=]|(?:%[a-fA-F\d]{2}))+)))?)?)?)|(?:(?:z39\.50[rs])://(?:(?:(?
:(?:(?:[a-zA-Z\d](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?)\.)*(?:[a-zA-Z](?:(?
:[a-zA-Z\d]|-)*[a-zA-Z\d])?))|(?:(?:\d+)(?:\.(?:\d+)){3}))(?::(?:\d+))
?)(?:/(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))+)(?:\+(?:(?:
[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))+))*(?:\?(?:(?:[a-zA-Z\d$\-_
+!*'(),]|(?:%[a-fA-F\d]{2}))+))?)?(?:;esn=(?:(?:[a-zA-Z\d$\-_.+!*'(),
]|(?:%[a-fA-F\d]{2}))+))?(?:;rs=(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA
-F\d]{2}))+)(?:\+(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))+))*)
?))|(?:cid:(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[;?:@&=
])*))|(?:mid:(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[;?:@
&=])*)(?:/(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[;?:@&=]
)*))?)|(?:vemmi://(?:(?:(?:(?:(?:[a-zA-Z\d](?:(?:[a-zA-Z\d]|-)*[a-zA-Z
\d])?)\.)*(?:[a-zA-Z](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?))|(?:(?:\d+)(?:\
(?:\d+)){3}))(?::(?:\d+))?)(?:/(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a
-fA-F\d]{2}))|[/?:@&=])*)(?:(?:;(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a
-fA-F\d]{2}))|[/?:@&])*)=(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d
]{2}))|[/?:@&])*))*))?)|(?:imap://(?:(?:(?:(?:(?:(?:(?:[a-zA-Z\d$\-_.+
!*'(),]|(?:%[a-fA-F\d]{2}))|[&=~])+)(?:(?:;[Aa][Uu][Tt][Hh]=(?:\*|(?:(
?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[&=~])+))))?)|(?:(?:;[
Aa][Uu][Tt][Hh]=(?:\*|(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2
}))|[&=~])+)))(?:(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[
&=~])+))?))@)?(?:(?:(?:(?:(?:[a-zA-Z\d](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])
?)\.)*(?:[a-zA-Z](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?))|(?:(?:\d+)(?:\.(?:
\d+)){3}))(?::(?:\d+))?))/(?:(?:(?:(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:
%[a-fA-F\d]{2}))|[&=~:@/])+)?;[Tt][Yy][Pp][Ee]=(?:[Ll](?:[Ii][Ss][Tt]|
[Ss][Uu][Bb])))|(?:(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))
|[&=~:@/])+)(?:\?(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[
&=~:@/])+))?(?:(?:;[Uu][Ii][Dd][Vv][Aa][Ll][Ii][Dd][Ii][Tt][Yy]=(?:[1-
9]\d*)))?)|(?:(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[&=~
:@/])+)(?:(?:;[Uu][Ii][Dd][Vv][Aa][Ll][Ii][Dd][Ii][Tt][Yy]=(?:[1-9]\d*
)))?(?:/;[Uu][Ii][Dd]=(?:[1-9]\d*))(?:(?:/;[Ss][Ee][Cc][Tt][Ii][Oo][Nn
]=(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[&=~:@/])+)))?))
)?)|(?:nfs:(?:(?://(?:(?:(?:(?:(?:[a-zA-Z\d](?:(?:[a-zA-Z\d]|-)*[a-zA-
Z\d])?)\.)*(?:[a-zA-Z](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?))|(?:(?:\d+)(?:
\.(?:\d+)){3}))(?::(?:\d+))?)(?:(?:/(?:(?:(?:(?:(?:[a-zA-Z\d\$\-_.!~*'
(),])|(?:%[a-fA-F\d]{2})|[:@&=+])*)(?:/(?:(?:(?:[a-zA-Z\d\$\-_.!~*'(),
])|(?:%[a-fA-F\d]{2})|[:@&=+])*))*)?)))?)|(?:/(?:(?:(?:(?:(?:[a-zA-Z\d
\$\-_.!~*'(),])|(?:%[a-fA-F\d]{2})|[:@&=+])*)(?:/(?:(?:(?:[a-zA-Z\d\$\
-_.!~*'(),])|(?:%[a-fA-F\d]{2})|[:@&=+])*))*)?))|(?:(?:(?:(?:(?:[a-zA-
Z\d\$\-_.!~*'(),])|(?:%[a-fA-F\d]{2})|[:@&=+])*)(?:/(?:(?:(?:[a-zA-Z\d
\$\-_.!~*'(),])|(?:%[a-fA-F\d]{2})|[:@&=+])*))*)?)))
First, remove all newlines from that string and then put it inside a
regular expression.
> if not correct it.
That's more difficult. 'qwertz' is obviously not a valid URL, but how
would you correct it. And what about 'http://', or
'http\www.example.com\index.html'?
> Any suggestions?
Sound like you may want to hire a programmer.
If you have code, show it to us and we can perhaps help you. But this
newsgroup isn't intended as a write-code-for-you service.
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.li>
That really is my address; no need to remove anything to reply.
If you're not part of the solution, you're part of the precipitate.
------------------------------
Date: Sun, 28 Oct 2001 01:29:52 -0500
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Regular expression stumps me ...
Message-Id: <3BDBA5E0.5E37B809@earthlink.net>
Bart Lateur wrote:
>
> Steve Allan wrote:
>
> >I'm curious about the
> >usefulness of anchoring a regular expression to '0 or more occurances
> >of any character'. Is there a dirrence btw
> >
> > s|^.*/$source_root/||o;
> >
> >and
> >
> > s|.*/$source_root/||o;
> >
> >that I'm not seeing?
>
> Prevention of useless backtracking in case of a failure to match. In
> this case, this could even happen if there is no slash in the string.
> Without the anchor, the regex might be tempted to try again starting
> with every character of the string. With the anchor, it will try only
> once.
Unless of course perl optomizes .* at the beginning into ^.*
--
Klein bottle for rent - inquire within.
------------------------------
Date: Sun, 28 Oct 2001 13:49:36 +0800
From: "Colin Coe" <coec@iinet.net.au>
Subject: Screen handling question
Message-Id: <3bdb9c70$0$12179@echo-01.iinet.net.au>
Hi all, I'm planying with a couple of screen handling modules (Curses and
Term::Screen) but its not making much sense. I have looked at the demo's
included with Curses, looked through perldoc and checked out www.perl.com
but still no joy.
Can anyone point me at 'real live' examples using either (or both) of these
screen handling modules.
TIA
CC
------------------------------
Date: Sun, 28 Oct 2001 01:19:56 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: study() question
Message-Id: <9rfmfs$213c$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
David Allen
<mda@idatar.com>], who wrote in article <gUBC7.2102$hX3.153661@typhoon1.gnilink.net>:
> sub my_function {
> my $string = shift(@_);
>
> # Is $string studied?
> } # End my_function
==================================================================
> my_function(\$data);
>
> sub my_function {
> my $ref = shift(@_);
> my $string = ${$ref};
>
> # $string is studied here, isn't it?
> } # End my_function
There is no difference between the semantic of these two functions.
Both $string's are *copies* of the studied data. At any time, there
is only one piece of studied data per process.
Hope this helps,
Ilya
------------------------------
Date: 28 Oct 2001 01:50:37 GMT
From: frank_mckenney@mindspring.com (Frank McKenney)
Subject: Re: Win32 Perl book/software suggestions?
Message-Id: <9rfo9d$fpd$1@nntp9.atl.mindspring.net>
In <9r9r32$6vt$02$1@news.t-online.com>, "Steffen Müller" <tsee@gmx.net> writes:
>"Frank McKenney" <frank_mckenney@mindspring.com> schrieb im Newsbeitrag
>news:9r97sq$a2o$1@slb6.atl.mindspring.net...
>| How do you all go about impressing/educating co-workers and IT
>| people of the advantages of Perl?
>
>Considering he's a programmer, you might be able to impress him by
>showing >him why Perl is "Practical." Show him some code and let
>him compare with the >Clipper equivalent ;)
Steffen,
Thanks for the reply. I like the idea, but all the Perl code I've
written is CGI stuff -- not to mention that I'm not sure I want to
hold up my "yestiddy I kudn spel Purl prograymer and now I are one"
scripting as a good example of that Perl can do (;-).
Any ideas where I might look for a small, GUI-based Win32 Perl
sample program? Something with a data-entry dialog with a field or
two to show that it _can_ be done.
>However, GUI programming is not a particular strength of Perl.
Right. I assume that an interface module of some kind would be
necessary.
> ... I could think >of Learning Perl/Tk
>http://www.stonehenge.com/cgi/amazon?isbn=1565923146 but
>eventhough I heard only good about it, I cannot judge it myself.
Hey, it's a start. Thanks -- I'll try to get by Borders some time
this week and look it over if they have a copy. Amazon is great
when you know what you want, but when I'm picking'n'choosing I'd
rather buy from Borders if I can.
Thanks again...
Frank
Frank McKenney, McKenney Associates
Richmond, Virginia / (804) 320-4887
Munged E-mail: frank uscore mckenney aatt mindspring ddoott com
------------------------------
Date: 28 Oct 2001 01:57:19 GMT
From: frank_mckenney@mindspring.com (Frank McKenney)
Subject: Re: Win32 Perl book/software suggestions?
Message-Id: <9rfolv$fpd$2@nntp9.atl.mindspring.net>
In <3BD92057.5000500@pa.press.net>, John Imrie <johni@pa.press.net> writes:
>Frank McKenney wrote:
>> A friend provided me with a lot of free assistance on a recent
>> customer project. Using the principle that "no good deed goes
>> unpunished" (;-), I'd like to put together a package to impress him
>> with, and help him learn, Perl.
>>
>> He's fairly experienced in mainframe and desktop computer
>> programming, all the way from APL and FORTRAN through various ASMs
>> to his current "favorite" Clipper/FiveWin in the Win32 environment.
>>
>> I've been learning/using Perl under Linux (SuSE), but I know that
>> ports are available for Win32. O'Reilly's "Learning Perl" is a good
>> start, but (IMNSHO) it isn't enough in itself to really impress
>> someone who is already doing GUI-based programming in another
>> environment. Is there a "Perl/GUI for Win9x Programmers" out there
>> that might offer this?
Wehyul, I reckon I owe yuh some thanks, Pil-grim!
>Ok the books I'd recomend for your friend are
>
>Learning Perl on Win32 Systems
> Randal L Schwatz, Tom Phenix
> ISBN 1-565-92324-3
>
>Programming Perl 3rd Eddition
> Wall et all
> ISBN 0-596-00027-8
>
>Learning Perl/Tk
> Nancy Walsh
> ISBN 1-56592-341-6
Thanks for the suggestions.
>All are published by O'Reilly
(Why does that not surprise me? (;-))
>The last of the three describes a GUI add on for Perl. which can be got
>from CPAN with the following line
>
>perl -MCPAN -e 'install Tk'
>
>or as is usual on Windows systems you have the Active State build
Um... what's an "Active State"? Is this a "gen" (build) option for
Perl on Win32? Or something else?
Say what? Oh, you're right.. I can go use Google to check on it
myself (;-). Thanks for the ideas.
Frank
Frank McKenney, McKenney Associates
Richmond, Virginia / (804) 320-4887
Munged E-mail: frank uscore mckenney aatt mindspring ddoott com
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 2025
***************************************
