[28487] in Perl-Users-Digest
Perl-Users Digest, Issue: 9851 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 16 03:06:03 2006
Date: Mon, 16 Oct 2006 00:05:07 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 16 Oct 2006 Volume: 10 Number: 9851
Today's topics:
ÄãºÃ <hmja_99@163.com>
Re: alarm() - SIGALRM sent too eariy? <hjp-usenet2@hjp.at>
Re: Archive::Zip - end up with empty file ... <mritty@gmail.com>
Re: Column extraction in perl <hmja_99@163.com>
Re: Complex extensions in C <hmja_99@163.com>
Re: Complex extensions in C <hmja_99@163.com>
f <hmja_99@163.com>
How to access a property within a class <myrose999@gmail.com>
Mail::Box::Manager message body scalar or array? <justin.0610@purestblue.com>
Re: Mail::Box::Manager message body scalar or array? (reading news)
new CPAN modules on Mon Oct 16 2006 (Randal Schwartz)
Perl t-shirts anonyster@gmail.com
Re: sending ctrl+C to pipe process <gweissenseel@yahoo.com>
Re: trouble merging files using nested loop to read fil <theshowmecanuck@no_yahoo_spam.com>
Re: trouble merging files using nested loop to read fil <tadmc@augustmail.com>
Re: trouble merging files using nested loop to read fil <theshowmecanuck@no_yahoo_spam.com>
Re: trouble merging files using nested loop to read fil <theshowmecanuck@no_yahoo_spam.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 16 Oct 2006 09:34:32 +0800
From: "hmja" <hmja_99@163.com>
Subject: ÄãºÃ
Message-Id: <4532e1aa$1@news.cnusenet.org>
ÄãÖªµÀ¸ü¶àµÄÊÂÇéÂð£¿
------------------------------
Date: Mon, 16 Oct 2006 00:25:08 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: alarm() - SIGALRM sent too eariy?
Message-Id: <slrnej5da4.7bl.hjp-usenet2@yoyo.hjp.at>
On 2006-10-15 20:48, anno4000@radom.zrz.tu-berlin.de <anno4000@radom.zrz.tu-berlin.de> wrote:
> Re-running the test I find that Time::HiRes 1.66 works correctly for
> 2700 secs (Time taken (Seconds): 2699.98529100418), so if it's a
> bug in Time::HiRes it appears to be resolved.
Actually I'd expect the bug to show up only for times of 4295 seconds or
more, although the microsecond count might be interpreted as negative
for times between 2147 and 4295 seconds which might also have weird
results.
I've seen the bug with Time::HiRes 1.59 and 1.86, so I'd be surprised if
it wasn't present in any version between them. It might be
platform-specific, though: I have tested it only on Linux/i386, and I
haven't looked at the source code yet.
hp
--
_ | Peter J. Holzer | > Wieso sollte man etwas erfinden was nicht
|_|_) | Sysadmin WSR | > ist?
| | | hjp@hjp.at | Was sonst wäre der Sinn des Erfindens?
__/ | http://www.hjp.at/ | -- P. Einstein u. V. Gringmuth in desd
------------------------------
Date: 15 Oct 2006 16:13:24 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Archive::Zip - end up with empty file ...
Message-Id: <1160954004.403829.10930@b28g2000cwb.googlegroups.com>
MoshiachNow wrote:
> >I see nothing in the docs for Archive::Zip that indicates $! is set on
> >a failure. Print out the return value of the method, and compare it to
> >the values listed in the documentation. That will tell you what the
> >problem is.
> Thanks,a good idea.
> How do I actualy print these codes ?I could not figure out.
Instead of:
> warn "Didn't work: $!" unless
> $zip->addFileOrDirectory("$NAME") == AZ_OK;
Do:
my $status = $zip->addFileOrDirectory($NAME);
print "Didn't work: $status" unless $status == AZ_OK;
Paul Lalli
------------------------------
Date: Mon, 16 Oct 2006 09:38:55 +0800
From: "hmja" <hmja_99@163.com>
Subject: Re: Column extraction in perl
Message-Id: <4532e2b2@news.cnusenet.org>
"Ted Zlatanov" <tzz@lifelogs.com>
??????:g69fyeorjv7.fsf@CN1374059D0130.kendall.corp.akamai.com...
> On 15 Sep 2006, someone@example.com wrote:
>
> vkrish7@gmail.com wrote: >
>>> I have about 100 text files and each text file looks something like
>>> this:-
>>>
>>> V_or_I Lo_BIT
>>> 5330 1
>>> 5380 5
>>> 5390 6
>>> 5400 9
>>> 5410 11
>>> 5420 15
>>>
>>> Now i need to grab only the first column starting with (5330, skip
>>> "V_or_I" line) go till the end of the file(Say till 5420) and write
>>> this to another file(say dataappend.txt). Then open another text file(
>>> out of 100 text files) do the same( ie. start from second line of the
>>> file which will be in number format similar to 5330 and grab the first
>>> column and append to dataappend.txt... Can any1 please show me how to
>>> do this on perl?
>>
>>
>> perl -lne'/^\s*(\d+)\s/ && print $1' *.txt > dataappend.txt
>
> This assumes numerics. The OP didn't specify that, and there's no
> need to assume it to get the job done.
>
> Ted
------------------------------
Date: Mon, 16 Oct 2006 09:33:16 +0800
From: "hmja" <hmja_99@163.com>
Subject: Re: Complex extensions in C
Message-Id: <4532e161@news.cnusenet.org>
<arne.muller@gmail.com>
??????:1158417146.283745.287940@m7g2000cwm.googlegroups.com...
> Hello,
>
> I'm looking for some resources (books, web-sites, docs ...) on how to
> write complex perl extensions in C. I've read the perlxstut, but still
> don't understand how to convert complex types.
>
> Specificly, my C-routine needs a pointer to a structure, some members
> of this structure are pointers to type double arrays. On the perl side
> this structure is an object. The return value of the C function is a
> different type of structure, but again containing pointers to array (on
> the perl side this is an object).
>
> Maybe you can point out some places on the web or news grou articles (I
> didn't find much!).
>
> greetings,
>
> Arne
>
------------------------------
Date: Mon, 16 Oct 2006 09:33:46 +0800
From: "hmja" <hmja_99@163.com>
Subject: Re: Complex extensions in C
Message-Id: <4532e17f$1@news.cnusenet.org>
<arne.muller@gmail.com>
??????:1158417146.283745.287940@m7g2000cwm.googlegroups.com...
> Hello,
>
> I'm looking for some resources (books, web-sites, docs ...) on how to
> write complex perl extensions in C. I've read the perlxstut, but still
> don't understand how to convert complex types.
>
> Specificly, my C-routine needs a pointer to a structure, some members
> of this structure are pointers to type double arrays. On the perl side
> this structure is an object. The return value of the C function is a
> different type of structure, but again containing pointers to array (on
> the perl side this is an object).
>
> Maybe you can point out some places on the web or news grou articles (I
> didn't find much!).
>
> greetings,
>
> Arne
>
------------------------------
Date: Mon, 16 Oct 2006 09:38:35 +0800
From: "hmja" <hmja_99@163.com>
Subject: f
Message-Id: <4532e29c$1@news.cnusenet.org>
sdf
------------------------------
Date: 15 Oct 2006 23:59:59 -0700
From: "rose999" <myrose999@gmail.com>
Subject: How to access a property within a class
Message-Id: <1160981999.803299.236760@f16g2000cwb.googlegroups.com>
Hi all,
I have a question as below:
#------------------------------------
#myPM.pm
package myPM;
my $aProperty;
sub new
{
my $this = {};
bless $this;
return $this;
}
sub OneSub
{
my $this = shift;
$this->{'aProperty'} = "something";
}
sub TwoSub
{
$aProperty = "something";
}
#------------------------------------------------------------------
I need using which sub for accessed "aProperty"? OneSub or TwoSub?
------------------------------
Date: Mon, 16 Oct 2006 01:33:01 +0100
From: Justin C <justin.0610@purestblue.com>
Subject: Mail::Box::Manager message body scalar or array?
Message-Id: <justin.0610-C790FD.01330116102006@stigmata>
I extracted a message as follows:
#!/usr/bin/perl
use warnings ;
use strict ;
use Mail::Box::Manager ;
my $mbox = "/path/to/some/mailbox" ;
my $mgr = new Mail::Box::Manager ;
my $folder = $mgr->open($mbox)
or die "Cannot open $mbox : $!" ;
my $email_count = $folder->messages ;
my $msg = $folder->message($email_count - 1) ;
my $body = $msg->body ;
I printed the output of the above and got the body of the message. All
is good. I wanted to know whether I actually have an array of lines in
$body or if it's is the text in one long scalar with "\n" in appropriate
places. I added "print ref $body, "\n"" to the above (not something I
came up with myself, a helpful person on IRC suggested that) and got the
following: Mail::Message::Body::Lines which I gave to perldoc. Perldoc
said: body of a Mail::Message stored as array of lines. Great, I want
the body as an array, it's easier for me to lose the bits I don't want.
I don't want the first two lines so: I changed the line "my $body" to
"my @body", it is an array after all, then added "shift @body" twice
followed by a "print @body".
Now, the code above, before the changes in the paragraph just above,
with a "print $body, "\n" showed the email body. With the changes above,
I get nothing. IMO that I don't have an array.
OK, maybe I have an array but, if that's the case, it's stored in a
$calar and if that is true, how the hell do I get it into an @rray?!
Thank you for your time replying and for any help you can give.
--
Justin C, by the sea.
------------------------------
Date: Mon, 16 Oct 2006 04:04:17 GMT
From: "Mumia W. (reading news)" <paduille.4059.mumia.w@earthlink.net>
Subject: Re: Mail::Box::Manager message body scalar or array?
Message-Id: <5xDYg.11829$o71.1753@newsread3.news.pas.earthlink.net>
On 10/15/2006 07:33 PM, Justin C wrote:
> I extracted a message as follows:
>
> #!/usr/bin/perl
>
> use warnings ;
> use strict ;
> use Mail::Box::Manager ;
>
> my $mbox = "/path/to/some/mailbox" ;
> my $mgr = new Mail::Box::Manager ;
> my $folder = $mgr->open($mbox)
> or die "Cannot open $mbox : $!" ;
> my $email_count = $folder->messages ;
> my $msg = $folder->message($email_count - 1) ;
> my $body = $msg->body ;
>
> I printed the output of the above and got the body of the message. All
> is good. I wanted to know whether I actually have an array of lines in
> $body or if it's is the text in one long scalar with "\n" in appropriate
> places. I added "print ref $body, "\n"" to the above (not something I
> came up with myself, a helpful person on IRC suggested that) and got the
> following: Mail::Message::Body::Lines which I gave to perldoc. Perldoc
> said: body of a Mail::Message stored as array of lines.
It had to say something more than that. Evidently, $body is an object of
type Mail::Message::Body::Lines, and typically, an object is represented
by a hash reference, not an array reference. The documentation for the
object should tell you what methods are used to access the lines.
> Great, I want
> the body as an array, it's easier for me to lose the bits I don't want.
> I don't want the first two lines so: I changed the line "my $body" to
> "my @body", it is an array after all, then added "shift @body" twice
> followed by a "print @body".
>
> Now, the code above, before the changes in the paragraph just above,
> with a "print $body, "\n" showed the email body. With the changes above,
> I get nothing. IMO that [means] I don't have an array.
>
> OK, maybe I have an array but, if that's the case, it's stored in a
> $calar and if that is true, how the hell do I get it into an @rray?!
>
my @bodyarray = $body->lines();
...or...
my @bodyarray = @$body;
> Thank you for your time replying and for any help you can give.
>
I haven't installed that module, so I only have guesses.
HTH
--
Mumia W.
paduille.4059.mumia.w@earthlink.net
This is a temporary e-mail to help me catch some s-p*á/m.
------------------------------
Date: Mon, 16 Oct 2006 04:42:07 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Mon Oct 16 2006
Message-Id: <J77p27.I5I@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Apache-Logmonster-3.00rc2
http://search.cpan.org/~msimerson/Apache-Logmonster-3.00rc2/
log utility for merging, sorting, and processing web logs
----
Audio-SndFile-0.01
http://search.cpan.org/~jdiepen/Audio-SndFile-0.01/
Portable reading and writing of audio files
----
Audio-SndFile-0.02
http://search.cpan.org/~jdiepen/Audio-SndFile-0.02/
Portable reading and writing of audio files
----
Bot-Babelfish-0.04
http://search.cpan.org/~saper/Bot-Babelfish-0.04/
Provides Babelfish translation services via an IRC bot
----
Bot-MetaSyntactic-0.0301
http://search.cpan.org/~saper/Bot-MetaSyntactic-0.0301/
IRC frontend to Acme::MetaSyntactic
----
Calendar-Simple-1.15
http://search.cpan.org/~davecross/Calendar-Simple-1.15/
Perl extension to create simple calendars
----
Calendar-Simple-1.16
http://search.cpan.org/~davecross/Calendar-Simple-1.16/
Perl extension to create simple calendars
----
Crypt-Util-0.01_01
http://search.cpan.org/~nuffin/Crypt-Util-0.01_01/
----
Data-ICal-0.09
http://search.cpan.org/~jesse/Data-ICal-0.09/
Generates iCalendar (RFC 2445) calendar files
----
Data-ICal-0.10
http://search.cpan.org/~jesse/Data-ICal-0.10/
Generates iCalendar (RFC 2445) calendar files
----
Email-MIME-1.854
http://search.cpan.org/~rjbs/Email-MIME-1.854/
Easy MIME message parsing.
----
Finance-Bank-IE-0.08
http://search.cpan.org/~waider/Finance-Bank-IE-0.08/
----
HTML-Template-Compiled-0.80
http://search.cpan.org/~tinita/HTML-Template-Compiled-0.80/
Template System Compiles HTML::Template files to Perl code
----
Log-Log4perl-1.07
http://search.cpan.org/~mschilli/Log-Log4perl-1.07/
Log4j implementation for Perl
----
Mail-Toaster-5.03rc1
http://search.cpan.org/~msimerson/Mail-Toaster-5.03rc1/
turns a computer into a secure, full-featured, high-performance mail server.
----
Module-Plan-Base-0.03
http://search.cpan.org/~adamk/Module-Plan-Base-0.03/
Base class for Module::Plan classes
----
Net-Cisco-ObjectGroup-0.04
http://search.cpan.org/~oliver/Net-Cisco-ObjectGroup-0.04/
Generate Cisco ACL object groups
----
POE-Component-Client-HTTP-0.79
http://search.cpan.org/~rcaputo/POE-Component-Client-HTTP-0.79/
a HTTP user-agent component
----
POE-Component-IRC-Plugin-POE-Knee-1.00
http://search.cpan.org/~bingos/POE-Component-IRC-Plugin-POE-Knee-1.00/
A POE::Component::IRC plugin that runs Acme::POE::Knee races.
----
Parse-IRC-1.01
http://search.cpan.org/~bingos/Parse-IRC-1.01/
A parser for the IRC protocol.
----
Search-Tools-0.06
http://search.cpan.org/~karman/Search-Tools-0.06/
tools for building search applications
----
Sys-Lastlog-1.5
http://search.cpan.org/~jstowe/Sys-Lastlog-1.5/
Provide a moderately Object Oreiented Interface to lastlog files on some Unix-like systems.
----
TM-Ontology-KIF-0.03
http://search.cpan.org/~reiter/TM-Ontology-KIF-0.03/
Topic Map KIF Parser
----
Time-HiRes-1.93
http://search.cpan.org/~jhi/Time-HiRes-1.93/
High resolution alarm, sleep, gettimeofday, interval timers
----
WWW-Patent-Page-0.06
http://search.cpan.org/~anonwb/WWW-Patent-Page-0.06/
get a patent page or document (e.g. htm, pdf, tif) from selected source (e.g. from United States Patent and Trademark Office (USPTO) website or the European Patent Office (ESPACE_EP). and place into a
----
WebService-Hatena-BookmarkCount-0.06
http://search.cpan.org/~kawasaki/WebService-Hatena-BookmarkCount-0.06/
Interface for Hatena::Bookmark's XML-RPC API
----
Win32-GUI-1.04
http://search.cpan.org/~robertmay/Win32-GUI-1.04/
Perl Win32 Graphical User Interface Extension
----
WordNet-QueryData-1.43
http://search.cpan.org/~jrennie/WordNet-QueryData-1.43/
direct perl interface to WordNet database
----
lib-restrict-0.0.2
http://search.cpan.org/~dmuey/lib-restrict-0.0.2/
Perl extension for restricting what goes into @INC
----
tidyview-1.07
http://search.cpan.org/~leif/tidyview-1.07/
a previewer for the effects of perltidy's plethora of options
----
tidyview-1.08
http://search.cpan.org/~leif/tidyview-1.08/
a previewer for the effects of perltidy's plethora of options
----
zxid-0.7
http://search.cpan.org/~sampo/zxid-0.7/
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
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: 15 Oct 2006 19:34:06 -0700
From: anonyster@gmail.com
Subject: Perl t-shirts
Message-Id: <1160966046.552937.181900@m73g2000cwd.googlegroups.com>
A couple of funny ones at cafepress:
http://www.cafepress.com/usrbinperl
http://www.cafepress.com/perlreplace
------------------------------
Date: 15 Oct 2006 16:50:36 -0700
From: "linbox" <gweissenseel@yahoo.com>
Subject: Re: sending ctrl+C to pipe process
Message-Id: <1160956236.184834.323860@m73g2000cwd.googlegroups.com>
I'm still stuck with this.
All I try to do start up sox and then stopthe sox again through a perl
program and I just don't seem to get the killing of it. The variable
$pid is still different than the pid of sox. The id=wait(); command now
waits at the end until I press ctrl+C.
Can anybody help me here with the coding?
Thanks
#!/usr/bin/perl
do {
$pid = open(KID_TO_WRITE, "|-","rec -c2 -r 44100 testme2.wav"
);
unless (defined $pid) {
warn "cannot fork: $!";
die "bailing out" if $sleep_count++ > 6;
sleep 10;
}
} until defined $pid;
print "pid =$pid\n";
if ($pid) { # parent
print "parents pid = $pid \n";
sleep (5);
$result=kill (9,$pid);
print "Killed child process $pid (result $result)\n";
close(KID_TO_WRITE) || warn "kid exited $?";
print "kid should be dead \n";
$id = wait();
}
------------------------------
Date: Sun, 15 Oct 2006 19:02:15 -0700
From: theshowmecanuck <theshowmecanuck@no_yahoo_spam.com>
Subject: Re: trouble merging files using nested loop to read files
Message-Id: <4532e7fa$0$5905$9a6e19ea@news.newshosting.com>
My solution posted below. Thanks All for the help! :-)
###########################3
for $serviceRecord (<FILTERED_SORTED_SERVICE_FILE>) {
$srPayID = substr($serviceRecord,21,15);
while (my $billRecord = <SORTED_BILL_FILE>){
$brPayID = substr($billRecord,22,15);
# if pay ids are equal, merge them
if ($srPayID eq $brPayID){
my $op = doStuff($billRecord, $serviceRecord);
print OUTPUT_FILE $op;
# -- move file pointer back one record
# we have to recheck the same bill record in case more than one
# service is paid for by the same account. We skip over it to
# the next record in the outer loop if they don't match.
# start by finding where we are right now.
$currentPos = tell(SORTED_BILL_FILE);
# since I have a bill record, I can dynamically get its
# length in bytes to set the FP back one record.
$billRecLen = do { use bytes; length $billRecord; };
seek(SORTED_BILL_FILE, ($currentPos - $billRecLen), 0);
last; # found corresponding record in bill file, break out
}
}
} #end of for
#################################################
Joe Smith wrote:
> theshowmecanuck (BillR) wrote:
>
>> Now I need to find a way to move the file pointer back one record when I
>> need to. :-)
>
> The example at the end of
> perldoc -f seek
> shows how it is done. Just keep track of what the current position
> was before the read that went to far.
>
> Or write a routine to read_a_line() and one to unread_a_line().
> Make the latter put a string into a global variable, and the
> former return the content of that variable (instead of reading
> input) if the variable is set.
>
> -Joe
------------------------------
Date: Sun, 15 Oct 2006 22:47:22 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: trouble merging files using nested loop to read files
Message-Id: <slrnej606a.73n.tadmc@magna.augustmail.com>
theshowmecanuck <theshowmecanuck@no_yahoo_spam.com> wrote:
> for $serviceRecord (<FILTERED_SORTED_SERVICE_FILE>) {
while ( my $serviceRecord = <FILTERED_SORTED_SERVICE_FILE> ) {
Reading the entire file into memory when you only need a line at
a time in memory is just plain wasteful.
[ snip TOFU. Please don't do that.]
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 15 Oct 2006 23:13:08 -0700
From: theshowmecanuck <theshowmecanuck@no_yahoo_spam.com>
Subject: Re: trouble merging files using nested loop to read files
Message-Id: <453322c6$0$5898$9a6e19ea@news.newshosting.com>
If you have a better way, I'll listen. I'm just getting going at this and the
documentation, while there is a lot of it, is somewhat cryptic... comes maybe
from overindulging with regular expressions (don't get me wrong, I think they're
good). :-)
I definitely would rather read one line at a time, and I thought perl would be
make this simple. C or Java might have been better as I understand it better.
So show me the way... and yes, I even went and dropped some money on the camel
book yesterday... but I still didn't get how to read one line at a time, unless
it is to use 'seek' exclusively (or something like it).
Tad McClellan wrote:
> theshowmecanuck <theshowmecanuck@no_yahoo_spam.com> wrote:
>
>> for $serviceRecord (<FILTERED_SORTED_SERVICE_FILE>) {
>
>
> while ( my $serviceRecord = <FILTERED_SORTED_SERVICE_FILE> ) {
>
>
> Reading the entire file into memory when you only need a line at
> a time in memory is just plain wasteful.
>
>
>
> [ snip TOFU. Please don't do that.]
>
------------------------------
Date: Sun, 15 Oct 2006 23:16:41 -0700
From: theshowmecanuck <theshowmecanuck@no_yahoo_spam.com>
Subject: Re: trouble merging files using nested loop to read files
Message-Id: <4533239b$0$5937$9a6e19ea@news.newshosting.com>
Oh... and the first time you were right, it did read all the file and the file
pointer was eof. Doing it this way, the 'tell' function tells me I am only part
way through the file...
Never mind... you are talking about the outer loop. Thanks! (It's getting
late... that will be the last change I make and it is done.)
Tad McClellan wrote:
> theshowmecanuck <theshowmecanuck@no_yahoo_spam.com> wrote:
>
>> for $serviceRecord (<FILTERED_SORTED_SERVICE_FILE>) {
>
>
> while ( my $serviceRecord = <FILTERED_SORTED_SERVICE_FILE> ) {
>
>
> Reading the entire file into memory when you only need a line at
> a time in memory is just plain wasteful.
>
>
>
> [ snip TOFU. Please don't do that.]
>
------------------------------
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 V10 Issue 9851
***************************************
