[11097] in Perl-Users-Digest
Perl-Users Digest, Issue: 4697 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jan 20 05:05:32 1999
Date: Wed, 20 Jan 99 02:00:16 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 20 Jan 1999 Volume: 8 Number: 4697
Today's topics:
Re: "Back button" in CGI script <hayati@ocf.Berkeley.EDU>
Re: Copying Filetrees / Perl Win32 <collin.starkweather@colorado.edu>
Re: Don't grok closure behavior w/memory (Abigail)
Re: error handling (Abigail)
Re: f (Abigail)
Re: flock <tchrist@mox.perl.com>
Re: Help sought with complex extraction/report (Abigail)
Re: How to best process a large CGI form? (J|rgen P|nter)
Re: How to get IP address of a local machine under NT (Abigail)
Re: newbie - endless loop on simple program. (Abigail)
Re: Newbie Perl CGIer needs fast help! Posting to URL (Abigail)
Re: Perl Criticism <uri@home.sysarch.com>
Re: Perl Criticism <pdcawley@bofh.org.uk>
Re: Perl Password Hiding Challenge (Abigail)
Re: Perl to C++ converter? <tchrist@mox.perl.com>
problem with Data::Dumper <a.barry@ix.netcom.com>
Re: Statistics for comp.lang.perl.misc (Ronald J Kimball)
Re: Statistics for comp.lang.perl.misc (Abigail)
test <simon@itc.cn.net>
Re: Verify an email address loewphoe@escape.ca
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 19 Jan 1999 21:30:05 -0800
From: Katia Hayati <hayati@ocf.Berkeley.EDU>
Subject: Re: "Back button" in CGI script
Message-Id: <Pine.SOL.3.96.990119212810.17475A-100000@apocalypse.OCF.Berkeley.EDU>
On 19 Jan 1999, Abigail wrote:
> Joel M. Borden (mr.marketing@worldnet.att.net) wrote on MCMLXVII
> September MCMXCIII in <URL:news:36A4134D.4BD2@worldnet.att.net>:
> :: Pardon a newbie question...
> ::
> :: I just got my first script working (a simple mail-generating form)... it
> :: does error-checking, and if required info is missing, I'd like to provde
> :: a "back" link to the HTML page that had the original form, so that the
> :: partial info entered by the user will be retained.
>
> 1) That's not a Perl question.
> 2) Every browser already has that functionality.
> 3) You can't do that.
>
Well I am not an expert like Abigail, but it seems to me that if you use
the environment variable $ENV{"HTTP_REFERER"} (sic), it will do the trick.
Katia
------------------------------
Date: Tue, 19 Jan 1999 21:58:38 -0700
From: Collin Starkweather <collin.starkweather@colorado.edu>
To: Stieglitz Tom <Thomas.Stieglitz@t-online.de>
Subject: Re: Copying Filetrees / Perl Win32
Message-Id: <36A5627E.6E70@colorado.edu>
There's a flag (I can't recall, but it's something like /R) that make
xcopy recurse through directories and copy all the files.
Otherwise, try a recursive routine like
use File::Copy;
sub MyCopy {
my ($files,$dir,$permissions) = @_;
$permissions = $permissions || 0644;
my $file;
my @files;
for $file (@$files) {
if (-f $file) {
copy $file, $dir . '/' . basename($file)
} elsif (-d $file) {
mkdir $dir.'/'.basename($file), $permissions;
opendir ( D, $file ) || die "Can't open directory $file!";
@files = grep !/^\./, readdir D;
closedir D;
for (@files) { $_ = $file . '/' . $_ }
&MyCopy (\@files,$dir.'/'.basename($file))
} else {
die "Can't copy '$file': It is not a file or directory!"
}
}
} # end sub MyCopy
I haven't tested the above code, but I hope you get the idea. It just
goes down through directories. If it sees a directory, it makes one in
the target dir and recursively copies the directory to the newly made
dir; otherwise, it copies the file over as normal.
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Collin Starkweather (303) 492-4784
University of Colorado collin.starkweather@colorado.edu
Department of Economics http://ucsu.colorado.edu/~olsonco
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Stieglitz Tom wrote:
>
> Hi all,
>
> I know, this question was discussed here about half a year ago, but I don't
> find any old remarks; neither in dejanews nor in my local database, also I
> find no answer in the known FAQs. So I hope I'm not boring you ....
>
> I have to copy a whole tree from one directory to another. A possiblity to
> copy only newer files would be great, but is not absolute necessary. I there
> a perl module, similar to file, which can handle whole filetrees. I have
> also tried to use 'xcopy from to' or system (xcopy from to) but this doesn't
> work.
>
> Who has experiance with copying filetrees under NT and can help? I'm using
> the actual distribution of Active Perl under NT WS 4.0 (SP3).
>
> Thanks for all advices,
>
> Tom
------------------------------
Date: 20 Jan 1999 04:23:07 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Don't grok closure behavior w/memory
Message-Id: <783lnb$8n5$4@client2.news.psi.net>
Clinton Pierce (cpierce1@mail.ford.com) wrote on MCMLXVII September
MCMXCIII in <URL:news:36a9d284.354311913@news.ford.com>:
:: I'm about to do something that seems so....counter-intuitive, but
:: apparently it does the right thing. Here's a sample of code:
::
:: #!/usr/bin/perl
::
:: sub get_response {
::
:: my $rs=sub {
:: print rand(100), "\n"; # or something...
:: };
:: return($rs);
:: }
::
:: while (1) {
:: my $subref;
::
:: $subref=&get_response;
:: &$subref;
:: }
::
:: I plan on setting up get_response to return lots and lots of anonymous
:: subs, and for some reason, in the back of my head, experience is
:: whispering: "This...leaks...memory..."
::
:: I tried it, and no, it doesn't leak at all, apparently. I don't quite
Welcome to (ref)counting 101....
:: grok why (or how) perl knows that the compiled sub returned in $rs is no
:: longer accessable. The only reference to the memory used by the sub is
:: stored in $subref... Is it important that $subref be lexically scoped?
No. If it's lexically scoped, $subref goes out of scope at the end of the
block, hence the refcount of the sub decreases with one, becomes now 0,
and gets garbage collected. Where $subref a package variable, in the next
iteration the value of $subref gets replaced, hence the refcount of the
old value is decreased with one, becomes 0, and gets garbage collected.
And it doesn't really matter whether get_response() returns a closure
or a constant sub. It's the refcounting that does the trick.
:: I know that $rs needs to be lexically scoped, but on the second (and
:: subsequent) calls to get_response, how does perl know that the space
:: currently being referred to by $subref is available at this time? Does
:: perl know that &get_response is going to clobber $subref, and therefore
:: frees its memory before the second invocation of "my $rs=sub {...."? I
:: didn't think perl would know that $subref's (pointed to) memory was
:: available until the return (and assignment) to $subref.
refcounting.
:: It seems like either perl can predict (while still in get_response) that
:: $subref value will get clobbered, or that it leaks memory...once.
No! Not in get_response. At the end of the block!
:: I understand reference counts to referred to chunks of memory, I just
:: can't figure out how perl can "look ahead" and free the first anonymous
:: sub's memory while in the _second_ invocation of get_response...it seems
:: like it would leak the first chunk of memory...and then reclaim it on
:: the third invocation...
It doesn't look ahead. In this case, $subref goes out of scope at the
end of the block, hence, the refcount of whatever it was pointing to
decreases with 1.
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";`$@`'
------------------------------
Date: 20 Jan 1999 04:25:13 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: error handling
Message-Id: <783lr9$8n5$5@client2.news.psi.net>
Vyacheslav Volodchenko (slava@volodchenko.freeserve.co.uk) wrote on
MCMLXVII September MCMXCIII in <URL:news:782ruo$vjp$1@news4.svr.pol.co.uk>:
<>
<>
<> The following script generates a run time error.
<> It says "sh: Bad number".
<>
<> #!/usr/local/bin/perl
<>
<> $ps_file = "picture.ps"; # postscript file
<> `pstogif $ps _file >& /dev/null`;
<>
<> I think shell misinterprets redirection and considers it as a part of
<> the command.
No, you misinterpret the shell redirection. Please read the manual of sh.
Now, why are you collecting output when it's send to /dev/null?
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";`$@`'
------------------------------
Date: 20 Jan 1999 04:27:28 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: f
Message-Id: <783lvg$8n5$6@client2.news.psi.net>
Decision Systems Inc (dsi@smart.net) wrote on MCMLXVII September MCMXCIII
in <URL:news:782gn1$55$2@news.smart.net>:
__ What is the best way to pass switches or parameters to my perl script from
__ the command line?
There are two ways. First is stuffing your ears with potato salad
while skating down the stairs. Secondly is by doing the same as every
other command that takes switches and parameters.
Just put them there.
Abigail
--
perl -wle 'print "Prime" if (0 x shift) !~ m 0^\0?$|^(\0\0+?)\1+$0'
------------------------------
Date: 20 Jan 1999 02:52:07 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: flock
Message-Id: <36a5a747@csnews>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Zenin <zenin@bawdycaste.org> writes:
: Don't use raw values if you can avoid it as they
: aren't guaranteed to be the same on all systems.
This is less true than you would imagine. See pp_sys.c
--tom
--
------------------------------
Date: 20 Jan 1999 04:37:57 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Help sought with complex extraction/report
Message-Id: <783mj5$8n5$7@client2.news.psi.net>
Eric Schiller (nospam@chessworks.com) wrote on MCMLXVIII September
MCMXCIII in <URL:news:36a51f46.15997849@nntp.best.com>:
// In order to make a substantial database of chess games available over
// the
// net, I need to translate from the Portable Game Notation format (PGN)
// to a
// database format. There are some challenges here that exceed my
// abilities.
// As you can see in the examples below, the header fields may vary in
// number
// and form.
Really? I haven't seen one header that isn't of the form
[FIELDNAME "VALUE"]
I've seen the PGN before, and it looks to me like an excellent format
for automated processing. I don't see why you want to bother converting
it to a different format.
// My goal is to create a report in the form:
// FIELDNAME;VALUE (where ; is a delimiter)
// e.g. [Event "Midwest Masters"] --> Event;Midwest Masters
That's easy, assuming standard escaping practise.
s/\[(\S+)\s+"([^\\"]+|\\.)*"]/$1;$2/m;
You might want to configure your newsreader not to put in newlines before
the last word of a line. It makes your post very hard to read.
Abigail
--
sub f{sprintf$_[0],$_[1],$_[2]}print f('%c%s',74,f('%c%s',117,f('%c%s',115,f(
'%c%s',116,f('%c%s',32,f('%c%s',97,f('%c%s',0x6e,f('%c%s',111,f('%c%s',116,f(
'%c%s',104,f('%c%s',0x65,f('%c%s',114,f('%c%s',32,f('%c%s',80,f('%c%s',101,f(
'%c%s',114,f('%c%s',0x6c,f('%c%s',32,f('%c%s',0x48,f('%c%s',97,f('%c%s',99,f(
'%c%s',107,f('%c%s',101,f('%c%s',114,f('%c%s',10,)))))))))))))))))))))))))
------------------------------
Date: 20 Jan 1999 07:35:06 GMT
From: Juergen.Puenter@materna.de (J|rgen P|nter)
Subject: Re: How to best process a large CGI form?
Message-Id: <7840va$fop$4@penthesilea.Materna.DE>
In article <36a55367.17501936@corp.supernews.com>, jlatifi@tsicable.com
says...
>
>I guess I was unclear. I have a large number of text boxes in the
>form. They are named something like a1,a2,a3,b1,b2,....
>
>Can the values of these objects be loaded into an array using a loop?
A loop? What do you need a loop for? If I understand your
question correctly, all you want is something like:
@all_values = ($value_a1, $value_a2, ....)
and then you check the elements of the array.
HTH
Juergen Puenter
------------------------------
Date: 20 Jan 1999 04:39:27 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: How to get IP address of a local machine under NT
Message-Id: <783mlv$8n5$8@client2.news.psi.net>
KernelKlink@webtv.net (KernelKlink@webtv.net) wrote on MCMLXVII September
MCMXCIII in <URL:news:14993-36A4F973-1@newsd-101.iap.bryant.webtv.net>:
;; At the command prompt you shpuld be able to type
;;
;; ipconfig
That's ifconfig. It gives me 127.0.0.1.
Of course, this doesn't have anything to do with Perl.
Abigail
--
perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
------------------------------
Date: 20 Jan 1999 04:44:10 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: newbie - endless loop on simple program.
Message-Id: <783muq$8n5$9@client2.news.psi.net>
Robert E. John (rjohn@raptor.com) wrote on MCMLXVII September MCMXCIII in
<URL:news:7833jc$2dg$1@news.raptor.com>:
%% Hi, I am new to Perl (2 weeks). Here is my problem:
%%
%% The following code fragment produces an endless loop?
%%
%% # CODE FRAGMENT
%%
%% $num=0;
%% $increment=0.1;
%% until ($num == 1.1) {
%% print("$num ");
%% $num = ($num + $increment); #Am I doing something bad here??
%%
%% } #END OF CODE FRAGMENT
%%
%% The program is simply supposed to output 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9
%% 1.0
%%
%% Why doesn't the until expression ever become true, and end the loop?
FAQ.
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";`$@`'
------------------------------
Date: 20 Jan 1999 04:46:22 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Newbie Perl CGIer needs fast help! Posting to URL
Message-Id: <783n2u$8n5$10@client2.news.psi.net>
(//trxby) (ttxyxexr@airxmail.net) wrote on MCMLXVII September MCMXCIII in
<URL:news:58F38A6927CC7207.DF75E19BB9E84E7A.91853DCCF8810A3E@library-proxy.airnews.net>:
<>
<> One of our servers will call a second UNIX server that has PERL CGI
<> code on it.
<> Up until now I could write the CGI's to return directly to a browser
<> that called it no problem.
<>
<> Now I need to write a CGI that isn't called from a browser, but it I
<> want the CGI to post data from a file to an HTTP:.. location.
Uhm, I wonder why. Use LWP::UserAgent if you really want to do this.
If I were your client, I'd run far, far away.
<> Am I in a fog? It isn't clear to me how to do this. Any help is
<> greatly appreciated. We have a fast setup needed in a few days.
Hire a programmer.
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=new Math::BigInt+qq;$^F$^W783$[$%9889$^F47$|8;
.qq;8768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W98$^F;
.qq;76777$=56;;$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V%$^U;$^V
/=$^U}while$^V!=$^W'
------------------------------
Date: 20 Jan 1999 01:40:43 -0500
From: Uri Guttman <uri@home.sysarch.com>
Subject: Re: Perl Criticism
Message-Id: <x7u2xmv444.fsf@home.sysarch.com>
>>>>> "t" == topmind <topmind@technologist.com> writes:
t> In article <x767a3g6h3.fsf@home.sysarch.com>, Uri Guttman
t> <uri@home.sysarch.com> wrote:
>> bottommind, who reesed himself unconcious. never once did he back
>> up his flaming and ranting with any actual working code,
t> I asked for examples from yous of indespensable Perl cryptology and
t> nobody showed any. Unless you produce some Uri, you are a
t> hypocrite.
you have it backwards, dear bottommind as you are invading our turf so
it is up to you to provide code to back up your arguments. we are happy
with perl and you are not so we don't have to defend it. you have to
defend you weak position of how obsfucated it can be. but as it has been
said, you can write obsfucated code in anay language. try to read some old
undocumented cobol or even PL/I or ada for examples of your vaunted
"cryptology". and stop using that term as you have shown you know
nothing about good coding practice.
we post code here regularly. we still have not seen 1 iota of legal perl
code you have ever written, used, found obscure, etc.
SHOW US YOUR CODE, BOTTOMMIND!
i will repeat it again,
SHOW US YOUR CODE, BOTTOMMIND!
and once more to get thru your thick skull,
SHOW US YOUR CODE, BOTTOMMIND!
t> I only chewed out those who tried to use other non-computer hobbies
t> and muck digging to attack me personally instead of the merit of
t> ideas. I bet less than 3% of my messages have cursing.
but you cursed first and foremost. i bet way more than 3% of you
bleatings in this thread had cursing. i have found 90 posts in this
thread by you and you have easily cursed in more than 3 of them.
http://www.dejanews.com/dnquery.xp?ST=PS&QRY=&defaultOp=OR&DBS=1&format=terse&showsort=score&maxhits=100&LNG=ALL&subjects=&groups=*perl*&authors=topmind%40technologist.com&fromdate=12%2F1%2F98&todate=Today
and calling you reese is worse than anything else i could come up
with. check out his flame wars in this group. you and him must have been
siamese twins attached at the head separated at birth so you only have a
half brain apiece.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
Perl Hacker for Hire ---------------------- Perl, Internet, UNIX Consulting
uri@sysarch.com ------------------------------------ http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: 20 Jan 1999 09:46:20 +0000
From: Piers Cawley <pdcawley@bofh.org.uk>
Subject: Re: Perl Criticism
Message-Id: <s7pvhi2mg43.fsf@windrush.elsevier.co.uk>
topmind@technologist.com writes:
> In article <m3vhi32m1s.fsf@moiraine.dimensional.com>,
> Daniel Grisinger <dgris@moiraine.dimensional.com> wrote:
> > [I wasn't going to reply to this thread anymore, but couldn't
> > help myself]
> >
> > topmind@technologist.com writes:
> >
> > > Come on now. I switch between dozens of languages.
> >
> > Dozens? Really? I think that you are lying, please list them.
> > Include code samples (ability to write `hello, world' does not
> > count as knowing a language).
> >
>
> I have used Pascal, Java, VB, DEC-Basic, C, Xbase, Perl,
> Fortran, Transact-SQL, DOS scripting, and a few modem languages.
Still not even vaguely 'dozens' now is it?
> > > Do you all use only one language and/or always keep them strait?
> >
> > I regularly program in C, Java, Python, Lisp, Perl, and C++. I
> > have no difficulty keeping everything straight.
>
> 1. You should not extroplate your grand abilities to all others.
> (Keeping them strait may be admirable, but there are other criteria
^^^^^^
> to judge people on.)
You use that word a lot. I do not think it means what you think it
does. And judging by your other posts in this thread I got the
impression that you were arguing that Perl should be made strait. Or
are you conceding the point?
topmind@technologist.com writes:
> 2. Most of those listed are UNIX/C-ish derived languages that
> use similar syntax. You don't get around enough IMO.
Hmm... Lisp uses a similar syntax to C? You know, I'd never really
noticed that. Maybe because you're talking bollocks. Python's not
particularly C like either now I come to think about it. (Though not
as *wildly* dissimilar as Lisp either...)
--
Where is the Life we have lost in living?
Where is the wisdom we have lost in knowledge?
Where is the knowledge we have lost in information?
TS Eliot -- The Wasteland
------------------------------
Date: 20 Jan 1999 04:53:08 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Perl Password Hiding Challenge
Message-Id: <783nfk$8n5$11@client2.news.psi.net>
jbharvey@auspex.net (jbharvey@auspex.net) wrote on MCMLXVIII September
MCMXCIII in <URL:news:783bgm$2k9$1@nnrp1.dejanews.com>:
,, I have a question to pose to the upper echelons of the perl user community,
,,
,, Say someone has coded a script to access a website or database and it is not
,, going to be run interactively. In order for the script to access said
,, website or database it must provide a username and password to the API of
,, it's choosing for the request, and since it's running from cron, you cannot
,, ask a user for a password. How do you securely store the user/pass in the
,, script or module? I don't think you can. Here are a few points:
,,
,, 1. You cannot stick the password in your script, since if someone cracks your
,, account or gains access to root, they now have an additional user/pass.
Huh? If the password is from a different account, just run the crontab from
that account. No need for a password.
,, 2. You cannot put the password in the module for the same reason, and modules
,, must be read-able to be used.
It only needs to be readable for the uid running the script.
,, 3. There is no use doing a 'chmod 700' because again root can see it.
,,
,, Aside from "don't ever do this" responses, anyone have suggestions? Even
,, comments/hints on making it a little more inaccessable are helpful.
It seems you're working in an environment where you do not trust root.
The solution is simple. Go away. Set up your own box, and run the script
from there.
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";`$@`'
------------------------------
Date: 20 Jan 1999 02:16:32 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Perl to C++ converter?
Message-Id: <36a59ef0@csnews>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, Gino Cerro <gino@wpi.edu> writes:
:Is there a script that converts Perl code to C++ code (for Unix/Linux)? I
:thought I saw a listing for one a few weeks (while surfing some Perl web
:pages) and cannot remember where.
:
That's a FAQ. The short answer is you don't want to do that, even though
you think you do.
--tom
--
"If projectile vomiting ever becomes an Olympic event, you'll do
yourself proud."
--Hobson, "Arthur II"
------------------------------
Date: Wed, 20 Jan 1999 01:36:13 -0500
From: "A. Barry" <a.barry@ix.netcom.com>
Subject: problem with Data::Dumper
Message-Id: <36A5795D.1E8B1906@ix.netcom.com>
Hi there
I just got downloaded Data::Dumper from Activestate. The book I learned
about it (Perl 5 Complete) treats it as the best thing since sliced
bread.. You give it a structure and it prints it out in a form that you
can read and Perl can evaluate.. Really useful.
Only problem.. When I try to use Data::Dumper I get...
Can't use subscript on ref-to-glob cast at c:\perl\lib/Data/Dumper.pm
line 373, near "$k}"
BEGIN failed--compilation aborted at C:\perl5\dumper_test.pl line 3.
Process completed with exit code 255
Line 373 looks like
$post[$postlen] .= $s->_dump(*{$name}{$k}, "\*$sname\{$k\}");
My question is.. does anyone have a working version of this? I have
version
2.081 of Data::Dumper (according to the comments).
Thanks
Austin
P.S. I'm running on Win 95 if it matters.
------------------------------
Date: Wed, 20 Jan 1999 00:11:36 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <1dlwlkr.1gvobbn1gakanxN@bay1-75.quincy.ziplink.net>
Greg Bacon <gbacon@itsc.uah.edu> wrote:
> In article <36a84e4c.2986601@news.skynet.be>,
> bart.lateur@skynet.be (Bart Lateur) writes:
> : I object! Abigail cheated!
>
> Yeah, I know. I noticed that she was using different quote characters
> and thought about updating the quote regular expression. I decided
> that it would be too long and ugly. I can wait until we get the nice
> [:ispunct:] in the regular expression engine. :-)
If I recall correctly, the \+\+ at the end of the current regular
expression was added specifically for Abigail's posts. I guess she just
likes to be different. :-)
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 20 Jan 1999 04:57:35 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <783nnv$8n5$12@client2.news.psi.net>
Greg Bacon (gbacon@itsc.uah.edu) wrote on MCMLXVII September MCMXCIII in
<URL:news:782ist$q2b$2@info.uah.edu>:
II In article <36a84e4c.2986601@news.skynet.be>,
II bart.lateur@skynet.be (Bart Lateur) writes:
II : I object! Abigail cheated!
II
II Yeah, I know. I noticed that she was using different quote characters
II and thought about updating the quote regular expression. I decided
II that it would be too long and ugly. I can wait until we get the nice
II [:ispunct:] in the regular expression engine. :-)
Wouldn't [^\w\s] do?
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
------------------------------
Date: Wed, 20 Jan 1999 17:41:57 -0800
From: "Simon" <simon@itc.cn.net>
Subject: test
Message-Id: <36a5a61e.0@news.soflo.net>
test!
------------------------------
Date: Wed, 20 Jan 1999 06:40:51 GMT
From: loewphoe@escape.ca
Subject: Re: Verify an email address
Message-Id: <36A579F6.835D10C4@escape.ca>
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
dear Bob:
<p>I am a newbie. could you tell me how to search cpan?
<p>thanks for help.
<p>Heinrich
<p>Bob wrote:
<blockquote TYPE=CITE>On Wed, 20 Jan 1999 01:37:06 +0100, "Henk Slaaf"
<henk@crash.nu>
<br>wrote:
<p>><a href="http://www.perl.com/CPAN-local/">http://www.perl.com/CPAN-local/</a>
<br>>
<br>>Go there and you will find what you're looking for. However, you could
have
<br>>found this by yourself, by looking at www.perl.com....
<br>>
<p>I thank you for the help.. I did find it after digging around on the
<br>cpan site for awhile.. I finally figured out where the search engine
<br>was and I was on my way.. I ended up having to install several things
<br>to get it to work.. but it works great with the demo code that was
<br>given..
<p>Now my next question.. on the same subject..
<p>Can anyone break these terms out a little so I can understand what its
<br>doing. I have no problem with making it work.. but it would be nice
to
<br>understand a little more at what its doing..
<p>use Email::Valid;
<p> while ($address = <DATA>) {
<br> chomp $address;
<br> $valid = new Email::Valid;
<br> if ($valid->address( -address => $address))
{
<br> print "$address is valid\n";
<br> } else {
<br> print "$address is not valid\n";
<br> }
<br> }</blockquote>
</html>
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 4697
**************************************
