[15674] in Perl-Users-Digest
Perl-Users Digest, Issue: 3087 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu May 18 11:15:47 2000
Date: Thu, 18 May 2000 08:15:26 -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: <958662925-v9-i3087@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 18 May 2000 Volume: 9 Number: 3087
Today's topics:
Remove leading zero <koen_lesenne@inseurop.com>
Re: Remove leading zero nobull@mail.com
Re: Remove leading zero <billy@arnis-bsl.com>
Re: Shopping cart problems <flavell@mail.cern.ch>
SOCKET Question <shussain@hitel.com>
Split with a space (-*-)
Re: Split with a space <scott@salmon.ltd.uk>
Re: Split with a space <aqumsieh@hyperchip.com>
Re: Split with a space <billy@arnis-bsl.com>
Re: suid problem under Solaris 2.7 <rootbeer@redcat.com>
Re: suid problem under Solaris 2.7 <elaine@chaos.wustl.edu>
Re: Threads and Perl for Win32 <rootbeer@redcat.com>
Re: Threads and Perl for Win32 <LeonardT@Intelis-Inc.Com>
Re: time spent to run a perl script (M.J.T. Guy)
tricky scalar? Assigning to.. AKUT <webmaster@ostas.lu.se>
use and require error <i094034@hotmail.com>
Re: use and require error <jhelman@wsb.com>
Re: use and require error <blah@nospam.com>
Re: Use/Require Difference (M.J.T. Guy)
What book on perl-cgi for a perl-programmer? <schut@rugth1.phys.rug.nl>
Re: What book on perl-cgi for a perl-programmer? <jboesNOjbSPAM@qtm.net.invalid>
Re: What book on perl-cgi for a perl-programmer? (Randal L. Schwartz)
Re: zen and the art of trolling [OT] <bmb@dataserv.libs.uga.edu>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 18 May 2000 13:40:07 +0200
From: "Koen Lesenne" <koen_lesenne@inseurop.com>
Subject: Remove leading zero
Message-Id: <8g0lg5$6fc$1@reader1.fr.uu.net>
Dear All,
I'm new to perl.
I'm trying to find a way to remove one or more leading zero's of a string.
Can someone help me with this please ?
Ex. 0123456 should become 123456
Thanks !
Kind regards,
Koen Lesenne
------------------------------
Date: 18 May 2000 13:06:31 +0100
From: nobull@mail.com
Subject: Re: Remove leading zero
Message-Id: <u9r9b0kqpk.fsf@wcl-l.bham.ac.uk>
"Koen Lesenne" <koen_lesenne@inseurop.com> writes:
> I'm new to perl.
In that case you can assume that most questions you have are likely to
be common ones. Please read the FAQ - all the way through. You may
not understand it all yet but one day you'll have a question and
think "hey I saw something like this in the FAQ".
> I'm trying to find a way to remove one or more leading zero's of a string.
> Can someone help me with this please ?
See FAQ: "How do I strip blank space from the beginning/end of a string?"
Make the obvious adjustments.
> Ex. 0123456 should become 123456
In this case you could also just add zero.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Thu, 18 May 2000 12:40:59 GMT
From: Ilja <billy@arnis-bsl.com>
Subject: Re: Remove leading zero
Message-Id: <8g0oco$udn$1@nnrp1.deja.com>
In article <8g0lg5$6fc$1@reader1.fr.uu.net>,
"Koen Lesenne" <koen_lesenne@inseurop.com> wrote:
> Dear All,
>
> I'm new to perl.
> I'm trying to find a way to remove one or more leading zero's of a string.
> Can someone help me with this please ?
>
> Ex. 0123456 should become 123456
>
It's (not exactly, but still) a FAQ: "How do I strip blank space from the
beginning/end of a string?"
$s = '00012345 - a string with leading zeroes';
$s =~ s/^0+//;
See perldoc perlfaq4 (or
http://www.cpan.org/doc/manual/html/pod/perlfaq4.html) for more details.
Ilja.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 18 May 2000 12:41:00 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Shopping cart problems
Message-Id: <Pine.GHP.4.21.0005181230410.5629-100000@hpplus01.cern.ch>
On Thu, 18 May 2000, gboworld.com turned usenet on its head, and the
assembled usenauts were horrified to observe this oozing out:
> We have designed a frame shopping cart,
Damn! I missed putting you into the killfile the last half dozen
times you popped up. Well, better late than never.
> It is easy to use and design.
| ...but only if you have Netscape Navigator 3.0, IE 5.0, or above
| _________________________________________________________________
Clue: I do "have" these browsers, _and_ "above".
[jeopardectomy performed]
------------------------------
Date: Thu, 18 May 2000 10:01:19 -0400
From: Syed Hussain <shussain@hitel.com>
Subject: SOCKET Question
Message-Id: <3923F7AF.B0C9E06D@hitel.com>
Hello,
I am having a problem with SOCKET. I am trying to establish a
connection
with port 5002 which is a telnet port and send command to it. It is not
a
shell comand its an command interpreter.
I am able to open up the socket and send the command. I am also able to
receive part of the response but after that it just hangs up. I think
that
the problem is that after i read the last block it goes back in the recv
operation and then hangs up since there is not data.
I also tried using Net::Telnet but am not able to send any commands as
the
commands sent are only for shell operations.
I hope that someone can help me with this question.
Thanks.
---Jawwad
use strict;
use IO::Socket;
my ($remote,$port, $iaddr, $paddr, $proto, $line,$sock);
$remote = shift || '137.168.72.27';
$port = shift || 5002; # random port
$sock = IO::Socket::INET->new(Proto => 'tcp',PeerPort => $port,
PeerAddr
=>
$remote);
$sock->send($msg) || die "send: $!";
my $MAXLEN = 1024;
while ($flag){
print "before flag\n";
$flag = defined($sock->recv($block, $MAXLEN)) ;
chomp($block);
if ($block =~ m/=>/) {
exit;
return;
}
if ($block =~ m/\?>/) {
print "I don't understand that message.\n";
exit;
return;
}
print "$block\n";
}
------------------------------
Date: Thu, 18 May 2000 14:22:37 +0100
From: "Damian (-*-)" <damian@amorphous.co.uk>
Subject: Split with a space
Message-Id: <YbSU4.21208$UC.270198@news2-hme0>
Hi There,
I'm trying to split the environment variable but am having trouble when the
data contains
spaces (This is a generic game score table script I am writing that is
called from a Java
applet)
I'm using :
($hiScoresFile, $score, $sortMethod, $data) = split(',',
$ENV{QUERY_STRING});
to crack the initially passed string of the form :
"myscores.txt,1000,desc,fred"
The problem is when $data contains a space. It is passed through to the Perl
script
OK (I've check the access log file) but the split command seems to reject
after the
first space. Not having had much experience (and not finding anything in the
FAQ)
I was wondering if anyone new of a quick fix ? I just want to be able to
fire a string
like :
"myscores.txt,1000,desc,fred bloggs"
to the script and it save our "fred bloggs" as the name.
Any ideas ?
TIA
Damian (-*-)
------------------------------
Date: Thu, 18 May 2000 15:06:47 +0100
From: "Scott Pritchett" <scott@salmon.ltd.uk>
Subject: Re: Split with a space
Message-Id: <8g0tdh$j73$1@lure.pipex.net>
You can provide split a char delimiter.
"Damian (-*-)" <damian@amorphous.co.uk> wrote in message
news:YbSU4.21208$UC.270198@news2-hme0...
> Hi There,
>
> I'm trying to split the environment variable but am having trouble when
the
> data contains
> spaces (This is a generic game score table script I am writing that is
> called from a Java
> applet)
>
> I'm using :
>
> ($hiScoresFile, $score, $sortMethod, $data) = split(',',
> $ENV{QUERY_STRING});
>
> to crack the initially passed string of the form :
>
> "myscores.txt,1000,desc,fred"
>
> The problem is when $data contains a space. It is passed through to the
Perl
> script
> OK (I've check the access log file) but the split command seems to reject
> after the
> first space. Not having had much experience (and not finding anything in
the
> FAQ)
> I was wondering if anyone new of a quick fix ? I just want to be able to
> fire a string
> like :
>
> "myscores.txt,1000,desc,fred bloggs"
>
> to the script and it save our "fred bloggs" as the name.
>
> Any ideas ?
>
> TIA
>
> Damian (-*-)
>
>
>
------------------------------
Date: Thu, 18 May 2000 14:37:10 GMT
From: Ala Qumsieh <aqumsieh@hyperchip.com>
Subject: Re: Split with a space
Message-Id: <7a4s7vncvd.fsf@Merlin.i-did-not-set--mail-host-address--so-shoot-me>
"Damian (-*-)" <damian@amorphous.co.uk> writes:
> Hi There,
>
> I'm trying to split the environment variable but am having trouble when the
> data contains
> spaces (This is a generic game score table script I am writing that is
> called from a Java
> applet)
>
> I'm using :
>
> ($hiScoresFile, $score, $sortMethod, $data) = split(',',
> $ENV{QUERY_STRING});
>
> to crack the initially passed string of the form :
>
> "myscores.txt,1000,desc,fred"
>
> The problem is when $data contains a space. It is passed through to the Perl
> script
> OK (I've check the access log file) but the split command seems to reject
> after the
> first space. Not having had much experience (and not finding anything in the
> FAQ)
> I was wondering if anyone new of a quick fix ? I just want to be able to
> fire a string
> like :
>
> "myscores.txt,1000,desc,fred bloggs"
>
> to the script and it save our "fred bloggs" as the name.
What makes you say that it doesn't work?
% perl -wl
my $string = 'myscores.txt,1000,desc,fred bloggs';
my ($w, $x, $y, $z) = split /,/, $string;
print $z;
__END__
fred bloggs
It works as you want it to. Perhaps your problem is elsewhere?
--Ala
------------------------------
Date: Thu, 18 May 2000 14:49:40 GMT
From: Ilja <billy@arnis-bsl.com>
Subject: Re: Split with a space
Message-Id: <8g0vtt$7g6$1@nnrp1.deja.com>
In article <YbSU4.21208$UC.270198@news2-hme0>,
"Damian (-*-)" <damian@amorphous.co.uk> wrote:
> Hi There,
>
> I'm trying to split the environment variable but am having trouble when the
> data contains
> spaces (This is a generic game score table script I am writing that is
> called from a Java
> applet)
>
> I'm using :
>
> ($hiScoresFile, $score, $sortMethod, $data) = split(',',
> $ENV{QUERY_STRING});
>
> to crack the initially passed string of the form :
>
> "myscores.txt,1000,desc,fred"
>
> The problem is when $data contains a space. It is passed through to the Perl
> script
> OK (I've check the access log file) but the split command seems to reject
> after the
> first space. Not having had much experience (and not finding anything in the
> FAQ)
> I was wondering if anyone new of a quick fix ? I just want to be able to
> fire a string
> like :
>
> "myscores.txt,1000,desc,fred bloggs"
>
> to the script and it save our "fred bloggs" as the name.
>
Why not to try first from command line ?
#!/usr/bin/perl -w
use strict;
my $string = 'myscores.txt,1000,desc,fred bloggs';
for (split ',', $string) { print "$_\n" }
# This scripts prints out:
myscores.txt
1000
desc
fred bloggs
So you can see that split'ting is OK, regardless of spaces in string.
IMHO your problem isnt' really Perl problem.
$ENV{QUERY_STRING} simply does *not* contains what you expect.
Simply print the whole $ENV{QUERY_STRING} to file and inspect it.
BTW, AFAIK the QUERY_STRING should come encoded, but I cannot see you
decoding it.
Maybe CGI module will help (consult perldoc CGI or
http://www.cpan.org/doc/manual/html/lib/CGI.html) ?
Ilja.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 18 May 2000 06:33:17 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: suid problem under Solaris 2.7
Message-Id: <Pine.GSO.4.10.10005180629020.25459-100000@user2.teleport.com>
On Thu, 18 May 2000, Elaine Ashton wrote:
> If Solaris can't find /dev/fd you'll be fixin' to be havin' a few more
> problems than a setuid script. :)
Agreed.
> your default build *should* have built a Perl capable of suid,
Maybe I've misunderstood you here. On Solaris (or any other system with
secure set-id scripts), _every_ language is capable of running set-id.
Well, unless someone has gone to some trouble to disable it.
In particular, sperl (suidperl) shouldn't be built by default on any
system, and never on a system that has set-id scripts.
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 18 May 2000 13:48:04 GMT
From: Elaine Ashton <elaine@chaos.wustl.edu>
Subject: Re: suid problem under Solaris 2.7
Message-Id: <B5496CD8.444F%elaine@chaos.wustl.edu>
in article Pine.GSO.4.10.10005180629020.25459-100000@user2.teleport.com, Tom
Phoenix at rootbeer@redcat.com quoth:
> In particular, sperl (suidperl) shouldn't be built by default on any
> system, and never on a system that has set-id scripts.
Well..since he is running this on Solaris, technically he shouldn't need
suid Perl since it is one of the systems that are theoretically 'secure'.
I'm not sure what there is to gain by having both Perl and suidperl on such
a system.
I don't remember if there is a FAQ for this but it might be useful for
people in this sort of situation.
e.
------------------------------
Date: Thu, 18 May 2000 06:39:32 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Threads and Perl for Win32
Message-Id: <Pine.GSO.4.10.10005180637570.25459-100000@user2.teleport.com>
On Wed, 17 May 2000, Leonard Thornton wrote:
> Now, I create 24 threads, each with an instance of this PerlEngine
> object, each running a copy of the same script file. No
> cigar...errors vary, but suffice it to say that this does not appear
> to be threadsafe.
>
> How can I run multiple threads, each executing the same of a
> differenct Perl script?
Make it threadsafe. Not that that's trivial....
But maybe you want to look at another technique than using threads.
Anything which can be programmed with threads can also be programed
without them; it's just a matter of what's easier. It looks as if the way
with threads is pretty tough, so check out the alternative - which will
probably be more portable, too.
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 18 May 2000 10:29:20 -0400
From: "Leonard Thornton" <LeonardT@Intelis-Inc.Com>
Subject: Re: Threads and Perl for Win32
Message-Id: <8g0um2$2r7$1@slb7.atl.mindspring.net>
Unfortunately, non-threaded is not an option. I am attempting to replace an
existing script language (proprietary) with a Perl implementation in an
existing application base. The replacement would be very straightforward if
I can get around this threading snafu.
I am in the process of rebuilding ActivePerl 522 from source and bypassing
the CPerlObj implementation, as this appears to be where the threading
problems are at, though I may be mistaken.
------------------------------
Date: 18 May 2000 13:58:48 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: time spent to run a perl script
Message-Id: <8g0suo$jqb$1@pegasus.csx.cam.ac.uk>
Perl Discussion <jmourneyNOjmSPAM@hotmail.com.invalid> wrote:
>i'm trying to find out how much time is needed for my perl script
>to finish running.
>
>is there a way to do this? the machine i work on do not
>provide syscall.ph; so i can't do as the docs says.
>i tried localtime() (subtract with new time value, etc),
>but i'm having problem with it, too.
perldoc Benchmark
Mike Guy
------------------------------
Date: Thu, 18 May 2000 17:03:39 +0200
From: Jimmy Lantz <webmaster@ostas.lu.se>
To: Web Macperl <macperl-webcgi@macperl.org>, Forum Macperl <macperl-forum@macperl.org>
Subject: tricky scalar? Assigning to.. AKUT
Message-Id: <3924064C.B0189334@ostas.lu.se>
Hi, I have a cgi-script that takes the input from a form and precesses
it and in one case it produces a new htmlform which is being sents to it
self and then process that and prints a new form which is being
proceccesed by another cgi.
Now I have scalars which has the same name in the incoming form values
(%in) there for I need to assign the following scenario.:
${now2}name = $in{"${now2}name"}
that is :
a scalar with a numer and a name together has to be assigned the value
of the same scalarname in the incoming hash.
I've tried this but it doesn't work, Any Ideas?
$now2 = 1;
until ($now2 == $delkursantal2) {
$delmomentvariabel = $now2 . Delmomentantal;
${now2}Delmomentantal = $in{"$delmomentvariabel"}
$now2++;
}
I'm greatfull for anyhelp.
Yours sincerely
Jimmy Lantz
------------------------------
Date: Thu, 18 May 2000 11:38:02 +0200
From: Matteo Palmieri <i094034@hotmail.com>
Subject: use and require error
Message-Id: <3923B9FA.6F2CC0DA@hotmail.com>
I have installed perl 5.004_03 on OS390. It was a binary version (I have
not compiled at all). The problem is that neither the "use" directive
nor the "require" are understood by perl.
This simple script ...
#!/usr/bin/perl
use B;
..gets an error
This other one
#!/usr/bin/perl
print "Hello";
... works properly
What is the problem ?
Thanks
------------------------------
Date: Thu, 18 May 2000 14:57:23 GMT
From: Jeff Helman <jhelman@wsb.com>
Subject: Re: use and require error
Message-Id: <392404F4.3A8EADC2@wsb.com>
Matteo Palmieri wrote:
>
> I have installed perl 5.004_03 on OS390. It was a binary version (I have
> not compiled at all). The problem is that neither the "use" directive
> nor the "require" are understood by perl.
>
> This simple script ...
> #!/usr/bin/perl
> use B;
>
> ..gets an error
>
> This other one
> #!/usr/bin/perl
> print "Hello";
>
> ... works properly
>
> What is the problem ?
>
> Thanks
Need a bunch more info. For example, what is the error you receive?
And have you verified that the B.pm module is indeed located in one of
the root paths specified in @INC? And that it compiles cleanly?
Without knowing the above, I don't think that anyone can help you.
JH
----------------------------------------------------------------
Jeff Helman Product Manager -- Internet Services
jhelman@wsb.com CCH Washington Service Bureau
----------------------------------------------------------------
99 little bugs in the code, 99 bugs in the code.
Fix one bug, compile again, 100 little bugs in the code.
100 little bugs in the code, 100 bugs in the code.
Fix one bug, compile again, 101 little bugs in the code...
----------------------------------------------------------------
------------------------------
Date: Thu, 18 May 2000 16:57:31 +0200
From: Marco Natoni <blah@nospam.com>
Subject: Re: use and require error
Message-Id: <392404DB.AF092B19@nospam.com>
Hi Matteo,
Matteo Palmieri wrote:
> I have installed perl 5.004_03 on OS390. It was a binary version
> (I have not compiled at all). The problem is that neither the
> "use" directive nor the "require" are understood by perl.>
> This simple script ...
> #!/usr/bin/perl
> use B;
> ..gets an error
...and that error is? Tell us which that error is, thus will evaluate
your situation in a correct way.
Tip: Are you sure that the library path is correct (try to print the
@INC list and see if the directory where B resides is contained in the
output).
Tip #2: Are you sure that those directories really exist? Since you
have installed a binary version, everything is possible.
Best regards,
Marco
------------------------------
Date: 18 May 2000 15:02:51 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Use/Require Difference
Message-Id: <8g10mr$o5i$1@pegasus.csx.cam.ac.uk>
In article <8g0dj7$9mo$1@lure.pipex.net>,
Scott Pritchett <scott@salmon.ltd.uk> wrote:
>I know this may be wrong but... I needed to have a way of inserting perl
>code from a common file which was not a subroutine, so I have :-
>
> #!perl -w
> use strict;
> $::x=5;
> use isb;
> print "x is $::x\n";
> exit;
>
>In isb :-
>
> $::x=4;
> print "in isb x is $::x\n";
>
>This returns :-
>
> in isb x is 4
> x is 5
>
>When I replace the 'use' with 'require' I get what I expected, namely :-
> in isb x is 4
> x is 4
>
>Why?!
Because require happens at run time, use at compile time.
perldoc -q require
perldoc -f use
perldoc -f require
Mike Guy
------------------------------
Date: 18 May 2000 13:11:52 GMT
From: Koos Schut <schut@rugth1.phys.rug.nl>
Subject: What book on perl-cgi for a perl-programmer?
Message-Id: <8g0q6o$pb3$1@info.service.rug.nl>
Hi all,
I am getting into programming www-things. I have
a fairly big knowledge of perl. When I enter a
bookstore, or view some books-references, I
get confused by teh large number of titles, or by
contradicting user-opinions.
I intend to create wwwpages in which data can be
viewed from different databases (Informix, Oracle).
I know how to write Perl programs which do the
querying and complex things like that, it is the
http stuff that I do not know to do well, and
especially the interacting with databases.
So can anyone suggest some book/reference/www-site
which might be very useful for me?
Help will be greatly appreciated.
Cheers,
Koos Schut.
--
Mazzel, cheers, bye, tabe, moi, tot ziens, have a nice day,
Koos
__________________________to be Y999T-compliant_____________________
JJ Schut | e-mail: schut@phys.rug.nl |
Institute for Theoretical Physics | Phone: +31 15 2566804 |
University of Groningen | Phone: +31 70 3116092 |
P.O. Box 800 | Fax: +31 70 3112133 |
9700 AV Groningen, The Netherlands. | Yell: Very, Very loud |
---------------------- use: yyyyyyyyyyyyyyy/mm/dd-------------------
------------------------------
Date: Thu, 18 May 2000 07:03:40 -0700
From: Mur <jboesNOjbSPAM@qtm.net.invalid>
Subject: Re: What book on perl-cgi for a perl-programmer?
Message-Id: <030b29ed.b67b476e@usw-ex0101-006.remarq.com>
You might want to check on "Programming the Perl DBI"
(http://www.bookpool.com/.x/i85xocs8ni/sm/1565926994) for
database topics, and "Official Guide to Programming with CGI.pm"
(http://www.bookpool.com/.x/i85xoc7gb1/sm/0471247448) for the
most popular CGI support module.
There's an extensive list of books reviewed and rated at
http://www.perl.com/, too.
Jeff Boes//ICQ=3394914//Yahoo!=jeffboes//AOL IM=jboes
//home=jboes@qtm.net//professional=mur@consultant.com
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: 18 May 2000 07:23:48 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: What book on perl-cgi for a perl-programmer?
Message-Id: <m1vh0cc4y3.fsf@halfdome.holdit.com>
>>>>> "Koos" == Koos Schut <schut@rugth1.phys.rug.nl> writes:
Koos> So can anyone suggest some book/reference/www-site
Koos> which might be very useful for me?
I can give you my rules for selecting a Perl CGI book, and then you
can be your own judge at the store. Off the top of my head:
REJECT any book that processes the parameters without any library
support (like mentions $ENV{QUERY_STRING}), except as an example of
what not to do, or as an interim on the way to using CGI.pm.
REJECT any book that mentions cgi-lib.pl with anything other than disdain.
REJECT any book that doesn't use CGI.pm by at least the second
chapter.
REJECT any book that doesn't mention the function-call interface for
CGI.pm (allowing you to use param("foo") instead of $q->param("foo")).
REJECT any book that says "these examples will work under Perl4 or
Perl5".
(In fact, REJECT any book that calls it "Perl5" rather than "Perl". :)
REJECT any book that does client-side HTTP without using LWP,
especially if it starts with "use Socket;" (or worse, "require
'sys/socket.ph';").
REJECT any book that claims to strip HTML with s/<!--.*--!>//g.
REJECT any book that doesn't talk about taint mode.
REJECT any book that uses Berkeley mail (open MAIL, "|mail $user") to
send mail. (Security holes abound there.)
REJECT any book that attempts to match an email address with a
simple-minded regular expression like /^\w+\@(\w+\.)+\w+$/. (See the
FAQ about what a legal email address looks like.)
Most books won't pass this test. That leaves darn few books. If it
makes it past those, you probably have a reasonably modern book with a
reasonably clued-in author.
print "Just another Perl hacker," # and web-whacker
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Thu, 18 May 2000 10:12:04 -0400
From: Brad Baxter <bmb@dataserv.libs.uga.edu>
Subject: Re: zen and the art of trolling [OT]
Message-Id: <Pine.GSO.4.21.0005181011190.7562-100000@dataserv.libs.uga.edu>
On Wed, 17 May 2000, Godzilla! wrote:
> Dan Sugalski wrote:
> > Andrew N. McGuire <andrew.mcguire@walgreens.com> wrote:
> > > Brian Landers wrote:
> > >> "Godzilla!" <godzilla@stomp.stomp.tokyo> wrote in message
>
> > Not particularly perl-related, but then none of this is.
>
> Would you boys mind just leaving this alone?
> The author who originated those comments
> directed at Mr. Xah, apologized in his own
> way and has made friendly gestures. Chances are
> good he wasn't thinking when he made those
> statements and never considered possible
> racial overtones. Give it a rest ok. We
> all screw up, everyday it seems.
>
> Pick on me about my Perl code and let
> this go. Just ain't worth arguement.
> An apology was given, friendship has
> been offered. Don't ruin this.
:-D
--
Brad
------------------------------
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 3087
**************************************
