[29135] in Perl-Users-Digest
Perl-Users Digest, Issue: 379 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Apr 25 18:09:55 2007
Date: Wed, 25 Apr 2007 15:09:05 -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 Wed, 25 Apr 2007 Volume: 11 Number: 379
Today's topics:
Re: $ENV HOME on windows <xenophon+usenet@irtnog.org>
Re: How to execute a SQL select???? (successfully that <glennj@ncf.ca>
Re: How to parse text file into hash table <wahab-mail@gmx.de>
Re: How to trigger garbage collection anno4000@radom.zrz.tu-berlin.de
Re: How to trigger garbage collection <bugbear@trim_papermule.co.uk_trim>
multiline CSV records (comma-separated values format) <iler.ml@gmail.com>
Re: multiline CSV records (comma-separated values forma <purlgurl@purlgurl.net>
Re: multiline CSV records (comma-separated values forma <paduille.4061.mumia.w+nospam@earthlink.net>
parse with multiple delimiter anitawa@gmail.com
Re: parse with multiple delimiter <wahab-mail@gmx.de>
Re: passing objects to threads <zentara@highstream.net>
Perl module to send mail with Attachments <ignoramus13980@NOSPAM.13980.invalid>
Re: Perl module to send mail with Attachments <spamtrap@dot-app.org>
Re: Perl module to send mail with Attachments <ignoramus13980@NOSPAM.13980.invalid>
Re: Reading a ctime formatted date <Peter@PSDT.com>
Re: signal HANDLER in perl xhoster@gmail.com
Re: signal HANDLER in perl xhoster@gmail.com
STDOUT redirection paraagv@gmail.com
Re: STDOUT redirection xhoster@gmail.com
Use of constant inside a module? <howachen@gmail.com>
Re: Use of constant inside a module? <jgibson@mail.arc.nasa.gov>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 25 Apr 2007 13:43:34 -0400
From: "Matthew X. Economou" <xenophon+usenet@irtnog.org>
Subject: Re: $ENV HOME on windows
Message-Id: <uslaos62h.fsf@irtnog.org>
>>>>> "Ruud" == Ruud <rvtol+news@isolution.nl> writes:
Ruud> HOMEDRIVE=C:
Ruud> HOMEPATH=\Documents and Settings\Username
Ruud> The concatenation can be used as HOME:
I wrote a small Windows Installer (MSI) package that adds an entry
"HOME" (with the value "%HOMEDRIVE%%HOMEPATH%") to the user's
profile. I pushed the package to all domain users via a group policy
object (under User Configuration, Software Settings, Software
installation; made it an assigned application). The original poster
should be able to do something similar using Wise for Windows
Installer (expensive but easy) or WiX (free but difficult).
Best wishes,
Matthew
--
"Rogues are very keen in their profession, and know already much more
than we can teach them respecting their several kinds of roguery."
- A. C. Hobbs in _Locks and Safes_ (1853)
------------------------------
Date: 25 Apr 2007 13:18:05 GMT
From: Glenn Jackman <glennj@ncf.ca>
Subject: Re: How to execute a SQL select???? (successfully that is!)
Message-Id: <slrnf2ul8d.8fm.glennj@smeagol.ncf.ca>
At 2007-04-24 05:11PM, "Richard" wrote:
> I have been following a "worked example" of how to retrieve a row from an
> SQL table in Perl and use a returned column from that row in my Perl script.
>
> Unfortunately, as soon as I get to the statement:-
> $execute = $connect->query($myquery);
> I just get an error 500 from the website.
To get more information, add
use CGI::Carp 'fatalsToBrowser';
--
Glenn Jackman
"You can only be young once. But you can always be immature." -- Dave Barry
------------------------------
Date: Wed, 25 Apr 2007 22:25:37 +0200
From: Mirco Wahab <wahab-mail@gmx.de>
Subject: Re: How to parse text file into hash table
Message-Id: <f0ofpi$jfg$1@mlucom4.urz.uni-halle.de>
Tad McClellan wrote:
> anitawa@gmail.com <anitawa@gmail.com> wrote:
>> Basically i have some text file like this:
>> start -day 1,2,3 -month 6,12 -message "there is a message for you" -
>> group book club -emergency
>> Can someone help me get started?
> -----------------------------
> #!/usr/bin/perl
> use warnings;
> use strict;
>
> my $str = '-start -day 1,2,3 -month 6,12 -message "there is a message '
> . 'for you" -group book club -emergency';
>
> my %myhash = $str =~ /(-\S+)\s*([^-]*)/g;
>
> print qq($_ ==> "$myhash{$_}"\n) for sort keys %myhash;
> -----------------------------
Doooh!
After I answered the OP's question further below
I found this one here which is almost identical.
Now I was stunned how compact and elegant your
solution is, you simply made an extra '-' in front
of the 'out of sync' elements and ignored any "quoted"
stuff completely (by just reading through).
Nice!
(but why in heaven did the OP repeat the same question then ?)
Thanks & Regards
M.
------------------------------
Date: 25 Apr 2007 13:45:52 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: How to trigger garbage collection
Message-Id: <5994cgF2gtsgfU1@mid.dfncis.de>
Ignoramus13980 <ignoramus13980@NOSPAM.13980.invalid> wrote in comp.lang.perl.misc:
> On 25 Apr 2007 09:37:04 GMT, anno4000@radom.zrz.tu-berlin.de
> <anno4000@radom.zrz.tu-berlin.de> wrote:
> > Ignoramus2319 <ignoramus2319@NOSPAM.2319.invalid> wrote in
> comp.lang.perl.misc:
> >> I have a script that runs 10 hours or so, using XML::Simple,
> >> HTML::TreeBuilder, DBI, etc. I do properly use 'my' variables, so that
> >> they get deleted when they get out of scope, and for HTML::TreeBuilder
> >> trees, I do use delete method to trigger garbage collection. I also
> >> 'use strict' to let me know if I am making any scoping mistakes.
> >>
> >> I do use one global hash that maps integers to integers, which I
> >> estimate to be about 20,000 integers. (not much) I also have a second
> >> hash with not much more.
> >>
> >> Despite that, my script grows to large sizes in memory, which screws
> >> things up. (600+ MB)
> >>
> >> What I would like to know is whether I can trigger some sort of
> >> garbage collection that deletes circular structures and everything
> >> else that perl can find, besides just doing reference count based
> >> deletion. I would then do that periodically, say every 100
> >> iterations.
> >
> > As Xho said, the best solution would be to find the leak and
> > eliminate it.
> >
> > For a quick-and-dirty solution you could restart the script
> > periodically. It seems that the state you need to keep is
> > in one or both of those hashes of integers. Every so-many
> > iterations you could save these to disk and restart
> >
> > # save state
> > exec $^X, $0;
> > # restore state
> > # continue
> >
>
> Anno, I will use that as a last resort. The script is already
> restartable at any time. It keeps its state on disk. Can I clarify
> something? If the script is called with command arguments, I need to
> call it with
>
> exec $^X, $0, @ORIG_ARGV;
>
> right?
Right. Below is the bare-bones restarting script I used for tests:
Anno
#!/usr/local/bin/perl
use strict; use warnings; $| = 1;
my $state = restore_state();
while ( ++ $state < 30 ) {
print "State $state, args = (@ARGV)\n";
if ( $state % 10 == 0 ) {
save_state( $state);
print "restarting\n";
exec $^X, $0, @ARGV;
}
}
BEGIN { # so the assignment to $state_file is in time
my $state_file = '/tmp/x';
sub save_state {
my $state = shift;
open my $st, '>', $state_file or die "Writing '$state_file': $!";
print $st $state;
}
sub restore_state {
save_state 0 unless -e $state_file;
open my $st, '<', $state_file or die "Reading '$state_file': $!";
<$st>
}
}
------------------------------
Date: Wed, 25 Apr 2007 17:12:32 +0100
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: Re: How to trigger garbage collection
Message-Id: <462f7df0$0$8734$ed2619ec@ptn-nntp-reader02.plus.net>
Ignoramus2319 wrote:
> I have a script that runs 10 hours or so, using XML::Simple,
> HTML::TreeBuilder, DBI, etc. I do properly use 'my' variables, so that
> they get deleted when they get out of scope, and for HTML::TreeBuilder
> trees, I do use delete method to trigger garbage collection. I also
> 'use strict' to let me know if I am making any scoping mistakes.
>
> I do use one global hash that maps integers to integers, which I
> estimate to be about 20,000 integers. (not much) I also have a second
> hash with not much more.
>
> Despite that, my script grows to large sizes in memory, which screws
> things up. (600+ MB)
>
> What I would like to know is whether I can trigger some sort of
> garbage collection that deletes circular structures and everything
> else that perl can find, besides just doing reference count based
> deletion. I would then do that periodically, say every 100
> iterations.
http://letsgetdugg.com/view/Finding_Circular_Reference_leaks_in_Perl
BugBear
------------------------------
Date: 25 Apr 2007 08:28:37 -0700
From: Yakov <iler.ml@gmail.com>
Subject: multiline CSV records (comma-separated values format)
Message-Id: <1177514917.702634.179220@r3g2000prh.googlegroups.com>
Which CVS parser on cpan supports multiline CSV fields/records ?
Searching for CSV modules on cpan, I get impression that most of
them do not suport multiline values.
Which cvs parser support multiline fields ?
I have cvs data from my pda, and lots of records contain multiline
fields.
Thanks
Yakov
------------------------------
Date: Wed, 25 Apr 2007 09:43:37 -0700
From: Purl Gurl <purlgurl@purlgurl.net>
Subject: Re: multiline CSV records (comma-separated values format)
Message-Id: <At-dnYBNEtOpGLLbnZ2dnUVZ_s_inZ2d@giganews.com>
Yakov wrote:
> Which CVS parser on cpan supports multiline CSV fields/records ?
> Searching for CSV modules on cpan, I get impression that most of
> them do not suport multiline values.
Clearly there exists a delimiter between records, even if
records span multiple lines. Use this delimiter as a basis
for parsing your files.
Purl Gurl
------------------------------
Date: Wed, 25 Apr 2007 21:11:20 GMT
From: "Mumia W." <paduille.4061.mumia.w+nospam@earthlink.net>
Subject: Re: multiline CSV records (comma-separated values format)
Message-Id: <YtPXh.5249$j63.3750@newsread2.news.pas.earthlink.net>
On 04/25/2007 10:28 AM, Yakov wrote:
> Which CVS parser on cpan supports multiline CSV fields/records ?
> Searching for CSV modules on cpan, I get impression that most of
> them do not suport multiline values.
> Which cvs parser support multiline fields ?
>
> I have cvs data from my pda, and lots of records contain multiline
> fields.
>
> Thanks
> Yakov
>
Text::CSV_XS supports multiline values if you use the 'binary' option.
------------------------------
Date: 25 Apr 2007 12:40:39 -0700
From: anitawa@gmail.com
Subject: parse with multiple delimiter
Message-Id: <1177530039.074438.154020@s33g2000prh.googlegroups.com>
Hi,
I am new to perl and trying to parse a text file into a hash table.
Could someone point me in the right direction?
My text file:
start -days 1,2,3,4,5 -month 2,4,8,10 -message "I want you to start
this" -running -group "rungroup"
Hash table should look like this:
myhash(start) = ""
myhash(days) = 1,2,3,4,5
myhashh(month) = 2,4,8,10
myhash(message) = "I want you to start this"
myhash(running) = ""
myhash(group) = "rungroup"
Thanks
------------------------------
Date: Wed, 25 Apr 2007 21:59:28 +0200
From: Mirco Wahab <wahab-mail@gmx.de>
Subject: Re: parse with multiple delimiter
Message-Id: <f0oe8h$ig1$1@mlucom4.urz.uni-halle.de>
anitawa@gmail.com wrote:
> I am new to perl and trying to parse a text file into a hash table.
> Could someone point me in the right direction?
> My text file:
> start -days 1,2,3,4,5 -month 2,4,8,10 -message "I want you to start
> this" -running -group "rungroup"
>
> Hash table should look like this:
>
> myhash(start) = ""
> myhash(days) = 1,2,3,4,5
> myhashh(month) = 2,4,8,10
> myhash(message) = "I want you to start this"
> myhash(running) = ""
> myhash(group) = "rungroup"
You could match and map the entries then into a hash, like:
==>
...
my $line='start -days 1,2,3,4,5 -month 2,4,8,10 -message "I want you to start this" -running -group "rungroup"';
my $id = 0;
my %myhash = map +($id++ & 1) && /^-/ ? (++$id && '""', $_) : $_,
$line =~ /((?:".+?")|\S+)/g;
print "myhash($_) = $myhash{$_}\n" for keys %myhash;
...
<==
The trick is to count the splitted string
elements and look if the '-' option shows
up on "odd positions" (therefore the ++$id)
Regards
M.
------------------------------
Date: Wed, 25 Apr 2007 13:59:46 GMT
From: zentara <zentara@highstream.net>
Subject: Re: passing objects to threads
Message-Id: <t5nu23139q1linhophlem5dvp3i23f1gkr@4ax.com>
On 24 Apr 2007 21:43:08 -0700, gaurava@lycos.com wrote:
>Hi,
> I am trying to create a new thread within my script and use a global
>object reference within the thread. The global object is initialized
>before it is passed to the thread. However the thread doesn't receive
>an initialized copy. It gets a copy of the reference. I am doing:
>
>use Thread;
>
>Should I use threads and threads::shared? How do I share object
>references?
>
>Thanks,
>Gaurav
You are treading on quicksand, normally you don't share
objects across threads. Most objects should be consider
NOT-threadsafe, unless otherwise proven.
You are best to contain objects
within a single thread, and share data through shared scalars.
Think about a strategy where you have objects contained
in a single thread and you reuse them, by clearing them out
and feeding them new data through shared variables.
But read this if you really need it:
http://perlmonks.org?node_id=465380
zentara
--
I'm not really a human, but I play one on earth.
http://zentara.net/japh.html
------------------------------
Date: Wed, 25 Apr 2007 13:03:10 -0500
From: Ignoramus13980 <ignoramus13980@NOSPAM.13980.invalid>
Subject: Perl module to send mail with Attachments
Message-Id: <EJmdnU7h_MRDCrLbnZ2dnUVZ_hadnZ2d@giganews.com>
I have been using Mail::Sendmail for sending emails, but sending
attachments as described on
http://alma.ch/perl/Mail-Sendmail-FAQ.html#attachments
looks kind of messy. Is there a better module with methods such as
add_attachment( $filename, $mimetype, $body )
or some such. Thanks.
i
------------------------------
Date: Wed, 25 Apr 2007 14:16:51 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Perl module to send mail with Attachments
Message-Id: <m2647kcoa4.fsf@local.wv-www.com>
Ignoramus13980 <ignoramus13980@NOSPAM.13980.invalid> writes:
> I have been using Mail::Sendmail for sending emails, but sending
> attachments as described on
>
> http://alma.ch/perl/Mail-Sendmail-FAQ.html#attachments
>
> looks kind of messy. Is there a better module with methods such as
>
> add_attachment( $filename, $mimetype, $body )
>
> or some such. Thanks.
MIME::Lite looks promising:
<http://search.cpan.org/~yves/MIME-Lite-3.01/lib/MIME/Lite.pm>
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Wed, 25 Apr 2007 13:32:12 -0500
From: Ignoramus13980 <ignoramus13980@NOSPAM.13980.invalid>
Subject: Re: Perl module to send mail with Attachments
Message-Id: <cu-dnXIwMLwxA7LbnZ2dnUVZ_gqdnZ2d@giganews.com>
On Wed, 25 Apr 2007 14:16:51 -0400, Sherm Pendley <spamtrap@dot-app.org> wrote:
> Ignoramus13980 <ignoramus13980@NOSPAM.13980.invalid> writes:
>
>> I have been using Mail::Sendmail for sending emails, but sending
>> attachments as described on
>>
>> http://alma.ch/perl/Mail-Sendmail-FAQ.html#attachments
>>
>> looks kind of messy. Is there a better module with methods such as
>>
>> add_attachment( $filename, $mimetype, $body )
>>
>> or some such. Thanks.
>
> MIME::Lite looks promising:
>
> <http://search.cpan.org/~yves/MIME-Lite-3.01/lib/MIME/Lite.pm>
>
> sherm--
>
Thanks, it looks great, I will use it. Looks like it does all that I need.
i
------------------------------
Date: Wed, 25 Apr 2007 13:29:26 GMT
From: Peter Scott <Peter@PSDT.com>
Subject: Re: Reading a ctime formatted date
Message-Id: <pan.2007.04.25.13.29.24.983315@PSDT.com>
On Tue, 24 Apr 2007 17:46:35 +0000, ivan wrote:
> Given a date string of this format:
>
> Fri Apr 13 23:46:01 2007
>
> Whats the simplest perl script that can convert the string into an epoch
> number?
$ perl -MDate::Parse -le 'print str2time "Fri Apr 13 23:46:01 2007"'
1176533161
--
Peter Scott
http://www.perlmedic.com/
http://www.perldebugged.com/
------------------------------
Date: 25 Apr 2007 19:15:45 GMT
From: xhoster@gmail.com
Subject: Re: signal HANDLER in perl
Message-Id: <20070425151548.025$Ha@newsreader.com>
gaurava@lycos.com wrote:
> Hi,
> I am trying to write a program where the main process registers a
> SIGNAL handler for SIGCHLD, forks a bunch of processes and then reaps
> the dead children. I have some control over when to register the
> signal handler (before or after forking the child processes but not a
> whole lot). I am seeing some weird behaviour. Basically I see a valid
> child exit, handle it, and then start seeing a slew of SIGCHLD signals
> from a process with PID 0.
Perhaps you see something you interpret as that, but you are probably
wrong. Since you didn't show us what you actually do see, it is hard to
point out how you are interpreting it wrongly. We can make a guess, maybe
it will be right, maybe not.
> I was wondering if someone could tell me
> the right way to handle signals, or has seen this problem before and
> knows how to fix it. I am copying pseudo code for my script below.
Please post real code. Otherwise, it is hard to give you real answers.
>
> Thanks,
> Gaurav
>
> sub handler {
> while(($kid = waitpid(-1, WNOHANG)) != -1) {
from perldoc -f waitpid:
Waits for a particular child process to terminate
and returns the pid of the deceased process, or
"-1" if there is no such child process. On some
systems, a value of 0 indicates that there are
processes still running.
So if waitpid is returning 0, then you are probably on a system in which
waitpid returns 0 when there are still processes running.
-1 means "There are no processes for me to wait for", while 0 means
"There are processes to wait for, but you said WNOHANG so I am not going
to actually wait for them." So maybe you should test for $kid being
>0 rather than !=-1.
> if ($kid == $imp_pid) {
> exit();
> }
If you are only interested in the case in which $kid==$imp_pid, you should
probably specify $imp_pid rather than -1 as the first argument to waitpid.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 25 Apr 2007 19:22:51 GMT
From: xhoster@gmail.com
Subject: Re: signal HANDLER in perl
Message-Id: <20070425152253.563$pm@newsreader.com>
xhoster@gmail.com wrote:
>
> > if ($kid == $imp_pid) {
> > exit();
> > }
>
> If you are only interested in the case in which $kid==$imp_pid, you
> should probably specify $imp_pid rather than -1 as the first argument to
> waitpid.
Scratch that. Perhaps you should use $imp_pid as the first argument to
waitpid, but perhaps not, depending on how long-running your job is and
thus the risk of accumulating zombies.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 25 Apr 2007 13:40:20 -0700
From: paraagv@gmail.com
Subject: STDOUT redirection
Message-Id: <1177533620.131770.142730@o40g2000prh.googlegroups.com>
Hi have a perl application in on suse64 bit OS, which internally
redirects STDOUT to a $variable
using
This redirects STDOUT to a variable
open OUT ,'>',\$variable
*STDOUT = *OUT
Now when run the tool
e.g ./app <test>.txt > out.txt
The application has two parts
1. returns all text data in the <test> input as is to STDOUT
2. returns function call with return values also to STDOUT
Now what happens is that category 1 collects in out.txt
while category 2 collects in the $variable
my question is why does STDOUT get split into 2 places and how can I
avoid it - I want all to goto the variable
Thanks
Paraag
------------------------------
Date: 25 Apr 2007 21:05:44 GMT
From: xhoster@gmail.com
Subject: Re: STDOUT redirection
Message-Id: <20070425170547.407$aG@newsreader.com>
paraagv@gmail.com wrote:
> Hi have a perl application in on suse64 bit OS, which internally
> redirects STDOUT to a $variable
> using
> This redirects STDOUT to a variable
>
> open OUT ,'>',\$variable
> *STDOUT = *OUT
>
> Now when run the tool
> e.g ./app <test>.txt > out.txt
>
> The application has two parts
> 1. returns all text data in the <test> input as is to STDOUT
Where is the code that does that?
> 2. returns function call with return values also to STDOUT
Where is the code that does that?
>
> Now what happens is that category 1 collects in out.txt
> while category 2 collects in the $variable
>
> my question is why does STDOUT get split into 2 places and how can I
> avoid it - I want all to goto the variable
Without seeing some of the code, it is hard to say. Maybe some of the
printing happens before the redirect takes place. Maybe some of the
printing happens in spawned processes which aren't affected your hacking of
the perl symbol table.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 25 Apr 2007 07:09:33 -0700
From: howa <howachen@gmail.com>
Subject: Use of constant inside a module?
Message-Id: <1177510173.170455.158100@r35g2000prh.googlegroups.com>
Config.pl
================================================
use strict;
use constant TEST_CONST => "9999";
1;
Test1.pm
================================================
use strict;
BEGIN {
require "Config.pl";
}
package Test1;
sub sayHello {
print TEST_CONST;
}
1;
Test.pl
================================================
use strict;
use Test1;
Test1::sayHello();
# print TEST_CONST;
How to print out the constant as defined in Config.pl inside Test1.pm?
Thanks.
------------------------------
Date: Wed, 25 Apr 2007 12:26:39 -0700
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: Use of constant inside a module?
Message-Id: <250420071226398878%jgibson@mail.arc.nasa.gov>
In article <1177510173.170455.158100@r35g2000prh.googlegroups.com>,
howa <howachen@gmail.com> wrote:
> Config.pl
> ================================================
> use strict;
>
> use constant TEST_CONST => "9999";
>
> 1;
>
> Test1.pm
> ================================================
> use strict;
>
> BEGIN {
>
> require "Config.pl";
> }
>
> package Test1;
>
> sub sayHello {
>
> print TEST_CONST;
This is not doing what you think it is doing. Try putting "use
warnings;" at the top of this file.
> }
>
> 1;
>
>
> Test.pl
> ================================================
> use strict;
>
> use Test1;
>
> Test1::sayHello();
>
> # print TEST_CONST;
>
>
> How to print out the constant as defined in Config.pl inside Test1.pm?
print Config::TEST_CONST;
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
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 379
**************************************
