[12672] in Perl-Users-Digest
Perl-Users Digest, Issue: 81 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jul 8 16:07:29 1999
Date: Thu, 8 Jul 1999 13:05:08 -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 Thu, 8 Jul 1999 Volume: 9 Number: 81
Today's topics:
ANNOUNCE: PerlMonth - Issue 3 baiju12@my-deja.com
Re: Connecting to an Oracle DB with PERL 5 <stampes@xilinx.com>
Re: Floating Point Number With Time Function (I R A Aggie)
Re: How do YOU format your << data? <iansmith@pepper.ncinter.net>
Re: How to read HUGE text file in PERL? (Patrick Tufts)
Re: How to run a Perl script as an NT Service? <jkiser@best.com>
Re: I need to hide the source (Greg Bacon)
Re: Login on my website <anonymous@web.remarq.com>
Re: Need Expert Help! <rick.delaney@home.com>
Re: Pattern match counting (Larry Rosler)
Re: Pattern match counting (Greg Bacon)
Perl - problem with 'open' <demesmaeker@euroargus.be>
Re: Perl - problem with 'open' (Greg Bacon)
Re: PERLFUNC: sqrt - square root function <mhc@Eng.Sun.COM>
Problem with my program <eoddonetha@akefilesqua.com>
Re: Problem with my program <anonymous@web.remarq.com>
STDERR Redirection question <bds6@psu.edu>
Re: stupid ISP? <cajun@cyberspace.org>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 08 Jul 1999 18:58:42 GMT
From: baiju12@my-deja.com
Subject: ANNOUNCE: PerlMonth - Issue 3
Message-Id: <7m2scq$juh$1@nnrp1.deja.com>
The Third issue of PerlMonth
is now available at http://www.perlmonth.com/
The Third issue will contain articles from:
Author Title
Vicki Brown Perl: It's not just for Unix anymore
Paul Vining Using Databases with Embperl
Steven McDougall Representing Sets in Perl
Dave Cross Writing Plain Old Documentation
Stas Bekman mod_perl Strategy and Implementation - Part 1
Slaven Rezic Perl/Tk menus
Eric Bohlman Introducing XML
Jan Dubois Using OLE Events with Win32::OLE
We want this publication to help the Perl community.
We need your feedback to make PerlMonth serve you better.
Baiju Thakkar
Just use Perl;
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 8 Jul 1999 19:16:30 GMT
From: Jeff Stampes <stampes@xilinx.com>
Subject: Re: Connecting to an Oracle DB with PERL 5
Message-Id: <7m2tee$1ja1@courier.xilinx.com>
David Riggs <driggs@dsw.net> wrote:
: Basically what I'd like to be able to do is jump into an oracle database
Then go to CPAn and check out the DBD::Oracle module
--
Jeff Stampes -- Xilinx, Inc. -- Boulder, CO -- jeff.stampes@xilinx.com
------------------------------
Date: 8 Jul 1999 19:11:46 GMT
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Floating Point Number With Time Function
Message-Id: <slrn7o9u3r.g55.fl_aggie@thepentagon.com>
On Thu, 08 Jul 1999 11:19:17 -0700, David Cassell
<cassell@mail.cor.epa.gov>, in <3784EBA5.96995679@mail.cor.epa.gov>
wrote:
+ them. Let me demonstrate, with my double-bladed light saber.. errm..
+ uhh.. wait a minute.. oh heck, it GPF'ed. Darn LightSaber-for-NT...
<url:http://www.userfriendly.org/cartoons/archives/99mar/19990321.html>
"Fear is my ally" - Darth Gates
James
------------------------------
Date: Thu, 08 Jul 1999 19:08:01 GMT
From: Ian Smith <iansmith@pepper.ncinter.net>
Subject: Re: How do YOU format your << data?
Message-Id: <lG6h3.553$8c3.17896@typ41.nn.bcandid.com>
In comp.lang.perl.misc Tom Christiansen <tchrist@mox.perl.com> wrote:
> [courtesy cc of this posting mailed to cited author]
>
> NAME
> perlfaq4 - Data Manipulation ($Revision: 1.49 $, $Date:
> 1999/05/23 20:37:49 $)
#!/usr/bin/perl
use strict;
my $me = ('dumb', 'forgetful', 'arrogant', 'lazy', 'brilliant')[rand 5];
print <<" EOF";
Oops, I seem to have posted a long, drawn out question that
was answered in the FAQ. Sorry for the waste of bandwidth
for being $me. :-)
EOF
--
$p=3;do{print substr('e" n rl oraee"rt,auktsh
chPJ',$p-1,1);$p=19*$p%58;}until $p==3;
------------------------------
Date: 8 Jul 1999 19:35:45 GMT
From: zippy@cs.brandeis.edu (Patrick Tufts)
Subject: Re: How to read HUGE text file in PERL?
Message-Id: <7m2uih$cnh$1@new-news.cc.brandeis.edu>
Your code should work. Perl doesn't need to store the file in
memory. I'm assuming you just want to strip the final char from each
line in the input and replace it with a newline (\n).
You can do away with the $text var since $_ is already automatically
bound to the current line's contents and simply write:
open FH, "textfile.txt"
while (<FH>) {
chop; # with no args, chop operates on $_
print "$_\n";
}
--Pat
jteens@my-deja.com writes:
[500M file and ...]
>open(FH, "textfile.txt");
>while ($text = <FH>) {
> chop($text);
> print "$text\n";
>}
>close(FH);
>This code work fine on small file but my text file's very big. It around
>500MB, so simple code above didn't work. How can I read huge text file 1
>line at a time? Any help would be mostly appreciated.
------------------------------
Date: Thu, 8 Jul 1999 12:27:36 -0700
From: "Jeff Kiser" <jkiser@best.com>
Subject: Re: How to run a Perl script as an NT Service?
Message-Id: <3784fd32$0$219@nntp1.ba.best.com>
tbittner@my-deja.com wrote in message <7m2qpn$j5o$1@nnrp1.deja.com>...
>I'd really like to know how you can run a perl script as an NT
>service. Anyone know how? We're already using Activestate Perl for
>login scripting. The program I need to run watches for requests to
>change account information that are sent at all times of day, so it
>needs to be run as a system-level service. Any help is *greatly*
>appreciated. Thanks!
I've used the instsrv.exe and srvany.exe applications to set up services
from my perl scripts. You can get the applications (along with a document
on how to use them) at:
http://www.href.com/pub/Helpful/SrvAny/
HTH
Jeff Kiser
------------------------------
Date: 8 Jul 1999 19:18:17 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: I need to hide the source
Message-Id: <7m2thp$p50$2@info2.uah.edu>
In article <7m2rau$lgr@news.dns.microsoft.com>,
"Jürgen Exner" <juex@my-dejanews.com> writes:
: Although I have to aggree that security by obsfucation is not the right way
: to go, still the administrator of e.g. a hospital network has no business
: reading my medical records.
Part of conducting oneself as a professional sysadmin is looking without
seeing. For example, particularly shitty mail clients (Outlook not so
good! :-) choke on valid mboxes. In cases like this, it's sometimes
necessary to muck with private data.
This admittedly doesn't have much to do with Perl.
Greg
--
Only great masters of style can succeed in being obtuse.
-- Oscar Wilde
Most UNIX programmers are great masters of style.
-- The Unnamed Usenetter
------------------------------
Date: Thu, 08 Jul 1999 11:50:17 -0800
From: theoddone33 <anonymous@web.remarq.com>
Subject: Re: Login on my website
Message-Id: <931463418.19833@www.remarq.com>
Hi,
I'm not sure about the login on your website, but as far
as the email thing, Reuven Lerner has an excellent column
in Linux Journal called "At the Forge". In the May 1999
issue he discussed creating a mail-checking CGI system.
You can find code and possibly transcripts of the article
at his site. http://www.lerner.co.il/atf
theoddone33
**** Posted from RemarQ - http://www.remarq.com - Discussions Start Here (tm) ****
------------------------------
Date: Thu, 08 Jul 1999 19:56:59 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Need Expert Help!
Message-Id: <3785025A.20F2B1D1@home.com>
[posted & mailed]
Dafydd Hopkin wrote:
>
> Rick Delaney wrote:
> >
> > split /(?<!\\)\t/, $line;
>
> Parser doesn't like '<', and without it it doesn't work 'cos that's not
> the way 'lookbehind' works - it'd be lookin to see if the tab itself
> wasn't a '\' which obviously it wouldn't be.
I should have said this feature requires 5.005. Yes, without the '<',
you have negative look-*ahead* and it will do what you say.
> It will also miss out on a valid separator like...
>
> 1\\ 2 3
>
> because the last '\' will be assumed to escape the tab, whereas it was
> actually escaping another '\'.
Well that wasn't made clear. You could try some variation of
my @a = $line =~ m{([^\t\\]*(?:\\.[^\t\\]*)*)(?:\t|$)}g;
which is just a variation of "How can I split a [character] delimited
string except when inside [character]?" from perlfaq4.
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Thu, 8 Jul 1999 12:39:43 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Pattern match counting
Message-Id: <MPG.11ee9e58f41dbe24989c76@nntp.hpl.hp.com>
In article <3784e0d7.160820@news.skynet.be> on Thu, 08 Jul 1999 17:38:11
GMT, Bart Lateur <bart.lateur@skynet.be> says...
> David U wrote:
>
> >$example_data = "ALLR : ALLR : ALLR : ALLR : USPA : AMCA : ALLR : USMI :
> >USOH : USIL : USNY : AMCA : USME : USMD : USMD : ALLR : USMD : USMD :
> >ALLR : USMD : USLA : ALLR : AUST : USAZ : ALLR : USKY : USKY : USNJ :
> >USCA : USCA : USCA : ALLR : ALLR : USME : ALLR : USCA : ALLR : USNJ :
> >USNJ : USCA : USWI : ALLR : AMCA : ALLR";
> >
> >How can I count the number of times "ALLR" appears in the $example_data?
>
> Use the //g modifier, Luke.
>
> $howmany = () = $example_data =~ /ALLR/g;
>
> You need a trick to make the pattern match happen in list context,
> that's what the "() = " is for. Otherwise, you'll get one match, every
> time this statement is called. So this may work too.
>
> $howmany = 0;
> $howmany++ while $example_data =~ /ALLR/g;
>
> In fact, it does. BTW the answer is 15.
Trickiness isn't necessarily best. This tricky solution has come up
many times, and never seems to go away. Why do we persist in showing
suboptimal solutions that are harder to understand, rather than doing it
the dumb way?
#!/usr/local/bin/perl -w
use strict;
use Benchmark;
my $example_data =
"ALLR : ALLR : ALLR : ALLR : USPA : AMCA : ALLR : USMI :
USOH : USIL : USNY : AMCA : USME : USMD : USMD : ALLR : USMD : USMD :
ALLR : USMD : USLA : ALLR : AUST : USAZ : ALLR : USKY : USKY : USNJ :
USCA : USCA : USCA : ALLR : ALLR : USME : ALLR : USCA : ALLR : USNJ :
USNJ : USCA : USWI : ALLR : AMCA : ALLR";
timethese(1 << (shift || 0), {
List => sub { my $howmany = () = $example_data =~ /ALLR/g },
While => sub { my $howmany = 0;
$howmany++ while $example_data =~ /ALLR/g; $howmany },
});
__END__
Benchmark: timing 65536 iterations of List, While...
List: 9 wallclock secs ( 8.80 usr + -0.02 sys = 8.78 CPU)
While: 4 wallclock secs ( 3.89 usr + 0.00 sys = 3.89 CPU)
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 8 Jul 1999 20:03:30 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: Pattern match counting
Message-Id: <7m306i$pmf$1@info2.uah.edu>
In article <MPG.11ee9e58f41dbe24989c76@nntp.hpl.hp.com>,
lr@hpl.hp.com (Larry Rosler) writes:
: Trickiness isn't necessarily best. This tricky solution has come up
: many times, and never seems to go away. Why do we persist in showing
: suboptimal solutions that are harder to understand, rather than doing it
: the dumb way?
Here we go again. What's hard to understand about the following?
$count = () = $str =~ /pattern/g;
Is this also hard to understand?
($user, undef, $uid) = split /:/;
Being able to force list context is useful. Look at the big picture.
Greg
--
Would somebody please explain to me those signs that say, "No animals allowed
except for Seeing Eye Dogs?" Who is that sign for? Is it for the dog, or the
blind person?
-- Jerry Seinfeld
------------------------------
Date: Thu, 8 Jul 1999 21:41:17 +0200
From: "Daniel De Mesmaeker" <demesmaeker@euroargus.be>
Subject: Perl - problem with 'open'
Message-Id: <7m2ueq$be2$1@news0.skynet.be>
Hi,
I am starting with Perl and I have a problem that is surely easy for you
but difficult for me.
I have a file named "abc" for example, that has the command "snmpwalk
100.100.100.100 glspb 2.2.1".
This command is not important and is similar to a ping command. this command
sends back a serie of lines.
I would like to run this command and analyse the result.
My script is :
Open(<GET>,"abc |");
{ WHILE(<GET>);
Print "$_ \n";
}
close(<GET>)
But, I don't receive anythink.
Thank you for your quick response.
Daniel De Mesmaeker
From Belgium.
------------------------------
Date: 8 Jul 1999 20:04:16 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: Perl - problem with 'open'
Message-Id: <7m3080$pmf$2@info2.uah.edu>
In article <7m2ueq$be2$1@news0.skynet.be>,
"Daniel De Mesmaeker" <demesmaeker@euroargus.be> writes:
: My script is :
: Open(<GET>,"abc |");
: { WHILE(<GET>);
: Print "$_ \n";
: }
: close(<GET>)
What Perl documentation have you read?
Greg
--
Be warned that being an expert is more than understanding how a system is
supposed to work. Expertise is gained by investigating why a system doesn't
work.
-- Brian Redman
------------------------------
Date: 08 Jul 1999 12:45:31 -0700
From: Mike Coffin <mhc@Eng.Sun.COM>
Subject: Re: PERLFUNC: sqrt - square root function
Message-Id: <8p6oghnc4dg.fsf@Eng.Sun.COM>
Mike Coffin <mhc@Eng.Sun.COM> writes:
> Tom Christiansen <perlfaq-suggestions@perl.com> writes:
>
> >
> > DESCRIPTION
> > Return the square root of EXPR. If EXPR is omitted, returns square
>
> More precisely, it returns the *non-negative* square root of EXPR.
>
Oops; I meant to mail that. Sorry.
-mike
------------------------------
Date: Thu, 8 Jul 1999 14:34:49 -0500
From: "theoddone33" <eoddonetha@akefilesqua.com>
Subject: Problem with my program
Message-Id: <7m2uc5$26ha$1@news.inc.net>
Hi guys,
I've just gotten into Perl after buying "Learning Perl" (Great book guys).
I'm about halfway through and I already love the language. Anyway, I'm
trying to write a program to analyze condumps, which are text files put out
by quake2. It will search the condump for lines indicating a kill and
increment some hashes to get each player's total deaths and frags. Right now
it's in a pre-alpha kinda stage. It only analyzes lines with the form
"Player1 was railed by Player2". Before I go any further, here's the code:
---------------
#!/usr/bin/perl -w
print "theoddone33\'s condump analyzer v0.5\n";
print "---------------------------------------\n";
while(<>) {
unless(/:/) { #discard if line has a semicolon. This indicates talking
if(/\brailed\b/) { #discard if not a rail death
$killed = $killer = $_; #just to be safe
$killed =~ s/(^.*)\bwas railed by .*/$1/; #get victim's name
chomp($killed);
chop($killed); #dump the extra space
$deaths{$killed}++;
$killer =~ s/^.* was railed by (.*$)/$1/; #get killer's name
chomp($killer);
$frags{$killer}++;
}
}
}
#print results
foreach $a (keys %deaths) {
print "$a had $frags{$a} frags and $deaths{$a} deaths\n";
}
print "frag keys are:\n";
foreach $b (keys %frags) {
print "$b \n";
}
--------
Okay, enter problem. On first inspection, the keys in %frags and %deaths
appear to be the same. When the second foreach prints them out, they look
identical. However, when the first foreach attempts to print both of them,
the %frags value is always undef. Another interesting tidbit. When the
second foreach loop prints the keys of %frags with a space after it, the
space inserts itself into the key's name instead of going after it. ie. "
heoddone33" instead of "theoddone33 ". All help is appreciated. I will
post a condump in alt.binaries.games.quake for you to test it out. (Don't
want to be off topic ya know.)
--
theoddone33
"These are not my pants" - Reese Roper
AGQ2 Configs Page:
http://www.quakefiles.com/agq2configs/
Also visit:
http://www.fiveironfrenzy.com
To email, descramble the pig latin
------------------------------
Date: Thu, 08 Jul 1999 11:47:17 -0800
From: theoddone33 <anonymous@web.remarq.com>
Subject: Re: Problem with my program
Message-Id: <931463238.19805@www.remarq.com>
Just FYI, if you choose to download the condump, the thread
in alt.binaries.games.quake is mistitled "For
comp.os.lang.perl guys" Sorry about the wrong group title.
theoddone33
**** Posted from RemarQ - http://www.remarq.com - Discussions Start Here (tm) ****
------------------------------
Date: Thu, 08 Jul 1999 16:00:26 -0400
From: Brian Shook <bds6@psu.edu>
Subject: STDERR Redirection question
Message-Id: <3785035A.C47AAAED@psu.edu>
--------------A7E2611B65DEF2E1E155C3EC
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Synopsis:
I'm trying to write a snippet of code to redirect any error messages to
a file. The code below
is a test to help me understand how this redirection stuff works. The
object is to get the STDOUT
and STDERR to write to a file and then write to the screen again. The
code for STDOUT works
perfect but the section for STDERR doesn't can somebody please tell me
why not. Thank you
#! /usr/local/bin/perl
use FileHandle;
$file = "bogus";
$test = "trash";
# This section deals with redirecting using the STDOUT file handle and
worked perfectly. It printed the string
# booyah before and after I wrote to the file $test.
# print "booyah";
# open (OLDOUT, ">&STDOUT"); #Saves original STDOUT (which writes to the
screen)
# open (STDOUT, ">>$test") or die "can't redirect to file"; #config
STDOUT to write to file instead of screen
# select (STDOUT); $| = 1; # makes sure STDOUT is selected file handle
# print STDOUT "ka ching"; # use new STDOUT to write to a file
# open(STDOUT, ">&OLDOUT"); # restore STDOUT to old config (printing to
screen)
# print "booyah";
# This is the section I've been working on and what I will have to do in
the original program. I've
# tried to mimic the example in the documentation on "open" and the
above STDOUT. It writes
# to the file but doesn't print the second booyah.
print "booyah"; #print string booyah once
open (OLDERR, ">&STDERR"); #Saves original STDERR (which writes to
the screen)
open(STDERR,">>$test"); #config STDERR to write to a file
autoflush STDERR 1; #Unsure of what it does an explanation would be
helpful
select (STDERR); $| = 1; # Makes sure the new STDERR is selected
open (BUILDINGS, "$file") or die "Can't open $file: $!\n"; # the
error $file doesn't exist
open (STDERR, ">&OLDERR"); # restore previous STDERR (prints to
screen)
select (STDOUT); # attemp to print booyah a second time didn't work
print "booyah"; #print string booyah a second time
--------------A7E2611B65DEF2E1E155C3EC
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
Synopsis:
<br>I'm trying to write a snippet of code to redirect any error messages
to a file. The code below
<br>is a test to help me understand how this redirection stuff works.
The object is to get the STDOUT
<br>and STDERR to write to a file and then write to the screen again.
The code for STDOUT works
<br>perfect but the section for STDERR doesn't can somebody please tell
me why not. Thank you
<br>
<p><font color="#3333FF">#! /usr/local/bin/perl</font><font color="#3333FF"></font>
<p><font color="#3333FF">use FileHandle;</font><font color="#3333FF"></font>
<p><font color="#3333FF">$file = "bogus";</font>
<br><font color="#3333FF">$test = "trash";</font>
<br>
<p><font color="#009900"># This section deals with redirecting using the
STDOUT file handle and worked perfectly. It printed the string</font>
<br><font color="#009900"># booyah before and after I wrote to the file
$test.</font><font color="#009900"></font>
<p><font color="#009900"># print "booyah";</font><font color="#009900"></font>
<p><font color="#009900"># open (OLDOUT, ">&STDOUT"); #Saves original
STDOUT (which writes to the screen)</font>
<br><font color="#009900"># open (STDOUT, ">>$test") or die "can't redirect
to file"; #config STDOUT to write to file instead of screen</font><font color="#009900"></font>
<p><font color="#009900"># select (STDOUT); $| = 1; # makes sure STDOUT
is selected file handle</font>
<br><font color="#009900"># print STDOUT "ka ching"; # use new STDOUT to
write to a file</font>
<br><font color="#009900"> </font>
<br><font color="#009900"># open(STDOUT, ">&OLDOUT"); # restore STDOUT
to old config (printing to screen)</font><font color="#009900"></font>
<p><font color="#009900"># print "booyah";</font>
<br>
<br>
<p><font color="#3333FF"># This is the section I've been working on and
what I will have to do in the original program. I've</font>
<br><font color="#3333FF"># tried to mimic the example in the documentation
on "open" and the above STDOUT. It writes</font>
<br><font color="#3333FF"># to the file but doesn't print the second booyah.</font><font color="#3333FF"></font>
<p><font color="#3333FF">print "booyah"; #print
string booyah once</font><font color="#3333FF"></font>
<p><font color="#3333FF">open (OLDERR, ">&STDERR");
#Saves original STDERR (which writes to the screen)</font>
<br><font color="#3333FF">open(STDERR,">>$test");
#config STDERR to write to a file</font>
<br><font color="#3333FF">autoflush STDERR 1; #Unsure
of what it does an explanation would be helpful</font><font color="#3333FF"></font>
<p><font color="#3333FF">select (STDERR); $| = 1;
# Makes sure the new STDERR is selected</font>
<br><font color="#3333FF">open (BUILDINGS, "$file") or die "Can't
open $file: $!\n"; # the error $file doesn't exist</font>
<br><font color="#3333FF">open (STDERR, ">&OLDERR");
# restore previous STDERR (prints to screen)</font><font color="#3333FF"></font>
<p><font color="#3333FF">select (STDOUT); # attemp
to print booyah a second time didn't work</font>
<br><font color="#3333FF">print "booyah"; #print
string booyah a second time</font>
<br><font color="#3333FF"></font> </html>
--------------A7E2611B65DEF2E1E155C3EC--
------------------------------
Date: Thu, 08 Jul 1999 20:01:58 GMT
From: Jon Hartman <cajun@cyberspace.org>
Subject: Re: stupid ISP?
Message-Id: <37851E10.4B9A0F44@cyberspace.org>
There are no PERL specific logs. You want the error_log file.
Abigail wrote:
> Bastiaan S van den Berg (office@asc.nl) wrote on MMCII September MCMXCIII
> in <URL:news:7j5vt2$n5v$1@zonnetje.NL.net>:
> ,, hiya
> ,,
> ,, i just mailed my isp for the 2853-th time , and finally they replied ...
> ,,
> ,, i wanted a copy of the perl logs , but they said that perl doesn't make
> ,, logs! , is this true , or should i be flaming there asses off right now?
>
> Perl doesn't make logs. Of course not. What language does make logs?
> If you want to make logs, you've to make them yourselves.
>
> Abigail
> --
> perl -wleprint -eqq-@{[ -eqw+ -eJust -eanother -ePerl -eHacker -e+]}-
>
> -----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
> http://www.newsfeeds.com The Largest Usenet Servers in the World!
> ------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V9 Issue 81
************************************
