[19645] in Perl-Users-Digest
Perl-Users Digest, Issue: 1840 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Sep 29 00:05:43 2001
Date: Fri, 28 Sep 2001 21:05:06 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <1001736305-v10-i1840@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 28 Sep 2001 Volume: 10 Number: 1840
Today's topics:
Re: can I run CGI C program using mod_perl? <wyzelli@yahoo.com>
Re: can I run CGI C program using mod_perl? <wyzelli@yahoo.com>
Re: CGI.pm (Randal L. Schwartz)
Re: file upload while()loop problem <ilya@martynov.org>
Re: grep question <dtweed@acm.org>
Re: Help: How can I catch the error with my perl ? <goldbb2@earthlink.net>
Re: HTML substitution <jurgenex@hotmail.com>
Re: IO::Socket && IO::Select Problem (NuArb)
Re: IO::Socket && IO::Select Problem <bart.lateur@skynet.be>
Re: mime::lite & duplicate emails? <bart.lateur@skynet.be>
Perl "plugins" and eval code <mda@idatar.com>
Re: Perl "plugins" and eval code (Eric Bohlman)
Re: Problems with & <nomail@please.com>
rename folders or dir (Venkatesh Babu Sira)
Re: rename folders or dir (Eric Bohlman)
Re: rename folders or dir (Tim Hammerquist)
Re: Sourcing Things in Perl ? (Martien Verbruggen)
Re: use Module vs. use module <bart.lateur@skynet.be>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 29 Sep 2001 10:11:17 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: can I run CGI C program using mod_perl?
Message-Id: <gp8t7.1$gX4.522@wa.nnrp.telstra.net>
"eric ng" <m_010@yahoo.com> wrote in message
news:3bb4bc5e.5364013@enews.newsguy.com...
> I have a CGI application written / compiled in c language. what kind
> of apache module I need to install inorder to run it? -OR- mod_perl
> will do it too?
>
> does CGI in C compiled code has a signaficant faster startup /
> execution time?
GGI, Apache, C language. Nope no Perl there. Try a group that deals with
one of your questions perhaps?
Wyzelli
--
#Modified from the original by Jim Menard
for(reverse(1..100)){$s=($_==1)? '':'s';print"$_ bottle$s of beer on the
wall,\n";
print"$_ bottle$s of beer,\nTake one down, pass it around,\n";
$_--;$s=($_==1)?'':'s';print"$_ bottle$s of beer on the
wall\n\n";}print'*burp*';
------------------------------
Date: Sat, 29 Sep 2001 10:11:17 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: can I run CGI C program using mod_perl?
Message-Id: <Op8t7.2$gX4.318@wa.nnrp.telstra.net>
"eric ng" <m_010@yahoo.com> wrote in message
news:3bb4bc5e.5364013@enews.newsguy.com...
> I have a CGI application written / compiled in c language. what kind
> of apache module I need to install inorder to run it? -OR- mod_perl
> will do it too?
>
> does CGI in C compiled code has a signaficant faster startup /
> execution time?
GGI, Apache, C language. Nope no Perl there. Try a group that deals with
one of your questions perhaps?
Wyzelli
--
#Modified from the original by Jim Menard
for(reverse(1..100)){$s=($_==1)? '':'s';print"$_ bottle$s of beer on the
wall,\n";
print"$_ bottle$s of beer,\nTake one down, pass it around,\n";
$_--;$s=($_==1)?'':'s';print"$_ bottle$s of beer on the
wall\n\n";}print'*burp*';
------------------------------
Date: 28 Sep 2001 16:50:07 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: CGI.pm
Message-Id: <m1snd6lvtc.fsf@halfdome.holdit.com>
>>>>> "eric" == eric ng <m_010@yahoo.com> writes:
eric> where can I find example source code on using CGI.pm? for example,
eric> example source code come with CGI.pm ( use CGI.pm ).
$ find WT UR LM -name 'col*.pod' -print | xargs cat | grep -c "use CGI"
58
Well, there's 58 examples. :)
See
<http://www.stonehenge.com/merlyn/WebTechniques/>
<http://www.stonehenge.com/merlyn/UnixReview/>
<http://www.stonehenge.com/merlyn/LinuxMag/>
for those 58 uses.
And google for "use CGI". I'm sure you'll find hundreds of others.
print "Just another Perl hacker," # and web whacker
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: 29 Sep 2001 02:14:56 +0400
From: Ilya Martynov <ilya@martynov.org>
Subject: Re: file upload while()loop problem
Message-Id: <87vgi3nesf.fsf@abra.ru>
>>>>> On 28 Sep 2001 14:37:29 -0700, gkl200@yahoo.com (GL) said:
G> I seem to have a problem using two while() loops to do a file upload.
G> The first while loop counts and checks the size and the second writes
G> the file to the filesystem. There seems to be a problem when I use
G> more than one while() loop. it writes zero bytes, but when I remove
G> the first while() loop, it works fine.
G> Any help or hints would be appreciated. thanks
G> $thefile = $query->param('file');
G> while (<$thefile>) {
G> # ++counter: add and get size
G> print "file is too big" if ($count > $max);
G> }
G> # Copy a binary file to somewhere safe
G> open (OUTFILE,">$uploadpath/$filename");
G> while ($bytesread=read($thefile,$buffer,1024)) {
G> print OUTFILE $buffer;
G> }
G> close $thefile;
This happens because first loop reads data from $thefile up to the end
of stream. Next reads from it will just return empty string.
If you want to read from stream twice you should reset it's position
with 'seek' (see perldoc -tf seek):
seek $thefile, 0, 0;
--
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
| Ilya Martynov (http://martynov.org/) |
| GnuPG 1024D/323BDEE6 D7F7 561E 4C1D 8A15 8E80 E4AE BE1A 53EB 323B DEE6 |
| AGAVA Software Company (http://www.agava.com/) |
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
------------------------------
Date: Sat, 29 Sep 2001 04:02:39 GMT
From: Dave Tweed <dtweed@acm.org>
Subject: Re: grep question
Message-Id: <3BB54695.6BE30833@acm.org>
"Mr. Sunblade" wrote:
> # Doesn't print! (?)
> foreach('daniel','bergeg'){
> unless(grep /$_/,values(%hash)){ print "Loop: Not found\n" }
> }
> Is there some secret behavior of grep I should know about? Or am I missing
> something scathingly obvious?
I'm afraid it's the latter. Both the foreach and the grep create local
values of $_, so your regex isn't what you think it is -- you're always
testing the values of the hash against themselves. You need an explicit
loop variable for the foreach:
foreach my $pattern ('daniel','bergeg'){
unless(grep /$pattern/, values(%hash)){ print "Loop: Not found\n" }
}
-- Dave Tweed
------------------------------
Date: Fri, 28 Sep 2001 20:34:46 -0400
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Help: How can I catch the error with my perl ?
Message-Id: <3BB51726.CC9A2662@earthlink.net>
Mike F wrote:
[snip]
> For any reason there is an error, perl will exit. Everyday I have to
> read output files to see whether there is an error, how can I make a
> perl call my sub function TRAP_DIE so that when error, I will get an
> email?
There is more than one way to do it.
One: wrap the code which raises the exception in an eval, and then do
stuff with $@ :
eval {
my $dbh = ....
}
trap_die( $@ ) if $@;
Two: use a psuedo-signal handler to trap the die:
$SIG{__DIE__} = sub {
my ($message) = @_;
system "/bin/mailx", "-s", $message, "xxxx\@yyyy.com";
exit;
}
Three: don't use RaiseError, trap the errors yourself:
sub trap_die {
my ($message) = @_;
system "/bin/mailx", "-s", $message, "xxxx\@yyyy.com";
exit;
}
my $dbh = DBI->connect(
....
{ AutoCommit => 1 }
) or trap_die( $DBI::errstr );
my $sth = $dbh->prepare( q{select * from global_name} )
or trap_die( $DBI::errstr );
$sth->execute or trap_die( $DBI::errstr );
while( my ($col0) = $sth->fetchrow_array ) {
print "$col0\n";
}
trap_die( $DBI::errstr ) if $DBI::errstr;
$sth->finish or trap_die( $DBI::errstr );
$dbh->disconnect or trap_die( $DBI::errstr );
I would go with the eval solution.
--
"I think not," said Descartes, and promptly disappeared.
------------------------------
Date: Fri, 28 Sep 2001 19:24:16 -0700
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: HTML substitution
Message-Id: <3bb530d2@news.microsoft.com>
"Brady Doll" <gte574u@prism.gatech.edu> wrote in message
news:9p2om1$3pn$1@news-int.gatech.edu...
> I am attempting to replace a tag in an HTML file.
You may want to check HTML::Parser.
Or the FAQ for why usually it's not a good idea to run your own home-cooked
code to parse HTML.
jue
------------------------------
Date: 28 Sep 2001 15:26:13 -0700
From: tristan.braun@gmx.net (NuArb)
Subject: Re: IO::Socket && IO::Select Problem
Message-Id: <3dae1176.0109281426.7c020ff4@posting.google.com>
Thomas Bätzler <Thomas@Baetzler.de> wrote in message news:<d1e8rtgpmkjbrfbm60d0qbaal5cdlqcm8i@4ax.com>...
> You may be running against a system limit - the number of file handles
> that may be queried in a select() call is limited.
>
> That would also explain the behaviour you're seeing.
Thanks for your help. In the meanwhile I made 2 things.
At first I tried to find out how IO::Select->can_read works. I found
the
function in Select.pm. I must say that I do not really understand what
there
is happening. All I can see is, that there might be some bitshifting
vec(...). Is that the limitation of IO::Select ? One Byte ? But then
it should accept 256
handles. And it does not explain why the handels over ~66 are not
fireing the select() event/request.
I am sure that I am not alone who tried this before - a ChatServer in
Perl !?!
I tried to do it with fork() first - but I am on Win32. I dont want to
spend some hours with Treads [... WARNING: Threading is an
experimental feature... ] when I do not know if it will solve my
problem !
And the second thing what I have done is to write a simple VB app that
does nearly the same like this Perl Script - and I was surprised - it
workes with more then 200. It seems to me that there is no problem
with the winsock implementation.
But VB is not my first choice. I would like to see a Perlscript
running on my Server. No Java (except the applet), no C !
Thanks in advance,
Tristan
------------------------------
Date: Fri, 28 Sep 2001 22:56:43 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: IO::Socket && IO::Select Problem
Message-Id: <ekv9rtg67sbfhromlj441bphqj504b05hf@4ax.com>
NuArb wrote:
>At first I tried to find out how IO::Select->can_read works. I found the
>function in Select.pm. I must say that I do not really understand what there
>is happening. All I can see is, that there might be some bitshifting
>vec(...). Is that the limitation of IO::Select ? One Byte ? But then
>it should accept 256 handles.
No... if the limitation was one byte, you would be limited to 8 handles.
Each handle requires a bit, and there are only 8 bits in a byte.
But Perl's built-in bit fiddling is not limited to 8 bits. It's not even
limited to 32 bits, even though that's the limit, on many platforms, for
bitwise manipulation of integers. But Perl can do bit fiddling on
strings too, so in principle, there's no limit there. And that's what
vec() is for, it allows you to read and modify bits/groups of bits in a
string.
The four argument select(), a perl primitive, uses strings as bit masks
to check out what handles to monitor. Thus, again, Perl is not the
limiting factor here. IO::Select is just a fancier interface on top of
this primitive.
I think the limitation is with your OS, which somehow forbids your
script to have too many handles open at the same time.
--
Bart.
------------------------------
Date: Fri, 28 Sep 2001 22:05:27 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: mime::lite & duplicate emails?
Message-Id: <2ts9rtc1jd11eet4l1g2quf05aomnp45bp@4ax.com>
Doug O'Leary wrote:
>I have a perl developer who's telling me that sendmail's broke because
>he's getting duplicate emails from his perl program. He's using
>MIME::Lite. I've looked at the email logs and the system is receiving
>two separate emails from this script - slightly different timestamps
>(off by a sec) and different message ids. This, to me, points to the
>perl script.
I use Mime::Lite. I don't get duplicate mails. But I agree, I think your
man might be sending the messages twice. Show us the code, preferably
just the essence.
--
Bart.
------------------------------
Date: Fri, 28 Sep 2001 22:18:10 GMT
From: "David Allen" <mda@idatar.com>
Subject: Perl "plugins" and eval code
Message-Id: <CG6t7.1065$6j6.83640@typhoon2.gnilink.net>
I'm working on a program that loads "plugins" so to speak. I have a
directory that has my modules and a user can put names of modules to load at
runtime in a configuration file.
The issue is, I want to take a string, and use that string to load a module
via 'use' into perl so I can create objects using that module.
Here's how I have been doing it, (I'm looking for better ways of doing it)
$plugin_name contains the name of the plugin that the user wants to load.
my $code = scalar("use Bot::Plugin::$plugin_name;" .
"my $obj = Bot::Plugin::$plugin_name->new();");
my $obj = eval $code;
awful_earth_shattering_error_condition($@) if($@);
This has lots and lots of problems. The ones I can think of:
- I've always heard that eval'ing string code like that is wicked slow.
- Users could put arbitrary perl to execute in a configuration file where
they should just be specifying the name of a module. I'm not worried about
this for security reasons, since if the user can edit the configuration file
they already have quite a bit of control over the program, but I don't like
that this is possible.
Another problem that I've been having is that if I reload the plugin (by
dropping all references to the loaded plugin, and basically creating the
plugin using this method over again) changes that I've made to the perl
source of the plugin since it was last loaded don't seem to be in effect. In
other words, if I find a bug in the plugin, change the code, and then reload
the plugin, the bug is still there. I have to fully stop the program and
restart it in order to have the source changes reflected in what's actually
running. What's up with that?
Does anybody know of a better way to do this? Any help would be appreciated.
--
David Allen
http://opop.nols.com/
----------------------------------------
It is impossible to sharpen a pencil with a blunt axe. It is equally
vain to try to do it with ten blunt axes instead.
-- Edsger W. Dijkstra
------------------------------
Date: 29 Sep 2001 00:31:48 GMT
From: ebohlman@omsdev.com (Eric Bohlman)
Subject: Re: Perl "plugins" and eval code
Message-Id: <9p34pk$ntk$1@bob.news.rcn.net>
David Allen <mda@idatar.com> wrote:
> I'm working on a program that loads "plugins" so to speak. I have a
> directory that has my modules and a user can put names of modules to load at
> runtime in a configuration file.
> The issue is, I want to take a string, and use that string to load a module
> via 'use' into perl so I can create objects using that module.
> Here's how I have been doing it, (I'm looking for better ways of doing it)
> $plugin_name contains the name of the plugin that the user wants to load.
> my $code = scalar("use Bot::Plugin::$plugin_name;" .
> "my $obj = Bot::Plugin::$plugin_name->new();");
> my $obj = eval $code;
> awful_earth_shattering_error_condition($@) if($@);
> This has lots and lots of problems. The ones I can think of:
> - I've always heard that eval'ing string code like that is wicked slow.
> - Users could put arbitrary perl to execute in a configuration file where
> they should just be specifying the name of a module. I'm not worried about
> this for security reasons, since if the user can edit the configuration file
> they already have quite a bit of control over the program, but I don't like
> that this is possible.
Assuming that the module doesn't export anything, you can just require it
rather than use it; require operates at run-time rather than compile time
and can take a variable as its argument. If the module does export
things, you'll need to call its import() method after doing the require.
> Another problem that I've been having is that if I reload the plugin (by
> dropping all references to the loaded plugin, and basically creating the
> plugin using this method over again) changes that I've made to the perl
> source of the plugin since it was last loaded don't seem to be in effect. In
> other words, if I find a bug in the plugin, change the code, and then reload
> the plugin, the bug is still there. I have to fully stop the program and
> restart it in order to have the source changes reflected in what's actually
> running. What's up with that?
This one is trickier. Both require and use check to see if the code has
already been loaded and do nothing if it has. You could use do instead,
but you'd get a whole lot of warnings about redefined subroutines and the
like unless you did some major symbol table hackery to "clean out"
everything from the old copy.
------------------------------
Date: Fri, 28 Sep 2001 19:03:17 -0400
From: "Victor Menendez" <nomail@please.com>
Subject: Re: Problems with &
Message-Id: <Gj7t7.55837$Dz6.1131789@e3500-atl2.usenetserver.com>
You are right for some reason I thought the ; might cut the program short
but it doesn't. Problem solved. Thank you very much..
I downloaded XML Writer, however, I cant determine exactly how it will allow
me to convert a tab delimited Text file into an xml document. I don't have
an existing xml document. I must create it from raw data? If you have any
experience with it maybe you can shed some light on it for me. BTW I already
have successfully converted my data to an error free xml document that
matches a specific DTD. I used Perl to do that. It was for me quite
punishing!! since I just learned perl a few days ago.
Thanks Again.
"Eric Bohlman" <ebohlman@omsdev.com> wrote in message
news:9p2r1j$9a4$1@bob.news.rcn.net...
> Victor Menendez <nomail@please.com> wrote:
> > Converting some data to a well-formed xml doc I encountered a problem
with
> > an entry in a field "L&E310" where in XML starting with & returns
special
> > symbols. Now using the & in HTML will return the "&" however it
would
> > cut the statement short in PERL. Using the character reference &#nnn
would
> > do the same in PERL.
>
> > Does anyone know how I can write back the & to the xml document using
PERL.
>
> I have no idea what you mean by "cut the statement short." As long as the
> value you're trying to write out doesn't already contain any XML entities,
> a simple
>
> s/&/&/g;
>
> will fix everything.
>
> You might want to consider using XML::Writer, XML::Generator, or something
> similar instead of manually generating XML output. They all take care of
> the escaping issues for you.
>
------------------------------
Date: 28 Sep 2001 16:51:43 -0700
From: vsira@hotmail.com (Venkatesh Babu Sira)
Subject: rename folders or dir
Message-Id: <d5b8dfd2.0109281551.58705b7d@posting.google.com>
All,
How can i rename folders in windows.
Issue is i want find recursevely folder or filenames which has space & convert to _.
Like "program files" to "program_files"
Tx
-B
------------------------------
Date: 29 Sep 2001 00:32:51 GMT
From: ebohlman@omsdev.com (Eric Bohlman)
Subject: Re: rename folders or dir
Message-Id: <9p34rj$ntk$2@bob.news.rcn.net>
Venkatesh Babu Sira <vsira@hotmail.com> wrote:
> How can i rename folders in windows.
^^^^^^
Would you believe that you could use Perl's rename() function?
------------------------------
Date: Sat, 29 Sep 2001 01:10:43 GMT
From: tim@vegeta.ath.cx (Tim Hammerquist)
Subject: Re: rename folders or dir
Message-Id: <slrn9ra8ld.97n.tim@vegeta.ath.cx>
Me parece que Venkatesh Babu Sira <vsira@hotmail.com> dijo:
> All,
> How can i rename folders in windows.
Perl's builtin function rename() should suffice. Don't forget to check
it's return.
C:\> perldoc -f rename
> Issue is i want find recursevely folder or filenames which has space
> & convert to _. Like "program files" to "program_files"
"Recursive" has become a buzzword, usually calling for the File::Find
module.
C:\> perldoc File::Find
> Tx
> -B
HTH
--
I'm brave, but my feet arent! Damn feet!
-- Akito Tenkawa, Martian Successor Nadesico
------------------------------
Date: Sat, 29 Sep 2001 09:29:08 +1000
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: Sourcing Things in Perl ?
Message-Id: <slrn9ra1u4.t75.mgjv@martien.heliotrope.home>
On 28 Sep 2001 14:24:02 GMT,
Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote:
> According to Martien Verbruggen <mgjv@tradingpost.com.au>:
>> On Thu, 27 Sep 2001 09:51:24 +0100,
>> slightlysprintingdog@ntlworld.com <slightlysprintingdog@ntlworld.com> wrote:
>
> [...]
>
>> > system ( "source $sourceme" );
>>
>> Some shells have that as a builtin command, but I haven't seen it as an
>> external command on any system I've worked on.
>
> It can't be an external program (under Unix). Its purpose is to
> interpret commands in the current (shell-) process. An external
> command would always be run in a process of its own.
>
> Just a side note.
I didn't think that needed explanation in the context of this thread :)
Martien
--
Martien Verbruggen |
Interactive Media Division | Hi, Dave here, what's the root
Commercial Dynamics Pty. Ltd. | password?
NSW, Australia |
------------------------------
Date: Fri, 28 Sep 2001 22:21:49 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: use Module vs. use module
Message-Id: <05t9rt0ovnler4ctp185g24mvbr2sqie6s@4ax.com>
Brian Helterline wrote:
>I have a question about case sensitivity. I'm running ActivePerl 5.6.0 on
>Windows NT4
>
>I mistakenly typed 'use GetOpt::Std;' rather than 'use Getopt::Std;' and the
>program compiled without complaint but failed with a Undefined subroutine
>&main::getopts message.
>
>How can 'use' correctly find the module but not resolve the functions? I'm
>suspecting that it has to do with the case insensitivity of the OS in
>locating the module vs. perl trying to resolve the functions
Indeed.
When you try
use Foobar;
the following happens:
* perl tries to locate and run the file "Foobar.pm"
* perl searches for a sub called "import" in a package with the name
"Foobar", then runs it as a class method with the arguments provides to
the "use" statement; but it DOESN'T COMPLAIN if it can't find it.
(Do note that since import is called as a method, that implies that OO
inheritance will work, so the import() can be gotten from a package in
this package's @ISA, or in one of their ancestors. That's how importing
using Exporter works.)
So lets assume the module file is actually called "FooBar.pm", and the
package inside it is called "FooBar".
Perl goes searching for "Foobar.pm", stumbles across "FooBar.pm", and
since Windows has a case insensitive file system, these are considered
equivalent. So perl loads and runs it.
Next, it goes searching for the package "FooBar", and more specifically,
for the sub "import" in it. Perl is case sensitive. The package "FooBar"
doesn't exist, so it ends there. No error. So nothing is imported, and
thus the functions that sgould have been recoginzed as coming from your
module, aren't recognized. That's where the behaviour you see comes
from.
I can agree that maybe "use" ought to complain if it can't find the
package, instead of that just the sub "import" is missing. But if
mainly Windows (and Mac) programmers would benefit from it, I doubt if
P5P would bother. ;-)
--
Bart.
------------------------------
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.
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 1840
***************************************
