[29132] in Perl-Users-Digest
Perl-Users Digest, Issue: 376 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Apr 24 14:10:09 2007
Date: Tue, 24 Apr 2007 11:09:09 -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 Tue, 24 Apr 2007 Volume: 11 Number: 376
Today's topics:
Compiling Perl with ICC vs GCC - Benchmarks <brundlefly76@hotmail.com>
Re: Compressing Files - Help <raykyoto@gmail.com>
How to parse text file into hash table anitawa@gmail.com
How to trigger garbage collection <ignoramus2319@NOSPAM.2319.invalid>
Re: How to trigger garbage collection <mark.clementsREMOVETHIS@wanadoo.fr>
Re: Perl parent-child communication. xhoster@gmail.com
Re: Problem with Read() in PerlMagick <guba@vi-anec.de>
Re: Problem with Read() in PerlMagick anno4000@radom.zrz.tu-berlin.de
Re-inventing the wheel, same hash, three scripts <justin.0704@purestblue.com>
Re: Re-inventing the wheel, same hash, three scripts xhoster@gmail.com
Re: Re-inventing the wheel, same hash, three scripts <pue@gmx.net>
Re: Re-inventing the wheel, same hash, three scripts <jgibson@mail.arc.nasa.gov>
Reading a ctime formatted date ivan@0x4849.net
Re: regular expression for wc <wahab-mail@gmx.de>
Re: regular expression for wc anno4000@radom.zrz.tu-berlin.de
Re: regular expression for wc <wahab-mail@gmx.de>
Re: regular expression for wc <nospam-abuse@ilyaz.org>
Relative path wont work when opening a file for writing <nikos1337@gmail.com>
Re: Relative path wont work when opening a file for wri <mark.clementsREMOVETHIS@wanadoo.fr>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 24 Apr 2007 12:24:08 -0400
From: "UsenetBinaries.com" <brundlefly76@hotmail.com>
Subject: Compiling Perl with ICC vs GCC - Benchmarks
Message-Id: <462e2f27$0$24189$8d2e0cab@news.usenetbinaries.com>
http://www.usenetbinaries.com/doc/gcc_vs_icc_benchmarks_perl.html
I was wondering if anyone else had any experience with running an icc -O3
compiler Perl executable
under Linux?
Seems to be a lot more efficient even on AMD platform.
Sorry if this is a dupe I posted yesterday and it didnt show up.
------------------------------
Date: 24 Apr 2007 08:33:18 -0700
From: Ray <raykyoto@gmail.com>
Subject: Re: Compressing Files - Help
Message-Id: <1177428798.357500.158510@u32g2000prd.googlegroups.com>
Hi,
On Apr 20, 9:22 am, Jim Gibson <jgib...@mail.arc.nasa.gov> wrote:
> In article <1177024747.413642.44...@n59g2000hsh.googlegroups.com>,
>
> <"pankaj_wolfhun...@yahoo.co.in"> wrote:
> > Greetings,
> > In Unix we have a function called compress/gzip in
> > order to zip a file with the a particular extension.
>
> Unix 'zip', 'gzip', and 'compress' are three different programs that I
> believe use three different but similar compression algorithms.
They're certainly three different programs but (as far as I know) are
two different algorithms. zip and gzip are based on one (LZ77) and
compress is based on another (LZ78). Of course, that was originally
and it is possible that a program which use to support only one
algorithm has since included code to decompress the other, as well as
many other compression schemes.
> my system, 'man gzip' says that gzip can decompress files compressed
> with 'compress', but not compress (create) them. There is also a 'zlib'
> library that compresses stuff, and this adds to the confusion.
zlib is a library that was an implementation of the gzip algorithm.
That is, it was a C library with header and (I believe) source code so
that C programs could be made that had the compression scheme built
in. I'm not sure if zlib has changed since to include other things.
As for the original posting, I haven't followed this closely in recent
years, but compress is based on the LZW algorithm, which in turn is
based on the LZ78 algorithm. There was a patent on LZW which led to
the whole story with the GIF format but expired a few years ago...
I'm not too sure, but I think because of this patent, people tend to
stay away from LZ78 and support LZ77 more. Perhaps that is why it is
hard to find support for 'compress'? Just an opinion and not sure
enough to call it fact. :-)
The original poster can read this and start following the links :-) :
http://en.wikipedia.org/wiki/LZW
Ray
------------------------------
Date: 24 Apr 2007 10:30:25 -0700
From: anitawa@gmail.com
Subject: How to parse text file into hash table
Message-Id: <1177435825.433048.213300@t38g2000prd.googlegroups.com>
Hi,
I am new to perl and i need some help.
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
I want to put this into a hash table like this
myhash(start) = ""
myhash(day) = "1,2,3"
myhash(month) = "6,12"
myhash(message) = "there is a message for you"
myhash(group) = "book club"
myhash(emergency) = ""
Can someone help me get started?
------------------------------
Date: Tue, 24 Apr 2007 10:30:59 -0500
From: Ignoramus2319 <ignoramus2319@NOSPAM.2319.invalid>
Subject: How to trigger garbage collection
Message-Id: <FbOdnYWy9-Euv7PbnZ2dnUVZ_sGqnZ2d@giganews.com>
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.
thanks
i
------------------------------
Date: Tue, 24 Apr 2007 19:48:20 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: How to trigger garbage collection
Message-Id: <462e42d7$0$5108$ba4acef3@news.orange.fr>
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.
>
You may want to check out weak references. Have a look at Scalar::Util.
http://search.cpan.org/~gbarr/Scalar-List-Utils-1.19/lib/Scalar/Util.pm#weaken
Mark
------------------------------
Date: 24 Apr 2007 14:46:30 GMT
From: xhoster@gmail.com
Subject: Re: Perl parent-child communication.
Message-Id: <20070424104632.039$sz@newsreader.com>
"tower.grv@gmail.com" <tower.grv@gmail.com> wrote:
> Hello.
>
> I am developing application that has UDP server.
> Application starts, create child thread (with fork), child thread call
> function to create UDP server
> #------------------------------------------------------------------------
> - $sr = IO::Socket::INET->new(
> Proto => "udp",
> LocalPort => $MYPORT
> );
> while ($sr->recv($TD, 128)) {
> #here it need to send data to main (parent) thread.
> }
> #------------------------------------------------------------------------
Why does the child need to send data to the main thread? If the main
thread needs the data, why doesn't the main thread just dispense with the
child altogether and set up the UDP server itself and read the data itself?
>
> I tried to use signals (%SIG and kill).
> But width signals I can only call some function from parent process
> and I can't send received data.
> How can I do this?
With some kind of socket or pipe between the child and parent, if the child
is needed in the first place. What you have given us is a not a problem,
but rather a failed attempt at a solution. We can't tell you what the
successful solution will be unless you tell us what the actual problem you
are trying to solve is.
> What another ways methods be used to send data to parent process?
Other than pipes and sockets, there is shared memory. And I guess you
could use temp files.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 24 Apr 2007 05:20:48 -0700
From: "guba@vi-anec.de" <guba@vi-anec.de>
Subject: Re: Problem with Read() in PerlMagick
Message-Id: <1177417248.151988.306410@t38g2000prd.googlegroups.com>
Hello Anno,
thank you for answering.
> Return immediately?
Yes it returns directly. I included a
$background->Write() but nothing is
written so I conclude the object is
empty because nothing was read in
this configuration; everything is working
fine when I checked the functionality
by inserting the path by hand.
> Have you checked against a rogue
> line feed at the end of th string?
This is maybe a starting point because only
the use of file paths are here a problem; all
other variables&values are working. To what
must I pay attention when checking it with
print "$background_jp2_path";
or how else could this be checked?
Thank you very much!
best regards
Guenter
anno4000@radom.zrz.tu-berlin.de schrieb:
> guba@vi-anec.de <guba@vi-anec.de> wrote in comp.lang.perl.misc:
> > Hello,
> >
> > I have txt files with paths of image files and
> > parameter values for image processing operations
> > in PerlMagick. The structure is like this:
> >
> > name of the variable without $
> > variable value
> >
> > for example:
> >
> > ...
> > background_jp2_path
> > E:/ART/IM_Composing/Planes/2004/Tile14/T14-2004_04_30a-1-16T.JP2
> > crop_width
> > 1222
> > background_x
> > 2123
> > background_y
> > 192
> > background_x_roll
> > 489
> > ...
> >
> > I wrote a program that reads such txt files,
> > defines the variables and gets the variable
> > values like
> > $background_jp2_path = 'E:/ART/...'
> > I checked that all variables have the right
> > values with the print command.
> >
> > But if I want to read the image file with
> > $background->Read("$background_jp2_path");
>
> The quotes around $background_jp2_path are not
> needed.
>
> > nothing happens!!
>
> Nothing can happen in various ways. We need
> that info. Does it hang? Return immediately?
> What is the value of $background afterwards?
> Does PerlMagick have diagnostics? A debug mode?
> What do they say?
>
> > The variable has for sure
> > the right value and the file exists at the
>
> Are you sure? Have you checked against a rogue
> line feed at the end of th string?
>
> > Why is the Read()-command not working?
> > Thank you very much!
>
> You haven't given us any information that could
> help answer that question.
>
> Anno
------------------------------
Date: 24 Apr 2007 14:22:49 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Problem with Read() in PerlMagick
Message-Id: <596i5pF2jol1dU1@mid.dfncis.de>
guba@vi-anec.de <guba@vi-anec.de> wrote in comp.lang.perl.misc:
> anno4000@radom.zrz.tu-berlin.de schrieb:
[attribution restored, snippage]
> > Have you checked against a rogue
> > line feed at the end of th string?
>
> This is maybe a starting point because only
> the use of file paths are here a problem; all
> other variables&values are working. To what
> must I pay attention when checking it with
> print "$background_jp2_path";
> or how else could this be checked?
The simplest test would be to chomp() the variable
before using it and see if it works then.
Otherwise, look at the output of
print "$background_jp2_path";
The cursor should be at the end of the line, after the "h".
If it is at the beginning of the next line, the variable
ends with a line feed.
Anno
------------------------------
Date: Tue, 24 Apr 2007 14:27:56 -0000
From: Justin C <justin.0704@purestblue.com>
Subject: Re-inventing the wheel, same hash, three scripts
Message-Id: <slrnf2s4vc.fja.justin.0704@stigmata.purestblue.com>
I've been re-inventing the wheel, and it's costing me time. I have a
hash that is used in three scripts, and it's in all three scripts. Each
time there is a change to it I have to update all three scripts. I know
I'm wasting my time.
I'd like to store this hash in an external file and reference the
contents from each script. The scripts are only going to need to look up
one or two elements (out of about 100) each time they are run.
It has been suggested to me that I use one of the Config:: modules, I'd
rather, if possible, do this without modules (these may end up running
somewhere I can't request modules be installed).
I'm happy to read the documentation, I just don't know which
documentation I should read. Opening a file, reading all the contents
into a hash seems, though easy, a waste of time.
Thank you for your suggestions for help with this matter.
Justin.
--
Justin C, by the sea.
------------------------------
Date: 24 Apr 2007 15:07:08 GMT
From: xhoster@gmail.com
Subject: Re: Re-inventing the wheel, same hash, three scripts
Message-Id: <20070424110709.877$KD@newsreader.com>
justin.news@purestblue.com wrote:
> I've been re-inventing the wheel, and it's costing me time. I have a
> hash that is used in three scripts, and it's in all three scripts. Each
> time there is a change to it I have to update all three scripts. I know
> I'm wasting my time.
>
> I'd like to store this hash in an external file and reference the
> contents from each script. The scripts are only going to need to look up
> one or two elements (out of about 100) each time they are run.
If the scripts are only going to look up 1 or 2, then why are there 100
in the first place?
> It has been suggested to me that I use one of the Config:: modules, I'd
> rather, if possible, do this without modules (these may end up running
> somewhere I can't request modules be installed).
A module is nothing more than an external file containing a certain kind
of valid perl code. If you can't install modules, you can't install an
external file to contain the hash's info, either.
> I'm happy to read the documentation, I just don't know which
> documentation I should read. Opening a file, reading all the contents
> into a hash seems, though easy, a waste of time.
How precious is your computer's time relative to your own? If it is very
precious, perhaps you should choose a different language to code in in the
first place.
Personally, I'd just make the config file be a custom-made module.
=== my_config.pm ===
package my_config;
%my_config::config = (
foo => 'bar',
baz => 'boo',
};
1;
=== script.pl ===
use my_config;
warn $my_config{foo};
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Tue, 24 Apr 2007 18:45:50 +0200
From: =?ISO-8859-1?Q?Andreas_P=FCrzer?= <pue@gmx.net>
Subject: Re: Re-inventing the wheel, same hash, three scripts
Message-Id: <596qfgF2i4igtU1@mid.individual.net>
xhoster@gmail.com schrieb:
> Personally, I'd just make the config file be a custom-made module.
>
> === my_config.pm ===
> package my_config;
> %my_config::config = (
> foo => 'bar',
> baz => 'boo',
> };
Unmatched right curly bracket at my_config.pm...
>
> 1;
>
> === script.pl ===
> use my_config;
> warn $my_config{foo};
Warning: something's wrong at script.pl...
warn $my_config::config{foo};
> Xho
>
Sorry for the nitpicking, no offense intended :->
Andreas Pürzer
--
Have Fun,
and if you can't have fun,
have someone else's fun.
The Beautiful South
------------------------------
Date: Tue, 24 Apr 2007 10:17:07 -0700
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: Re-inventing the wheel, same hash, three scripts
Message-Id: <240420071017079484%jgibson@mail.arc.nasa.gov>
In article <slrnf2s4vc.fja.justin.0704@stigmata.purestblue.com>, Justin
C <justin.0704@purestblue.com> wrote:
> I've been re-inventing the wheel, and it's costing me time. I have a
> hash that is used in three scripts, and it's in all three scripts. Each
> time there is a change to it I have to update all three scripts. I know
> I'm wasting my time.
>
> I'd like to store this hash in an external file and reference the
> contents from each script. The scripts are only going to need to look up
> one or two elements (out of about 100) each time they are run.
>
> It has been suggested to me that I use one of the Config:: modules, I'd
> rather, if possible, do this without modules (these may end up running
> somewhere I can't request modules be installed).
>
> I'm happy to read the documentation, I just don't know which
> documentation I should read. Opening a file, reading all the contents
> into a hash seems, though easy, a waste of time.
Here is one way:
main.pl:
require 'hash.pl';
if( $hash{$key} ) {
...
hash.pl:
%hash = ( ... );
You can improve this scheme by using 'package', 'my', or 'our' in
various combinations (left as an exercise or another poster).
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: 24 Apr 2007 17:46:35 GMT
From: ivan@0x4849.net
Subject: Reading a ctime formatted date
Message-Id: <20070424134637.163$nW@newsreader.com>
Hi,
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?
Thanks,
--
--------------------
Ivan Novick
http://www.0x4849.net
------------------------------
Date: Tue, 24 Apr 2007 12:53:53 +0200
From: Mirco Wahab <wahab-mail@gmx.de>
Subject: Re: regular expression for wc
Message-Id: <f0knv2$dro$1@mlucom4.urz.uni-halle.de>
anno4000@radom.zrz.tu-berlin.de wrote:
> Mirco Wahab <wahab-mail@gmx.de> wrote in comp.lang.perl.misc:
>> my %wc = (lines=>1, words=>0, chars=>0);
>> my $re = qr/ \b (?{ $wc{words} += 0.25 })
>> | \n (?{ $wc{lines} ++ })
>> | . (?{ $wc{chars} ++ })
>> /x;
> I don't understand why it finds four /\b/ for each word, but that's
> apparently what happens.
I struggled over this too, but each word has two ends
and the first character *in front* of a word is
/on a word boundary/, as is the first character
*of the word*. Makes #4 \b's.
> You're initializing the line count to one. For me, that makes it
> come out one high.
If you have any text, you start already on line #1,
thats why I modified this. What you see is probably
the last \n of a text.
> The character count will be missing the line feeds. Make the
> second alternative
>
> | \n (?{ $wc{lines} ++; $wc{chars} ++})
OK, you are possibly right. But - I did take them out
because "word processors" don't count them (checked in
Word 97 under wine).
Regards & Thanks
Mirco
------------------------------
Date: 24 Apr 2007 11:24:22 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: regular expression for wc
Message-Id: <5967n6F2its89U1@mid.dfncis.de>
Mirco Wahab <wahab-mail@gmx.de> wrote in comp.lang.perl.misc:
> anno4000@radom.zrz.tu-berlin.de wrote:
> > Mirco Wahab <wahab-mail@gmx.de> wrote in comp.lang.perl.misc:
> >> my %wc = (lines=>1, words=>0, chars=>0);
> >> my $re = qr/ \b (?{ $wc{words} += 0.25 })
> >> | \n (?{ $wc{lines} ++ })
> >> | . (?{ $wc{chars} ++ })
> >> /x;
> > I don't understand why it finds four /\b/ for each word, but that's
> > apparently what happens.
>
> I struggled over this too, but each word has two ends
> and the first character *in front* of a word is
> /on a word boundary/, as is the first character
> *of the word*. Makes #4 \b's.
Generally a zero-width pattern doesn't match twice in the same
place. There must be something else going on. Following the /\b/
like this
my $str = 'aaa bbb ccc';
while ( $str =~ /\b/g ) {
print "$str\n";
print ' ' x $-[ 0], "^\n";
}
shows the expected number of 6 (not 12) matches.
Anno
------------------------------
Date: Tue, 24 Apr 2007 14:46:03 +0200
From: Mirco Wahab <wahab-mail@gmx.de>
Subject: Re: regular expression for wc
Message-Id: <f0kuhd$fng$1@mlucom4.urz.uni-halle.de>
anno4000@radom.zrz.tu-berlin.de wrote:
> Generally a zero-width pattern doesn't match twice in the same
> place. There must be something else going on. Following the /\b/
> like this
>
> my $str = 'aaa bbb ccc';
> while ( $str =~ /\b/g ) {
> print "$str\n";
> print ' ' x $-[ 0], "^\n";
> }
>
> shows the expected number of 6 (not 12) matches.
Hmmm, seem so ..
But, putting out pos() during the match shows
how the regex engine pecks 2x around each word
boundary:
...
my $re = qr/ \b (?{ $wc{words} += 0.25, print pos().',' })
| \n (?{ $wc{lines} ++ })
| . (?{ $wc{chars} ++ })
/x;
...
I can't assess what's the 'deep' reason
for such behavior, maybe somebody can
shed light on this.
Regards
M.
------------------------------
Date: Tue, 24 Apr 2007 15:28:01 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: regular expression for wc
Message-Id: <f0l7m1$ii6$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
<anno4000@radom.zrz.tu-berlin.de>], who wrote in article <5962p7F2ilslcU1@mid.dfncis.de>:
> > my $re = qr/ \b (?{ $wc{words} += 0.25 })
> > | \n (?{ $wc{lines} ++ })
> > | . (?{ $wc{chars} ++ })
> > /x;
> I don't understand why it finds four /\b/ for each word, but that's
> apparently what happens.
It finds two \b per word. It also FAILS to match \b at each boundary
- but due to bugs in the REx above, even failing attempts run += code
(there is no "undoing" for failing attempts).
Hope this helps,
Ilya
------------------------------
Date: 24 Apr 2007 09:37:41 -0700
From: skieros <nikos1337@gmail.com>
Subject: Relative path wont work when opening a file for writing
Message-Id: <1177432660.907303.237810@r30g2000prh.googlegroups.com>
open(FILE, ">>/some_folder/some_sub_folder/digest.passwd") or die $!;
print FILE "$user:$realm:" . Digest::MD5::md5_hex("$user:$realm:
$pass") . "\n";
close(FILE);
Hello i have the above code that i have changed from absolute hdd path
to a relative to a web server path, but after the change the file
cannot be opened.
Problem is that cause of the script runnign both in localhost and
remote server
i cant specify the same absolute path so i need some relativity here.
I could use a varibale after determiantion of *where* the scrpt is
running, that is which host, but i want to accomplish it with a
relative path. Is this possible?!
------------------------------
Date: Tue, 24 Apr 2007 19:58:29 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: Relative path wont work when opening a file for writing
Message-Id: <462e4546$0$5113$ba4acef3@news.orange.fr>
skieros wrote:
> open(FILE, ">>/some_folder/some_sub_folder/digest.passwd") or die $!;
> print FILE "$user:$realm:" . Digest::MD5::md5_hex("$user:$realm:
> $pass") . "\n";
> close(FILE);
>
> Hello i have the above code that i have changed from absolute hdd path
> to a relative to a web server path, but after the change the file
> cannot be opened.
>
> Problem is that cause of the script runnign both in localhost and
> remote server
> i cant specify the same absolute path so i need some relativity here.
>
> I could use a varibale after determiantion of *where* the scrpt is
> running, that is which host, but i want to accomplish it with a
> relative path. Is this possible?!
>
It'll depend on your webserver, but something like
use strict;
use warnings;
my %paths = (
relative => q(some_folder/asdf.txt),
absolute => q(/other_path/some_folder/asdf.txt),
);
my $filepath;
if($ENV{SERVER_NAME} eq 'localhost'){
$filepath = $paths{relative};
}else{
$filepath = $paths{absolute};
}
open my $file,">>",$filepath or die $!;
------------------------------
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 376
**************************************
