[30948] in Perl-Users-Digest
Perl-Users Digest, Issue: 2193 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Feb 8 14:09:45 2009
Date: Sun, 8 Feb 2009 11:09:09 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 8 Feb 2009 Volume: 11 Number: 2193
Today's topics:
Re: [OT] Programmers (UK)...? <cliff@excite.com>
Charset of data from SQL Server shaul.kredi@gmail.com
Re: error printing page using LWP::Simple <mvdwege_public@myrealbox.com>
Re: error printing page using LWP::Simple <larry@example.invalid>
Re: error printing page using LWP::Simple <mvdwege_public@myrealbox.com>
Re: error printing page using LWP::Simple <ben@morrow.me.uk>
Re: error printing page using LWP::Simple <tadmc@seesig.invalid>
Re: error printing page using LWP::Simple <tadmc@seesig.invalid>
how can i convert my perl script to be a perl module? <georg.heiss@gmx.de>
Re: how can i convert my perl script to be a perl modul <jurgenex@hotmail.com>
Re: parse newline <m@rtij.nl.invlalid>
Re: parse newline <jurgenex@hotmail.com>
Re: parse newline <ela@yantai.org>
Re: parse newline <ela@yantai.org>
Re: parse newline <jurgenex@hotmail.com>
Re: parse newline <XXjbhuntxx@white-star.com>
Re: Perl Memory and die...what is happening here? <whynot@pozharski.name>
Re: Perl vs. .NET <rvtol+usenet@xs4all.nl>
Re: Reducing log size <rvtol+usenet@xs4all.nl>
Strawberry Perl <steinbach@gmx-topmail.de>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 08 Feb 2009 13:58:37 -0500
From: Cliff MacGillivray <cliff@excite.com>
Subject: Re: [OT] Programmers (UK)...?
Message-Id: <947fd$498f2b67$d0365e70$29642@news.eurofeeds.com>
Uri Guttman wrote:
>>>>>> "CM" == Cliff MacGillivray <cliff@excite.com> writes:
>
> CM> Uri Guttman wrote:
> >>>>>>> "TJM" == Tad J McClellan <tadmc@seesig.invalid> writes:
> TJM> Chris Davies <chris-usenet@roaima.co.uk> wrote:
> >> >> Can anyone recommend places (websites) or agencies I should be contacting,
> >> >> where Perl experience is an advantage rather than a deadweight?
> TJM> http://jobs.perl.org
> >> also the london perl monger's manage their own jobs list so you would
> >> get more a more focused group. and i know several UK hackers who might
> >> be available. but maybe hiring in 2 months is not useful immediately.
> >> as for placement agencies, i am the only one in the world that is
> >> 100%
> >> dedicated to SPAMSPAMSPAMSPAMSPAMSPAMSPAM you
> >> have been talking to useless agents who do buzzword matching.
> CM> abuse complaint sent
>
> sent to whom and about what?
If you knew anything about usenet you would know that your message
headers contain an "abuse@" address to direct complaints of this nature.
In your case, "abuse@albasani.net".
it wasn't spam.
Yes, it was. As is that crap you have at the bottom of your messages
advertising your various scams.
I find it more than mildly ironic that a morbidly obese chronically
unemployed person is advertising both a recruiting service AND hot cocoa!
> i was just telling him that
> there are agents who do understand perl and the perl job market. i just
> happen to be the only one. bfd. if i posted stuff here all the time
> about it, it would be spam.
At the bottom of all of your posts is not considered "All the Time" !?!?
------------------------------
Date: Sun, 8 Feb 2009 05:45:30 -0800 (PST)
From: shaul.kredi@gmail.com
Subject: Charset of data from SQL Server
Message-Id: <5de76c07-0abd-4433-9a88-d8714d27399f@j8g2000yql.googlegroups.com>
Hello,
I am using Win32::ODBC module for pulling data form my SQL Server
database. The information is in Hebrew charset, and for some reason
instead of Hebrew characters I get question marks in my script.
How can I change the Perl's charset/encoding? Or is the solution is
something else?
Thanks,
Shaul.
------------------------------
Date: Sun, 08 Feb 2009 12:09:57 +0100
From: Mart van de Wege <mvdwege_public@myrealbox.com>
Subject: Re: error printing page using LWP::Simple
Message-Id: <86skmpw5fe.fsf@gareth.avalon.lan>
Larry Gates <larry@example.invalid> writes:
> On Sat, 7 Feb 2009 23:42:23 -0600, Tad J McClellan wrote:
>
>> Larry Gates <larry@example.invalid> wrote:
>>
>>
>>> Hoe does a perl program say read lines until one of them contains 'jd',
>>
>>
>> Are you serious, or are you joking around?
>>
>> while ( <> ) {
>> last if /jd/;
>> }
>> print "There is a jd in this line: $_";
>
> No, I'm not kidding. It's new syntax for me.
>
> Dietrich Bonhoefeer spoke of the last, and the penultimate, dat Vorletzte.
>
> If you canbump execution back oneline, can you capture what lies onthe same
> line with 'jd'.
What do you mean?
The while ( <FILEHANDLE> ) construct is line-oriented (an empty
filehandle means read from STDIN). The above code will give you the
entire line if it contains 'jd' anywhere in it.
If you mean that you want to backtrack to the preceding line, that
makes it a bit more complex. There are various ways of doing that, the
easiest being to save the current line at the end of the while block
in a variable, so that by the next iteration $_ contains the new
current line, and your saved variable the previous one.
If you have to backtrack more than that, slurping the entire file into
an array might be easier.
Mart
--
"We will need a longer wall when the revolution comes."
--- AJS, quoting an uncertain source.
------------------------------
Date: Sun, 8 Feb 2009 04:38:45 -0700
From: Larry Gates <larry@example.invalid>
Subject: Re: error printing page using LWP::Simple
Message-Id: <5pve9ibm3t0o.100eusgvrsftx$.dlg@40tude.net>
On Sun, 08 Feb 2009 12:09:57 +0100, Mart van de Wege wrote:
>> If you canbump execution back oneline, can you capture what lies onthe same
>> line with 'jd'.
>
> What do you mean?
>
> The while ( <FILEHANDLE> ) construct is line-oriented (an empty
> filehandle means read from STDIN). The above code will give you the
> entire line if it contains 'jd' anywhere in it.
I guess you're right.
>
> If you mean that you want to backtrack to the preceding line, that
> makes it a bit more complex. There are various ways of doing that, the
> easiest being to save the current line at the end of the while block
> in a variable, so that by the next iteration $_ contains the new
> current line, and your saved variable the previous one.
I seem to be stuck in a logic that says, 'you candedect jd online n but you
can only do something about itinline n + 1.
>
> If you have to backtrack more than that, slurping the entire file into
> an array might be easier.
What would that look like in perl?
--
larry gates
Of course, if we make the MMD rules sufficiently complicated, we'll just
have
to make the warning spit out a spreadsheet to show the calculations. Then
we
hide all that behind an interview process, just like all our wonderful tax
preparation software... -- Larry Wall in <20050708185704.GA12164@wall.org>
------------------------------
Date: Sun, 08 Feb 2009 14:07:21 +0100
From: Mart van de Wege <mvdwege_public@myrealbox.com>
Subject: Re: error printing page using LWP::Simple
Message-Id: <86ocxdvzzq.fsf@gareth.avalon.lan>
Larry Gates <larry@example.invalid> writes:
> On Sun, 08 Feb 2009 12:09:57 +0100, Mart van de Wege wrote:
>
>>> If you canbump execution back oneline, can you capture what lies onthe same
>>> line with 'jd'.
>>
<snip>
> I seem to be stuck in a logic that says, 'you candedect jd online n
> but you can only do something about itinline n + 1.
>
No need for that. Just get used to the idiom. The angle bracket
operator reads one line from a filehandle; this line is available
throughout the entire enclosing block if you do this in a while loop.
No matter what you do to $_ (the variable holding the current line),
you will not advance to the next line until the next iteration of the
loop. However, in the next iteration, all your modifications in $_ are
gone, replaced by the line just read. Hence why you have to save $_
into another variable if you want to keep it for some reason.
>>
>> If you have to backtrack more than that, slurping the entire file
>> into an array might be easier.
>
> What would that look like in perl?
my @lines = <FILEHANDLE>;
Will assign line 0 to $lines[0], line 1 to $lines[1], etcetera. But
*don't* use this until you have some more Perl under your belt.
Mart
--
"We will need a longer wall when the revolution comes."
--- AJS, quoting an uncertain source.
------------------------------
Date: Sun, 8 Feb 2009 14:50:25 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: error printing page using LWP::Simple
Message-Id: <h28366-kb32.ln1@osiris.mauzo.dyndns.org>
Quoth larry@example.invalid:
>
> Hoe does a perl program say read lines until one of them contains 'jd', and
> indeed if it contains this tring, then it's the only one wecare about for
> now.
Do you mean a here doc? That is, something like
my $var = <<JD;
dfdfdfd
sgsgsgs
adaad
JD
(note that none of that should be indented in a real program)?
Ben
------------------------------
Date: Sun, 8 Feb 2009 09:08:29 -0600
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: error printing page using LWP::Simple
Message-Id: <slrngottbd.ffq.tadmc@tadmc30.sbcglobal.net>
Larry Gates <larry@example.invalid> wrote:
>> If you have to backtrack more than that, slurping the entire file into
>> an array might be easier.
>
> What would that look like in perl?
Posting to a newsgroup is the *last* place to look for help.
You post only after trying to find help in all of the "usual places" first.
We are not a "read the docs to me" service.
Got a question about "file"?
perldoc -q file
How can I read in an entire file all at once?
You can quickly wear out your welcome by asking FAQs.
To avoid that, check for applicable FAQs *before* posting!
Have you seen the Posting Guidelines that are posted here frequently?
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Sun, 8 Feb 2009 09:17:44 -0600
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: error printing page using LWP::Simple
Message-Id: <slrngottso.ffq.tadmc@tadmc30.sbcglobal.net>
[ Please stop full-quoting.
Have you seen the Posting Guidelines that are posted here frequently?
]
Larry Gates <larry@example.invalid> wrote:
> On Fri, 06 Feb 2009 13:23:21 -0800, Tim Greer wrote:
>> Larry Gates wrote:
>>> On Thu, 05 Feb 2009 20:50:36 -0800, Tim Greer wrote:
[ snip 30 irrelevant lines ]
>>> <input type="text" name="jd" value="2454869.37545" size="20"
>>>
>>> How do I grab the julian date from this?
[ snip 15 irrelevant lines ]
>> my $juldate = ($t =~ m/name="jd" value="([^"]+)"/) ? $1 : "No date";
>>
>> Of course, there are dozens of ways of doing this.
This way is probably the most fragile of any of the ways.
> Big pimpin.
What does this expression mean?
Is this a refernce to Jay Z's "Big Pimpin'"?
If it means "good", then it is incorrect.
It will fail if they change something as simple as the order of the attributes:
<input type="text" value="2454869.37545" name="jd" size="20"
or even if they insert another space character:
<input type="text" name="jd" value="2454869.37545" size="20"
while using a module that understands HTML will continue to
do the Right Thing even with such changes in the data's format.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Sun, 8 Feb 2009 08:46:28 -0800 (PST)
From: "georg.heiss@gmx.de" <georg.heiss@gmx.de>
Subject: how can i convert my perl script to be a perl module?
Message-Id: <287632cf-0a55-48b9-9113-785a91174fdc@p20g2000yqi.googlegroups.com>
Hello,
how can i convert my perl script to be a perl module? Have i just
rename it to log2db.pm ?
#log2db.pl
use DBI;
use File::Tail;
my $fname = $ARGV[0];
#$fname = '/var/log/syslog';
my $host = $ENV{'HOSTNAME'};
my $dbh = DBI->connect("DBI:mysql:database=testdb;host=rettung",
"log4", "l12345", {'RaiseError' => 1});
my $table = 'log4perl';
my @fields = qw( log_timestamp level1 method message );
my $fields = join(', ', @fields);
my $sql = "INSERT into $table ($fields) values (?,?,?,?)";
my $sth = $dbh->prepare($sql);
$file=File::Tail->new(name=>$fname, maxinterval=>2, adjustafter=>5);
while (defined($line=$file->read)) {
$sth->execute(get_ts(),$host,$fname,$line);
$sth->finish();
}
$dbh->disconnect();
sub get_ts() {
my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
$year = $year + 1900;
$mon = sprintf ("%02s",$mon+1);
$mday = sprintf ("%02s",$mday);
$hour = sprintf ("%02s",$hour);
$min = sprintf ("%02s",$min);
$sec = sprintf ("%02s",$sec);
my $ts = "$year$mon$mday $hour:$min:$sec";
return $ts;
}
Kind Regards
Georg
------------------------------
Date: Sun, 08 Feb 2009 09:27:48 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: how can i convert my perl script to be a perl module?
Message-Id: <ud5uo452i4tjbj576rnd64q8hb3ua9qhda@4ax.com>
"georg.heiss@gmx.de" <georg.heiss@gmx.de> wrote:
>how can i convert my perl script to be a perl module?
One way: you could follow the suggestions in the FAQ.
perldoc -q module
"How do I create a module?"
jue
------------------------------
Date: Sun, 8 Feb 2009 16:10:09 +0100
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: parse newline
Message-Id: <pan.2009.02.08.15.10.09@rtij.nl.invlalid>
On Sun, 08 Feb 2009 17:05:47 +0800, ela wrote:
> It's always a nightmare for me to parse newline characters. No matter
> \n, 10, 13, I just don't know why some newlines are printed. As the file
> is generated by another program, I cannot see the source code, and
> manual inspection does not discover any abnormalty.
>
> using chop, chomp or to use replace cannot help. Does anybody have
> experience in handling this?
Something like:
chomp;
s/\x0d$//;
Should always do the trick. If not, you have something very strange going
on.
M4
------------------------------
Date: Sun, 08 Feb 2009 07:32:14 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: parse newline
Message-Id: <9muto41n9c0efq6snfsjfupaimidbbnd5i@4ax.com>
"ela" <ela@yantai.org> wrote:
>It's always a nightmare for me to parse newline characters. No matter \n,
>10, 13, I just don't know why some newlines are printed. As the file is
>generated by another program, I cannot see the source code, and manual
>inspection does not discover any abnormalty.
>
>using chop, chomp or to use replace cannot help. Does anybody have
>experience in handling this?
Your program is missing a semicolon on line 42.
jue
------------------------------
Date: Sun, 8 Feb 2009 23:36:39 +0800
From: "ela" <ela@yantai.org>
Subject: Re: parse newline
Message-Id: <gmmu67$n3o$1@ijustice.itsc.cuhk.edu.hk>
>
> Something like:
>
> chomp;
> s/\x0d$//;
>
> Should always do the trick. If not, you have something very strange going
> on.
>
Have already tried that before and it doesn't solve...
------------------------------
Date: Sun, 8 Feb 2009 23:51:54 +0800
From: "ela" <ela@yantai.org>
Subject: Re: parse newline
Message-Id: <gmmv2q$ngm$1@ijustice.itsc.cuhk.edu.hk>
"Jürgen Exner" <jurgenex@hotmail.com> wrote in message
news:9muto41n9c0efq6snfsjfupaimidbbnd5i@4ax.com...
> "ela" <ela@yantai.org> wrote:
>>It's always a nightmare for me to parse newline characters. No matter \n,
>>10, 13, I just don't know why some newlines are printed. As the file is
>>generated by another program, I cannot see the source code, and manual
>>inspection does not discover any abnormalty.
>>
>>using chop, chomp or to use replace cannot help. Does anybody have
>>experience in handling this?
>
> Your program is missing a semicolon on line 42.
>
> jue
line 42????????
Well I've tried :
chop $identiy;
chomp ($identiy);
chop $identiy;
$identity =~ s/\x0d$//;
All fail.
------------------------------
Date: Sun, 08 Feb 2009 08:39:44 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: parse newline
Message-Id: <hv0uo4dujs7ljed1u5bhp1rc60fd4mor7o@4ax.com>
"ela" <ela@yantai.org> wrote:
>"Jürgen Exner" <jurgenex@hotmail.com> wrote in message
>> "ela" <ela@yantai.org> wrote:
>>>It's always a nightmare for me to parse newline characters.
What character set are you using? None of the common ASCII-based
character sets (WIndows-1252, ISO-Latin-xxx, Unicode, ...) has a newline
character. See also below.
>>>No matter \n,
>>>10, 13, I just don't know why some newlines are printed. As the file is
>>>generated by another program, I cannot see the source code, and manual
>>>inspection does not discover any abnormalty.
[...]
>> Your program is missing a semicolon on line 42.
>
>line 42????????
Apparently you've never read The Hitchhikers Guide through the Galaxy.
Long form: how do you propose us to fix your code without seeing it?
Have you seen the posting guidelines that are posted here twice a week?
>Well I've tried :
>
> chop $identiy;
This will remove the last character of $identiy.
How do you know that last character is actually the newline?
> chomp ($identiy);
This will remove a trailing $/ from $identiy, whatever $/ may be set to
on your system (usually "\n").
Did you check that $/ matches the tail of $identiy?
> chop $identiy;
This looks identical to the first line?
> $identity =~ s/\x0d$//;
This is working on $identity instead of $identiy. Is that what you meant
to do?
One common problem are format incompatibilities between Windows, Mac,
and Unix. They use different characters/character combinations to denote
a line break. Therefore you should be very explicit about if you are
talking about a line feed character(LF), a carriage return
character(CR), or a logical newline entity of your OS.
Aside of that I suspect that you are looking at the wrong spot and your
real problem is somewhere else, like e.g. a misspelled variable name as
above
As strongly suggested in the posting guidelines please post a
self-contained, minimal program that demonstrates your problem, in your
case including some sample input data, preferable as a _DATA_ section.
jue
------------------------------
Date: Sun, 08 Feb 2009 17:20:09 GMT
From: Cosmic Cruizer <XXjbhuntxx@white-star.com>
Subject: Re: parse newline
Message-Id: <Xns9BAC5EB0FF7E1ccruizermydejacom@207.115.33.102>
"ela" <ela@yantai.org> wrote in
news:gmm79b$dsa$1@ijustice.itsc.cuhk.edu.hk:
> It's always a nightmare for me to parse newline characters. No matter
> \n, 10, 13, I just don't know why some newlines are printed. As the
> file is generated by another program, I cannot see the source code,
> and manual inspection does not discover any abnormalty.
>
> using chop, chomp or to use replace cannot help. Does anybody have
> experience in handling this?
>
>
You might be encountering NUL characters. I run into the NUL character
problem when working with Windows event logs. Try to use the following on
your data: =~ s/\0/\t/g; You can change "\t" to whatever you need.
Example:
# Get event data
my $streaingTest = $Event{Strings};
# Change NUL to tab for event data
$streaingTest =~ s/\0/\t/g;
...Cos
------------------------------
Date: Sun, 08 Feb 2009 14:10:29 +0200
From: Eric Pozharski <whynot@pozharski.name>
Subject: Re: Perl Memory and die...what is happening here?
Message-Id: <slrngotitm.c0o.whynot@orphan.zombinet>
On 2009-02-07, Eric Pozharski <whynot@pozharski.name> wrote:
> On 2009-02-07, Martin Harris <martinhport-news@yahoo.com> wrote:
*SKIP*
>> 2. Why does the second loop eat into swap before exit where the first loop
>> exits at the end of ram?
>
> No idea. Consider using B<strace(1)> or something that your OS
> provides. I admit that I didn't compared outputs thoroughly, at glance
> they appeared to be the same.
>
I've done what was meant (B<or>) but written (B<||>). Reading problems
obviously.
*CUT*
--
Torvalds' goal for Linux is very simple: World Domination
Stallman's goal for GNU is even simpler: Freedom
------------------------------
Date: Sun, 08 Feb 2009 13:59:12 +0100
From: "Dr.Ruud" <rvtol+usenet@xs4all.nl>
Subject: Re: Perl vs. .NET
Message-Id: <498ed720$0$188$e4fe514c@news.xs4all.nl>
cartercc wrote:
> Ruud:
>> cartercc:
>>> I've had some
>>> recent experience programming in .NET, and while it's true that you
>>> can do bunches of things in .NET that you can't do in Perl, it's also
>>> true that you can do bunches of things in Perl that you can't do
>>> in .NET. But of course you already know that.
>>
>> Can you give examples? In my view there aren't any.
>
> [...]
> .NET is not a language, or a set of libraries, but a framework.
That is one of the things that I found strange about your statement.
"while it's true that you can do bunches of things with a milk carton
that you can't do with a fluid, it's also true that you can do bunches
of things with a fluid that you can't do with a milk carton". D'oh!
And of course there is even a PerlNET. (maybe no longer maintained though)
> Perl
> is a language. You really can't compare the two on an equal basis. For
> one thing, with .NET, you can use VB, C++/CLI (a significant MS
> extension to C++), C#, J#, maybe F#, and maybe even Perl. With Perl,
> you can only use Perl. That would be one thing you could do with .NET
> but not with Perl.
Perl supports embedded languages, for example the regex engine, so Perl
is such a platform too. And when you mention Perl, you probably also
mean CPAN.
When I read your "can't" in your statement as "maybe shouldn't try", it
makes a bit more sense, as being clearly just somebody's opinion of the
moment. You were throwing with terms like "recent experience" and "it's
true", which more often than not mean "hoax".
Ah, cartercc was probably talking about $Perl only. <g>
--
Ruud
------------------------------
Date: Sun, 08 Feb 2009 13:32:05 +0100
From: "Dr.Ruud" <rvtol+usenet@xs4all.nl>
Subject: Re: Reducing log size
Message-Id: <498ed0c5$0$200$e4fe514c@news.xs4all.nl>
Cosmic Cruizer wrote:
> I'm surprised at how fast the code works, even on a 500 mb logfile.
500 millibits, why would you want to use a computer for that?
--
Ruud
------------------------------
Date: Sun, 8 Feb 2009 14:46:50 +0100
From: "Thomas Steinbach" <steinbach@gmx-topmail.de>
Subject: Strawberry Perl
Message-Id: <gmmnqi$1me$01$1@news.t-online.com>
Hello NG,
what steps are neccessary to get strawberry perl portable
running from a CD (and HD, but from a diffrent location than
C:\strawberry)? See: http://strawberryperl.com/releases.html
and "strawberry-perl-5.10.0.4-portable-beta-2.zip" The wiki at
http://win32.perl.org/wiki/index.php?title=Strawberry_Perl
ist not very helpful for this task
btw: the email win32-vanilla-subscribe@perl.org to subscribe
to the win32-vanilla mailinglist doesn't work for me. Got an
qmail failure notice. See:
http://win32.perl.org/wiki/index.php?title=Win32_Mailing_Lists
Thomas
------------------------------
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 V11 Issue 2193
***************************************
