[23848] in Perl-Users-Digest
Perl-Users Digest, Issue: 6051 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jan 29 23:02:00 2004
Date: Thu, 29 Jan 2004 19:56:24 -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 Thu, 29 Jan 2004 Volume: 10 Number: 6051
Today's topics:
Re: Win32::Process - Limiting the number of processes l (Patrick Paquet)
Re: Win32::Process - Limiting the number of processes l <wherrera@lynxview.com>
Re: Win32::Process - Limiting the number of processes l <ceo@nospan.on.net>
win32::SerialPort; Sending Raw Data (Schmigz)
Re: win32::SerialPort; Sending Raw Data (Walter Roberson)
Re: win32::SerialPort; Sending Raw Data (Schmigz)
Window and program control questions <edgrsprj@ix.netcom.com>
Re: Window and program control questions <jurgenex@hotmail.com>
Re: Window and program control questions <edgrsprj@ix.netcom.com>
Re: Window and program control questions <edgrsprj@ix.netcom.com>
Re: Window and program control questions (Jay Tilton)
Re: Window and program control questions <usenet@morrow.me.uk>
Re: Window and program control questions <lv@aol.com>
Re: Window and program control questions <edgrsprj@ix.netcom.com>
Re: writting an 'in' keyword for perl (Anno Siegel)
Re: writting an 'in' keyword for perl (David)
XML MULTI-TABLES parsing and mySQL <fede72bari@tiscali.it>
XML MULTI-TABLES parsing and mySQL <LanceW@azizcorp.com>
Re: XML MULTI-TABLES parsing and mySQL <jwillmore@remove.adelphia.net>
Re: XML MULTI-TABLES parsing and mySQL ctcgag@hotmail.com
Re: Yellow Card (Lamerand, Robert A)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 29 Jan 2004 02:11:37 -0800
From: jack_luminous@hotmail.com (Patrick Paquet)
Subject: Re: Win32::Process - Limiting the number of processes launched from within a script
Message-Id: <14e35cbb.0401290211.6783e2cd@posting.google.com>
jack_luminous@hotmail.com (Patrick Paquet) wrote in message news:<14e35cbb.0401270847.39d4e7ca@posting.google.com>...
<Original posting snipped>
Hello everyone,
I'm replying to my original post to clarify a bit the problem I was
having, and also to post the solution that I am using, in the hopes
that this will be helpful to someone else.
Apart from the replies I've gotten in the newsgroup, I've also gotten
2 suggestions directly to my e-mail. I've used one of those to fix my
problem, I will post it at the end.
First, some clarifications. The script is launched from a central
server, and polls all the workstations, so nothing is actually sent
from the PCs themselves, everything is fetched from the server. Most
of the traffic is netbios stuff, read from registry or from the HD,
nothing very fancy involved. Once the information is fetched, it's
pumped in an SQL database. After that, various tools are used to
generate batch jobs, or just reporting purposes.
The code below was provided by Brian Helterline, and works perfectly
for me once integrated and modified for my script. I launch 20 (still
scaling at this point though) processes with it, when one exits,
another is launched, it's exactly what I was looking for. I'm kinda
new at this Perl thing and do not have any formal programming
training, I just don't think of using some commands (never occured to
me to use 'while' like this, or 'shift' even), so this is all very
educationnal.
A big thank you to all who took the time to reply, it is very much
appreciated!
Hope everybody has a nice day!
Patrick
######
use strict;
use warnings;
use Win32::Process;
my @machines = qw/ 1 2 3 4 5 6 7 8 9 10 11 12/; # list of machines to
test
my %running; # hash of processes running
my $done = 0;
while ( ! $done ) {
if ( keys %running < 10 && @machines ) {
my $obj;
Win32::Process::Create($obj,'C:\winnt\system32\notepad.exe',
"notepad c:\\" . shift( @machines ) .
'.txt',
0,
NORMAL_PRIORITY_CLASS,
".") || die Win32::GetLastError();
$running{$obj} = $obj;
print "started object $obj\n";
}
foreach my $obj ( keys %running ) {
my $code;
my $rc = $running{$obj}->GetExitCode( $code );
delete $running{$obj} unless $code == 259;
print "removed object $obj\n" unless $code == 259;
}
$done = not %running;
}
print "all done.\n";
------------------------------
Date: Tue, 27 Jan 2004 16:26:58 -0700
From: Bill <wherrera@lynxview.com>
Subject: Re: Win32::Process - Limiting the number of processes launched from within a script
Message-Id: <39WdnZXYD7wkbovdRVn-uQ@adelphia.com>
Patrick Paquet wrote:
...
>
> I've been looking into running these checks in parallel, via the
> Win32::Process module, but I haven't found a way to control the
> number of simultaneous processes adequately. I can launch a certain
>
...
> My current script is fully functionnal as far as the workstation
> checks are concerned. It is also a bit lengthy (+750 lines) so I
> won't post it here for brevity's sake. At this point it doesn't even
> include the Win32::Process module as I just haven't been able to do
> much with it at all, besides launching or (way too) many processes.
>
>
> I'm running ActiveState Perl 5.005_02, and cannot upgrade it. Many
> scripts are run centrally and I don't have authority to do the upgrade
> on the script server.
If I were you, I'd get 5.8 on the server and use threads and queues.
If you really cannt do this, I suggest a more primitive solution--create
a perl script (script1) that will stuff server names or IP's into a
queue. Create a second script (script2) that will read the queue and
check the server listed in the queue and output the results to a file
(use flock). The scripts should be run from a cmd file like this:
=== cmd or .bat file ===
perl script1.pl
exit
=============
With a third script,
set up a perl script like this:
===
system("start script1.cmd");
for(1..10) { system("start script2.cmd"; sleep 1 }
===
...and let the OS do the process management for you. Perl 5.005 process
management is too broken for Win32 to bother agonizing over IMO. (It
works okay in 5.8 though).
------------------------------
Date: Wed, 28 Jan 2004 05:09:26 GMT
From: Chris <ceo@nospan.on.net>
Subject: Re: Win32::Process - Limiting the number of processes launched from within a script
Message-Id: <auHRb.29384$iZ2.21516@newssvr33.news.prodigy.com>
Patrick Paquet wrote:
> Hello everyone,
>
> I've been working on a script that fetches information from all
> workstations on our NT domain, the problem I've now run into at this
> point is that it takes a very long time to execute completely. The
> reason for this is probably simply because I'm checking each machine
> in sequence (I check machine A, and only when I'm done do I move on to
> B etc).
>
> I've been looking into running these checks in parallel, via the
> Win32::Process module, but I haven't found a way to control the
> number of simultaneous processes adequately. I can launch a certain
> number of them, but I can't figure out how to check the status of a
> process and to lower a counter when it's done, so that I can launch
> another one to replace it. What I'm looking to do is lauch no more
> then 10 (for example) instances of the script, and to stay as close to
> that without going over as long as there are machines to check.
> Making sense?
>
> [snipage]
> I'm running ActiveState Perl 5.005_02, and cannot upgrade it. Many
> scripts are run centrally and I don't have authority to do the upgrade
> on the script server.
>
Ewww. I tried using Perl 5.005_03 once (from Hip Communications - the
predecessor name to AS) and it was awful. I'd say as someone else said
that your options are limited with this version of Perl - very limited.
Not even David Roth can help you with that and he's king of Perl Win32...
If it were me, I might try (roughly) writing a listener that I could put
on every end point (node) that listened on say port 9010 (or some other
port). Have a central listener on a central machine on port 9011 (or
some other port) to handle replies to requests sent to the listener port
of the end nodes. Have the central box run a request out to all the (or
a batch of) listeners on port 9010 and wait for the replies to come back
in on port 9011. You can batch your requests based on the capacity of
the central listener (on port 9011) to handle replies. When the central
node receives all the replies (or gives up trying/waiting due to end
node down, etc), then you are done.
The simplest way to write a listener in Perl on Windows (with the
version you have) IMO is to combine your listener code with SRVANY.EXE
(available on Windows RK CD) and create Windows service daemons.
Chris
-----
Chris Olive
chris +at+ technologEase +dot+ com
http://www.technologEase.com
(pronounced "technlogies")
------------------------------
Date: 25 Jan 2004 17:25:48 -0800
From: jps0695@rit.edu (Schmigz)
Subject: win32::SerialPort; Sending Raw Data
Message-Id: <5b478d34.0401251725.66dc8b76@posting.google.com>
I am writing a program to send data to a Digital Picture Frame I am
currently designing. It has a serial port that I have configured and
I have successfully sent data using the win32::SerialPort module. The
problem I am having is I need to send a raw bit stream out the serial
port. I have an array of strings that contain raw binary data (eq.
"00101001") that is the color information I need to send. When I send
the string, it converts the bit stream to ascii for sending. My code:
foreach $color (@RGB)
{
$PortObj->write($color);
}
What must I do to be able to send the data so that it is not converted
to ascii before being sent and the raw data is sent.
Thanks.
------------------------------
Date: 26 Jan 2004 01:33:11 GMT
From: roberson@ibd.nrc-cnrc.gc.ca (Walter Roberson)
Subject: Re: win32::SerialPort; Sending Raw Data
Message-Id: <bv1qon$r6s$1@canopus.cc.umanitoba.ca>
In article <5b478d34.0401251725.66dc8b76@posting.google.com>,
Schmigz <jps0695@rit.edu> wrote:
:I am writing a program to send data to a Digital Picture Frame I am
:currently designing. It has a serial port that I have configured and
:I have successfully sent data using the win32::SerialPort module. The
:problem I am having is I need to send a raw bit stream out the serial
:port. I have an array of strings that contain raw binary data (eq.
:"00101001") that is the color information I need to send. When I send
:the string, it converts the bit stream to ascii for sending. My code:
:foreach $color (@RGB)
: {
: $PortObj->write($color);
: }
:What must I do to be able to send the data so that it is not converted
:to ascii before being sent and the raw data is sent.
foreach $color (@RGB)
{
$PortObj->write(pack 'B*', $color)
}
Or, more shortly,
$PortObj->write pack 'B*', $_ foreach @RGB
--
Will you ask your master if he wants to join my court at Camelot?!
------------------------------
Date: 26 Jan 2004 06:34:13 -0800
From: jps0695@rit.edu (Schmigz)
Subject: Re: win32::SerialPort; Sending Raw Data
Message-Id: <5b478d34.0401260634.3ac48bac@posting.google.com>
Works great, thank you very much.
------------------------------
Date: Fri, 23 Jan 2004 04:44:44 GMT
From: "edgrsprj" <edgrsprj@ix.netcom.com>
Subject: Window and program control questions
Message-Id: <0F1Qb.20625$i4.16562@newsread1.news.atl.earthlink.net>
I am trying to make the switch to Perl from several other programs including
several versions of Basic and an older Windows control program. A few
questions regarding this have already been answered. Here are a few more.
I could not immediately find the answers to them by scanning through the
Perl documentation. And I am trying to save some time by getting that
information
through this Newsgroup.
If I need to have Perl do the following, what would the command lines be?
1. Run a DOS program called "c:\prog.bat"
2. Run a Windows program called "c:\prog.exe"
3. There are 2 open windows, "text1.txt" and "text2.txt" Text1.txt is the
one being displayed. And I want a Perl program to make text2.txt the one
being displayed 5 seconds after it starts running. I imagine that the "sleep
5; " command would be involved.
------------------------------
Date: Fri, 23 Jan 2004 05:02:03 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Window and program control questions
Message-Id: <fV1Qb.4234$tL2.261@nwrddc03.gnilink.net>
edgrsprj wrote:
> 1. Run a DOS program called "c:\prog.bat"
> 2. Run a Windows program called "c:\prog.exe"
Depends on how you define "run":
perldoc -f system
perldoc -q system
perldoc -f exec
perldoc -f qx (which will redirect you to perldoc perlop)
backticks
perldoc -f open (when piping from/into another program)
....
jue
------------------------------
Date: Fri, 23 Jan 2004 06:16:50 GMT
From: "edgrsprj" <edgrsprj@ix.netcom.com>
Subject: Re: Window and program control questions
Message-Id: <m%2Qb.20769$i4.10309@newsread1.news.atl.earthlink.net>
"Jürgen Exner" <jurgenex@hotmail.com> wrote in message
news:fV1Qb.4234$tL2.261@nwrddc03.gnilink.net...
> edgrsprj wrote:
Thanks. Given a few hints I learn pretty fast. Here are two of the three
commands that I needed:
I believe that "exec" starts a program running. And then the Perl program
stops executing. Using "system" (instead of "exec") starts a program
running. The Perl program waits for that program to end. Then it resumes
operation.
To get a DOS program running (for example, prog.bat):
exec 'c:\prog.bat';
To get a Windows program running (for example, notepad.exe):
exec 'c:\windows\start.exe notepad';
I still need to determine the answer to question # 3. Is there a command
which Perl can use to switch between two windows (display screens) which are
already open?
------------------------------
Date: Fri, 23 Jan 2004 11:07:32 GMT
From: "edgrsprj" <edgrsprj@ix.netcom.com>
Subject: Re: Window and program control questions
Message-Id: <Uf7Qb.21284$i4.12039@newsread1.news.atl.earthlink.net>
It appears that to open and close windows and switch from one to another a
"CScript" program has to be executed. It is a little tricky. But it works
nicely.
------------------------------
Date: Fri, 23 Jan 2004 12:25:00 GMT
From: tiltonj@erols.com (Jay Tilton)
Subject: Re: Window and program control questions
Message-Id: <4011113b.281270244@news.erols.com>
"edgrsprj" <edgrsprj@ix.netcom.com> wrote:
: It appears that to open and close windows and switch from one to another a
: "CScript" program has to be executed. It is a little tricky. But it works
: nicely.
It doesn't even have to be tricky. Whatever the Windows Script Host
program is doing for you can most likely be done equivalently through
Win32::OLE.
------------------------------
Date: Fri, 23 Jan 2004 13:37:11 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: Window and program control questions
Message-Id: <bur827$l0o$1@wisteria.csv.warwick.ac.uk>
"edgrsprj" <edgrsprj@ix.netcom.com> wrote:
> It appears that to open and close windows and switch from one to another a
> "CScript" program has to be executed. It is a little tricky. But it works
> nicely.
That is certainly one way of doing it, and may well be the
easiest. But I would have thought it was also possible to do using one
of the Win32:: or Win32API:: modules.
Ben
--
Heracles: Vulture! Here's a titbit for you / A few dried molecules of the gall
From the liver of a friend of yours. / Excuse the arrow but I have no spoon.
(Ted Hughes, [ Heracles shoots Vulture with arrow. Vulture bursts into ]
/Alcestis/) [ flame, and falls out of sight. ] ben@morrow.me.uk
------------------------------
Date: Fri, 23 Jan 2004 19:51:15 -0600
From: l v <lv@aol.com>
Subject: Re: Window and program control questions
Message-Id: <jckQb.5859$5M.141855@dfw-read.news.verio.net>
edgrsprj wrote:
> "Jürgen Exner" <jurgenex@hotmail.com> wrote in message
> I still need to determine the answer to question # 3. Is there a command
> which Perl can use to switch between two windows (display screens) which are
> already open?
>
>
I have used the following to do what you ask.
use Win32::GuiTest qw(FindWindowLike SetForegroundWindow);
Len
------------------------------
Date: Sat, 24 Jan 2004 03:41:54 GMT
From: "edgrsprj" <edgrsprj@ix.netcom.com>
Subject: Re: Window and program control questions
Message-Id: <6QlQb.22414$i4.14902@newsread1.news.atl.earthlink.net>
"Jay Tilton" <tiltonj@erols.com> wrote in message
news:4011113b.281270244@news.erols.com...
> "edgrsprj" <edgrsprj@ix.netcom.com> wrote:
> It doesn't even have to be tricky. Whatever the Windows Script Host
> program is doing for you can most likely be done equivalently through
> Win32::OLE.
>
Thanks all. I read the documents people mentioned. But the code is
presently too advanced for me. I am posting another note about this in a
new thread.
------------------------------
Date: 30 Dec 2003 11:11:04 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: writting an 'in' keyword for perl
Message-Id: <bsrmg8$lnf$2@mamenchi.zrz.TU-Berlin.DE>
Jürgen Exner <jurgenex@hotmail.com> wrote in comp.lang.perl.misc:
> David wrote:
> > I can't count how many times I've wanted to write a statement like
> > this:
> >
> > if ($val in @vals){
> > # do my stuff
> > }
> >
> > Does anyone know of a way to cause a sub call to recieve the
> > scalar preseeding the sub call as well as the array following?
> > Essetialy I want to create a keyword called in which checks to see if
> > a list contains a certain value.
> >
> > Yes I know I can use something like
> >
> > my $in = $val eq $_ ? 1 : 0 for (@vals);
> > if ($in){
> > # do my stuff
> > }
>
> That's ugly. Why not simply
> for my $in ( grep {$val==$_}, @vals) {
^
> # do my stuff
> }
Either "grep $val == $_, @vals" or "grep { $val == $_ } @vals". A block
goes into the indirect object slot.
Anno
------------------------------
Date: 30 Dec 2003 06:19:06 -0800
From: noylwigymea@hotmail.com (David)
Subject: Re: writting an 'in' keyword for perl
Message-Id: <7041eb48.0312300619.1bcd3673@posting.google.com>
Thanks all for your responses. While not really a keyword as I was
hoping, you gave me some excellent alternatives.
Thanks again,
David
------------------------------
Date: Sun, 25 Jan 2004 13:15:21 +0100
From: "Federico Bari" <fede72bari@tiscali.it>
Subject: XML MULTI-TABLES parsing and mySQL
Message-Id: <bv0c1g$rub$1@lacerta.tiscalinet.it>
Hi all,
I'm a bigginer using XML with Perl or PHP; I have to manage xml files
storing datas of more than one table (inside the same xml file), and use it
to update a mySQL database (the xml schema is a copy of the mySQL database).
I'd like to know if somebody could suggest an easy and fast way to extract
datas from each table and row or if you can suggest me simple tutorials. For
example is it possible refer to a table inside the xml file calling it by
name? and then extract each row of the table "table_name"? and then call
heach field of the row of "table_name" with its name too ("field_name")?
Thank you very much,
Federico.
------------------------------
Date: Mon, 26 Jan 2004 12:43:39 -0000
From: Lance Wicks <LanceW@azizcorp.com>
Subject: XML MULTI-TABLES parsing and mySQL
Message-Id: <6500849429BF194792EB97AD93E29FD7423EA6@secondary.azizcorp.com>
Frederico,
I am by no means an expert, but perhaps DBD::Anydata might be just what
you are after.
It will allow you to access the XML data using SQL commands, you could
then use DBI for all you database access.
Try this url for more info.
Lance
-----Original Message-----
From: Federico Bari [mailto:fede72bari@tiscali.it]
Posted At: Sunday, January 25, 2004 12:15
Posted To: misc
Conversation: XML MULTI-TABLES parsing and mySQL
Subject: XML MULTI-TABLES parsing and mySQL
Hi all,
I'm a bigginer using XML with Perl or PHP; I have to manage xml
files
storing datas of more than one table (inside the same xml file), and use
it
to update a mySQL database (the xml schema is a copy of the mySQL
database).
I'd like to know if somebody could suggest an easy and fast way to
extract
datas from each table and row or if you can suggest me simple tutorials.
For
example is it possible refer to a table inside the xml file calling it
by
name? and then extract each row of the table "table_name"? and then call
heach field of the row of "table_name" with its name too
("field_name")?
Thank you very much,
Federico.
begin 600 DBD-AnyData-0.06.url
M6TEN=&5R;F5T4VAO<G1C=71=#0I54DP]:'1T<#HO+W-E87)C:"YC<&%N+F]R
M9R]^:GIU8VME<B]$0D0M06YY1&%T82TP+C`V+PT*36]D:69I960]1#`P,#8W
.1C8P.44T0S,P,41%#0H=
`
end
------------------------------
Date: Sun, 25 Jan 2004 12:40:44 -0500
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: XML MULTI-TABLES parsing and mySQL
Message-Id: <pan.2004.01.25.17.40.42.149607@remove.adelphia.net>
On Sun, 25 Jan 2004 13:15:21 +0100, Federico Bari wrote:
> I'm a bigginer using XML with Perl or PHP; I have to manage xml files
> storing datas of more than one table (inside the same xml file), and use it
> to update a mySQL database (the xml schema is a copy of the mySQL database).
> I'd like to know if somebody could suggest an easy and fast way to extract
> datas from each table and row or if you can suggest me simple tutorials. For
> example is it possible refer to a table inside the xml file calling it by
> name? and then extract each row of the table "table_name"? and then call
> heach field of the row of "table_name" with its name too ("field_name")?
You may want to examine the DBD::AnyData module
(http://search.cpan.org/~jzucker/DBD-AnyData-0.06/AnyData.pm).
This *may* fit the bill for you. I can't say I've used it, but from
reading the documentation, this may be what you're after.
I also suggest you look over
http://learn.perl.org/library/beginning_perl/
This is a tutorial on using Perl.
And ... you can view Perl's documentation online at
http://perldoc.com/
And ... to use the Perl DBI module (which you will need to read up on if
you want to access a database from Perl)
http://dbi.perl.org/
HTH
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
Murphy's Law is recursive. Washing your car to make it rain
<doesn't work.
------------------------------
Date: 26 Jan 2004 19:15:47 GMT
From: ctcgag@hotmail.com
Subject: Re: XML MULTI-TABLES parsing and mySQL
Message-Id: <20040126141547.171$L9@newsreader.com>
"Federico Bari" <fede72bari@tiscali.it> wrote:
> Hi all,
>
> I'm a bigginer using XML with Perl or PHP; I have to manage xml files
> storing datas of more than one table (inside the same xml file),
There is more than one way data can be stored in an XML file. Just knowing
it is an XML file only gets you 0.1% of the way to knowing how to deal
with it.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service New Rate! $9.95/Month 50GB
------------------------------
Date: 28 Jan 2004 06:46:58 -0800
From: LamerRA@LOUISVILLE.STORTEK.COM (Lamerand, Robert A)
Subject: Re: Yellow Card
Message-Id: <9E62414A1743C646B26A92C0E82C2E064D06F6@hq-msg03.louisville.stortek.com>
Is this what you are looking for?
http://publibz.boulder.ibm.com/epubs/pdf/dz9zs000.pdf
Bob
-----Original Message-----
From: ISPF discussion list [mailto:ISPF-L@LISTSERV.ND.EDU] On Behalf Of
Sergio Lima
Sent: January 28, 2004 7:39 AM
To: ISPF-L@LISTSERV.ND.EDU
Subject: Yellow Card
Hello.
Times ago We found a site with a Yellow Card from IBM, with all Assembler
Instructions, Machine instructions, PSW format, and another choices.
We lost thie address, and have no more the paper, So, we want know if
anybody know this address .
Thanks a lot
Sergio Lima Costa
System Consultant
Sao Paulo - Brazil
_________________________________________________________________
MSN Messenger: converse com os seus amigos online.
http://messenger.msn.com.br
------------------------------
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 V10 Issue 6051
***************************************
