[31387] in Perl-Users-Digest
Perl-Users Digest, Issue: 2639 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 19 14:20:11 2009
Date: Mon, 19 Oct 2009 11:19:59 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 19 Oct 2009 Volume: 11 Number: 2639
Today's topics:
Converting SVG to PNG not working. <mvdwege@mail.com>
Re: Converting SVG to PNG not working. sln@netherlands.com
Re: Converting SVG to PNG not working. <mvdwege@mail.com>
Re: FAQ 9.10 How do I decode or create those %-encoding <brian.d.foy@gmail.com>
Re: hide information from the view source" <cartercc@gmail.com>
How do I reference an array stoerd in a hash? <laredotornado@zipmail.com>
Re: How do I reference an array stoerd in a hash? sln@netherlands.com
Re: How do I reference an array stoerd in a hash? sharma__r@hotmail.com
Re: How do I reference an array stoerd in a hash? <laredotornado@zipmail.com>
Re: How do I reference an array stoerd in a hash? <jurgenex@hotmail.com>
Re: How do I reference an array stoerd in a hash? <jurgenex@hotmail.com>
Re: How do I reference an array stoerd in a hash? <tadmc@seesig.invalid>
Re: How do I reference an array stoerd in a hash? <uri@StemSystems.com>
Re: How do I reference an array stoerd in a hash? <someone@example.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 18 Oct 2009 15:49:48 +0200
From: Mart van de Wege <mvdwege@mail.com>
Subject: Converting SVG to PNG not working.
Message-Id: <86aazo95hf.fsf@gareth.avalon.lan>
Hi,
I'm trying to convert some graphs generated by SVG::TT::Graph to PNG,
using Image::Magick. However, I'm getting empty .png files back,
instead of PNG images.
This is the code I am using:
sub output {
my $self = shift;
my $outdir = $self->{OutDir};
die "No output directory set." unless $self->{OutDir};
my $tempdir = tempdir;
foreach my $graph( keys %{$self->{Graphs}} ) {
my $svg = $self->{Graphs}->{$graph};
print "converting $graph, using tempdir $tempdir\n";
open(my $fh,">","$tempdir/$graph.svg") or die "$!";
print $fh $svg;
close $fh;
open(FH,"<","$tempdir/$graph.svg") or die "$!";
my $image = Image::Magick->new(magick => 'svg');
$image->Read( file => \*FH );
close FH;
my $out_filename = "$graph.png";
chdir $outdir;
open(IMG_FILE,">","$graph.png") or die "$!";
$image->Write( { file => \*IMG_FILE,
filename => "$graph.png",
magick => 'png' });
close IMG_FILE;
}
}
(Note, I am using bareword filehandles because I thought it might make a
difference with an older module like Image::Magick. It doesn't work with
lexical handles either.)
A separate script that takes just a filename from the command line works
just fine:
#!/usr/bin/perl
use warnings;
use strict;
use Image::Magick;
my $infile=shift;
my ($basename,$filetype)=split(/\./,$infile);
open(INFILE,"<",$infile) or die "$!";
my $image=Image::Magick->new;
$image->Read(file=>\*INFILE);
$image->Set(density=>'300x300');
my $outfile=$basename . ".png";
open(OUTFILE,">",$outfile);
$image->Write(file=>\*OUTFILE, filename=>$outfile);
close(INFILE);
close(OUTFILE);
What is the difference I am overlooking here? Or should I just switch to
Image::LibRSVG?
Mart
--
"We will need a longer wall when the revolution comes."
--- AJS, quoting an uncertain source.
------------------------------
Date: Sun, 18 Oct 2009 10:01:48 -0700
From: sln@netherlands.com
Subject: Re: Converting SVG to PNG not working.
Message-Id: <0jhmd51ii2uefusvnmu4m404rirgjfo1io@4ax.com>
On Sun, 18 Oct 2009 15:49:48 +0200, Mart van de Wege <mvdwege@mail.com> wrote:
>Hi,
>
>I'm trying to convert some graphs generated by SVG::TT::Graph to PNG,
>using Image::Magick. However, I'm getting empty .png files back,
>instead of PNG images.
>
>This is the code I am using:
>
>
>sub output {
> my $self = shift;
> my $outdir = $self->{OutDir};
> die "No output directory set." unless $self->{OutDir};
> my $tempdir = tempdir;
> foreach my $graph( keys %{$self->{Graphs}} ) {
> my $svg = $self->{Graphs}->{$graph};
> print "converting $graph, using tempdir $tempdir\n";
> open(my $fh,">","$tempdir/$graph.svg") or die "$!";
^^^
I would try binmode($fh) here.
And examine the svg file.
> print $fh $svg;
> close $fh;
Otherwise for a test, starting here, hardcode a
known svg file and do the conversion to png
like you did with the script below.
> open(FH,"<","$tempdir/$graph.svg") or die "$!";
> my $image = Image::Magick->new(magick => 'svg');
^^
sets the object type?
The one Read file example doesen't set the object type
when reading from a filehandle, nor does it put it into binmode FH.
Try what works from the script below, change one thing at a time after
it starts working.
> $image->Read( file => \*FH );
^^
check return value
And its funny Read() does not allow the exact same
parameters available to setAttribute. Write, new, etc..
all have them available.
> close FH;
> my $out_filename = "$graph.png";
> chdir $outdir;
> open(IMG_FILE,">","$graph.png") or die "$!";
> $image->Write( { file => \*IMG_FILE,
^^
check return value
> filename => "$graph.png",
> magick => 'png' });
^^
This is suspicious here, is magick setting the
object attribute, or a help so that the module will
know what output type you really mean, just incase
it doesen't know how to parse filename => "$graph.png"
> close IMG_FILE;
For the test, return from the sub here.
> }
>}
>
>(Note, I am using bareword filehandles because I thought it might make a
>difference with an older module like Image::Magick. It doesn't work with
>lexical handles either.)
>
>A separate script that takes just a filename from the command line works
>just fine:
>
>#!/usr/bin/perl
>
>use warnings;
>use strict;
>
>use Image::Magick;
>
>my $infile=shift;
>
>my ($basename,$filetype)=split(/\./,$infile);
>
>open(INFILE,"<",$infile) or die "$!";
>
>my $image=Image::Magick->new;
>$image->Read(file=>\*INFILE);
>$image->Set(density=>'300x300');
>my $outfile=$basename . ".png";
>open(OUTFILE,">",$outfile);
>$image->Write(file=>\*OUTFILE, filename=>$outfile);
>
>close(INFILE);
>close(OUTFILE);
>
>What is the difference I am overlooking here? Or should I just switch to
>Image::LibRSVG?
>
>Mart
Good luck.
-sln
------------------------------
Date: Mon, 19 Oct 2009 06:03:05 +0200
From: Mart van de Wege <mvdwege@mail.com>
Subject: Re: Converting SVG to PNG not working.
Message-Id: <8663ac81za.fsf@gareth.avalon.lan>
sln@netherlands.com writes:
> On Sun, 18 Oct 2009 15:49:48 +0200, Mart van de Wege <mvdwege@mail.com> wrote:
>
>>Hi,
>>
>>I'm trying to convert some graphs generated by SVG::TT::Graph to PNG,
>>using Image::Magick. However, I'm getting empty .png files back,
>>instead of PNG images.
>>
>>This is the code I am using:
>>
>>
>>sub output {
>> my $self = shift;
>> my $outdir = $self->{OutDir};
>> die "No output directory set." unless $self->{OutDir};
>> my $tempdir = tempdir;
>> foreach my $graph( keys %{$self->{Graphs}} ) {
>> my $svg = $self->{Graphs}->{$graph};
>> print "converting $graph, using tempdir $tempdir\n";
>> open(my $fh,">","$tempdir/$graph.svg") or die "$!";
> ^^^
> I would try binmode($fh) here.
> And examine the svg file.
>
The SVG files are fine. Note that I don't pass the { CLEANUP => 1 }
option to tempdir, so I can examine the intermediate output.
>> print $fh $svg;
>> close $fh;
>
> Otherwise for a test, starting here, hardcode a
> known svg file and do the conversion to png
> like you did with the script below.
>
>> open(FH,"<","$tempdir/$graph.svg") or die "$!";
>> my $image = Image::Magick->new(magick => 'svg');
> ^^
> sets the object type?
> The one Read file example doesen't set the object type
> when reading from a filehandle, nor does it put it into binmode FH.
> Try what works from the script below, change one thing at a time after
> it starts working.
Actually, I tried it without setting magick. Didn't work either.
However, I'll try and take your suggestions into account and hack on the
script some more, adding some debugging print statements.
Mart
--
"We will need a longer wall when the revolution comes."
--- AJS, quoting an uncertain source.
------------------------------
Date: Thu, 15 Oct 2009 20:02:15 -0500
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: FAQ 9.10 How do I decode or create those %-encodings on the web?
Message-Id: <151020092002152421%brian.d.foy@gmail.com>
In article
<53228d94-dfa1-4cc4-baa9-8f79cd0c50ce@j24g2000yqa.googlegroups.com>,
Marc Girod <marc.girod@gmail.com> wrote:
> Typo?
>
> On Oct 14, 5:00 am, PerlFAQ Server <br...@theperlreview.com> wrote:
>
> > print "$string\n"; #
> > 'Colon%20%3A%20Hash%20%23%20Percent%20%25%20'
> ^^^^^^^
> $escaped
Fixed, thanks.
------------------------------
Date: Thu, 15 Oct 2009 07:52:55 -0700 (PDT)
From: ccc31807 <cartercc@gmail.com>
Subject: Re: hide information from the view source"
Message-Id: <252fa6a5-e0de-480a-a302-a9eadf83fdad@j39g2000yqh.googlegroups.com>
On Oct 14, 1:56=A0pm, kwan <kwan.ji...@gmail.com> wrote:
> I designed the examination system for the school. It is possible that
> the user can retreive the questions and answer from the "view source"
> which display as in a pain HTML text. It is the problem if the student
> try to view the "source"; coz they will be able to copy the questions
> and answers.
>
> I used Perl CGI to write all the interface and to talk to the
> database. As all the questions and answers are stored in the database.
I assume that your questions are objective questions, such as multiple
choice or true/false, so that the 'answers' would be meaningful in an
objective sense.
When you generate the test, you generate the questions and the allowed
answers from the database. The source code would NOT contain the
correct answers, but all the allowed answers.
When the student submits the test, his answers are matched against the
correct answers from the database. This is done programmatically, not
through the HTML source, so the student can't see the correct answers.
This script generates a results page that contains the mark for each
question (or the overall mark if you don't want to show the result for
individual questions).
I would suggest having a multiple number of total questions for the
questions on the test, such as a database of 200 questions for a test
consisting of 20 questions, and selecting the questions randomly from
the database.
You might also want to check out MOODLE.
CC
------------------------------
Date: Thu, 15 Oct 2009 13:33:51 -0700 (PDT)
From: laredotornado <laredotornado@zipmail.com>
Subject: How do I reference an array stoerd in a hash?
Message-Id: <ff1b8a70-d6e1-4472-b92b-461fb6876ac7@u36g2000prn.googlegroups.com>
Hi,
I have a hash with a scalar as a key and an array as a value.
Hopefully, I'm setting it up right, but when I try and print my array,
the only thing that prints out is the first value. How do I rewrite
the below to print back all values in the array?
my %field_fns = ();
$field_fns{'MAIL_ZIP'} = ('MailingZipInvalid', 'MailingZipBlank',
'MailingZipNull');
print $field_fns{'MAIL_ZIP'};
Thanks, - Dave
------------------------------
Date: Thu, 15 Oct 2009 13:57:20 -0700
From: sln@netherlands.com
Subject: Re: How do I reference an array stoerd in a hash?
Message-Id: <622fd59hjfrs4q19v9h4b6rjpcfsngpq50@4ax.com>
On Thu, 15 Oct 2009 13:33:51 -0700 (PDT), laredotornado <laredotornado@zipmail.com> wrote:
>Hi,
>
>I have a hash with a scalar as a key and an array as a value.
>Hopefully, I'm setting it up right, but when I try and print my array,
>the only thing that prints out is the first value. How do I rewrite
>the below to print back all values in the array?
>
>my %field_fns = ();
>$field_fns{'MAIL_ZIP'} = ('MailingZipInvalid', 'MailingZipBlank','MailingZipNull');
^ ^
the paren's make this a list, not an array.
>print $field_fns{'MAIL_ZIP'};
usually arrays have to be itterated over, they won't just print all at once.
>
>Thanks, - Dave
$field_fns{'MAIL_ZIP'}
^
$ this denotes a 'scalar' variable not an array.
The scalar can contain only one value.
You can however, assign a reference (a scalar value) to an array,
so $field_fns{'MAIL_ZIP'} = reference to an array.
There are two kinds of arrays, named and anonomyous.
@named_array = (); # empty array
You can take a reference to anything with the '\' backslash.
So you could have done:
@named_array = ('MailingZipInvalid', 'MailingZipBlank','MailingZipNull');
$field_fns{'MAIL_ZIP'} = \@named_array;
You could also have done anonymous array (denoted by []).
$array_reference = ['MailingZipInvalid', 'MailingZipBlank','MailingZipNull'];
$field_fns{'MAIL_ZIP'} = $array_reference;
# or simply
$field_fns{'MAIL_ZIP'} = ['MailingZipInvalid', 'MailingZipBlank','MailingZipNull'];
Its still an array, but the scalar $field_fns{'MAIL_ZIP'} holds a single value, a reference.
To print it out, itterate over it.
for my $mail_info (@{$field_fns{'MAIL_ZIP'}))
{
print "$mail_info \n";
}
or via magic,
print "@{$field_fns{'MAIL_ZIP'}) \n";
Anyway, the fancy notation accessing the array is called
dereferencing a reference.
You have a lot to read though.
-sln
------------------------------
Date: Thu, 15 Oct 2009 14:14:34 -0700 (PDT)
From: sharma__r@hotmail.com
Subject: Re: How do I reference an array stoerd in a hash?
Message-Id: <53a852b2-12b3-4526-af1a-47c8b9b3b1f8@r24g2000prf.googlegroups.com>
On Oct 16, 1:33=A0am, laredotornado <laredotorn...@zipmail.com> wrote:
> Hi,
>
> I have a hash with a scalar as a key and an array as a value.
> Hopefully, I'm setting it up right, but when I try and print my array,
> the only thing that prints out is the first value. =A0How do I rewrite
> the below to print back all values in the array?
>
> my %field_fns =3D ();
> $field_fns{'MAIL_ZIP'} =3D ('MailingZipInvalid', 'MailingZipBlank',
> 'MailingZipNull');
> print $field_fns{'MAIL_ZIP'};
>
> Thanks, - Dave
The point to remember here is that a hash in perl holds key=3D>value
pairs,
wherein, both key & value are supposed to be SCALARS.
So when you intend to store an array as value, then you need to
convert that
into a scalar somehow. And that is via taking the reference to that
array
& using that reference as the value portion in your hash.
One way to do that is to use the square-bracket notation instead of
the parens, like, e.g.,
$field_fns{'MAIL_ZIP'} =3D [ 'MailingZipInvalid',
'MailingZipBlank','MailingZipNull', ];
But now if you were to type this: print $field_fns{'MAIL_ZIP'}; you'd
get something like ARRAY(0x32435)
That's because the value is a reference & that's how a reference looks
from inside.
To get to the array being referred to , we would need to dereference
the value by enrobing it in @{ ... }
my @array =3D @{ $field_fns{'MAIL_ZIP'} };
-- Rakesh
------------------------------
Date: Thu, 15 Oct 2009 14:55:56 -0700 (PDT)
From: laredotornado <laredotornado@zipmail.com>
Subject: Re: How do I reference an array stoerd in a hash?
Message-Id: <c5e607a3-320a-4420-bb65-0cd36aa7dd26@b25g2000prb.googlegroups.com>
On Oct 15, 2:57=A0pm, s...@netherlands.com wrote:
> On Thu, 15 Oct 2009 13:33:51 -0700 (PDT), laredotornado <laredotorn...@zi=
pmail.com> wrote:
> >Hi,
>
> >I have a hash with a scalar as a key and an array as a value.
> >Hopefully, I'm setting it up right, but when I try and print my array,
> >the only thing that prints out is the first value. =A0How do I rewrite
> >the below to print back all values in the array?
>
> >my %field_fns =3D ();
> >$field_fns{'MAIL_ZIP'} =3D ('MailingZipInvalid', 'MailingZipBlank','Mail=
ingZipNull');
>
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 ^ =A0 =A0 =A0 =A0 =A0=
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =
=A0 =A0 =A0 =A0 ^
> the paren's make this a list, not an array.
>
> >print $field_fns{'MAIL_ZIP'};
>
> usually arrays have to be itterated over, they won't just print all at on=
ce.
>
>
>
> >Thanks, - Dave
>
> =A0 $field_fns{'MAIL_ZIP'}
> =A0 ^
> $ this denotes a 'scalar' variable not an array.
> The scalar can contain only one value.
>
> You can however, assign a reference (a scalar value) to an array,
> so =A0 $field_fns{'MAIL_ZIP'} =3D reference to an array.
>
> There are two kinds of arrays, named and anonomyous.
> @named_array =3D (); # empty array
> You can take a reference to anything with the '\' backslash.
> So you could have done:
>
> =A0 @named_array =3D ('MailingZipInvalid', 'MailingZipBlank','MailingZipN=
ull');
> =A0 $field_fns{'MAIL_ZIP'} =3D \@named_array;
>
> You could also have done anonymous array (denoted by []).
>
> =A0 $array_reference =3D ['MailingZipInvalid', 'MailingZipBlank','Mailing=
ZipNull'];
> =A0 $field_fns{'MAIL_ZIP'} =3D $array_reference;
> =A0 # or simply
> =A0 $field_fns{'MAIL_ZIP'} =3D ['MailingZipInvalid', 'MailingZipBlank','M=
ailingZipNull'];
>
> Its still an array, but the scalar $field_fns{'MAIL_ZIP'} holds a single =
value, a reference.
>
> To print it out, itterate over it.
>
> =A0 for my $mail_info (@{$field_fns{'MAIL_ZIP'}))
> =A0 {
> =A0 =A0 =A0 =A0 print "$mail_info \n";
> =A0 }
>
> or via magic,
>
> =A0 print "@{$field_fns{'MAIL_ZIP'}) \n";
>
> Anyway, the fancy notation accessing the array is called
> dereferencing a reference.
>
> You have a lot to read though.
>
> -sln
Perfect! 5 stars. - Dave
------------------------------
Date: Thu, 15 Oct 2009 16:09:13 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: How do I reference an array stoerd in a hash?
Message-Id: <88afd51njq2i2g0jpd1sd8gea8ngq8knj4@4ax.com>
laredotornado <laredotornado@zipmail.com> wrote:
>I have a hash with a scalar as a key and an array as a value.
No, you don't.
>Hopefully, I'm setting it up right, but when I try and print my array,
>the only thing that prints out is the first value. How do I rewrite
>the below to print back all values in the array?
>
>my %field_fns = ();
>$field_fns{'MAIL_ZIP'} = ('MailingZipInvalid', 'MailingZipBlank',
>'MailingZipNull');
You are creating a list "(...)" and then using it in scalar context
($..... is always a scalar). And the scalar value of a list is its first
element, that's why you are getting the first element only.
Instead you first need to create an array and second assign a reference
to that array to the hash element. The "[...]" notation will
conveniently do both by creating an anonymous array:
$field_fns{'MAIL_ZIP'} = ['MailingZipInvalid',
'MailingZipBlank',
'MailingZipNull'];
>print $field_fns{'MAIL_ZIP'};
And this will print the reference now. Therefore you need to
de-reference the refernce to the array by simply following rule #1 from
'perldoc perlreftut":
print @{$field_fns{'MAIL_ZIP'}};
jue
------------------------------
Date: Thu, 15 Oct 2009 16:12:39 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: How do I reference an array stoerd in a hash?
Message-Id: <lvafd5hbvl95d330thbkop35pehg9fv4fs@4ax.com>
laredotornado <laredotornado@zipmail.com> wrote:
>On Oct 15, 2:57 pm, s...@netherlands.com wrote:
>> usually arrays have to be itterated over, they won't just print all at once.
Nonsense, of course print() will happily print a whole array at once.
jue
------------------------------
Date: Thu, 15 Oct 2009 18:12:47 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: How do I reference an array stoerd in a hash?
Message-Id: <slrnhdfa71.vvn.tadmc@tadmc30.sbcglobal.net>
laredotornado <laredotornado@zipmail.com> wrote:
> $field_fns{'MAIL_ZIP'} = ('MailingZipInvalid', 'MailingZipBlank',
> 'MailingZipNull');
You should always enable warnings when developing Perl code!
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Thu, 15 Oct 2009 20:07:06 -0400
From: "Uri Guttman" <uri@StemSystems.com>
Subject: Re: How do I reference an array stoerd in a hash?
Message-Id: <87pr8otd5h.fsf@quad.sysarch.com>
>>>>> "JE" == Jürgen Exner <jurgenex@hotmail.com> writes:
JE> You are creating a list "(...)" and then using it in scalar context
JE> ($..... is always a scalar). And the scalar value of a list is its first
JE> element, that's why you are getting the first element only.
this is a classic misunderstanding. there is no such thing as a list in
a scalar context. there is list context and scalar context. a comma
separated expression in scalar context is just a series of comma
ops. and comma ops return their right arg so the last value will be
returned in a series of them.
perl -le '$x = qw(a b c); print $x'
c
perl -le '$x = ("a", "b", "c"); print $x'
c
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Thu, 15 Oct 2009 17:09:00 -0700
From: "John W. Krahn" <someone@example.com>
Subject: Re: How do I reference an array stoerd in a hash?
Message-Id: <PQOBm.45694$lR3.14884@newsfe25.iad>
Jürgen Exner wrote:
> laredotornado <laredotornado@zipmail.com> wrote:
>> I have a hash with a scalar as a key and an array as a value.
>
> No, you don't.
>
>> Hopefully, I'm setting it up right, but when I try and print my array,
>> the only thing that prints out is the first value. How do I rewrite
>> the below to print back all values in the array?
>>
>> my %field_fns = ();
>> $field_fns{'MAIL_ZIP'} = ('MailingZipInvalid', 'MailingZipBlank',
>> 'MailingZipNull');
>
> You are creating a list "(...)" and then using it in scalar context
There is no such thing as a list in scalar context.
> ($..... is always a scalar). And the scalar value of a list is its first
> element, that's why you are getting the first element only.
Actually, because of how the comma operator works you get the last
element of the list.
$ perl -le'$field_fns{"MAIL_ZIP"} = ("MailingZipInvalid",
"MailingZipBlank", "MailingZipNull"); print $field_fns{"MAIL_ZIP"}'
MailingZipNull
John
--
The programmer is fighting against the two most
destructive forces in the universe: entropy and
human stupidity. -- Damian Conway
------------------------------
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:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#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 2639
***************************************
