[18989] in Perl-Users-Digest
Perl-Users Digest, Issue: 1184 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jun 24 18:05:27 2001
Date: Sun, 24 Jun 2001 15: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)
Message-Id: <993420307-v10-i1184@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sun, 24 Jun 2001 Volume: 10 Number: 1184
Today's topics:
does DB_File work under win32 platforms? <patelnavin@icenet.net>
fastest way to count lines in a bunch of files. <patelnavin@icenet.net>
Re: fastest way to count lines in a bunch of files. <boa@aaanet.ru>
Re: fastest way to count lines in a bunch of files. <godzilla@stomp.stomp.tokyo>
Re: Form Input <zoodoo@infantry.com>
Re: Form Input <zoodoo@infantry.com>
loading enviroment variables <olga@student.unibe.ch>
Re: one liner ... simple question (Garry Williams)
Re: Package : Why so ? <boa@aaanet.ru>
Re: Package : Why so ? <Francis.Derive@wanadoo.fr>
Re: passing variables the 'right' way <uri@sysarch.com>
Re: passing variables the 'right' way <sumus@aut.dk>
Re: passing variables the 'right' way <joe+usenet@sunstarsys.com>
Re: passing variables the 'right' way <sumus@aut.dk>
Re: passing variables the 'right' way <joe+usenet@sunstarsys.com>
Re: passing variables the 'right' way <sumus@aut.dk>
Perl Project (Dave Goldstein)
Re: Perl Project <godzilla@stomp.stomp.tokyo>
Re: Regular Expressions == How to use grep ? <bart.lateur@skynet.be>
Requires or All One File <smichae@ilstu.edu>
Re: Requires or All One File <uri@sysarch.com>
Re: Requires or All One File <boa@aaanet.ru>
Re: Six degrees of separation (Greg Bacon)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 25 Jun 2001 00:14:56 +0530
From: "Aman Patel" <patelnavin@icenet.net>
Subject: does DB_File work under win32 platforms?
Message-Id: <9h5ce3$cb3s7$1@ID-93885.news.dfncis.de>
well does it work under windoze perl like ActiveState's ActivePerl
------------------------------
Date: Mon, 25 Jun 2001 00:56:22 +0530
From: "Aman Patel" <patelnavin@icenet.net>
Subject: fastest way to count lines in a bunch of files.
Message-Id: <9h5esl$c4pr1$1@ID-93885.news.dfncis.de>
I need to be able to count lines in a bunch of files (all in 1 directory),
with fastest performace. Since this is going to a CGI script speed is of
utmost important.
Lets say i want to count lines of all *.cgi files, I will load the files:
opendir( DIR, "path_to/files" ); my @files = readdir( DIR );
closedir( DIR );
@files = grep ( /(.+?).cgi/, @files );
__count_lines_of_@files__
can anyone write small snippet, OR explain what to do instead.
I know how to count lines conventionally, i would write a method somewhat
like:
sub count_lines {
my $cnt = 0; #0 lines to begin with
open( FILE, $_[0] );
$cnt++ while (<FILE>);
return $cnt;
}
my $total = 0; #total lines acrross files
foreach ( @files ) {
$total += count_lines( "pathto/files/$_" );
}
is that the most efficient, please let me know. There will be thousands of
files for which i need to count lines for.
thanks,
------------------------------
Date: Sun, 24 Jun 2001 23:43:00 +0400
From: "Oleg Bakiev1425878565" <boa@aaanet.ru>
Subject: Re: fastest way to count lines in a bunch of files.
Message-Id: <9h5fsq$1nf0$1@pa.aaanet.ru>
"Aman Patel" <patelnavin@icenet.net> сообщил/сообщила в новостях следующее:
news:9h5esl$c4pr1$1@ID-93885.news.dfncis.de...
> sub count_lines {
> my $cnt = 0; #0 lines to begin with
> open( FILE, $_[0] );
> $cnt++ while (<FILE>);
if it couldn't be huge file
my @content = <FILE>;
$cnt = scalar @content;
>
> is that the most efficient, please let me know. There will be thousands of
> files for which i need to count lines for.
>
It's possible that the goof solution is:
my $wc = `wc -l path_to/files/*';
$wc =~ /(\d+)\s+total\s*$/;
$total = $1;
------------------------------
Date: Sun, 24 Jun 2001 13:01:13 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: fastest way to count lines in a bunch of files.
Message-Id: <3B364709.35BFB973@stomp.stomp.tokyo>
Aman Patel wrote:
(snippage)
> I need to be able to count lines in a bunch of files....
> Lets say i want to count lines of all *.cgi files, I will load the files:
"Lets say"? You say this, ok? I am not interested in
pretending to be a parrot.
It is "let's" not "lets" as you write.
> can anyone write small snippet, OR explain what to do instead.
You are capable of writing your own test code and you are
capable of reading about and researching this topic, certainly
with this being a Frequently Asked Question.
Here is an obvious hint: $. might be an appropriate topic of study.
> I know how to count lines conventionally, i would write a method somewhat
> like:
"...somewhat like...."? Programming is an exacting art affording
no leeway for somewhat like nor something like. You either write
your code correctly or incorrectly.
> is that the most efficient, please let me know.
Write your own variations on line counting and use
the benchmark module to compare efficiency results.
Why do you expect others to do your homework for you
with this topic so well covered by Perl FAQ documentation?
Godzilla!
------------------------------
Date: Sun, 24 Jun 2001 18:29:44 GMT
From: "zoodoo" <zoodoo@infantry.com>
Subject: Re: Form Input
Message-Id: <skqZ6.3918$5D5.538100@newsread1.prod.itd.earthlink.net>
The problem is. It doesn't respond.
"zoodoo" <zoodoo@infantry.com> wrote in message
news:5xiZ6.3014$5D5.415517@newsread1.prod.itd.earthlink.net...
> This is an extremely n00bical question (if there's such word). I have no
> idea what's causing the problem.
>
> My sole purpose is to say His name is blah. He is blah years old.
>
> #!/usr/bin/perl
>
> use CGI;
>
> print "Hi", param('name'), "How are you?<br>/n";
> print "Hi. You are", param('age'), "years old.<br>/n";
>
>
>
------------------------------
Date: Sun, 24 Jun 2001 18:38:04 GMT
From: "zoodoo" <zoodoo@infantry.com>
Subject: Re: Form Input
Message-Id: <gsqZ6.3942$5D5.538242@newsread1.prod.itd.earthlink.net>
"Michael Budash" <mbudash@sonic.net> wrote in message
news:mbudash-8EA6A4.03375324062001@news.pacbell.net...
> In article <5xiZ6.3014$5D5.415517@newsread1.prod.itd.earthlink.net>,
> "zoodoo" <zoodoo@infantry.com> wrote:
>
> > This is an extremely n00bical question (if there's such word). I have no
> > idea what's causing the problem.
> >
> > My sole purpose is to say His name is blah. He is blah years old.
> >
> > #!/usr/bin/perl
> >
> > use CGI;
> >
> > print "Hi", param('name'), "How are you?<br>/n";
> > print "Hi. You are", param('age'), "years old.<br>/n";
> >
> >
>
> er, you haven'ts tstaed what the problem IS... how are you calling this
> script? (i'm assuming it's specified as the action of a form.) what
> happens when you run it? (i'm assuming 'internal server error.)
>
> if my assumptions are correct, try this:
>
> #!/usr/bin/perl
>
> # the 'standard' is so you can use the CGI methods
> # creating a CGI object first.
> use CGI qw/:standard/;
>
> # you'll need this if you're running the script as a CGI script
> print header();
>
> print "Hi ", param('name'), ". How are you?<br>/n";
> print "Hi. You are ", param('age'), " years old.<br>/n";
>
> hth-
> --
> Michael Budash ~~~~~~~~~~ mbudash@sonic.net
>
IT says this:
Reason: Could not connect to remote machine: Connection timed out
And invalid information was received. I have no idea what's going on. :(
------------------------------
Date: Sun, 24 Jun 2001 23:59:31 +0200
From: Oliver Gardi <olga@student.unibe.ch>
Subject: loading enviroment variables
Message-Id: <3B3662C3.FE368776@student.unibe.ch>
hi all
i'am a perl newby, writing my first scripts. Now I have the problem,
that I wan't to use variables I declared in a special sh-script,
something like a config-file. I don't have any problems to access this
variables from other shell scripts by using the command '.
/etc/conffile'. So, the variables are loaded into the current shell
enviroment.
As I tried the same thing in my Perl-Script (system(".
/etc/conffile");), it wasn't really successfull. So I think, that the
System-Calls out of Perl-Scripts open a new shell anyway, ignoring my
'.' in front of the command.
Has anyone an idea how I can load my variables in the script??
thanx and regards
Oliver
------------------------------
Date: Sun, 24 Jun 2001 21:47:46 GMT
From: garry@ifr.zvolve.net (Garry Williams)
Subject: Re: one liner ... simple question
Message-Id: <slrn9jco02.nc0.garry@zfw.zvolve.net>
On Fri, 22 Jun 2001 17:25:13 +0200, Philip Newton
<pne-news-20010622@newton.digitalspace.net> wrote:
> On 22 Jun 2001 16:21:31 +0200, Walter Hafner
> <hafner-usenet@ze.tu-muenchen.de> wrote:
>
>> background: I want to do things like
>> if ($a{$x}) {...}
>> which I can't do with a list.
>
> Ah; with the shortcut, you'd have to say "if (exists $a{$x})" since the
> values will not be true (in the Perl sense).
>
>> Currently I use:
>>
>> map {$a{$_} = 1} @b;
>>
>> with @b being the list and %a the generated hash.
>
> Some people don't like using map in a void context :); to satisfy them,
> you could re-write that as
>
> $a{$_} = 1 for @b;
Or just,
%a = map { ( $_, 1 ) } @b;
--
Garry Williams
------------------------------
Date: Sun, 24 Jun 2001 22:37:59 +0400
From: "Oleg Bakiev1425878565" <boa@aaanet.ru>
Subject: Re: Package : Why so ?
Message-Id: <9h5c2r$j51$1@pa.aaanet.ru>
"Francis Derive" <Francis.Derive@wanadoo.fr> :
news:B75BF7C1-4AD2E@80.9.51.148...
>
> This does not work, unless an assignment like this one, left from results
> printing, is introduced :
>
> ( $,,$\) = (" ", "n);
>
> Why so ? Can I do better ?
>
Place into the end of yor file the line below:
1; # modules must return true
Oleg
------------------------------
Date: 24 Jun 2001 22:07:04 +0200
From: "Francis Derive" <Francis.Derive@wanadoo.fr>
To: "Oleg Bakiev1425878565" <boa@aaanet.ru>
Subject: Re: Package : Why so ?
Message-Id: <B75C1513-10B89@80.9.50.153>
On Sun, Jun 24, 2001 8:37 PM, Oleg Bakiev1425878565 <mailto:boa@aaanet.ru>
wrote:
>
>"Francis Derive" <Francis.Derive@wanadoo.fr> :
>news:B75BF7C1-4AD2E@80.9.51.148...
>>
>> This does not work, unless an assignment like this one, left from
results
>> printing, is introduced :
>>
>> ( $,,$\) = (" ", "n);
>>
>> Why so ? Can I do better ?
>>
>Place into the end of yor file the line below:
>1; # modules must return true
>
>Oleg
I see. This is Perl, I guess ? I feel better.
Many thanks.
Francis.
------------------------------
Date: Sun, 24 Jun 2001 18:23:58 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: passing variables the 'right' way
Message-Id: <x7sngpag8x.fsf@home.sysarch.com>
>>>>> "MJD" == Mark Jason Dominus <mjd@plover.com> writes:
MJD> This is done automatically in Perl for scalars. When you write
MJD> foo($x)
MJD> Perl internally passes a pointer to the value of $x.
MJD> There is no benefit to passing foo(\$x) instead.
i beg to differ. the only way to get directly at the value is via
$_[0]. if you want to use the ref in multiple or distant places in the
sub, having a named ref would be better. also if you are passing a large
buffer around, it is safer to explicitly pass a ref so any code would
have to explictly deref it so you won't make any extra copies for no
reason.
so perl does pass all scalar values by reference in @_ but it may be
better coding to explictly pass in your own scalar ref.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture and Stem Development ------ http://www.stemsystems.com
Learn Advanced Object Oriented Perl from Damian Conway - Boston, July 10-11
Class and Registration info: http://www.sysarch.com/perl/OOP_class.html
------------------------------
Date: 24 Jun 2001 20:50:05 +0200
From: Jakob Schmidt <sumus@aut.dk>
Subject: Re: passing variables the 'right' way
Message-Id: <m2els990gy.fsf@pocketlife.dk>
"Aman Patel" <patelnavin@icenet.net> writes:
> thanks jakob, that was really helpfull, thats why sometimes if i try to
> access, $_ in a subroutine, it doesnt turn up, i have to do a $_[0] in order
> for it to work.
Oh really?
> And yeah, my program is full of stupid my $var = shift. i guess i have to
> change them all!!! ahh what a pain.
Hehe - I didn't mean to insult you, but when you think of what the shift
actually does, it's really a waste if you aren't going to use the altered
@_. Don't be ashamed though, - it's been common practice for years. And
unless your program is gonna run _really_ often the time wasted on shifting
will probably never come close to the time it'll take you to change
the way you make understandable by-value parameters.
--
Jakob
------------------------------
Date: 24 Jun 2001 15:11:39 -0400
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Re: passing variables the 'right' way
Message-Id: <m31yo93d78.fsf@mumonkan.sunstarsys.com>
"Aman Patel" <patelnavin@icenet.net> writes:
[in the future, please put your reply *after* the suitably trimmed
material you are responding to. Thanks.]
> And yeah, my program is full of stupid my $var = shift. i guess i have to
> change them all!!! ahh what a pain.
No you don't. For single assignments, there is *nothing* wrong with
my $var = shift;
and changing it to
my ($var) = @_;
probably just slows your program down a few microseconds. IMHO it's
purely a style issue, and I don't think it adds anything to the
readability over the original.
The sole advantage IMO is that it's a uniform idiom for handling
multiple assignments like
my ($self, $attr, @options) = @_;
--
Joe Schaefer "I'll sleep when I'm dead."
-- Warren Zevon
------------------------------
Date: 24 Jun 2001 22:18:49 +0200
From: Jakob Schmidt <sumus@aut.dk>
Subject: Re: passing variables the 'right' way
Message-Id: <m2bsnd8wd2.fsf@pocketlife.dk>
Joe Schaefer <joe+usenet@sunstarsys.com> writes:
> No you don't. For single assignments, there is *nothing* wrong with
>
> my $var = shift;
I would agree if you hadn't emphasized "nothing". IMO the shift operator
indicates that you want to alter an array. If that's not what you wanna
do, don't use it. In the particular case of parameter assignments shifting
is so idiomatic, that this admittedly hardly matters, but why not be
just a little bit clearer
> and changing it to
>
> my ($var) = @_;
>
> probably just slows your program down a few microseconds.
Really? Either you meant the opposite of what you wrote or this is
certainly a surprise to me. Is there some special optimization that
makes shift on a short array _faster_ than a mere lookup?
--
Jakob
------------------------------
Date: 24 Jun 2001 16:54:41 -0400
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Re: passing variables the 'right' way
Message-Id: <m3wv611tv2.fsf@mumonkan.sunstarsys.com>
Jakob Schmidt <sumus@aut.dk> writes:
> Joe Schaefer <joe+usenet@sunstarsys.com> writes:
>
> > and changing it to
> >
> > my ($var) = @_;
> >
> > probably just slows your program down a few microseconds.
>
> Really? Either you meant the opposite of what you wrote or this is
> certainly a surprise to me. Is there some special optimization that
> makes shift on a short array _faster_ than a mere lookup?
A list assignment is not "a mere lookup". I think you are confusing
that with
my $x = $_[0];
Here's some code you can benchmark to see which one is
quickest on your platform. On mine (linux 2.4 + perl 5.6.1),
quux is the fastest and foo is the slowest.
#!/usr/bin/perl -w
use Benchmark;
sub bar {
my $x = shift;
}
sub foo {
my ($x) = @_;
}
sub quux {
my $x = $_[0];
}
@a = 1..shift;
timethese -10, {
bar =>q/bar(@a)/,
foo =>q/foo(@a)/,
quux=>q/quux(@a)/,
};
__END__
calls/s
bar foo quux
% ./try.pl 1 => 124333 112881 141886
% ./try.pl 10 => 113505 99769 125361
% ./try.pl 100 => 69115 56983 73747
YMMV
--
Joe Schaefer "I don't give a damn for a man that can only spell a word one
way."
--Mark Twain
------------------------------
Date: 24 Jun 2001 23:43:54 +0200
From: Jakob Schmidt <sumus@aut.dk>
Subject: Re: passing variables the 'right' way
Message-Id: <m266dl8sf9.fsf@pocketlife.dk>
Joe Schaefer <joe+usenet@sunstarsys.com> writes:
> Jakob Schmidt <sumus@aut.dk> writes:
>
> A list assignment is not "a mere lookup".
I thought it sorta was.
> I think you are confusing
> that with
>
> my $x = $_[0];
I can see the difference, but I felt pretty sure that my ( $x ) = @_; and
my $x = $_[ 0 ]; would result in the exact same byte code. Apparantly I
was wrong.
It still confuses me though, why list assignment wouldn't just be
syntactic sugar for a sequence of lookups and assignments. Perhaps
you can explain it?
> Here's some code you can benchmark to see which one is
> quickest on your platform. On mine (linux 2.4 + perl 5.6.1),
> quux is the fastest and foo is the slowest.
>
> sub bar {
> my $x = shift;
> }
>
> sub foo {
> my ($x) = @_;
> }
>
> sub quux {
> my $x = $_[0];
> }
I'm afraid the results are the same on my Darwin perl 5.6.0 so I was
wrong about the stupidity of my $x = shift; when it comes to efficiency.
Sorry.
I still think it's messy to alter @_ without using the altered version
but the "right" choice being my $x = $_[ 0 ]; is really painful because
that's just so ugly :-/
--
Jakob
------------------------------
Date: 24 Jun 2001 11:47:21 -0700
From: dagoldst@aol.com (Dave Goldstein)
Subject: Perl Project
Message-Id: <8f6b80cf.0106241047.b13abce@posting.google.com>
Dear Perl Programmers-
My name is Brett, and my company is Daveations. INC. If you are
looking for an interesting new Perl project, this might be the thing
for you. The work isnt that hard, and you are the teacher of your own
work. You can recieve money for up to 20 years on this project, and
get recognized by many people. If you are intersted and have any
questions, please get back to me as soon as possible @
Brett@Daveations.com
I thank you for your time
Brett-
------------------------------
Date: Sun, 24 Jun 2001 13:23:12 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Perl Project
Message-Id: <3B364C30.7A0D1764@stomp.stomp.tokyo>
Dave Goldstein wrote:
> Dear Perl Programmers-
Dear Troll,
> My name is Brett,
My name is Chahta Okpulot Taha.
> and my company is Daveations. INC.
My usual company is delightful disrobed deviants.
> If you are looking for an interesting new Perl project,
I am. I have been working for years on a project which
would take command of a person's cathode ray tube monitor
and, turn it into a narrow beam, highly focused, highly
energized beam which would leap out and burn a hole clean
through a troll's head, which, humorously, would cause
no significant damage.
> this might be the thing for you.
No. This is just the thing for trolls like you.
> The work isnt that hard,
Rewarding work is enjoyably hard. However, good grammar
is even more hard to learn, as evidenced by you.
> and you are the teacher of your own work.
I am a teacher by coincidence and, do teach
my own work, in the form of homework for
my students. It is clear to me you are yet
another proud, ever so proud, graduate of
The Sears, Roebuck & Co. Academy Of Language Arts.
> You can recieve money for up to 20 years on this project,
I have tiny blue monkeys flying out of my big butt.
It is "i" before "e" except after "c" unless a word
sounds like "way" or is a foreign word or you are
singing Old McDonald's Farm, E I E I E I Ohhhhh....
This does not account for "height" however.
> and get recognized by many people.
Historically, I am well known about the internet.
There is even a five-hundred dollar bounty reward
being offered for information about my true name
and whereabouts.
> If you are intersted and have any questions,
I am not "intersted" but have a question.
Why are you such an ignorant troll?
> please get back to me as soon as possible...
Hold your breath in anticipation of this, ok?
Godzilla!
------------------------------
Date: Sun, 24 Jun 2001 21:52:00 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Regular Expressions == How to use grep ?
Message-Id: <usncjtogeddfhea21bof8c6h03ql4t79f7@4ax.com>
Minh Van Le wrote:
>i need clarity on what is meant by Regular Expressions. if i bought a book
>on regular expressions, eg. Mastering Regular Expressions by Oreilly &
>Assc., i won't be expecting the equivalent content of "how to use grep"
>would i ?
It depends on what you mean by "grep". If you mean the command line
program to search through text files... well yes, that's basically it.
So let's see what it is for. Let's define what a variable name can look
like in a language like BASIC. It must start with a letter. It can
contain more letters, but digits are acceptable too, as is the
underscore. So, the pattern is something like:
[a-zA-Z][a-zA-Z0-9_]*
This is a syntax to describe what you want, but also, grep and perl can
use this syntax to search for something that might be a valid variable
name. It's like using wildcards, but much more focussed in what it
accepts (a wildcard accepts any character, or any sequence of
characters).
As for the book: no, it is not just "how to use grep". It also compares
syntax and power of various implementations of regex engines, discusses
how some patterns might take a far longer time for a match than others,
and why, and how some regexes don't match what you'd expect them to
match. It is the ins and outs of regexes.
HTH,
Bart.
------------------------------
Date: Sun, 24 Jun 2001 13:07:27 -0500
From: "Steven Michaels" <smichae@ilstu.edu>
Subject: Requires or All One File
Message-Id: <9h5a6u$a6o$1@news.ilstu.edu>
I have a rather large script, and I was wondering if it
would be more, less, or as efficient if I split the files
up into 'requires,' called from the main script.
Thanks for any help,
Steven Michaels
------------------------------
Date: Sun, 24 Jun 2001 18:28:53 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Requires or All One File
Message-Id: <x7pubtag0p.fsf@home.sysarch.com>
>>>>> "SM" == Steven Michaels <smichae@ilstu.edu> writes:
SM> I have a rather large script, and I was wondering if it
SM> would be more, less, or as efficient if I split the files
SM> up into 'requires,' called from the main script.
require will most likely be slower but why don't you just try it and
benchmark the two versions? but if your script is so large, making
multiple files from it should speed up your development and maintenance
times which is usually more important than slight differences in running
speed. also if you make some of the those files into proper modules,
you could share them effectively with other programs. rarely is a very
large program written without having any shareable code created.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture and Stem Development ------ http://www.stemsystems.com
Learn Advanced Object Oriented Perl from Damian Conway - Boston, July 10-11
Class and Registration info: http://www.sysarch.com/perl/OOP_class.html
------------------------------
Date: Sun, 24 Jun 2001 22:28:11 +0400
From: "Oleg Bakiev1425878565" <boa@aaanet.ru>
Subject: Re: Requires or All One File
Message-Id: <9h5bgg$e7s$1@pa.aaanet.ru>
"Steven Michaels" <smichae@ilstu.edu> сообщил/сообщила в новостях следующее:
news:9h5a6u$a6o$1@news.ilstu.edu...
> I have a rather large script, and I was wondering if it
> would be more, less, or as efficient if I split the files
> up into 'requires,' called from the main script.
Don't worry. It'd be almost no differences.
Oleg
------------------------------
Date: Sun, 24 Jun 2001 20:36:52 -0000
From: gbacon@HiWAAY.net (Greg Bacon)
Subject: Re: Six degrees of separation
Message-Id: <tjcjr41p6ska74@corp.supernews.com>
In article <slrn9jb7gq.iqg.dha@panix2.panix.com>,
David H. Adler <dha@panix.com> wrote:
: In article <tjagkjouefr34b@corp.supernews.com>, Greg Bacon wrote:
:
: > I guess I'd be the obvious choice for the Kevin Bacon of Perl. :-)
:
: I might argue that point... :-)
I can go from Kibo to mjd in zero pages, Dave!!!
: If God didn't want us to eat animals, he wouldn't have made them out
: of Meat. - Phillip, Goats, 20sep99
Didn't Alfred E. Neumann say that?
Greg, who once thought Ted Nugent was first to say it
--
Only politicians and bureaucrats benefit from welfare--and that's why
every welfare reform leads to bigger budgets and more people on welfare.
-- Harry Browne
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 1184
***************************************
