[29983] in Perl-Users-Digest
Perl-Users Digest, Issue: 1226 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jan 23 16:09:46 2008
Date: Wed, 23 Jan 2008 13:09:12 -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 Wed, 23 Jan 2008 Volume: 11 Number: 1226
Today's topics:
Re: Can't Install Perl as Non-Root <ben@morrow.me.uk>
Re: Chat client/server print failed <zentara@highstream.net>
Re: every($key, $interval) function <tzz@lifelogs.com>
Exists a Module to transform RTF to PDF, directly <rafael.avaria@gmail.com>
Re: Newbie Perl Question <tzz@lifelogs.com>
Re: Newbie Perl Question <tzz@lifelogs.com>
Open Letter to Prof. Andrew George, University of DENVE <ross.dover@gmail.com>
Problem relaying uploads paktsardines@gmail.com
Re: Problem relaying uploads paktsardines@gmail.com
Re: Problem relaying uploads <smallpond@juno.com>
Re: Problem relaying uploads xhoster@gmail.com
Re: Problem relaying uploads <smallpond@juno.com>
Re: Problem relaying uploads <mgjv@tradingpost.com.au>
RegEx, how to seperate word from digits? <kirk@hdsdata.com>
Re: RegEx, how to seperate word from digits? <smallpond@juno.com>
sorting a list of objects using one of their methods? <grady@email.arizona.edu>
Re: sorting a list of objects using one of their method <john@castleamber.com>
Re: sprintf rouding error <jurgenex@hotmail.com>
Re: sprintf rouding error <tzz@lifelogs.com>
Re: Variable interpolation and m in regular expression <sensorflo@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 23 Jan 2008 15:41:21 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Can't Install Perl as Non-Root
Message-Id: <1q3k65-u02.ln1@osiris.mauzo.dyndns.org>
Quoth dawmail333 <Dawmail333@gmail.com>:
> On Jan 19, 5:12 pm, Ben Morrow <b...@morrow.me.uk> wrote:
> >
> > File::Find is trying to work out its cwd, which means it needs to be
> > able to readdir all the directories down from /. Do you not have read
> > permission on /home?
> >
<snip>
> > Is it possible for you to build perl (not necessarily install perl) in a
> > directory where you *can* read all the directories down from /? Perhaps
> > /tmp, if there's enough room there? Otherwise, try 5.10.0, which has a
> > newer version of Cwd that (at least on my machine) doesn't fail in the
> > same way.
>
> I don't have read permissions in home, and I don't think I have write
> in tmp either. Doesn't that get removed anyway?
It doesn't matter if it gets removed: you only need to build perl there,
not install it, so you'd remove the build tree afterwards anyway.
> I tried 5.10, and this is my new error.
>
<snip>
> make[1]: Entering directory `/home/.bazooka/dawliam/perl-5.10.0/ext/
> DynaLoader'
> /bin/sh: line 1: /miniperl: No such file or directory
This looks like the same problem: the Makefile is supposed to invoke
miniperl by an absolute path, but it is failing because it can't work
out its cwd. If you look at ext/Dynaloader/Makefile, what is ABSPERL set
to (it's in the section called 'MakeMaker constants section')? It should
be an absolute path to miniperl in the build directory.
I suspect you may not be able to fix this, as MakeMaker needs to know
its cwd, even after perl is installed. Can you find it at all? What do
you get if you run, from the build directory,
/bin/pwd
./miniperl -Ilib -MCwd -le'print Cwd::getcwd'
./miniperl -Ilib -MCwd -le'print Cwd::cwd'
If one of those works, you may be able to patch MakeMaker to use it.
Ben
------------------------------
Date: Wed, 23 Jan 2008 16:54:35 GMT
From: zentara <zentara@highstream.net>
Subject: Re: Chat client/server print failed
Message-Id: <s0sep3d8ninkgitou2je7o8nskpmu60j02@4ax.com>
On Tue, 22 Jan 2008 07:55:23 -0800 (PST), deadpickle
<deadpickle@gmail.com> wrote:
>Thanks for the help, I think your right about a timer being a bad
>choice. I added the lines, and edited them, to the program. When I ran
>the client I got an error that was referenced to the add_watch of the
>Gtk2::Helper (located in the connect_server sub):
>*** unhandled exception in callback:
>*** Not a GLOB reference at chat-client.pl line 120.
>*** ignoring at chat-client.pl line 67.
>I have gotten these errors before but I don't understand what they
>mean or how I fixed them. I reposted the program with the new code.
>I'm not sure if I got it implemented correctly.
I see Ben Morrow tried to fix your numerous errors, but why don't you
go to
http://perlmonks.org?node_id=663428
and use that as a basic start to rewrite your code. All you need to do
is add a logon popup and do a password negotiation.
Your current code is too complex for someone to troubleshoot for
free.
zentara
--
I'm not really a human, but I play one on earth.
http://zentara.net/japh.html
------------------------------
Date: Wed, 23 Jan 2008 13:15:27 -0600
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: every($key, $interval) function
Message-Id: <86prvsbbg0.fsf@lifelogs.com>
Just a followup: every() has been very useful for progress counters,
e.g.:
sub print_update
{
print '.' if every(50);
print "\n" if every(500);
}
Plus I've used it for other things, like doing a DB commit every N
items, etc.
Here's the final version I'm using, from Dr. Ruud's suggestions:
{
my %counters;
sub every
{
my ($div, @id) = @_;
return !(++$counters{ caller(), $div, @id } % $div);
}
}
Ted
------------------------------
Date: Wed, 23 Jan 2008 12:27:42 -0800 (PST)
From: lala4life <rafael.avaria@gmail.com>
Subject: Exists a Module to transform RTF to PDF, directly
Message-Id: <322a2f57-523e-48b2-80fa-2d290c0ec94d@z17g2000hsg.googlegroups.com>
Hi there
Exists a module to transform RTF to PDF, directly.
In cpan found modules to transform RTF to HTML and then HTML to PDF,
but is lossless HTML is not so rich format as RTF.
Please help.
------------------------------
Date: Wed, 23 Jan 2008 09:22:46 -0600
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: Newbie Perl Question
Message-Id: <86sl0od0s9.fsf@lifelogs.com>
On Wed, 23 Jan 2008 10:53:07 +0000 RedGrittyBrick <RedGrittyBrick@SpamWeary.foo> wrote:
R> use CGI ':standard';
...
R> my $query = new CGI;
...
R> my $origin = $ENV{'HTTP_REFERER'};
There is a referer() method for CGI queries. If you're bothering to
create the query object, you may as well use it.
Ted
------------------------------
Date: Wed, 23 Jan 2008 09:23:48 -0600
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: Newbie Perl Question
Message-Id: <86odbcd0qj.fsf@lifelogs.com>
On Wed, 23 Jan 2008 12:08:42 +0100 Gunnar Hjalmarsson <noreply@gunnar.cc> wrote:
GH> Add this line to the beginning of the script, to get more useful error
GH> messages displayed in the browser:
GH> use CGI::Carp 'fatalsToBrowser';
This can be very insecure :) I usually also advise "and remember to
turn it off in production."
Ted
------------------------------
Date: Wed, 23 Jan 2008 04:49:06 -0800 (PST)
From: ross <ross.dover@gmail.com>
Subject: Open Letter to Prof. Andrew George, University of DENVER, Dept of Physics, COLORADO, 80208 USA.
Message-Id: <ccee100e-5142-4365-a6fd-8cca2f9bf9e2@c23g2000hsa.googlegroups.com>
Open Letter to Prof. Andrew George, University of DENVER, Dept of
Physics, COLORADO, 80208 USA.
Ref. Einstein's Sep 1905 derivation predicts that,
'When body emits Light Energy, its Mass must also Increase'.
Abstract
To draw scientific conclusions, the knowledge of the paper/topic and
basic aspects of science is necessary. But it has not been so in Prof
Andrew George's comments regarding Ajay Sharma's work on Einstein's
Sep. 1905 paper in the published in Galilean Electrodynamics. Ajay
Sharma has confirmed in various publications that Einstein's Sep. 1905
derivation contradicts law of conservation of matter under some
conditions. This aspect is justified here. Under certain condition
Einstein's Sep 1905 derivation predicts
Mass after emission (Ma)
= Mass before emission (Mb) + (0.04L/10c -L/
c2) (1)
Here ( 0.04L/10c -L/c2 ) is positive quantity.
Hence
'When light energy is EMITTED, mass of body must also INCREASE '
Which is NOT justified.
For complete 4 page article vist
http://www.mrelativity.net/Default.htm
or Email phy.scie@gmail.com
------------------------------
Date: Wed, 23 Jan 2008 05:54:11 -0800 (PST)
From: paktsardines@gmail.com
Subject: Problem relaying uploads
Message-Id: <6073ec4b-7357-4035-8da2-17d811ab1bd8@s13g2000prd.googlegroups.com>
Dear all,
I have painted myself into a fairly bizarre corner for a fairly
bizarre client. I would be grateful if someone could please help shed
some light on what is going wrong.
Here's the situation in brief:
A. A company has a number of office machines (OMs) that can access the
company's intranet through a browser.
B. Their intranet web server (IWS) provides a web interface containing
a CGI upload form for uploading files from the OMs to a remote web
server (RWS) for processing, the output of which is to be sent back to
the IWS.
C. The OMs are not permitted to access the RWS directly.
Suffice to say that [I think] any upload from an OM has to be done in
two steps. The first is to upload the file to the IWS. The second
step is to upload the file from the IWS to the RWS. ie:
OM -> IWS -> RWS
The first step is working fine using the CGI upload command.. That
is, a user can upload the file from their office machine to a
directory on the IWS.
The second step is causing me grief. I was very much hoping that this
could simply be done by passing the upload formdata on the IWS into a
curl command for the RWS, but the file won't upload and I'm getting no
errors in the log.
I suppose my question is, is my strategy workable, or is there known
problems with CGI when uploading from one web server to another (as
opposed to uploading from one filesystem to a web-server (as in the
first step))?
Is it possible that I'm breaking the 'upload' filehandle/filename
structure by simply passing it in as formdata to curl?
I've already thrown many hours at this problem and I would like to
know if I should continue throwing more.
Thank you for any suggestions/advice.
------------------------------
Date: Wed, 23 Jan 2008 06:34:55 -0800 (PST)
From: paktsardines@gmail.com
Subject: Re: Problem relaying uploads
Message-Id: <efb90041-5b1b-4570-95ed-6e950db80c56@v67g2000hse.googlegroups.com>
Here is some sample code to help clarify things. In this example,
each line of the file uploaded to the IWS is reversed by the RWS
IWS has something like the following:
upload.html:
<form method="post" action="upload.pl">
<input type="file" name="file_upload">
<input type="submit" value="upload">
upload.pl:
my $filename=$q->param('input_file')
my $fh = $q->upload('input_file');
my $tmpfile="test.txt";
open UPLOADFILE, ">$tmp_file" or die "Cannot open $!ile\n";
while (<$fh>) {
print UPLOADFILE;
}
close UPLOADFILE;
# this works to this point.. then it tries the curl stuff
$cmd_curl= "/usr/bin/curl -d \"file_upload=" . $q-
>param('input_file') ."\" http://RWS.domain.com/process.pl
print `$cmd_curl`
Then, on RWS, there's something like:
process.pl:
my $filename=$q->param('input_file')
my $fh = $q->upload('input_file');
while (<$fh>) {
print reverse($_); # reverse the line, for example..
}
Hopefully this clarifies things a little more.
------------------------------
Date: Wed, 23 Jan 2008 07:01:50 -0800 (PST)
From: smallpond <smallpond@juno.com>
Subject: Re: Problem relaying uploads
Message-Id: <74685a37-278f-4473-931c-01c6108121f5@s8g2000prg.googlegroups.com>
On Jan 23, 9:34 am, paktsardi...@gmail.com wrote:
> Here is some sample code to help clarify things. In this example,
> each line of the file uploaded to the IWS is reversed by the RWS
>
> IWS has something like the following:
>
> upload.html:
> <form method="post" action="upload.pl">
> <input type="file" name="file_upload">
> <input type="submit" value="upload">
>
> upload.pl:
> my $filename=$q->param('input_file')
> my $fh = $q->upload('input_file');
> my $tmpfile="test.txt";
> open UPLOADFILE, ">$tmp_file" or die "Cannot open $!ile\n";
> while (<$fh>) {
> print UPLOADFILE;}
>
> close UPLOADFILE;
>
> # this works to this point.. then it tries the curl stuff
> $cmd_curl= "/usr/bin/curl -d \"file_upload=" . $q->param('input_file') ."\"http://RWS.domain.com/process.pl
>
> print `$cmd_curl`
>
> Then, on RWS, there's something like:
> process.pl:
> my $filename=$q->param('input_file')
> my $fh = $q->upload('input_file');
>
> while (<$fh>) {
> print reverse($_); # reverse the line, for example..
>
> }
>
> Hopefully this clarifies things a little more.
Your curl command is totally wrong. It needs to be
/usr/bin/curl -d input_file=test.txt
What you are actually sending is:
/usr/bin/curl -d file_upload=some_random_filename
------------------------------
Date: 23 Jan 2008 17:12:16 GMT
From: xhoster@gmail.com
Subject: Re: Problem relaying uploads
Message-Id: <20080123121217.832$mc@newsreader.com>
paktsardines@gmail.com wrote:
> Here is some sample code to help clarify things. In this example,
> each line of the file uploaded to the IWS is reversed by the RWS
>
> IWS has something like the following:
>
> upload.html:
> <form method="post" action="upload.pl">
> <input type="file" name="file_upload">
> <input type="submit" value="upload">
>
> upload.pl:
> my $filename=$q->param('input_file')
> my $fh = $q->upload('input_file');
> my $tmpfile="test.txt";
> open UPLOADFILE, ">$tmp_file" or die "Cannot open $!ile\n";
Which is it, $tmpfile or $tmp_file? And what the heck is $!ile ?
> while (<$fh>) {
> print UPLOADFILE;
> }
> close UPLOADFILE;
>
> # this works to this point.. then it tries the curl stuff
> $cmd_curl= "/usr/bin/curl -d \"file_upload=" . $q-
> >param('input_file') ."\" http://RWS.domain.com/process.pl
> print `$cmd_curl`
No where here do you give curl $tmp_file or $tmpfile, so how is
curl supposed to find the file to upload it? Plus, that doesn't seem
to be how you do file uploads with curl, my reading of the man page
suggests you would use -F, not -d. (But that isn't a Perl issue).
Xho
--
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.
------------------------------
Date: Wed, 23 Jan 2008 10:59:49 -0800 (PST)
From: smallpond <smallpond@juno.com>
Subject: Re: Problem relaying uploads
Message-Id: <50b41829-8175-4481-a6db-3efdd0a82ee5@e23g2000prf.googlegroups.com>
On Jan 23, 10:01 am, smallpond <smallp...@juno.com> wrote:
> On Jan 23, 9:34 am, paktsardi...@gmail.com wrote:
>
>
>
> > Here is some sample code to help clarify things. In this example,
> > each line of the file uploaded to the IWS is reversed by the RWS
>
> > IWS has something like the following:
>
> > upload.html:
> > <form method="post" action="upload.pl">
> > <input type="file" name="file_upload">
> > <input type="submit" value="upload">
>
> > upload.pl:
> > my $filename=$q->param('input_file')
> > my $fh = $q->upload('input_file');
> > my $tmpfile="test.txt";
> > open UPLOADFILE, ">$tmp_file" or die "Cannot open $!ile\n";
> > while (<$fh>) {
> > print UPLOADFILE;}
>
> > close UPLOADFILE;
>
> > # this works to this point.. then it tries the curl stuff
> > $cmd_curl= "/usr/bin/curl -d \"file_upload=" . $q->param('input_file') ."\"http://RWS.domain.com/process.pl
>
> > print `$cmd_curl`
>
> > Then, on RWS, there's something like:
> > process.pl:
> > my $filename=$q->param('input_file')
> > my $fh = $q->upload('input_file');
>
> > while (<$fh>) {
> > print reverse($_); # reverse the line, for example..
>
> > }
>
> > Hopefully this clarifies things a little more.
>
> Your curl command is totally wrong. It needs to be
> /usr/bin/curl -d input_file=test.txt
>
> What you are actually sending is:
> /usr/bin/curl -d file_upload=some_random_filename
Doh. What am I thinking. This will never work. curl
is sending form fields, not the file. When a form has
input type="file" name="somename" size="chars"
the client browser is packing up the file and sending
it along in a multipart request. curl has no clue how to
do that. You could write the whole thing in perl
and issue the request to the server. The basics of file
input type are here:
http://www.cs.tut.fi/~jkorpela/forms/file.html
It would require you to create the whole multipart form request
with the file properly MIME-encoded, then connect to the web
server and ship up the whole thing.
--S
------------------------------
Date: Thu, 24 Jan 2008 07:43:07 +1100
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: Problem relaying uploads
Message-Id: <slrnfpf9mr.rpv.mgjv@martien.heliotrope.home>
On Wed, 23 Jan 2008 05:54:11 -0800 (PST),
paktsardines@gmail.com <paktsardines@gmail.com> wrote:
> A. A company has a number of office machines (OMs) that can access the
> company's intranet through a browser.
>
> B. Their intranet web server (IWS) provides a web interface containing
> a CGI upload form for uploading files from the OMs to a remote web
> server (RWS) for processing, the output of which is to be sent back to
> the IWS.
>
> C. The OMs are not permitted to access the RWS directly.
Can you use a HTTP proxy?
Martien
--
|
Martien Verbruggen | If it isn't broken, it doesn't have enough
| features yet.
|
------------------------------
Date: Wed, 23 Jan 2008 12:21:29 -0800 (PST)
From: kirknew2Reg <kirk@hdsdata.com>
Subject: RegEx, how to seperate word from digits?
Message-Id: <a551396f-f7d7-48c9-846e-a8fc0a38c052@s8g2000prg.googlegroups.com>
I have a column that contains "suite 111" and "suite222"I need a $
variable containing the word part and aother $ variable containing the
digit part. I have tried variations on this syntax:
(\w*)(\d*)(.*)
(\w*)(\s?)(\d*)(.*)
But nothig I have tried seperates the word from the digits when there
is no space. How do i get 'suite222' to brake in to seperate
variables?
------------------------------
Date: Wed, 23 Jan 2008 12:30:37 -0800 (PST)
From: smallpond <smallpond@juno.com>
Subject: Re: RegEx, how to seperate word from digits?
Message-Id: <098f938b-ec6c-4c03-9830-3d509e4b7d65@k2g2000hse.googlegroups.com>
On Jan 23, 3:21 pm, kirknew2Reg <k...@hdsdata.com> wrote:
> I have a column that contains "suite 111" and "suite222"I need a $
> variable containing the word part and aother $ variable containing the
> digit part. I have tried variations on this syntax:
> (\w*)(\d*)(.*)
> (\w*)(\s?)(\d*)(.*)
> But nothig I have tried seperates the word from the digits when there
> is no space. How do i get 'suite222' to brake in to seperate
> variables?
How about: /([[:alpha:]]*)\s*(\d*)/
------------------------------
Date: Wed, 23 Jan 2008 18:32:06 +0000 (UTC)
From: Grady Weyenberg <grady@email.arizona.edu>
Subject: sorting a list of objects using one of their methods?
Message-Id: <fn8176$5t0$1@onion.ccit.arizona.edu>
Hi,
I have @list=($obj_1,$obj_2,...) where each $obj, although of different
classes, have a common inherited method, $obj->name.
I am trying to sort @list alphabetically using the value of $obj->name.
I have tried
@list = sort {$a->name cmp $b->name} @list;
but this fails with:
'Can't call method "name" without a package or object reference.'
and I'm not sure how to pass a reference in this context.
Will this be possible using Perl's sort directly on the object list, or
will I need to write my own sorting function?
Thanks,
Grady
------------------------------
Date: 23 Jan 2008 19:09:08 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: sorting a list of objects using one of their methods?
Message-Id: <Xns9A2E85CB47D26castleamber@130.133.1.4>
Grady Weyenberg <grady@email.arizona.edu> wrote:
> Hi,
>
> I have @list=($obj_1,$obj_2,...) where each $obj, although of different
> classes, have a common inherited method, $obj->name.
>
> I am trying to sort @list alphabetically using the value of $obj->name.
> I have tried
>
> @list = sort {$a->name cmp $b->name} @list;
>
> but this fails with:
> 'Can't call method "name" without a package or object reference.'
> and I'm not sure how to pass a reference in this context.
Sounds like you don't have only objects refs in your list, try to debug
with:
for my $item ( @list ) {
print ref $item, "\n";
}
to see what you have in your list.
> Will this be possible using Perl's sort directly on the object list, or
> will I need to write my own sorting function?
AFAIK what you want should work, but it sounds like not all objects in
your list are actually object refs.
(Note: if your list is very long, and your name function is slow, you
might want to use a "Schwartzian Transform".)
--
John
Arachnids near Coyolillo - part 1
http://johnbokma.com/mexit/2006/05/04/arachnids-coyolillo-1.html
------------------------------
Date: Wed, 23 Jan 2008 12:22:14 GMT
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: sprintf rouding error
Message-Id: <u5cep3tui62f25p5gv1e51r0rt10lta83l@4ax.com>
Broki@gmx.de wrote:
>Another programmer gave me the hint to multiply with 100 (calculate in
>cents)
>and then divide and multiply only with integers, one after another.
>(its the same as the hint of Mr. Holzer)
>There are so many answers but as far as I can see, the problem is
>minimized but not
>solved completely due to the nature of at least the floating point
>RESULT.
There is a reason why Numerics is a subject of its own right in computer
science.
jue
------------------------------
Date: Wed, 23 Jan 2008 09:26:01 -0600
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: sprintf rouding error
Message-Id: <86k5m0d0mu.fsf@lifelogs.com>
On Wed, 23 Jan 2008 12:22:14 GMT Jürgen Exner <jurgenex@hotmail.com> wrote:
JE> There is a reason why Numerics is a subject of its own right in
JE> computer science.
Yes, it's so students can avoid it specifically by name :)
Ted
------------------------------
Date: Wed, 23 Jan 2008 04:13:43 -0800 (PST)
From: Florian Kaufmann <sensorflo@gmail.com>
Subject: Re: Variable interpolation and m in regular expression matching
Message-Id: <b14e18f6-456f-405e-a6c6-9c541b11d2eb@d4g2000prg.googlegroups.com>
> 1: the dollar sign in a RE is only special if it is the last character in
> the RE. In that case and only in that case it anchors(!) the RE to the end
Are you really sure about this rule? I think the $ anchor can also be
used right before the alternation operator | and before a closing
parenthesis ).
$ perl -e 'print "match:".(<> =~ /\d$|x/)."\n"' <<< 23f
match:
$ perl -e 'print "match:".(<> =~ /\d$|x/)."\n"' <<< 23
match:1
Flo
------------------------------
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 1226
***************************************
