[16794] in Perl-Users-Digest
Perl-Users Digest, Issue: 4206 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Sep 2 00:10:45 2000
Date: Fri, 1 Sep 2000 21:10:25 -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: <967867823-v9-i4206@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 1 Sep 2000 Volume: 9 Number: 4206
Today's topics:
Re: open web file (Abigail)
Re: open web file (Eric Bohlman)
Re: open web file (Abigail)
Re: open web file (Abigail)
Re: open web file <jerry@j3iss.com>
Re: open web file (Gwyn Judd)
Re: open web file <wyzelli@yahoo.com>
Re: open web file (Abigail)
Re: open web file (Gwyn Judd)
Re: open web file (Gwyn Judd)
Re: open web file (Abigail)
Re: Unidentified Subroutine <tina@streetmail.com>
using client cookies with LWP (Tony Darnell)
Re: using client cookies with LWP <rmore1@my-deja.com>
Re: using unix commands within perl script <johan.brattemark@net2000.ch>
Re: working out signatures <Jonathan.L.Ericson@jpl.nasa.gov>
Re: working out signatures (Gwyn Judd)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 02 Sep 2000 01:06:43 GMT
From: abigail@foad.org (Abigail)
Subject: Re: open web file
Message-Id: <slrn8r0kje.8ac.abigail@alexandra.foad.org>
Jeff Zucker (jeff@vpservices.com) wrote on MMDLIX September MCMXCIII in
<URL:news:39B04F4F.80C94C4F@vpservices.com>:
-: Gwyn Judd wrote:
-: >
-: > I was shocked! How could Larry Rosler <lr@hpl.hp.com>
-: > say such a terrible thing:
-: > >Wouldn't the scheme part of a URI ('http://' for example) uniquely
-: > >disambiguate it from a file-system pathname, absolute or relative?
-: >
-: > perversely, no it wouldn't. 'http://www.blah.com' is a perfectly valid
-: > filename on my system at least.
-:
-: The URI of that file would be something like
-: "file:///http://www.blah.com".
No. On a platform that uses '/' as separator, the URL would be:
file:///http:/www.blah.com
On a platform that uses ':' as a separator, the URL would be:
file:///http/%2F%2Fwww.blah.com
On a platform that uses '.' as a separator, the URL would be:
file:///http:%2F%2Fwww/blah/com
Abigail
--
sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@);
print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.| |d)&&$llama."\n");
------------------------------
Date: 2 Sep 2000 01:08:58 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: open web file
Message-Id: <8opjva$3d5$2@slb7.atl.mindspring.net>
Gwyn Judd (tjla@guvfybir.qlaqaf.bet) wrote:
: I was shocked! How could Abigail <abigail@foad.org>
: say such a terrible thing:
: >Gwyn Judd (tjla@guvfybir.qlaqaf.bet) wrote on MMDLVIII September MCMXCIII
: >in <URL:news:slrn8r0egu.ioe.tjla@thislove.dyndns.org>:
:
: >Consider why open() has all this wonderful magic like "-", pipe opens,
: >opening file descriptor, or duplicating file descriptors. Consider that
: >we are talking about Perl, the DWIM language, the language that serves
: >the programmer instead of having the programmer serve the language.
A number of people, including Joel Spolsky
(<URL:http://joel.editthispage.com>) have argued, IMHO persuasively, that
while DWIMmery that attempts to make remote resources indistinguishable
from local resources is superficially attractive, it is in fact a Bad Idea
simply because remote resources are subject to availability and latency
concerns that local resources aren't and no amount of DWIMmery can make
that transparent; all it can do is make those concerns harder to deal
with.
------------------------------
Date: 02 Sep 2000 01:19:54 GMT
From: abigail@foad.org (Abigail)
Subject: Re: open web file
Message-Id: <slrn8r0lc5.8ac.abigail@alexandra.foad.org>
Gwyn Judd (tjla@guvfybir.qlaqaf.bet) wrote on MMDLIX September MCMXCIII
in <URL:news:slrn8r0k9b.ioe.tjla@thislove.dyndns.org>:
'' I was shocked! How could Abigail <abigail@foad.org>
'' say such a terrible thing:
'' >Gwyn Judd (tjla@guvfybir.qlaqaf.bet) wrote on MMDLVIII September MCMXCIII
'' >in <URL:news:slrn8r0egu.ioe.tjla@thislove.dyndns.org>:
''
'' >Consider why open() has all this wonderful magic like "-", pipe opens,
'' >opening file descriptor, or duplicating file descriptors. Consider that
'' >we are talking about Perl, the DWIM language, the language that serves
'' >the programmer instead of having the programmer serve the language.
''
'' Okay so how would you handle stuff like authentication, customising
'' headers, POST and so on?
Ah, another argument to get rid of open(). How would you handle opening
files in exclusive mode with open()? How would you open (create) a file
with a certain permission with open()? You can't do that, and yet, that
has not been a reason not to create open(). There is sysopen() for the
special cases. So, there's LWP for the special cases of fetching a file.
It's not the special cases that are important. It's the common case.
'' >As for confusing, ask yourself, how often do people have a file called
'' >"www.slashdot.org" in a directory "http:", while at the same moment writing
'' >two path separators between directory name and file name. Isn't that a bit
'' >far fetched?
''
'' Not at all. I have one there right now. Do you think it is right that
'' for the difference of two characters in the open statement it would
'' either read from a local file or go out on the web?
Do you think it's right that the difference of one (half of two!) character
determines whether a file is opened for reading or writing? Do you think
it's right that for the difference of one character in the open statement
it would either read from a local file or go out on the web AS IT CAN BE
DONE RIGHT NOW?
open my $fh => 'GET http://www.perl.com |' or die;
doesn't open the file with the perfectly legal filename
"GET http://www.perl.com |", but goes out on the web.
Can I assume you are currently writing an RFC to have open() removed
from perl6?
Please, *do* consider what open() already does.
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
------------------------------
Date: 01 Sep 2000 21:32:14 EDT
From: abigail@foad.org (Abigail)
Subject: Re: open web file
Message-Id: <slrn8r0m3b.8ac.abigail@alexandra.foad.org>
Eric Bohlman (ebohlman@netcom.com) wrote on MMDLIX September MCMXCIII in
<URL:news:8opjva$3d5$2@slb7.atl.mindspring.net>:
,, Gwyn Judd (tjla@guvfybir.qlaqaf.bet) wrote:
,, : I was shocked! How could Abigail <abigail@foad.org>
,, : say such a terrible thing:
,, : >Gwyn Judd (tjla@guvfybir.qlaqaf.bet) wrote on MMDLVIII September MCMXCIII
,, : >in <URL:news:slrn8r0egu.ioe.tjla@thislove.dyndns.org>:
,, :
,, : >Consider why open() has all this wonderful magic like "-", pipe opens,
,, : >opening file descriptor, or duplicating file descriptors. Consider that
,, : >we are talking about Perl, the DWIM language, the language that serves
,, : >the programmer instead of having the programmer serve the language.
,,
,, A number of people, including Joel Spolsky
,, (<URL:http://joel.editthispage.com>) have argued, IMHO persuasively, that
,, while DWIMmery that attempts to make remote resources indistinguishable
,, from local resources is superficially attractive, it is in fact a Bad Idea
,, simply because remote resources are subject to availability and latency
,, concerns that local resources aren't and no amount of DWIMmery can make
,, that transparent; all it can do is make those concerns harder to deal
,, with.
So, that would mean no pipe opens, or open (or sysopen!) on an NFS
filesystem either?
Hmmm, perhaps open() on a busy system should issue a non-trappable error
as well. "open failed: too many latency possibilities!".
One would assume the person asking to access a resource is aware of what
he/she is doing.
Abigail
--
perl -wlne '}for($.){print' file # Count the number of lines.
------------------------------
Date: Fri, 01 Sep 2000 20:28:58 -0500
From: Jerry Jorgenson <jerry@j3iss.com>
Subject: Re: open web file
Message-Id: <838C69DE8E1ED40B.F6B69FE9E590CDAA.9570AFFD75DD5F61@lp.airnews.net>
Abigail wrote:
> [snipped]
> As for confusing, ask yourself, how often do people have a file called
> "www.slashdot.org" in a directory "http:", while at the same moment writing
> two path separators between directory name and file name. Isn't that a bit
> far fetched?
>
> Abigail
> --
> perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
> "\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
> "\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
I guess you've never seen my users at work :-)
--
Jerry Jorgenson
jerry@j3iss.com
http://www.j3iss.com/
------------------------------
Date: Sat, 02 Sep 2000 01:55:26 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: open web file
Message-Id: <slrn8r0ngc.ioe.tjla@thislove.dyndns.org>
I was shocked! How could Abigail <abigail@foad.org>
say such a terrible thing:
>Gwyn Judd (tjla@guvfybir.qlaqaf.bet) wrote on MMDLIX September MCMXCIII
>in <URL:news:slrn8r0k9b.ioe.tjla@thislove.dyndns.org>:
>'' Okay so how would you handle stuff like authentication, customising
>'' headers, POST and so on?
>
>Ah, another argument to get rid of open(). How would you handle opening
You are putting words into my mouth. Actually I like the open/sysopen
distinction. I wonder if there would be a good thing to make open()
extensible so that if you wanted you could attach a filter to it from
perl code that would look for stuff like /^http:/ and do some custome
thing?
>doesn't open the file with the perfectly legal filename
>"GET http://www.perl.com |", but goes out on the web.
>
>Can I assume you are currently writing an RFC to have open() removed
>from perl6?
I *don't* think so. If people are going to add stuff to open() then
don't you think it's a good idea to have a discussion about it first and
try to work out potential problems?
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
Eat shit -- billions of flies can't be wrong.
------------------------------
Date: Sat, 2 Sep 2000 11:40:29 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: open web file
Message-Id: <IpZr5.6$_j.2494@vic.nntp.telstra.net>
"Gwyn Judd" <tjla@guvfybir.qlaqaf.bet> wrote in message
news:slrn8r0k9b.ioe.tjla@thislove.dyndns.org...
>
> Not at all. I have one there right now. Do you think it is right that
> for the difference of two characters in the open statement it would
> either read from a local file or go out on the web?
>
Do you think it is right that for the difference of one character in the
open statement you can read a file or erase that file?
That comes down to the programmer knowing what to do, and using the
appropriate syntax.
Wyzelli
------------------------------
Date: 01 Sep 2000 22:18:03 EDT
From: abigail@foad.org (Abigail)
Subject: Re: open web file
Message-Id: <slrn8r0op7.8ac.abigail@alexandra.foad.org>
Gwyn Judd (tjla@guvfybir.qlaqaf.bet) wrote on MMDLIX September MCMXCIII
in <URL:news:slrn8r0ngc.ioe.tjla@thislove.dyndns.org>:
`' I was shocked! How could Abigail <abigail@foad.org>
`' say such a terrible thing:
`' >Gwyn Judd (tjla@guvfybir.qlaqaf.bet) wrote on MMDLIX September MCMXCIII
`' >in <URL:news:slrn8r0k9b.ioe.tjla@thislove.dyndns.org>:
`' >'' Okay so how would you handle stuff like authentication, customising
`' >'' headers, POST and so on?
`' >
`' >Ah, another argument to get rid of open(). How would you handle opening
`'
`' You are putting words into my mouth. Actually I like the open/sysopen
`' distinction. I wonder if there would be a good thing to make open()
`' extensible so that if you wanted you could attach a filter to it from
`' perl code that would look for stuff like /^http:/ and do some custome
`' thing?
No, that would still require the programmer adding code. The cool thing
about magic open is that if you now have a program that takes a file
as argument, reads it, and does something with the argument, you could
simple give it '-' or 'program |' as arguments and have it process STDIN
or the output of a pipe. Without each and every programmer having to be
aware of the possibility. Tom Christianses has sung many praises in this
forum about that feature. Considering what has happened the past decade
in accessing remote resources, adding some more magic to open() is only
natural. It fits in the paradigm.
`' >doesn't open the file with the perfectly legal filename
`' >"GET http://www.perl.com |", but goes out on the web.
`' >
`' >Can I assume you are currently writing an RFC to have open() removed
`' >from perl6?
`'
`' I *don't* think so. If people are going to add stuff to open() then
`' don't you think it's a good idea to have a discussion about it first and
`' try to work out potential problems?
Perhaps, but all the arguments you've come up apply to the current open()
as well. Hence, I assume you'd like to see open() gone.
Abigail
--
perl -wle '$, = " "; sub AUTOLOAD {($AUTOLOAD =~ /::(.*)/) [0];}
print+Just (), another (), Perl (), Hacker ();'
------------------------------
Date: Sat, 02 Sep 2000 03:04:18 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: open web file
Message-Id: <slrn8r0rhg.k0a.tjla@thislove.dyndns.org>
I was shocked! How could Abigail <abigail@foad.org>
say such a terrible thing:
>Gwyn Judd (tjla@guvfybir.qlaqaf.bet) wrote on MMDLIX September MCMXCIII
>in <URL:news:slrn8r0ngc.ioe.tjla@thislove.dyndns.org>:
>`' I was shocked! How could Abigail <abigail@foad.org>
>`' say such a terrible thing:
>`' distinction. I wonder if there would be a good thing to make open()
>`' extensible so that if you wanted you could attach a filter to it from
>`' perl code that would look for stuff like /^http:/ and do some custome
>`' thing?
>
>No, that would still require the programmer adding code. The cool thing
Not necessarily. It could be done by a module so that anyone who uses
that module gains the magic'ness that module has added to open. I'm
really talking about making open() extensible.
>about magic open is that if you now have a program that takes a file
>as argument, reads it, and does something with the argument, you could
>simple give it '-' or 'program |' as arguments and have it process STDIN
>or the output of a pipe. Without each and every programmer having to be
>aware of the possibility. Tom Christianses has sung many praises in this
>forum about that feature. Considering what has happened the past decade
>in accessing remote resources, adding some more magic to open() is only
>natural. It fits in the paradigm.
Oh I agree actually...having someone type in http://blah.blah.com and
have it open it from the web actually seems a lot easier from a user
point of view...after all you can't expect everyone to know what
'program |' does.
>Perhaps, but all the arguments you've come up apply to the current open()
>as well. Hence, I assume you'd like to see open() gone.
Not at all, I'm just interested in what is The Right Thing.
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
Of course, it's very easy to be witty tomorrow, after you get a chance
to do some research and rehearse your ad libs.
-Joey Adams
------------------------------
Date: Sat, 02 Sep 2000 03:04:40 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: open web file
Message-Id: <slrn8r0ri6.k0a.tjla@thislove.dyndns.org>
I was shocked! How could Wyzelli <wyzelli@yahoo.com>
say such a terrible thing:
>"Gwyn Judd" <tjla@guvfybir.qlaqaf.bet> wrote in message
>news:slrn8r0k9b.ioe.tjla@thislove.dyndns.org...
>>
>> Not at all. I have one there right now. Do you think it is right that
>> for the difference of two characters in the open statement it would
>> either read from a local file or go out on the web?
>>
>
>Do you think it is right that for the difference of one character in the
>open statement you can read a file or erase that file?
touche :)
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
Ferdinand Lundberg's Law: There is such thing as a "cheap politician."
------------------------------
Date: 01 Sep 2000 23:25:52 EDT
From: abigail@foad.org (Abigail)
Subject: Re: open web file
Message-Id: <slrn8r0soc.8ac.abigail@alexandra.foad.org>
Gwyn Judd (tjla@guvfybir.qlaqaf.bet) wrote on MMDLIX September MCMXCIII
in <URL:news:slrn8r0rhg.k0a.tjla@thislove.dyndns.org>:
][
][ Not necessarily. It could be done by a module so that anyone who uses
][ that module gains the magic'ness that module has added to open. I'm
][ really talking about making open() extensible.
But then you still require an explicit use of the module.
Abigail
--
$"=$,;*{;qq{@{[(A..Z)[qq[0020191411140003]=~m[..]g]]}}}=*_;
sub _ {push @_ => /::(.*)/s and goto &{ shift}}
sub shift {print shift; @_ and goto &{+shift}}
Hack ("Just", "Perl ", " ano", "er\n", "ther "); # 20000901
------------------------------
Date: 2 Sep 2000 02:33:44 GMT
From: Tina Mueller <tina@streetmail.com>
Subject: Re: Unidentified Subroutine
Message-Id: <8opou8$bhbvf$2@ID-24002.news.cis.dfn.de>
hi,
Ed Capriola <edcap@netcom2.netcom.com> wrote:
> want to set the value in $SS::script to the name of the invoked program=
. The CGI.pm function script_name() did that untill I tried to use it in =
a module I created. Can I get the SS.pm to use the CGI.pm function.
> Undefined subroutine &SS::script_name called at /usr/lib/perl5/5.00503/S=
S.pm line6. Begin failed--compilation aborted at ./xt line 3.
> File xt:
> #!/usr/bin/perl
> use CGI qw(:standard :html3);
> use SS;
> file SS.pm
> package SS;
> $SS::script =3D script_name();
this doesn't work because script_name is searched in
the package SS; either you have to call it with=20
CGI::script_name or you have to do:
package main;
script_name();
i would recommend the first one; i almost always
call CGI without :standard and create a CGI object.
(maybe there's another way, but i don't know)
tina
--=20
$|++;$\=3D"\r";${"}--;@a=3Dqw(. o O);$c=3D"!Foufs!uif!Eppst!Pg!Qfsdfqujpo-=
";$=A7=3D"_"x31;
%_=3Dmap{($r++,chr(ord($_)+$"))}split//,$c;until($=A7!~m~_~){$o=3Dint(rand=
28)+65;next
if$s{$o}++;$o=3D=3D91?$o=3D44:($o=3D=3D92?$o=3D32:0);$g=3Dchr$o;for(0..30)=
{if($_{$_}=3D~m)$g)i)
{for$m(@a,$_{$_}){substr$=A7,$_,$|,$m;print$=A7;select$/,$/,$/,0.1}}}print=
$=A7}print$/
------------------------------
Date: Fri, 01 Sep 2000 22:50:53 -0400
From: tonyd7@mindspring.com (Tony Darnell)
Subject: using client cookies with LWP
Message-Id: <tonyd7-0109002250540001@user-38lcnut.dialup.mindspring.com>
I am trying to write a Perl script that will download web pages from sites
that require a cookie.
I am a newbie, and I am not asking for a handout, but I have been banging
my head for weeks.
I can get regular web pages with LWP, but I can't pass any cookie
information to the web server.
Any help is appreciated...
Thanks,
Tony
------------------------------
Date: Sat, 02 Sep 2000 03:29:30 GMT
From: Rich More <rmore1@my-deja.com>
Subject: Re: using client cookies with LWP
Message-Id: <8ops67$a6c$1@nnrp1.deja.com>
In article <tonyd7-0109002250540001@user-38lcnut.dialup.mindspring.com>,
tonyd7@mindspring.com (Tony Darnell) wrote:
> I am trying to write a Perl script that will download web pages from
sites
> that require a cookie.
>
> I am a newbie, and I am not asking for a handout, but I have been
banging
> my head for weeks.
>
> I can get regular web pages with LWP, but I can't pass any cookie
> information to the web server.
perldoc HTTP::Cookies
and from: perldoc LWP::UserAgent
$ua->cookie_jar([$cookies])
Get/set the HTTP::Cookies object to use. The default
is to have no cookie_jar, i.e. never automatically add
"Cookie" headers to the requests.
see also: perldoc lwpcook
--
=============================
Richard More
http://www.richmore.com/
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sat, 2 Sep 2000 00:55:57 +0200
From: "Johan Brattemark" <johan.brattemark@net2000.ch>
Subject: Re: using unix commands within perl script
Message-Id: <8opbk0$2od$1@news.swissonline.ch>
"Emma Stoten" <E.L.Stoten@ncl.ac.uk> wrote in message
news:39AFC0CD.4243F90@ncl.ac.uk...
> I'm trying to use a unix command within a perl script:
>
> system(`COMMAND`);
>
> I've tried using all three types of quotes, and still it doesn't work
> when executed. The command works at the command line and -c and -w
> options don't shed any light.
>
> I've exhausted all other lines of enquiry and hope someone can offer
> some advice.
>
> Cheers,
> Emma Stoten
I think you should user either
$now = `COMMAND`;
or
system("COMMAND")
Johan
------------------------------
Date: Fri, 01 Sep 2000 13:26:07 -0700
From: Jon Ericson <Jonathan.L.Ericson@jpl.nasa.gov>
Subject: Re: working out signatures
Message-Id: <39B010DF.60F9DE5@jpl.nasa.gov>
matt venn wrote:
> im trying to work out one of abigail's signatures, but im getting
> nowhere.
>
> im sure i read in a post to this newsgroup details on how to get perl
> to show you what is has parsed the script to. this would help me out,
> as i dont even understand how this particular script is parsed.
B::Deparse can help a bit. Run using 'perl -MO=Deparse'
> the particular signature im working on is:
>
> perl -e '$_ = q *4a75737420616e6f74686572205065726c204861636b65720a*;
> for ($*=******;$**=******;$**=******) {$**=*******s*..*qq}
> print chr 0x$& and q
> qq}*excess********}'
Here is the deparsed output:
$_ = '4a75737420616e6f74686572205065726c204861636b65720a';
$* = ** ** **;
while ($* *= ** ** **) {
$* *= ** ** ** * s/../"\n print chr 0x$& and q\n
qq";/exes
** ** ** **;
}
continue {
$* *= ** ** **
}
Not much better.
Jon
--
Knowledge is that which remains when what is
learned is forgotten. - Mr. King
------------------------------
Date: Sat, 02 Sep 2000 03:06:08 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: working out signatures
Message-Id: <slrn8r0rku.k0a.tjla@thislove.dyndns.org>
I was shocked! How could Jon Ericson <Jonathan.L.Ericson@jpl.nasa.gov>
say such a terrible thing:
>matt venn wrote:
>> im trying to work out one of abigail's signatures, but im getting
>> nowhere.
>>
>> im sure i read in a post to this newsgroup details on how to get perl
>> to show you what is has parsed the script to. this would help me out,
>> as i dont even understand how this particular script is parsed.
>
>B::Deparse can help a bit. Run using 'perl -MO=Deparse'
>
>> the particular signature im working on is:
>>
>> perl -e '$_ = q *4a75737420616e6f74686572205065726c204861636b65720a*;
>> for ($*=******;$**=******;$**=******) {$**=*******s*..*qq}
>> print chr 0x$& and q
>> qq}*excess********}'
>
>Here is the deparsed output:
<snip>
>Not much better.
Actually I found that running it with '-w' helped more than B::Deparse
did. Sometimes the simple tools are the best.
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
Ah, but a man's grasp should exceed his reach,
Or what's a heaven for ?
-- Robert Browning, "Andrea del Sarto"
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 4206
**************************************
