[8738] in Perl-Users-Digest
Perl-Users Digest, Issue: 2355 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Apr 17 20:07:19 1998
Date: Fri, 17 Apr 98 17:00:30 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 17 Apr 1998 Volume: 8 Number: 2355
Today's topics:
@INC and NT registry <jdr@esd.sgi.com>
Re: Array / List question <danboo@negia.net>
Re: CLPM CONTENT POLICE (was info on cookies) (Tad McClellan)
Re: CLPM CONTENT POLICE (was info on cookies) <grinch@whoville.com>
Re: CLPM CONTENT POLICE (was info on cookies) <grinch@whoville.com>
DATA filehandle <pholser@nortel.com>
Re: Farnham's Freehold (Tad McClellan)
Re: Farnham's Freehold <sowmaster@juicepigs.com>
Re: Fast getpwuid() call? <David.Boyce@fmr.com>
Fastest "smallest power of 2 >= N" in Perl? <ljz@asfast.com>
Re: Fork in perl/NT ? (Jonathan Stowe)
Re: Fork in perl/NT ? <jdf@pobox.com>
Re: Help me! (Jonathan Stowe)
Re: Help: Novice Question .pm -> .html (I R A Aggie)
Re: how can I get commands to display? (Jason Gloudon)
Re: how can I get commands to display? <grinch@whoville.com>
Re: how to remove blanks? <sowmaster@juicepigs.com>
Re: how to remove blanks? <danboo@negia.net>
Re: how to remove blanks? <lr@hpl.hp.com>
Re: Image instead of button in Perl Script <grinch@whoville.com>
Re: new syntax for tied variables? (Andrew M. Langmead)
Re: new syntax for tied variables? <merlyn@stonehenge.com>
Re: Newbie question about return codes (Jason Gloudon)
Re: order of declaration - my, local, anonymous sub (Andrew M. Langmead)
Re: perl from webpage dont work. perl works local but n (Jonathan Stowe)
Perl/Tcl <LPHAM@prodigy.net>
perl4 bug ? (Eric van Bezooijen)
Re: perl4 bug ? <merlyn@stonehenge.com>
Re: Problems running perl from html under NT--2nd try (Jonathan Stowe)
Re: Proplem with perl script (I'm new to perl) <star@sonic.net>
Re: Proplem with perl script (I'm new to perl) <merlyn@stonehenge.com>
Re: Proplem with perl script (I'm new to perl) <jdf@pobox.com>
Re: Proplem with perl script (I'm new to perl) <grinch@whoville.com>
Re: reading values from multi-select list (Jonathan Stowe)
Re: recursive fuctions (Kevin B Cohen)
Re: Snobby news group (Mike Heins)
Re: Solaris Perl install: I am NOT using GNU as(1)!!!!! (Jason Gloudon)
Re: Wanna laugh? (My First cgi.pm Script) <lee@spam-me-not-darryl.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 17 Apr 1998 14:52:25 -0700
From: John Rosasco <jdr@esd.sgi.com>
Subject: @INC and NT registry
Message-Id: <3537CF19.47B2497A@esd.sgi.com>
I was working on one system that had numerous entries in the registry for
Perl. When having trouble with @INC, I modified these entries to point to
the proper Perl library and all worked fine.
On another machine, I ran into similar difficulties. There are no Perl entries
in the registry to speak of. Does Perl5 for NT have an installer and does it
update the registry?
Thanks.
JR
--
><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><
John Rosasco Silicon Graphics Inc - CPD (650) 933-7730
------------------------------
Date: Fri, 17 Apr 1998 16:02:35 -0400
From: Dan Boorstein <danboo@negia.net>
Subject: Re: Array / List question
Message-Id: <3537B55B.9DC6284A@negia.net>
Abigail wrote:
>
> Personally I would write it as:
> @array = map {s/this/that/g; $_} @array;
> or
> foreach (@array) {s/this/that/g}
>
> The latter is probably the most efficient as well.
out of curiosity:
use Benchmark;
@a = (10, 42);
timethese( 300_000, {
'foreach' => '@foo = @a; foreach (@foo) {$_**=2}',
'grep' => '@foo = @a; grep($_**=2, @foo);',
'grep0' => '@foo = @a; grep($_**=2 && 0, @foo);',
'map' => '@foo = @a; map($_**=2, @foo);',
});
@a = (10, 42) x 5_000;
timethese( 100, {
'foreach' => '@foo = @a; foreach (@foo) {$_**=2}',
'grep' => '@foo = @a; grep($_**=2, @foo);',
'grep0' => '@foo = @a; grep($_**=2 && 0, @foo);',
'map' => '@foo = @a; map($_**=2, @foo);',
});
results:
Benchmark: timing 300000 iterations of foreach, grep, grep0, map...
foreach: 7 secs ( 8.05 usr 0.00 sys = 8.05 cpu)
grep: 6 secs ( 5.02 usr 0.00 sys = 5.02 cpu)
grep0: 5 secs ( 4.78 usr 0.00 sys = 4.78 cpu)
map: 6 secs ( 6.85 usr 0.00 sys = 6.85 cpu)
Benchmark: timing 100 iterations of foreach, grep, grep0, map...
foreach: 6 secs ( 6.09 usr 0.00 sys = 6.09 cpu)
grep: 5 secs ( 5.51 usr 0.00 sys = 5.51 cpu)
grep0: 6 secs ( 5.19 usr 0.00 sys = 5.19 cpu)
map: 11 secs (10.91 usr 0.00 sys = 10.91 cpu)
it seems that grep is significantly faster for short lists, and not
too shabby with long lists either. though i agree that it would be
poor style to use as such.
--
dan boorstein
------------------------------
Date: Fri, 17 Apr 1998 17:26:55 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: CLPM CONTENT POLICE (was info on cookies)
Message-Id: <fvk8h6.k15.ln@localhost>
Alan J. Flavell (flavell@mail.cern.ch) wrote:
: On Thu, 16 Apr 1998, Andrew F. Lee wrote:
: > In my humble opinion, Perl and CGI are commmon companions.
: So you don't believe in usenet's system of dividing groups up into
: targetted topics.
That is a silly system.
You have to figure out which newsgroup discusses your particular
interest.
(That kinda sounds like thinking, which is something
that should always be avoided. Folks have only a limited
amount of "thinking budget" and spending it there kinda
defeats the purpose of trying to sucker some Usenet
question answerer with too much time on his/her hands
into writing my program for me.
)
Why can't they just have a single newsgroup with all 300,000 posts
per day?
(sifting through that many articles is no concern of mine
since I want my answer via email so nobody else gets
to see it. Let other people fend for themselves, or just
repeat my question tomorrow. And the next day. And the
next...
)
Then new folks could just post to the single newsgroup,
and we could avoid all this fuss about on-topic/off-topic.
;-)
: > If you have
: > just had too much caffeine,
<rhetorical-question>
Is there such a thing as too much caffeine?
</rhetorical-question>
: > please refrain from posting pointless and
: > sniveling comments (unless they are funny).
^^^^^^^^^^^^^^
Is mine?
(that's rhetorical too, since I've posted it already anyway)
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 17 Apr 1998 19:10:30 -0400
From: "Grinch" <grinch@whoville.com>
Subject: Re: CLPM CONTENT POLICE (was info on cookies)
Message-Id: <6h8mmc$q55@fridge.shore.net>
I R A Aggie wrote in message ...
>In article <6h85u8$7qv@fridge.shore.net>, "Grinch" <grinch@whoville.com>
wrote:
>+ They typically don't tell the user what RTFM stands for, where TFM can be
>+ found, or offer any guidance as to which newsgroup _would_ be more
>+ appropriate.
>
>Ah, you mean like the contents of:
>Message-ID: <6gdugl$k3e$1@news1.teleport.com>
Perhaps I'm being naive, but I don't think that very many of the people who
are posting FAQ's are being deliberately obtuse or lazy. They've simply
missed the (many) signs pointing them to the FAQ, and need another one.
An additional pointer to the FAQ is sometimes helpful but never harmful.
When I have the choice, I prefer to give too much information rather than
too little.
And I must add, it seems a bit unfair of you to criticize me on this, when
you include the URL for a CGI tutorial in every message you post... :-)
-grinch
--
-----
"Yes, I'm paranoid, but that doesn't mean
no one's out to get me." - me
Sherm Pendley
grinch@whoville.com
http://www.whoville.com
------------------------------
Date: Fri, 17 Apr 1998 19:33:29 -0400
From: "Grinch" <grinch@whoville.com>
Subject: Re: CLPM CONTENT POLICE (was info on cookies)
Message-Id: <6h8o1g$rm0@fridge.shore.net>
Tad McClellan wrote in message ...
><rhetorical-question>
> Is there such a thing as too much caffeine?
></rhetorical-question>
Nevernevernevernevernevernevernevernever! :-)
>Is mine?
I must admit, I had the flamethrower ready at first, before I "got it"...
But after that, ROTFL. :-)
-grinch
--
-----
"Yes, I'm paranoid, but that doesn't mean
no one's out to get me." - me
Sherm Pendley
grinch@whoville.com
http://www.whoville.com
------------------------------
Date: Fri, 17 Apr 1998 17:39:30 -0500
From: Paul Holser <pholser@nortel.com>
Subject: DATA filehandle
Message-Id: <3537DA22.395D@nortel.com>
Perl 5.004_04 on HP-UX 10.20:
-----------------------------
#!/usr/bin/perl
use Pod::Text;
use strict;
pod2text( '<&=' . fileno \*DATA );
#pod2text( '<&DATA' );
__END__
# Here's some information, in POD format, about what I do.
=head1 NAME
yermom - wears combat boots
[etc.]
-----------------------------
The uncommented call to pod2text() behaves as
expected--the POD accessible via the DATA
filehandle is printed to STDOUT. If I comment out
the first call and uncomment the second and rerun
the script, the following error occurs:
Couldn't open <&DATA: Invalid argument at
/opt/automation/perl5/lib/Pod/Text.pm line 102.
Should the <&DATA version choke or not?
I'd certainly vote "no", but perhaps I'm missing
something plain? Curious...
Thanks for your time.
Cheers,
pholser
--
// Paul Holser ~ Northern Telecom, Inc. ~ pholser@nortel.com
// Wireless Automation Tool Development
// $time ||= time; $time = time unless $time; # is cap-tuuured!...
// "A good craftsman never blames his tools." --Keith Olbermann
------------------------------
Date: Fri, 17 Apr 1998 17:01:20 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Farnham's Freehold
Message-Id: <gfj8h6.iu4.ln@localhost>
Bob Trieger (sowmaster@juicepigs.com) wrote:
: Grinch wrote:
: >
: > Andrew F. Lee wrote in message ...
: > >On Thu, 16 Apr 1998, John Porter wrote:
: > >
: > >> Ronald Stephens wrote:
: > >> >
: > >> > written by Todd Christianson and larry Wall, which I bumped into
: > >>
: > >> Nack!
: > >>
: > >> s/dd/m/;
: > >> s/son/sen/;
: > >>
: > >> John Porter
: > >>
: > >
: > >s/\bl/L/;
: > >
: >
: > s/ich/om/;
: s/\n/\.\n/;
^
^
^ unnecessary (though desirable if you are paid by the character ;-),
dot does not need to be escaped there...
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 17 Apr 1998 19:38:40 -0400
From: Bob Trieger <sowmaster@juicepigs.com>
To: Tad McClellan <tadmc@flash.net>
Subject: Re: Farnham's Freehold
Message-Id: <3537E800.59A7@juicepigs.com>
Tad McClellan wrote:
>
> Bob Trieger (sowmaster@juicepigs.com) wrote:
> : Grinch wrote:
> : >
> : > Andrew F. Lee wrote in message ...
> : > >On Thu, 16 Apr 1998, John Porter wrote:
> : > >
> : > >> Ronald Stephens wrote:
> : > >> >
> : > >> > written by Todd Christianson and larry Wall, which I bumped into
> : > >>
> : > >> Nack!
> : > >>
> : > >> s/dd/m/;
> : > >> s/son/sen/;
> : > >>
> : > >> John Porter
> : > >>
> : > >
> : > >s/\bl/L/;
> : > >
> : >
> : > s/ich/om/;
>
> : s/\n/\.\n/;
> ^
> ^
> ^ unnecessary (though desirable if you are paid by the character ;-),
> dot does not need to be escaped there...
Danke shone. The key-pushes I save by not escaping dots on the RHS of an
re any more may just be the button pushes I use to dial a radio station
and win a cruise.
Honestly, I wasn't sure and escaped it to be safe.
--
Bob Trieger | Titanic: big boat, bigger
sowmaster@juicepigs.com | iceberg, big deal
------------------------------
Date: Fri, 17 Apr 1998 18:56:53 -0400
From: David Boyce <David.Boyce@fmr.com>
Subject: Re: Fast getpwuid() call?
Message-Id: <3537DE35.C1699A3F@fmr.com>
Totten, Grant (EXCHANGE:CAR:5J42) wrote:
> We've got a few low-level routines that need to determine the user's
> effective userid. In our environment (we use Yellow Pages) the
> getpwuid() call can take a long-ish time. I was wondering if there is
> another call or some other technique that we can use to determine the
> current userid.
>
> Here is what we use right now:
>
> $login = (getpwuid($<))[0];
If security isn't a concern, why not:
$login = $ENV{LOGNAME} || (getpwuid($<))[0];
> Any suggestions would be greatly appreciated. Please respond via e-mail
> to:
Sorry but that would be unseemly.
-David
------------------------------
Date: 17 Apr 1998 19:02:19 -0400
From: Lloyd Zusman <ljz@asfast.com>
Subject: Fastest "smallest power of 2 >= N" in Perl?
Message-Id: <ltogy0uk5g.fsf@asfast.com>
The following algorithm (see below) returns the smallest power of 2
which is greater than or equal to a given integer. For example:
smallestPowerOfTwoGE(15) -> 16
smallestPowerOfTwoGE(16) -> 16
smallestPowerOfTwoGE(17) -> 32
The algorithm I'm using is the fastest one I know of when I implement
it in C, but I'm wondering if perhaps this algorithm might not the
fastest way to do this in Perl, given the differences between this
language and C.
Any ideas as to whether this would also be the fastest algorithm in
Perl, and if not, what might be?
Thanks in advance.
Here's the algorithm:
sub smallestPowerOfTwoGE {
use integer;
my $value = shift;
if ($value < 2) {
return (1);
}
$value--;
my $lastValue;
do {
$lastValue = $value;
} while (($value &= ~(-$value)) != 0);
return ($lastValue << 1);
}
--
Lloyd Zusman
ljz@asfast.com
------------------------------
Date: Thu, 16 Apr 1998 05:47:15 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: Fork in perl/NT ?
Message-Id: <353586e2.13215504@news.btinternet.com>
On Fri, 17 Apr 1998 07:56:06 -0600, emmanuel_astier@yahoo.com wrote:
<snip>
>But I don't know what to do with (1) the fork; (2) the signals.
>
>How can I do multiprocess/multithread/multi-whatever with Perl on NT ??
>
As I understand it the standard distribution when compiled with
cygwin32 does have have a fork() that is implemented by some chicanery
with white chickens, black candles etc by the cygnus library. I
havent tried it myself but the docs would seem to indicate that it
wont cause too much loss of sleep.
Check Cygnus out at http://www.cygnus.com/
/J\
Jonathan Stowe
See the MetaFaq at http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm
------------------------------
Date: 17 Apr 1998 19:27:28 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: Fork in perl/NT ?
Message-Id: <lnt4vurz.fsf@mailhost.panix.com>
Gellyfish@btinternet.com (Jonathan Stowe) writes:
> As I understand it the standard distribution when compiled with
> cygwin32 does have have a fork() that is implemented by some chicanery
> with white chickens, black candles etc by the cygnus library.
Do you remember those inexplicable stabbing pains a few nights back?
That was me, running a fork-heavy perl script in cygwin-land.
Sorry.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
Date: Thu, 16 Apr 1998 05:47:20 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: Help me!
Message-Id: <35358d90.14765213@news.btinternet.com>
On Fri, 17 Apr 1998 18:28:27 +0300, Yurik <yurik5@usa.net> wrote:
>I'm interested in processing data from WEB pages,
>the problem is I'm copletely lost in all these CGI and PERL scripting
>references.
So it seems is everyone these days ;-]
>Can somebody tell me what I need to write a simple CGI or what ever
>script which will take data from 'text field' on the WEB page after I
>press 'submit' button and save the data to the file on the server.
Certainly you'll need to learn to program in some language (not
necessarily perl : remember "PERL" ne "CGI" ), You will also need to
understand to some extent the other elements here: HTML,HTTP the CGI
spec - there is a wealth of documentation on these matters available
on the Web and in most bookshops nowdays.
>I'll appriciate any examples.
>
Examples abound in (ahem) CyberSpace as a quick search with yahoo
would undoubtedly demonstrate.
/J\
Jonathan Stowe
See the MetaFaq at http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm
------------------------------
Date: Fri, 17 Apr 1998 18:39:19 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Help: Novice Question .pm -> .html
Message-Id: <fl_aggie-1704981839190001@aggie.coaps.fsu.edu>
In article <3537C85E.CE7F108C@technologist.com>, Tommy
<tkho@technologist.com> wrote:
[posted && cc'd]
+ I have a novice question on how to turn the description of .pm to either
+ .html or txt. I remember there is a perl script pm2html.pl (like
+ pod2html.pl), but I forget where I can get it.
Did you try 'pod2html.pl' on your module?? It _should_ work!
James
--
Consulting Minister for Consultants, DNRC
The Bill of Rights is paid in Responsibilities - Jean McGuire
To cure your perl CGI problems, please look at:
<url:http://www.perl.com/CPAN-local/doc/FAQs/cgi/idiots-guide.html>
------------------------------
Date: Fri, 17 Apr 1998 23:13:25 GMT
From: jgloudon@manitoba.bbn.com (Jason Gloudon)
Subject: Re: how can I get commands to display?
Message-Id: <slrn6jfobd.chk.jgloudon@manitoba.bbn.com>
joes garage <joe@garage.com> wrote:
>I looked at the FAQ and programming perl book and cannot find
>what I am looking for. I would like to display lines as they execute.
>
>I am looking for the equiv of set -x in shell.
>Does such a beast exist?
You could try using the debugger perl -d and trace mode (t).
--
Jason Gloudon
------------------------------
Date: Fri, 17 Apr 1998 19:38:03 -0400
From: "Grinch" <grinch@whoville.com>
Subject: Re: how can I get commands to display?
Message-Id: <6h8oa2$rvu@fridge.shore.net>
joes garage wrote in message <3537CB99.2AD4@garage.com>...
>I looked at the FAQ and programming perl book and cannot find
>what I am looking for. I would like to display lines as they execute.
If you're on Win32, you can use the ActiveState debugger. It works with the
standard Win32 and ActiveState Win32 distributions.
<URL: http://www.activestate.com >
-grinch
--
-----
"Yes, I'm paranoid, but that doesn't mean
no one's out to get me." - me
Sherm Pendley
grinch@whoville.com
http://www.whoville.com
------------------------------
Date: Fri, 17 Apr 1998 17:55:40 -0400
From: Bob Trieger <sowmaster@juicepigs.com>
Subject: Re: how to remove blanks?
Message-Id: <3537CFDC.B25@juicepigs.com>
Larry Rosler <lr@hpl.hp.com> wrote:
> : EASIEST: 5.18
> : FASTEST: 4.41
> : TWO_PART: 6.00
> : ZENIN: 5.92
I'm not sure what code you used for fastest. But this is what I came up
with for results bad on 10,000 cycles:
EASIEST: 11 secs (11.07 usr 0.00 sys = 11.07 cpu)
TWO_PART: 4 secs ( 3.80 usr 0.00 sys = 3.80 cpu)
ZENIN: 5 secs ( 6.25 usr 0.00 sys = 6.25 cpu)
--
Bob Trieger | Titanic: big boat, bigger
sowmaster@juicepigs.com | iceberg, big deal
------------------------------
Date: Fri, 17 Apr 1998 17:31:35 -0400
From: Dan Boorstein <danboo@negia.net>
Subject: Re: how to remove blanks?
Message-Id: <3537CA37.60926BC0@negia.net>
Zenin wrote:
>
> Larry Rosler <lr@hpl.hp.com> wrote:
> : Zenin wrote in message <892836055.73298@thrush.omix.com>...
> >snip<
> : > $string =~ s/(?:^\s+|\s+$)//g;
> : ^^^ ^
> : I don't think these parentheses accomplish anything.
>
> Yes, they do.
>
what do they accomplish? actually, how is what they accomplish useful
here? '$string =~ s/^\s+|\s+$//g' works just fine.
this is broken into two logical bits:
^\s+ - whitespace at the beginning of the line
\s+$ - whitespace at the end of the line
it is the 'g' modifier that allows this to hit both the start and the
end of the string.
i'm not sure if this is a truism or not, but it seems to me that any
time you have:
/(?:foo)/
you can do away with the parens. you are merely being explicit in
declaring the default grouping. it's overkill.
cheers,
--
dan boorstein
------------------------------
Date: Fri, 17 Apr 1998 15:51:37 -0700
From: "Larry Rosler" <lr@hpl.hp.com>
Subject: Re: how to remove blanks?
Message-Id: <6h8mdv$98i@hplntx.hpl.hp.com>
Zenin wrote in message <892847602.907082@thrush.omix.com>...
>Larry Rosler <lr@hpl.hp.com> wrote:
>: Zenin wrote in message <892836055.73298@thrush.omix.com>...
> >snip<
>: > $string =~ s/(?:^\s+|\s+$)//g;
>: ^^^ ^
>: I don't think these parentheses accomplish anything.
>
> Yes, they do.
>
>: ("Don't capture the match that's not used anyway.")
>
> They perform needed grouping, and if you notice the details
> I don't capture anything at all. See the perlre man page about
> the "(?:pattern)" modifier extension if you doubt this.
Sorry, they don't perform any grouping at all (because '|' has the lowest
precedence of any of the RE metacharacters). Let me rephrase my comment
above, less diffidently:
"These parentheses don't accomplish anything, except a small slowdown (see
below)."
And, as indicated in my paraphrase above, I'm well aware that they don't
capture anything. BTW, the 'o' in your snippet below doesn't do anything
either (no interpolation in the RE).
> $foo =~ s/(?:^\s+|\s+$)//go;
>: > Benchmark: timing 100000 iterations of FAQ, EASIEST, ZENIN...
> >snip<
>: Without your test string, it's difficult to reproduce or comment on these
>: results.
>
>...
> $foo = " string ";
Thank you for the string, which I used in the tests recorded below.
> Enjoy. :-)
Indeed!
> >snip<
>: $string =~ s/^\s*(.*\S)\s*$/$1/;
>
> Hmm, you assume (danger!) here that there even is non-whitespace
> data in the string. You'll fail to remove whitespace on a simple
> " " string.
That is *exactly* what I said in the next sentence in my post:
"I have measured the following variation to be FASTEST, provided you are
sure there is at least one non-space character in the operand. (You can
test the value of the expression -- FALSE if there are no non-space
characters -- but that test dissipates the small speed advantage.)"
>: My benchmark results (usr time for 100000 iterations) if
>: $string = "\t\t\txxx\t\t\t"; are
>
> Sorry, but for testing perl snips of code, time(1) is about
> the most inconsistent tool available. This is why the Benchmark
> module is shipped standard. See my test code above for example
> usage.
Thank you, but my tests *were* made with Benchmark. My post reads:
"My benchmark results (usr time for 100000 iterations) if $string =
"\t\t\txxx\t\t\t"; are"
s/(benchmark)/\u$1/; Sorry:-). I simply took the trouble to cut away the
noise and report the numbers of interest.
> And without your code we can't reproduce your results either. :-)
Here is the code for the new results reported below. It is really your
code, but with a little overhead factored out of the loops to make the
distinctions clearer.
#!/usr/local/bin/perl -w
use diagnostics;
use strict;
use Benchmark;
use vars '$val';
$val = ' ' x 12 . 'string' . ' ' x 11;
timethese (100000, {
EASIEST => q{
$val =~ s/^\s*(.*?)\s*$/$1/;
},
TWO_PART => q{
$val =~ s/^\s*//;
$val =~ s/\s*$//;
},
ZENIN_NO_PAREN => q{
$val =~ s/^\s*|\s*$//g;
},
ZENIN_PAREN => q{
$val =~ s/(?:^\s*|\s*$)//g;
},
FASTEST => q{
$val =~ s/^\s*(.*\S)\s*$/$1/;
},
} );
__END__
> I'd advise recoding your test using the Benchmark module and see
> what turns up. When using time(1), you're testing perl startup
> and system fork/exec costs much, much more then the perl run time
> algorithms. I think you'll get *much* different and more accurate
> results using the Benchmark module.
Not at all, because that's what I did use. Here are the latest results,
noise and all:
Benchmark: timing 100000 iterations of EASIEST, FASTEST, TWO_PART,
ZENIN_NO_PAREN, ZENIN_PAREN...
EASIEST: 7 secs ( 6.23 usr 0.00 sys = 6.23 cpu)
FASTEST: 4 secs ( 4.30 usr 0.00 sys = 4.30 cpu)
TWO_PART: 8 secs ( 7.03 usr 0.00 sys = 7.03 cpu)
ZENIN_NO_PAREN: 8 secs ( 7.70 usr 0.00 sys = 7.70 cpu)
ZENIN_PAREN: 7 secs ( 7.99 usr 0.00 sys = 7.99 cpu)
> But the fact remains, it's all pretty academic unless you really
> need to worry about nano-seconds in which case you've got bigger
> problems. :-)
>
>--
>-Zenin
> zenin@archive.rhps.org
Of course, I agree with that 100%. But it's instructive about TMTOWTDI and
it's fun (I guess, except for our difficulties of communication!).
--
Larry Rosler
Hewlett-Packard Laboratories
lr@hpl.hp.com
------------------------------
Date: Fri, 17 Apr 1998 19:21:37 -0400
From: "Grinch" <grinch@whoville.com>
Subject: Re: Image instead of button in Perl Script
Message-Id: <6h8nb7$qsf@fridge.shore.net>
Brad Atkins wrote in message <3537B43C.FFA5F6E4@age.net>...
>Actually it does.
No, it doesn't.
>is not due to HTML programming error.
It doesn't have to be an HTML _error_ to be an HTML _issue_. What you're
seeing is a result of the method used by the browser to submit data from
"image" input elements to the server, which is a bit different than that
used for sending other input elements. It has _nothing_ to do with Perl, and
would behave in precisely the same way if your CGI were written in C.
>Any ideas?
Yes, I've posted the solution earlier in this thread. If your news server
didn't get it, you can probably find it at DejaNews, or email me and I'll
resend it to you direct via email.
-grinch
--
-----
"Yes, I'm paranoid, but that doesn't mean
no one's out to get me." - me
Sherm Pendley
grinch@whoville.com
http://www.whoville.com
------------------------------
Date: Fri, 17 Apr 1998 23:02:04 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: new syntax for tied variables?
Message-Id: <ErKynG.99L@world.std.com>
ken@forum.swarthmore.edu (Ken Williams) writes:
>tie(%hash, 'MyTie');
>$hash{one} = 'two'; # Regular access
>%hash->extra_method("arg"); # Special access
>#######################
>Wouldn't that be fun?
There was a thread earlier this week, talking about tie()ing a
bless()ed hash. Unfortunately I can't find the article I want right
now. But the basic concept may be of use to you.
sub new {
my $self = shift;
my $class = ref $self || $self;
my $hash = {};
tie %$obj, $class, @args;
return bless $obj, $class;
}
Now the hash reference returned by new is both a blessed reference and
it is tied.
$hashref = new MyTie;
$hashref->{one} = 'two';
$hashref->extra_method("arg");
--
Andrew Langmead
------------------------------
Date: Fri, 17 Apr 1998 23:06:27 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
To: ken@forum.swarthmore.edu (Ken Williams)
Subject: Re: new syntax for tied variables?
Message-Id: <8ciuo8dp69.fsf@gadget.cscaper.com>
>>>>> "Ken" == Ken Williams <ken@forum.swarthmore.edu> writes:
Ken> On lots of occasions I've wanted to do something like this to extend the
Ken> possibilities for extending the access to a hash:
Ken> #######################
Ken> package MyTie;
Ken> sub TIEHASH {
Ken> ...
Ken> }
Ken> sub FETCH {
Ken> ...
Ken> }
Ken> ... more tying methods
Ken> sub extra_method {
Ken> my $self = shift;
Ken> ... do something
Ken> }
Ken> #######################
Ken> package main;
Ken> tie(%hash, 'MyTie');
Ken> $hash{one} = 'two'; # Regular access
Ken> %hash->extra_method("arg"); # Special access
That's done with:
(tied %hash)->extra_method("arg");
It's been there since 5.004, if I recall.
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 136 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Fri, 17 Apr 1998 22:56:31 GMT
From: jgloudon@manitoba.bbn.com (Jason Gloudon)
Subject: Re: Newbie question about return codes
Message-Id: <slrn6jfnbn.chk.jgloudon@manitoba.bbn.com>
Ronald Wouters <ronald.wouters@tornado.be> wrote:
Mime Encoding ? Why ?
>Hi, I'm new to Perl and I would like to know the following.
>When I do something like:
>
>$rc = system("xxxxxx.exe");
>$rc = $rc/256;
>
>Then in some cases the value of $rc equals 255.
>What does 255 mean ?
It depends entirely on the program you are running. I'm guessing that it is
really the signed value -1. But the interpretation of that value, if there is
one depends on DOS/Windows and the program itself. Perl doesn't assign any
meaning to the exit status of programs you system().
--
Jason Gloudon
------------------------------
Date: Fri, 17 Apr 1998 22:49:33 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: order of declaration - my, local, anonymous sub
Message-Id: <ErKy2o.288@world.std.com>
"Phil R Lawrence" <prl2@lehigh.edu> writes:
>I want to cleanly exit my program when hit with a CTRL-C. Following are two
>snippets of code - the 1st works, the 2nd doesn't. Can someone help me find
>out why?
(By the way, you are probably doing too much inside the signal
handler. You are probably best off wrappping everything inside an
"eval {}" and having the signal handler just call "die". Unfortunatly,
with state of signals in perl right now, even thing isn't guarenteed
to work 100% of the time. But I guess by 5.005, you should be able to
do whatever you want in the handler.)
>First Version:
[stuff deleted]
> my $dbh;
> local $SIG{"INT"} = sub {
>Second Version:
[stuff deleted]
> local $SIG{"INT"} = sub {
[more deleted]
> my $dbh;
The first creates a lexically local variable called $dbh, and then the
anonomous subroutine saves a reference to that variable for use when
it is called. (See the stuff in the perlref man page about closures
for details.) If it wasn't for closures, $dbh may be out of scope at
the time the anonomous subroutine is called. Lexical scope is roughly
the from the creation of the variable to the end of the block it is
defined in, including any inner blocks. It is not in scope in any
subroutines called within the block.
Since the second one creates the anonoumous subroutine before the
lexically local $dbh is created, since the variable does not exist,
and since diagnostics about strict references were disabled, the
anonomous subroutine uses the global $dbh. After the sub is created,
you create a lexically local $dbh which hides the visiblity of the
global $dbh.
Or you could make $dbh dynamically scoped with the local($dbh)
operator, and it would be available globally during the course of
execution of report().
Again, I think you would be best off by saying:
sub report {
my $dbh;
# and the other declarations.
eval {
local($SIG{INT}) = sub { die 'Interrupt Exception'; };
# do the normal connect, and report stuff.
};
die $@ unless $@ =~ /^Interrupt Exception/;
# or do you do your own cleanup before you rethow?
$dbh->disconnect if ($dbh);
# and other cleanup
}
and then you only have to disconnect from the database once, whether
you end because of the iterrupt, or through the normal course of your
code.
--
Andrew Langmead
------------------------------
Date: Thu, 16 Apr 1998 05:47:17 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: perl from webpage dont work. perl works local but not as cgi.
Message-Id: <35358a02.13855325@news.btinternet.com>
On 17 Apr 98 12:32:25 GMT, "IceStaff" <acidbolt@yahoo.com> wrote:
>hi
>here is some code i took from a webpage that doesent work.
<snip>
This is code is fine as it goes it comes from perlipc
>and here is code that works local but not as cgi
>#!/usr/local/bin/perl
>use IO::Socket;
>
Of course that code would not do much as a CGI except for creating for
creating some errors about missing headers, but you knew that didnt
you?
It would be useful to know what the error was but I have a feeling
that you are using a different perl and set of libraries without
IO::Socket when you are running as a CGI program. You might make a
program that prints out some diagnostic stuff (perl version, contents
of @INC etc) which will work both from command line and as CGI and
compare the results. This should give you some pointers.
By the way the Web client example you cited would now be better
implemented using libwww-perl (LWP) which provides far greater
functionality unless you have some special requirement that is not
catered for by the library.
/J\
Jonathan Stowe
See the MetaFaq at http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm
------------------------------
Date: Fri, 17 Apr 1998 18:01:11 -0400
From: "LOI N PHAM" <LPHAM@prodigy.net>
Subject: Perl/Tcl
Message-Id: <6h8jid$2a7i$1@newssvr04-int.news.prodigy.com>
I'm trying to call (or learning how to call) Tcl-based libraries in
Netscape Enterprise Server/Unix environment.
1. If I install Tcl extension module for Perl5, then I can instantiate
Tcl interpreter as Per5 object, and excute embedded Tcl code. I saw
Tcl extension for Perl5 is still in beta1 in CPAN, how reliable is this
beta module? Is there any other Tcl extension for Perl5 available?
2. Alternatively, I can use straight Tcl code to generate HTML pages.
Pro's and con's against using Tcl extension for Perl5?
3. Is there a "Tcl for Win32" (like "Perl for Win32")?
Many thanks in advance,
Loi
------------------------------
Date: 17 Apr 1998 22:20:07 GMT
From: eric@logrus.berkeley.edu (Eric van Bezooijen)
Subject: perl4 bug ?
Message-Id: <6h8kin$coq@masters0.InterNex.Net>
Is this a bug ? Is there a fix for it (besides upgrading to perl5) ?
This perl script:
&B;
sub B {
local ($y);
$y = "foo";
&A($y);
}
sub A {
local ($y);
print "@_\n";
}
Produces a blank line on perl4, and outputs "foo" in perl5.
3:06pm eric@logrus /tmp > perl -v
This is perl, version 4.0
$RCSfile: perl.c,v $$Revision: 4.0.1.8 $$Date: 1993/02/05 19:39:30 $
Patch level: 36
3:06pm eric@logrus /tmp > perl5 -v
This is perl, version 5.004_01
--
Eric van Bezooijen eric@activesw.com http://www.activesw.com/~eric
"But the meaning of life is a mystery, that we don't understand so far.
And the music of life is a rhapsody if you're happy the way that you are"
- "Freudiana" [Above are my opinions. If you don't like them, get your own!]
------------------------------
Date: Fri, 17 Apr 1998 23:08:20 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
To: eric@logrus.berkeley.edu (Eric van Bezooijen)
Subject: Re: perl4 bug ?
Message-Id: <8cd8egdp35.fsf@gadget.cscaper.com>
>>>>> "Eric" == Eric van Bezooijen <eric@logrus.berkeley.edu> writes:
Eric> Is this a bug ? Is there a fix for it (besides upgrading to perl5) ?
Eric> This perl script:
Eric> &B;
Eric> sub B {
Eric> local ($y);
Eric> $y = "foo";
Eric> &A($y);
Eric> }
Eric> sub A {
Eric> local ($y);
Eric> print "@_\n";
Eric> }
Eric> Produces a blank line on perl4, and outputs "foo" in perl5.
Yes. Variable suicide. Fixed in Perl5. As you can see.
The fix is *upgrade to perl5*. It doesn't cost money. Do it now.
Before your system gets hacked with a buffer overflow in perl4.
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 136 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Thu, 16 Apr 1998 05:47:23 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: Problems running perl from html under NT--2nd try
Message-Id: <353596d2.16900422@news.btinternet.com>
On Thu, 16 Apr 1998 16:16:49 -0400, Tom Broadstock
<broadstockt@saic.com> wrote:
>I am having problems using the submit button on a html form to call a
>perl script and generate a new html page. How is this done in the NT
>environment using IIS 4.0?
Just about the same as it is done in any environment. Issues around
the configuration of a server to enable it to perform CGI using Perl
are outside the scope of this Newsgroup.
>Perl will run from the command line but I
>need it to run from the browser.
Perl is never run from the browser the server runs it .
>Sample html
HTML is totally unrelated to Perl. However you might just try viewing
the source of a form you next see on the web if your browser permits
it.
> and perl code
>demonstrating a simple example that uses a form and submit would be
>appreciated.
Assuming you have the "standard" Win32 port of Perl then you will have
the CGI module as part of the distribution. The documentation for
this is very complete and contains a full example for your study.
/J\
Jonathan Stowe
See the MetaFaq at http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm
------------------------------
Date: Fri, 17 Apr 1998 16:03:57 -0800
From: ~arthur <star@sonic.net>
Subject: Re: Proplem with perl script (I'm new to perl)
Message-Id: <3537EDEC.2FF2@sonic.net>
Hey Toby,
The script worked for me (yeah).So can't help you because you are all
right and don't even know it. Don't you hate that!;+)
~arthur
------------------------------
Date: Fri, 17 Apr 1998 23:11:33 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
To: Toby Heywood <toby@he-net.demon.co.uk>
Subject: Re: Proplem with perl script (I'm new to perl)
Message-Id: <8c90p4doxr.fsf@gadget.cscaper.com>
>>>>> "Toby" == Toby Heywood <toby@he-net.demon.co.uk> writes:
Toby> This is a multi-part message in MIME format.
Toby> --------------5643F6886BE93374BBED6759
Please don't do that on Usenet. A MIME is a terrible thing to waste.
Toby> I have just started to learn to write perl scripts, I am using the book
Toby> Learning Perl.
I'm pretty familiar with that book, I must say. :-)
Toby> while ($correct == "maybe") { # is the guess correct or not?
No. Don't use ==, meaning "numeric comparison" on strings.
Toby> Content-Type: text/x-vcard; charset=us-ascii; name="vcard.vcf"
Ewww. vcards. Doublely lame.
Most sane people just killfile *all* MIME. By that definition, I
am therefore ____ :-)
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 136 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: 17 Apr 1998 19:20:54 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: Proplem with perl script (I'm new to perl)
Message-Id: <n2dkvv2x.fsf@mailhost.panix.com>
Toby Heywood <toby@he-net.demon.co.uk> writes:
> This is a multi-part message in MIME format.
Toby, please do not post in MIME. Please check the settings of your
news program, and make sure that MIME is turned off. Plain text is
what we like.
> while ($correct == "maybe") { # is the guess correct or not?
> Argument "maybe" isn't numeric in eq at perl_exercise_5 line 16, <STDIN>
> chunk2.
You're using the == operator, which is for the comparison of
*numbers*. To compare two values as strings, you need to use the eq
operator.
while ($foo eq 'some_string') {
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
Date: Fri, 17 Apr 1998 19:26:25 -0400
From: "Grinch" <grinch@whoville.com>
Subject: Re: Proplem with perl script (I'm new to perl)
Message-Id: <6h8nk7$r3u@fridge.shore.net>
Toby Heywood wrote in message <35378983.59A28DF0@he-net.demon.co.uk>...
>I have just started to learn to write perl scripts, I am using the book
>Learning Perl.
Good choice!
>I have gotten upto what I have called the 5 exercise, and have been
>trying to debug my script.
Doing the exercises, too... Good job!
>Anyway, I used the the -w flag for trying to debug the script
Doing all the right things... :-)
>Argument "maybe" isn't numeric in eq at perl_exercise_5 line 16, <STDIN>
>chunk2.
The warning refers to this line:
> while ($correct == "maybe") { # is the guess correct or not?
The "==" operator here is used to compare numeric values. The equivalent
operator used for comparing strings is "eq".
Keep up the good work!
-grinch
--
-----
"Yes, I'm paranoid, but that doesn't mean
no one's out to get me." - me
Sherm Pendley
grinch@whoville.com
http://www.whoville.com
------------------------------
Date: Thu, 16 Apr 1998 05:47:22 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: reading values from multi-select list
Message-Id: <353591b5.15709593@news.btinternet.com>
On Fri, 17 Apr 1998 08:35:06 -0700, Glenn Schworak
<Glenn.J.Schworak@state.or.us> wrote:
<snip>
>
>$mypage->param('listbox') will hold the entire list of all selected
>items.
>@mylist = $mypage->param('listbox') only copies out the 1st item in the
>list
>
If you are using CGI.pm then there should be no problem at all with
this - I am not sure of the provenance of "cgi.pl" so couldnt possibly
comment on that except to say that the behaviour you describe is
peculiar to say the least - perhaps some more of your code would
enlighten further.
I would suggest getting the CGI module from CPAN and using that as
this certainly the method of choice for perl/CGI.
/J\
Jonathan Stowe
See the MetaFaq at http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm
------------------------------
Date: 17 Apr 1998 19:04:29 -0400
From: kcohen@julius.ling.ohio-state.edu (Kevin B Cohen)
Subject: Re: recursive fuctions
Message-Id: <6h8n5t$5nt@julius.ling.ohio-state.edu>
>On Wed, 15 Apr 1998, Byron Jones wrote:
>
>> i want to write a perl script that renames files to 8.3, creating unique
>> names as needed. the function needs to process subdirectories recusively.
one thing i was surprised (though i guess i shouldn't have been) to
discover recently is that if you use strict (as you do in the script
you posted), my'd variables in main are not accessible by subroutines
called by main, and must be passed to them if you want the subs to
have their data. makes sense, i guess-- i just expected main to be
different from a subroutine. guess i was wrong.
i don't have nigel chapman's book "perl: the programmer's companion"
handy, but i believe it talks about recursive functions.
kevin
------------------------------
Date: 17 Apr 98 21:59:38 GMT
From: mikeh@minivend.com (Mike Heins)
Subject: Re: Snobby news group
Message-Id: <3537d0ca.0@news.one.net>
Bob Trieger <sowmaster@juicepigs.com> wrote:
> Phil Ptkwt Kristin wrote:
> > Database Coder wrote:
> > >
> > >helping people learn to answer there own questions figures heavily
> > >into the philosophy of a lot of people here.
> >
> > You know what they say, Give a man a fish and he eats for a day. Teach a
> > man how to fish and he has food for a lifetime... Or to paraphrase: give a
> > man an opened oyster and he won't get any peals, teach him how to shuck
> > his hown oysters and he can find his own pearls. ;-)
>
> Excellent quotes. Sometimes I wonder if these whiners that don't
> understand the concept of teaching somebody to fend for themselves have
> teenage offspring still in diapers and getting bottle-fed.
I don't know how common that is, but I know if they practice what they
preach they might easily have 30-ish children still living at home. 8-)
Or maybe those unfortunate offspring are the ones complaining...
--
Mike Heins http://www.minivend.com/ ___
Internet Robotics |_ _|____
Just because something is 131 Willow Lane, Floor 2 | || _ \
obviously happening doesn't Oxford, OH 45056 | || |_) |
mean something obvious is <mikeh@minivend.com> |___| _ <
happening. --Larry Wall 513.523.7621 FAX 7501 |_| \_\
------------------------------
Date: Fri, 17 Apr 1998 22:04:45 GMT
From: jgloudon@manitoba.bbn.com (Jason Gloudon)
Subject: Re: Solaris Perl install: I am NOT using GNU as(1)!!!!!!
Message-Id: <slrn6jfkam.chk.jgloudon@manitoba.bbn.com>
Chris_Schoenfeld@sonic.net <Chris_Schoenfeld@sonic.net> wrote:
>I am trying desperately to build Perl5.004_04 on s Sparc Solaris 2.5.1 box.
>I have done this a zillion times on other Sparcs (OK, about 12 times).
>
>Anyways...
>
>Configure insists that I am using GNU as(1) but I am not.
Could you quote the message it gives that says this ?
--
Jason Gloudon
------------------------------
Date: 17 Apr 1998 15:16:06 -0700
From: Darryl Lee <lee@spam-me-not-darryl.com>
Subject: Re: Wanna laugh? (My First cgi.pm Script)
Message-Id: <notyou.892850011@shell3.ba.best.com>
Follow-ups from:
: Craig Berry : Tad McClellan : Mark-Jason Dominus : Bart Lateur : John Porter
: Jay Flaherty : Will Smith : John Klassa :
Hey...thanks a lot guys for the suggestions, critiques, and
encouragement. i've already implemented some of the easier changes,
and will look into the more advanced stuff sometime soon.
You've restored my faith in what newsgroups can be. :}
--
Darryl Lee <lee@GOTSPAM?darryl.com> | Lame website: <http://www.darryl.com>
Thanks for the SPAM, Sanford. Why don't _you_ have some? >:}
<domreg@cyberpromo.com> <domreg@cyberpromo.com> <domreg@cyberpromo.com>
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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 V8 Issue 2355
**************************************
