[18140] in Perl-Users-Digest
Perl-Users Digest, Issue: 308 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Feb 17 21:07:05 2001
Date: Sat, 17 Feb 2001 18:05:08 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <982461908-v10-i308@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sat, 17 Feb 2001 Volume: 10 Number: 308
Today's topics:
Re: enumurating binaries in a dir and calling a functio <bwalton@rochester.rr.com>
Re: FAQ 4.24: How do I reformat a paragraph? (Chris Fedde)
Re: free cgi's ? <bart.lateur@skynet.be>
How to check variable to see if uninitialized. <Jodyman@usa.net>
Re: How to check variable to see if uninitialized. <callgirl@la.znet.com>
Re: How to check variable to see if uninitialized. <bwalton@rochester.rr.com>
Re: Linda, this is cool! <stevedperkins@NOSPAM.hotmail.com>
Newbie Question: How to upload a file from a form WITH <KlondikeWolf@mailops.com>
OO, class keeping track of its objects <no_spam_please@dacom.se>
Re: Passing references to functions <bwalton@rochester.rr.com>
Re: perl help <bwalton@rochester.rr.com>
perlcc <hpz@hpz.ath.cx>
Re: Project with a large amount of external data <bwalton@rochester.rr.com>
Re: PROPOSAL: Graphics::ColorNames (Damian Conway)
Re: PROPOSAL: Graphics::ColorNames (Martien Verbruggen)
Re: public-key encryption <bwalton@rochester.rr.com>
Re: striping HTML <godzilla@stomp.stomp.tokyo>
translating crlf in a string <no@email.com>
Re: translating crlf in a string <bwalton@rochester.rr.com>
Re: translating crlf in a string <no@email.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 18 Feb 2001 01:48:01 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: enumurating binaries in a dir and calling a function
Message-Id: <3A8F2A52.16273F9C@rochester.rr.com>
Chris wrote:
...
> This is definitely a newbie question, but I have to start somewhere! I am
> attempting to open a directory and enumurate all of the files and take
> the binaries only and run a function on them. (getting version info
> specifically) I think the tricky part is ignoring the non-binary files. I
> know there is a filetest operator that does this.
>
> Would the pseudo code would look something like this?
>
> opendir (DIR, $path) || die "Couldn't open directory $path: $!\n";
> for ( <*.dll> )
>
> { do function here }
>
> Anyone have any ideas on a prefered way to write this loop?
...
> Chris
The function you want is called -B
perldoc -f -B
You probably want to get rid of your opendir and use something like:
print "$_ is ".(-B($_)?"binary\n":"text\n") for(<*>);
Or else keep the opendir and use readdir and closedir.
--
Bob Walton
------------------------------
Date: Sun, 18 Feb 2001 01:37:22 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: FAQ 4.24: How do I reformat a paragraph?
Message-Id: <mHFj6.217$zN2.170157568@news.frii.net>
In article <t8lbjapg9aia2c@corp.supernews.com>,
Chris Stith <mischief@velma.motion.net> wrote:
>Peter J. Acklam <jacklam@math.uio.no> wrote:
>> From the FAQ:
>
>>> The paragraphs you give to Text::Wrap should not contain embedded
>>> newlines. Text::Wrap doesn't justify the lines (flush-right).
>> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
>
>> Umm...but did we agree that the text in the FAQ ought to be
>> changed? :-)
>
>For the purposes of being correct according to currently defined
>usage, yes, it should be changed to say not (flush-right). It
>should instead say (spaced to be flush with both margins).
>
>Personally, I still prefer the other usage, but it's not recognized
>by any authoritative dictionaries or glossaries. Therefore, despite
>my general feelings about descriptive rather than prescriptive
>definitions, I would fully support this small change for extra
>clarity.
>
>Chris
>
I have changed the text in my copy of perl-5.6.1-TRIAL2/pod/perlfaq4.pod to
read as follows:
=head2 How do I reformat a paragraph?
Use Text::Wrap (part of the standard Perl distribution):
use Text::Wrap;
print wrap("\t", ' ', @paragraphs);
The paragraph array you give to Text::Wrap should contain one
line per element and should not contain any embedded newlines.
Text::Wrap re-formats ascii text to width and flush left. It
leaves the text ragged right.
If what you want is typesetting quality justification then you
could use perl to output your text in troff, LaTeX or some other
typesetting format.
If this meets with approval I'll forward it to the perl5-porters.
--
This space intentionally left blank
------------------------------
Date: Sun, 18 Feb 2001 00:28:48 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: free cgi's ?
Message-Id: <gl4u8toar7gaokt7vver6trm5s84qmdsn9@4ax.com>
nowayandnohow wrote:
>Hi ya'll, i was wondering if one of you could give me a link or two to a
>free cgi script page where i can download them, to brake them down to learn
>more about them (i.e. to learn more about CGI writing).
I always liked WebMonkey.
<http://hotwired.lycos.com/webmonkey/programming/perl_cgi/>
Whatever you do, steer clear form "Matt's Scripts Archive". Actually,
his script kinda work, but there are always huge possible problems with
them. In a way, you can learn from them, if only by searching the many
different things crackers can do to break your site down if you build it
around one of these scripts. ;-) These scripts never actually left Alpha
stage.
Oh, for the really cool (albeit rather advanced) stuff, you MUST take a
look a Randal Schwartz' WebTechniques' (that's a magazine) columns.
Quite a few by now. <http://www.stonehenge.com/merlyn/WebTechniques/>
--
Bart.
------------------------------
Date: Sat, 17 Feb 2001 18:19:09 -0500
From: "Jody Fedor" <Jodyman@usa.net>
Subject: How to check variable to see if uninitialized.
Message-Id: <96n0t0$98r$1@plonk.apk.net>
I have the following subroutine:
sub printstats {
foreach $unit (@unit) {
foreach $desc (@desc) {
print "${$unit}{$desc}\n";
}
&pause;
}
}
If a report doesn't exist, there will be no
data in the variable ${$unit}{$desc}. How
can I check if it's uninitialized or not?
I get the error:
Use of uninitialized value at hasharray.pl line 144.
TIA,
Jody
------------------------------
Date: Sat, 17 Feb 2001 16:16:52 -0800
From: Kira <callgirl@la.znet.com>
Subject: Re: How to check variable to see if uninitialized.
Message-Id: <3A8F1474.436BE2EC@la.znet.com>
Jody Fedor wrote:
> I have the following subroutine:
> sub printstats {
> foreach $unit (@unit) {
> foreach $desc (@desc) {
> print "${$unit}{$desc}\n";
> }
> &pause;
> }
> }
> If a report doesn't exist, there will be no
> data in the variable ${$unit}{$desc}. How
> can I check if it's uninitialized or not?
> I get the error:
> Use of uninitialized value at hasharray.pl line 144.
Quite contrary to your posted error message, Perl
core returns an error message with Pragma Warning
enabled with -w and using your posted snippet alone:
"use of uninitialized value in concatentation (.) at ...."
Use of the warning pragma is helpful if you use it correctly.
In this case, you need to isolate your problem snippet and
test it individually. Your posted error message is returning
a misleading message; you may have more than one problem.
Under these circumstances, Pragma Warning is dead wrong.
You will benefit to write your code in small blocks, testing
each block as you move along. My test script reflects testing
a small block of your overall code.
Clearly, there are times use of Pragma Hints, for this case,
use of warnings, is a bad choice in programming. Sometimes,
you can attain better information by turning off Pragma Hints.
This is displayed by my test script's 'clean' printed results.
You have some non-fatal syntax problems, more precisely,
errors in logic and syntax.
Look over my test script and printed results. My script
is based on a presumption there is a one-to-one relationship
between your two arrays. I have modified your basic code
snippet to better display your logic problem.
Godzilla!
--
TEST SCRIPT:
____________
#!perl
print "Content-type: text/plain\n\n";
@Unit = qw (Unit1 Unit2 Unit3);
@Desc = qw (one two three);
print "Your Basic Method:\n\n";
foreach $unit (@Unit)
{
foreach $desc (@Desc)
{
if ((${$unit}) & ({$desc}))
{ print "${$unit}{$desc}\n"; }
else
{ print "\$unit AND \$desc Do Not Exist.\n"; }
}
}
print "\n\nMy Method:\n\n";
$counter = 0;
foreach $unit (@Unit)
{
print "$unit:$Desc[$counter]\n";
$counter++;
}
exit;
PRINTED RESULTS:
________________
Your Basic Method:
$unit AND $desc Do Not Exist.
$unit AND $desc Do Not Exist.
$unit AND $desc Do Not Exist.
$unit AND $desc Do Not Exist.
$unit AND $desc Do Not Exist.
$unit AND $desc Do Not Exist.
$unit AND $desc Do Not Exist.
$unit AND $desc Do Not Exist.
$unit AND $desc Do Not Exist.
My Method:
Unit1:one
Unit2:two
Unit3:three
------------------------------
Date: Sun, 18 Feb 2001 01:21:53 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: How to check variable to see if uninitialized.
Message-Id: <3A8F2432.34D256C8@rochester.rr.com>
Jody Fedor wrote:
>
> I have the following subroutine:
>
> sub printstats {
>
> foreach $unit (@unit) {
> foreach $desc (@desc) {
> print "${$unit}{$desc}\n";
>
> }
> &pause;
> }
> }
>
> If a report doesn't exist, there will be no
> data in the variable ${$unit}{$desc}. How
> can I check if it's uninitialized or not?
>
> I get the error:
> Use of uninitialized value at hasharray.pl line 144.
...
> Jody
Jody, first of all, you're doing a *bad thing* when you use symbolic
references. What if $unit contains the name of a hash you use otherwise
in your program? Plus, I don't think there is a simple foolproof way of
testing for the existence of variable used via a symbolic reference.
The fix? Use a hash, with the keys of the hash being the names you are
now using for your variables. If you do that, then you will be able to
use the exists function to test for the presence of particular hash
elements, something like [UNTESTED]:
...
for $unit(@unit){
for $desc(@desc){
next unless exists $hash{$unit};
next unless exists $hash{$unit}{$desc};
print "$hash{$unit{$desc}}\n";
}
&pause;
}
...
HTH.
--
Bob Walton
------------------------------
Date: Sat, 17 Feb 2001 17:46:47 -0500
From: "Steve D. Perkins" <stevedperkins@NOSPAM.hotmail.com>
Subject: Re: Linda, this is cool!
Message-Id: <96mv3102l3d@news2.newsguy.com>
Untitled Document ARGH!
I wll never understand why spam still exists, the internet reaching the
level of development and maturity is has. I can't imagine that there's
ANYONE left anymore dumb and/or internet-inexperienced to purchase anything
advertised through spam. Even if there is, I don't understand why spammers
woud target newsgroups for Tcl, Python, and Perl... technologies most often
used by crusty old-timers LEAST likely of all to be an effective target
audience...
------------------------------
Date: Sat, 17 Feb 2001 18:24:37 -0700
From: Klondike Wolf <KlondikeWolf@mailops.com>
Subject: Newbie Question: How to upload a file from a form WITHOUT using cgi.pm?
Message-Id: <fu8u8ts18nsbovrt52fssfcc6ct6mrct1l@4ax.com>
Hi,
I'm a newbie (duh) ... I need to be able to upload a file through a web
form using a Perl script ... but cgi.pm is not installed on the server,
and the server owner refuses to install any modules.
What is needed on the script side to grab the file ... without using
cgi.pm (nor cgi-lib nor any other module)?
Thanks,
Klondike
------------------------------
Date: Sun, 18 Feb 2001 00:25:54 GMT
From: Carl Bingel <no_spam_please@dacom.se>
Subject: OO, class keeping track of its objects
Message-Id: <3A8F154B.52FB3EB3@dacom.se>
Hi,
i'd like some input on having a class keep track of it's instances.
What i'm trying to accomplish:
When i call a certain method on the class itself, that method should
invoke itself on all object instances like:
--CUT--
use MyMod;
$foo = new MyMod;
$bar = new MyMod;
#instead of having to write
$foo->do_stuff();
$bar->do_stuff();
#i like to write
MyMod->do_stuff();
#and make it invoke do_stuff on all known instances..
--UNCUT--
This could be easily solved by declaring a package-wide array (lets say
@MY_INSTANCES) with pointers to all objects and having the constructor
pushing the object-reference to that array, but the problem then is when
it comes to garbage collection.
I'd like to define a destructor that removes the object's reference from
@MY_INSTANCES, but the problem is that the destructor method would never
be called since the object is still being referenced in @MY_INSTANCES..
of course i could create my own "manual" destructor method and make the
user call that one, but it would neat if it could be solved more
automagically...
--Kalle
PS To send me private e-mails, substitute the "no_spam_please" with
"bingel".
------------------------------
Date: Sun, 18 Feb 2001 01:34:15 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: Passing references to functions
Message-Id: <3A8F2718.BBEFEE94@rochester.rr.com>
Willem Joosten wrote:
...
> I'm a bit confused how references work, what I try to do is write a callback
> function which has the change of changing some variables. For example:
>
> sub test {
> my $callback = $_[0];
> my $value = "String 1";
> if (&$callback(\$value)){
> print "New value = $value";
> } else {
> print "Value = $value";
> }
>
> sub changevalue {
> my $value = $_[0];
> $$value = "String 2";
> return 1;
> }
>
> Now when I do:
>
> test(\&changevalue);
>
> It will print: "New value: SCALAR(0x<etc>)" instead of "New value: 2".
>
> I found I can change the value using $_[0] = 2 (and not use \&value in the
> callback but just &value). But I find this harder to read.
>
> So is there a way to make the passing by reference work the way I expect it
> to? (for the Delphi programmers, I except it to work like a var parameter).
...
> Willem Joosten
First, your code doesn't even compile. *Please* cut and paste working
code into your notes, don't retype it.
After adding the missing closing brace around your else, I note that it
(verbatim, other than fixing the brace) prints:
New value = String 2
not what you said it prints. Your result must have been from some other
permutation of your code.
--
Bob Walton
------------------------------
Date: Sun, 18 Feb 2001 02:01:44 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: perl help
Message-Id: <3A8F2D88.58D0D948@rochester.rr.com>
Another Way wrote:
...
> perl is the first computer programming language i've learnt and i've written a
> calculator with it, the thing is, i need people to test it. all u will need is
> the perl interpreter on your computer, also, the program only does basic
> numerical things like addition, subtraction, division, multiplication and
> exponentiation. as far as i know, it has worked well with expressions like
>
> (2^8 + 6.7898 - 6 / 7 /8* 5^2.62^ 2 - 7.8 + 9) and given the correct result.
>
> the reason i need it tested is that this is my first major computer program of
> any kind and i am going to use this "calculator" in a bigger program that does
> derivatives of polynomials, then im gonna post it as a cgi thing on my website
> if possible, so please help me out.
...
> peace
I'd be glad to try to help you out a bit, as would many others, but
you'll have to give us something to try out. You gave us no links or
code.
--
Bob Walton
------------------------------
Date: Sun, 18 Feb 2001 00:13:53 GMT
From: HPz/KM <hpz@hpz.ath.cx>
Subject: perlcc
Message-Id: <5tEj6.4703$Vy2.382240@typhoon.mn.mediaone.net>
every time i try to use perlcc it tells me, undefined reference to boot_DynaLoader. i've tried it on RH6 and on FreeBsd. same result. i can use any code and it says that. any ideas?
------------------------------
Date: Sun, 18 Feb 2001 01:55:31 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: Project with a large amount of external data
Message-Id: <3A8F2C14.5C635851@rochester.rr.com>
Greg White wrote:
>
> I am a long time coder, recently adding Perl to my toolbelt. I have a
> fairly sophisticated project, it uses several module files, in addition I
> have, some configuration and "templates" that are kept in external files
> (about 10) as well as common subroutines. The templates and configuration
> files contain parts the end user will change occasionally. Should I look to
> merge all these parts into one or two files, or ??????? I want to keep the
> user friendliness, but avoid the performance hit, or is the performance hit
> of loading 10-15 files inconsequential? I realize there is not one right
> answer, but I am seeking opinions.
>
> Greg
You'll need to supply additional information if anyone is to give you a
meaningful answer. Like what do you mean by inconsequential? Less than
10 seconds? 10 minutes? 10 milliseconds? You say "large" amount of
data. 100 bytes? 100 Kb? 100 Mb? 100 Gb? I would supposed that
reading 10 to 15 files would not be a big performance hit compared with
loading the same information from one or two files. By that I mean that
a user wouldn't notice the difference.
--
Bob Walton
------------------------------
Date: 17 Feb 2001 23:16:40 GMT
From: damian@cs.monash.edu.au (Damian Conway)
Subject: Re: PROPOSAL: Graphics::ColorNames
Message-Id: <96n0oo$i5r$1@towncrier.cc.monash.edu.au>
Robert Rothenburg <wlkngowl@unix.asb.com> writes:
> I think a module which has common color names would be useful.
I have a paper on that. ;-)
http://www.csse.monash.edu.au/~damian/papers/#Colour
If you're building such a module, you might find it of interest.
Damian
------------------------------
Date: Sun, 18 Feb 2001 11:24:08 +1100
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: PROPOSAL: Graphics::ColorNames
Message-Id: <slrn98u5h8.adv.mgjv@martien.heliotrope.home>
On Sat, 17 Feb 2001 15:51:04 -0500,
Robert Rothenburg <wlkngowl@unix.asb.com> wrote:
>
>
>
> I think a module which has common color names would be useful. The
> initial version would return RGB codes for a given name. There's already
> some duplication of this in various packages... but I see no reason for
> a
> module or script to require Tk, VRML, ANSI etc, to be installed just
> because one wants to say 'black' instead of (0, 0, 0).
>
> I think 'Gaphics::NamedColors' is a good name for the module.
>
> Comments? Criticisms? Is there already such a module?
You could have a look at some of the stuff in GD::Graph::colours. If you
want you can take that, and make it into a separate module, or if you
want, I can wrap it up as a separate module. It is strongly based on the
colours as they are defined in the X window system. Image::Magick has
recently changed their colour names to sync with the SVG file format,
which in turn is based on the HTML standards.
If you decide to make a module like this, I suggest you try to adopt one
of the standards already around for the names of the colours.
Unfortunately, SVG and X conflict on some colour names, for whatever
stupid reason.
alternatively, you could provide several colour name spaces, either by
loading a different module, or as an option:
use Graphics::Colors 'X';
I do suggest strongly to allow both the spelling Color and Colour, from
the beginning on.
Martien
--
Martien Verbruggen |
Interactive Media Division |
Commercial Dynamics Pty. Ltd. | Curiouser and curiouser, said Alice.
NSW, Australia |
------------------------------
Date: Sun, 18 Feb 2001 01:58:32 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: public-key encryption
Message-Id: <3A8F2CC5.79D90953@rochester.rr.com>
Juergen Peukert wrote:
...
> I am looking for a perl-implementation of a public-key code like RSA.
> Are there other public-key codes besides RSA?
...
> Juergen
Check out CPAN:
http://www.perl.com/CPAN-local/modules/by-category/14_Security_and_Encryption/
(that is all one line)
--
Bob Walton
------------------------------
Date: Sat, 17 Feb 2001 16:22:20 -0800
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: striping HTML
Message-Id: <3A8F15BC.5F1A705D@stomp.stomp.tokyo>
Me wrote:
> Gerard Lanois wrote:
> > Funny, I was just writing a stripper earlier today.
> 2/16/19101
> Dear Savanna,
> Thank you very much for the wonderful lap dance you provdided me with
> recently. I have to say that I have never been so "moved" as when
> experiencing your dance.
> I just thought I would write to tell you how much I appreciated it, and
> I'll be sure to stop by during your next shift.
> Take care!
Heh! * applauds and wolf whistles *
Godzilla!
------------------------------
Date: Sun, 18 Feb 2001 00:28:36 GMT
From: "Frank Miller" <no@email.com>
Subject: translating crlf in a string
Message-Id: <UGEj6.437843$U46.12880324@news1.sttls1.wa.home.com>
OK, before anyone flames me, I've read the FAQ, I've also spent the last two
hours on the web trying to find the answer...
I have a string that contains at CRLF (0x0d, 0x0a) in it, I'd like to
replace that with [br]. How do I do this? I've tried:
$note =~ s/\x0D\x0A/\[br\]/m;
$note =~ s/\n/\[br\]/m;
$note =~ s/[\x0D\x0A]\[br\]/m;
$note =~ s/$/\[br\]/m;
and just about everything else I can think of...
FrankM
------------------------------
Date: Sun, 18 Feb 2001 01:01:18 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: translating crlf in a string
Message-Id: <3A8F1F5B.CA3E24E9@rochester.rr.com>
Frank Miller wrote:
>
> OK, before anyone flames me, I've read the FAQ, I've also spent the last two
> hours on the web trying to find the answer...
>
> I have a string that contains at CRLF (0x0d, 0x0a) in it, I'd like to
> replace that with [br]. How do I do this? I've tried:
>
> $note =~ s/\x0D\x0A/\[br\]/m;
> $note =~ s/\n/\[br\]/m;
> $note =~ s/[\x0D\x0A]\[br\]/m;
> $note =~ s/$/\[br\]/m;
>
> and just about everything else I can think of...
>
> FrankM
How about:
$note =~ s/\015\012/[br]/;
--
Bob Walton
------------------------------
Date: Sun, 18 Feb 2001 01:29:35 GMT
From: "Frank Miller" <no@email.com>
Subject: Re: translating crlf in a string
Message-Id: <3AFj6.438027$U46.12892624@news1.sttls1.wa.home.com>
> How about:
> $note =~ s/\015\012/[br]/;
> --
> Bob Walton
Nope, that didn't work...
FrankM
"Bob Walton" <bwalton@rochester.rr.com> wrote in message
news:3A8F1F5B.CA3E24E9@rochester.rr.com...
> Frank Miller wrote:
> >
> > OK, before anyone flames me, I've read the FAQ, I've also spent the last
two
> > hours on the web trying to find the answer...
> >
> > I have a string that contains at CRLF (0x0d, 0x0a) in it, I'd like to
> > replace that with [br]. How do I do this? I've tried:
> >
> > $note =~ s/\x0D\x0A/\[br\]/m;
> > $note =~ s/\n/\[br\]/m;
> > $note =~ s/[\x0D\x0A]\[br\]/m;
> > $note =~ s/$/\[br\]/m;
> >
> > and just about everything else I can think of...
> >
> > FrankM
> How about:
> $note =~ s/\015\012/[br]/;
> --
> Bob Walton
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 308
**************************************
