[16524] in Perl-Users-Digest
Perl-Users Digest, Issue: 3936 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 7 14:07:50 2000
Date: Mon, 7 Aug 2000 11:05:27 -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: <965671526-v9-i3936@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 7 Aug 2000 Volume: 9 Number: 3936
Today's topics:
5.00 > 5.6 Greymaus
Array Length ? <post2menow@hotmail.com>
Re: Array Length ? (NP)
Re: Array Length ? (Andrew J. Perrin)
Re: Array Length ? <jeff@yoak.com>
Re: bug in localtime()??? (Greg Bacon)
Re: can i test cgi scripts on my own pc without a host? (Nobody)
CGI.PM How to get all Form's value in a HashTable? <etienno@my-deja.com>
Re: CGI.PM How to get all Form's value in a HashTable? nobull@mail.com
CGI.PM How to get all the Form's value? <info@digitaltango.com>
Re: CGI.PM How to get all the Form's value? ()
counting records appsman1368@my-deja.com
Re: Difference between a .cgi file and a .pl file? (Abigail)
Re: Difference between a .cgi file and a .pl file? (brian d foy)
Re: dropping space from begginning & end of a string (Abigail)
Re: dropping space from begginning & end of a string (Abigail)
Re: dropping space from begginning & end of a string <mjcarman@home.com>
Re: five lines of NQL or 45 lines of Perl hmmmm...... <care227@attglobal.net>
Re: Game programming in perl...? <jeff@yoak.com>
How to open web page from Perl script hla_sa@my-deja.com
Re: How to open web page from Perl script <tony_curtis32@yahoo.com>
Hyperlink Patterns <samay1NOsaSPAM@hotmail.com.invalid>
ignore IP address noway@nohow.com
Re: ignore IP address <tony_curtis32@yahoo.com>
Re: ignore IP address <godzilla@stomp.stomp.tokyo>
Re: Is Learning Perl worth buying? (Jon S.)
Re: is mysql faster using Perl or PHP? (brian d foy)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 7 Aug 2000 12:12:54 -0500
From: Greymaus
Subject: 5.00 > 5.6
Message-Id: <398eee16@post.newsfeeds.com>
*** post for free via your newsreader at post.newsfeeds.com ***
I've updated from 5.00?? to 5.6 . I seem to have installed
in several places , including /usr/lib/perl5/perl5.6 and
/usr/local/lib/perl5.6 . How do I find out what to delete?
**** Post for FREE via your newsreader at post.newsfeeds.com ****
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
*** Newsfeeds.com - The #1 Usenet Newsgroup Service on The Planet! ***
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
http://www.newsfeeds.com | http://www.newsfeeds.com
|
* Anonymous posting server! | * Totally Uncensored!
* SUPER Servers! | * Over 80,000 Newsgroups!
* BINARIES ONLY Servers! | * 16 seperate Newsgroup Servers!
* SPAM FILTERED Server! | * Instant access!
* ADULT ONLY Server! | * Multiple OC 3's and OC 12's!
* MP3 ONLY Server! | * 99% Article Completion!
* MULTIMEDIA ONLY Server! | * Months of Retention!
* 7 UNCENSORED Newsgroup Servers | * Lightning FAST downloads!
|
http://www.newsfeeds.com | http://www.newsfeeds.com
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
**** Point your newsreader to post.newsfeeds.com ****
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
------------------------------
Date: Mon, 7 Aug 2000 17:08:27 +0200
From: "Ed Bras" <post2menow@hotmail.com>
Subject: Array Length ?
Message-Id: <8mmjck$mak$1@enterprise.cistron.net>
Can someone please tell me how to get the length of an array when the array
is the "value" (reference) of a hasharray ?
I tried:
print scalar($ArrayinHash{something})
but then it prints the reference of the array.
Neither does print scalar(@$ArrayinHash{Array}) work, which didn't suprise
me.
But what does work, is assiging it to a temporally array:
@ArrayTemp = $ArrayinHash{Array}
print scalar(@ArrayTemp)
Please give me some advice,
Ed Bras
------------------------------
Date: Mon, 07 Aug 2000 15:50:49 GMT
From: nvp@spamnothanks.speakeasy.org (NP)
Subject: Re: Array Length ?
Message-Id: <tVAj5.217210$t91.1954696@news4.giganews.com>
On Mon, 7 Aug 2000 17:08:27 +0200, Ed Bras <post2menow@hotmail.com> wrote:
:
: I tried:
: print scalar($ArrayinHash{something})
If I understand your question correctly, you have something like this:
...
@whatevah = qw(blah1 blah2 blahN);
%whatevah_else = (
'something' => \@whatevah
);
...
Right?
If so, then I think that you want:
print $#{$whatevah_else{something}};
or
print scalar @{$whatevah_else{something}};
--
Nate II
------------------------------
Date: 07 Aug 2000 11:56:40 -0400
From: aperrin@demog.berkeley.edu (Andrew J. Perrin)
Subject: Re: Array Length ?
Message-Id: <u3dkhhxon.fsf@demog.berkeley.edu>
"Ed Bras" <post2menow@hotmail.com> writes:
> Can someone please tell me how to get the length of an array when the array
> is the "value" (reference) of a hasharray ?
Try:
$lengh = scalar @{$hash{key}};
--
----------------------------------------------------------------------
Andrew Perrin - Solaris-Linux-NT-Samba-Perl-Access-Postgres Consulting
aperrin@igc.apc.org - http://demog.berkeley.edu/~aperrin
----------------------------------------------------------------------
------------------------------
Date: Mon, 07 Aug 2000 11:09:08 -0800
From: "Jeff Yoak" <jeff@yoak.com>
Subject: Re: Array Length ?
Message-Id: <8mmn1l01399@news1.newsguy.com>
[posted and emailed]
In article <8mmjck$mak$1@enterprise.cistron.net>, "Ed Bras"
<post2menow@hotmail.com> wrote:
> but then it prints the reference of the array. Neither does print
> scalar(@$ArrayinHash{Array}) work, which didn't suprise me.
Try scalar @{$ArrayinHash{Array}}
> But what does work, is assiging it to a temporally array:
> @ArrayTemp = $ArrayinHash{Array}
> print scalar(@ArrayTemp)
No it didn't. Unless you happened to expect a return value of '1' The
thing on the right is a reference. You'll have to dereference it to get
the array.
Cheers, Jeff
------------------------------
Date: Mon, 07 Aug 2000 16:38:44 GMT
From: gbacon@HiWAAY.net (Greg Bacon)
Subject: Re: bug in localtime()???
Message-Id: <sotpgk4c63a142@corp.supernews.com>
In article <398AFF33.FEDAD782@mortgagestats.com>,
Andras Malatinszky <andras@mortgagestats.com> wrote:
: Greg Bacon wrote:
:
: > Go back and reread the documentation on localtime in the perlfunc
: > manpage. You'll find that there is no bug.
:
: You know, Greg, if you want to be so friggin' unhelpful, that's up to
: you, but why do you bother replying then.
I pointed him to the exact portion of the documentation that answers
his question and said your answer is there. Even little kids can find
Waldo among the hundreds of faces.
What do you suppose that the regular answerers here do when we have
a question? We don't mail Larry or p5p. We RTFM. Assuming that you
aren't out to push your work onto everyone around you, learning to RTFM
is tops among the most valuable skills in programming.
Greg
------------------------------
Date: 7 Aug 2000 15:41:52 GMT
From: nobody@contract.East.Sun.COM (Nobody)
Subject: Re: can i test cgi scripts on my own pc without a host?
Message-Id: <8mmlc0$rne$1@eastnews1.east.sun.com>
In article <8mho9t$u2f$1@nnrp1.deja.com>, <drdementor@my-deja.com> wrote:
>when i used to just know html i would prefer writing html in notepad
>and keep a browser open, way faster than havign to upload to a host
>then test...(ya i know writing html by hand is silly anymore with dream
>weaver and what not but i wanted to learn it and have control.)
>
No, it's not silly. I've been doing HTML since 1993 and still spend
most of my time in Wordpad (or Notepad or emacs). The early tools
sucked big vaccuum, so I never bothered with them. Now, I do use
tools (Dreamweaver isn't bad) mostly for prototyping, then do my edits
and tweaks by hand in a text editor. If I can avoid hand-coding tables,
then I'll use a tool :-) But there's a lot to be said for being
a 'real' coder as opposed to a point-and-click drone. That's one reason
I suspect most of the people here are above-average programmers, and not
just in Perl, either. There aren't any point-and-click tools for Perl,
which forces you to learn how to actually write code, and more importantly,
debug it. The techniques you learn by doing this can be applied to any
language.
I know I didn't answer your question, but I felt compelled to reply :-)
Anita
(who has had to fix far too much code for people who can't 'program'
without a mouse :-)
------------------------------
Date: Mon, 07 Aug 2000 14:58:05 GMT
From: Etienne Laverdiere <etienno@my-deja.com>
Subject: CGI.PM How to get all Form's value in a HashTable?
Message-Id: <8mmipq$419$1@nnrp1.deja.com>
Hi all, I am working with CGI.pm And I want to get all the values of
the "query_string" in a hastable. I tried
$query = new CGI;
local %data = ();
%data= $query->Vars;
to get all the values of the <FORM> in %data but it seems to works only
when the FORM's method was a POST. It doesn't works when it was a GET.
Do you know any "easy" way to get these values? I wrote
a "read_query_string" and a "parse_data_form" functions, but it is
quite 'unesthetic', I rather prefer a '%data = $query->Vars' solution.
Thanks for answering.
Etienne Laverdiere
Montreal
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 07 Aug 2000 18:03:32 +0100
From: nobull@mail.com
Subject: Re: CGI.PM How to get all Form's value in a HashTable?
Message-Id: <u9u2cxt34r.fsf@wcl-l.bham.ac.uk>
Etienne Laverdiere <etienno@my-deja.com> writes:
> Hi all, I am working with CGI.pm And I want to get all the values of
> the "query_string" in a hastable. I tried
>
> $query = new CGI;
> local %data = ();
Do not use local() unless you know what it does. (Once you know what
it does you won't _want_ to use it!)
> %data= $query->Vars;
How is the Vars() method defined? It's not a standard part of CGI.pm
AFAIK. Seems like an unusual name for a method too.
Why is a hash table better than the CGI object itself?
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 07 Aug 2000 16:24:37 GMT
From: "Etienne Laverdiere" <info@digitaltango.com>
Subject: CGI.PM How to get all the Form's value?
Message-Id: <9pBj5.13452$FZ1.161254@news20.bellglobal.com>
Hi all, I am working with CGI.pm And I want to get all the values of
the "query_string" in a hastable. I tried
$query = new CGI;
local %data = ();
%data= $query->Vars;
to get all the values of the <FORM> in %data but it seems to works only
when the FORM's method was a POST. It doesn't works when it was a GET.
Do you know any "easy" way to get these values? I wrote
a "read_query_string" and a "parse_data_form" functions, but it is
quite 'unesthetic', I rather prefer a '%data = $query->Vars' solution.
Thanks for answering.
Etienne Laverdiere
Montreal
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 07 Aug 2000 16:36:42 GMT
From: sjs@yorku.ca ()
Subject: Re: CGI.PM How to get all the Form's value?
Message-Id: <slrn8otpc1.33e.sjs@john.sympatico.ca>
Etienne Laverdiere <info@digitaltango.com> wrote:
>Hi all, I am working with CGI.pm And I want to get all the values of
>the "query_string" in a hastable. I tried
>
>$query = new CGI;
>local %data = ();
>%data= $query->Vars;
>
>to get all the values of the <FORM> in %data but it seems to works only
>when the FORM's method was a POST. It doesn't works when it was a GET.
>Do you know any "easy" way to get these values? I wrote
>a "read_query_string" and a "parse_data_form" functions, but it is
>quite 'unesthetic', I rather prefer a '%data = $query->Vars' solution.
I use:
#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
my %form_contents = map { $_ => param($_) } param();
I don't know if it's the nicest way, but it's sufficiently lazy and
sufficiently graspable for me.
Steve
------------------------------
Date: Mon, 07 Aug 2000 15:45:49 GMT
From: appsman1368@my-deja.com
Subject: counting records
Message-Id: <8mmljc$6bn$1@nnrp1.deja.com>
The following script formats the output from a database file listing all
records under each reference seperately i.e. all records under reference
JONES, then all records under reference SMITH etc. What I am trying to
do is to format only the first twenty records under reference instead of
all records (there could be hundreds) unless there is twenty or less.
I am not an experience perl user so any guidance would be much
appreciated.
#!/usr/bin/perl
format OUT_REP =
@<<<<<<< @<<<<<<<<<<<<<<< @<<<<<<<<<<< @<<<<<<<<<<
$no, $snm, $fnm1, $date
.
format OUT_REP_TOP =
@|||||||||||||||||||||||||||||||||||||||||||||||||||||||||
"Name on $adnm\'s Source $name",
@|||||||||||||||||||||||||||||||||||||||||||||||||||||||||
"for 2 weeks or longer"
Number Surname Forename Date
----------------------------------------------------------
.
format OUT_REP_BOT =
----------------------------------------------------------
.
$format1 = "A16 A24 A11 A8 A16 A12";
$reference = "";
open(FILE, "<REF") || die "Cannot open REF: $!";
open(W_OUT_REP, ">ref.doc") || die "Cannot create ref.doc: $!";
# get first line and set temp var reference adnm;
$line = <FILE>;
($name, $adnm, $date, $lhno, $snm, $fnm1) = unpack($format1, $line);
$reference = $adnm;
# dump header out seeing as this is the first page
select(W_OUT_REP);
$~ = OUT_REP_TOP;
$% = $% + 1; # make sure first page is 1, shouldn't have to do this
write;
close(FILE);
open(FILE, "<REF");
# set correct format
$~ = OUT_REP;
while ($line ne "") {
$line = <FILE>; # get next line in REF
($name, $adnm, $date, $lhno, $snm, $fnm1) = unpack($format1, $line);
if ($reference eq $adnm) { # reference hasn't changed, continue
write;
} else { # reference changed, new page
$~ = OUT_REP_BOT; # set footer and write it out to file
write;
$reference = $adnm; # update reference variable
$~ = OUT_REP_TOP; # output header
write;
$~ = OUT_REP; # continue with information
write;
}
}
close(FILE);
close(W_OUT_REP);
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 07 Aug 2000 15:33:34 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Difference between a .cgi file and a .pl file?
Message-Id: <slrn8otllq.st1.abigail@alexandra.foad.org>
Tim Hammerquist (tim@degree.ath.cx) wrote on MMDXXXIII September MCMXCIII
in <URL:news:slrn8ot2lk.k5.tim@degree.ath.cx>:
[] On Mon, 7 Aug 2000 01:45:29 -0700, Jack Thomas <jthomas@pdxgothic.com> wrote:
[] > "DS" <snakeman@kc.rr.com> wrote in message
[] > news:vjmc5.94$L5.2310@typhoon.kc.rr.com...
[] > > What is the diference betweeen a .pl file and a .cgi file?
[] > > Can I convert a .pl to a .cgi?
[] >
[] > Perl .pl and Perl .cgi are file types which are equivalent.
[] >
[] > If you want to convert a .pl file to a .cgi file, you simply need to rename
[] > it.
[]
[] This is correct for the most part. However, .pl (by def) implies that
[] it's a perl script, perl library, or something written in Polish. =)
By whose definition?
[] .cgi implies that it complies with the Common Gateway Interface
[] standard, but it need not be written in perl. Here is a perfectly valid
[] cgi script written in the bash shell language:
[]
[]
[] : #!/bin/bash
[] : # test.cgi
[] : echo "Content-type: text/html
[] : "
[] : echo "<P><B>Hey there!</B></P>"
[]
[] In the end, these are mostly semantic differences. If you see an
[] executable with a .cgi extension, it's most likely written in perl.
I could easily make PNG images with a .cgi extension, and instruct a web
server to execute files with a .html extension.
Abigail
--
map{${+chr}=chr}map{$_=>$_^ord$"}$=+$]..3*$=/2;
print "$J$u$s$t $a$n$o$t$h$e$r $P$e$r$l $H$a$c$k$e$r\n";
------------------------------
Date: Mon, 07 Aug 2000 09:53:04 -0400
From: brian@smithrenaud.com (brian d foy)
Subject: Re: Difference between a .cgi file and a .pl file?
Message-Id: <brian-ya02408000R0708000953040001@news.panix.com>
In article <398e789f$1_2@news.nwlink.com>, "Jack Thomas" <jthomas@pdxgothic.com> posted:
> Perl .pl and Perl .cgi are file types which are equivalent.
maybe. it depends on what importance a certain application places
on file extensions.
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Mongers <URL:http://www.perl.org/>
------------------------------
Date: 07 Aug 2000 15:34:05 GMT
From: abigail@foad.org (Abigail)
Subject: Re: dropping space from begginning & end of a string
Message-Id: <slrn8otlmq.st1.abigail@alexandra.foad.org>
Mark Worsdall (linux@worsdall.demon.co.uk) wrote on MMDXXXIII September
MCMXCIII in <URL:news:v3a3qSAGkqj5Ewix@worsdall.demon.co.uk>:
{}
{} How could I drop the space from the beginning and the end?
FAQ.
Abigail
--
perl -we'$;=$";$;{Just=>another=>Perl=>Hacker=>}=$/;print%;'
------------------------------
Date: 07 Aug 2000 15:35:13 GMT
From: abigail@foad.org (Abigail)
Subject: Re: dropping space from begginning & end of a string
Message-Id: <slrn8otlot.st1.abigail@alexandra.foad.org>
Yuval Buchner (yuval.buchner@intel.com) wrote on MMDXXXIII September
MCMXCIII in <URL:news:8mma94$a2e@news.or.intel.com>:
&&
&& $string =~ s/^\s*//; # truncate the leading spaces (replace them with null)
&& $string =~ s/\s*$//; # truncate the trailing spaces
Why spend resources replacing empty strings with empty strings.
Read the FAQ. Even if you think you know a solution.
Abigail
--
perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle'print +(
HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse (
LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET",
"http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content))
=~ /(.*\))[-\s]+Addition/s) [0]'
------------------------------
Date: Mon, 07 Aug 2000 11:00:35 -0500
From: Michael Carman <mjcarman@home.com>
Subject: Re: dropping space from begginning & end of a string
Message-Id: <398EDD23.EE0048C6@home.com>
Andreas Kahari wrote:
>
> Mark Worsdall <linux@worsdall.demon.co.uk> wrote:
> >
> >How could I drop the space from the beginning and the end?
>
> $string =~ s/^\s*|\s*$//g;
>
Two points:
1) Needless replacement of empty strings.
(You want '\s+', not '\s*')
2) The alternation makes it slower than splitting it into two
regex's.
As Abigail is trying to nudge everyone to do, look at the FAQ:
perldoc perlfaq4: "How do I strip blank space from the beginning/end of
a string?"
-mjc
------------------------------
Date: Mon, 07 Aug 2000 11:22:49 -0400
From: Drew Simonis <care227@attglobal.net>
Subject: Re: five lines of NQL or 45 lines of Perl hmmmm......
Message-Id: <398ED449.B428B6BD@attglobal.net>
Gwyn Judd wrote:
>
>
> You guys are weird
>
I just hate my job. It makes me silly.
------------------------------
Date: Mon, 07 Aug 2000 12:03:05 -0800
From: "Jeff Yoak" <jeff@yoak.com>
Subject: Re: Game programming in perl...?
Message-Id: <8mmq6p0lr1@news2.newsguy.com>
[posted and mailed]
In article <8mflpf$d8a$2@mark.ucdavis.edu>, Adam Trace Spragg
<spragg@cs.ucdavis.edu> wrote:
> I've created a play-by-email game. Perl was
> perfectly suited for this... reading in standard input files, processing
> the files, and creating the output which was then emailed off to the
> players.
That's cool. Can we see it in action?
Cheers,
Jeff
------------------------------
Date: Mon, 07 Aug 2000 17:09:59 GMT
From: hla_sa@my-deja.com
Subject: How to open web page from Perl script
Message-Id: <8mmqh2$aaj$1@nnrp1.deja.com>
I'm new to Perl and need to know how to open an existing web page from
within a Perl script. After a login verification my Perl script should
open a new web page in the browser. The login check is working but I
don't know how to redirect the browser to a new webpage
programmatically. A simple example should suffice. Thanks.
p.s. How is another Perl script called from with a running script ?
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 07 Aug 2000 12:28:54 -0500
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: How to open web page from Perl script
Message-Id: <87hf8xyo89.fsf@limey.hpcc.uh.edu>
>> On Mon, 07 Aug 2000 17:09:59 GMT,
>> hla_sa@my-deja.com said:
There's a number of questions in there, all related but
somewhat different.
> I'm new to Perl and need to know how to open an existing
> web page from within a Perl script.
with the LWP modules:
perldoc lwpcook
[ I think open() is a bit of a misnomer, "fetch" might be
better, or maybe it's just me... ]
> After a login verification my Perl script should open a
> new web page in the browser. The login check is working
If you're talking about the WWW and using the server's
(basic) protection mehanisms, then it's not "login", but
"authentication". If not, then you might need to expand
further on what you're doing.
You can send back a redirection,
perldoc CGI
redirect() method
> p.s. How is another Perl script called from with a
> running script ?
It depends on what you're trying to do. Do you want to
import some functionality from a module/library? Run a
standalone perl program on the server, possibly collecting
the output for processing and return to the requesting
client? Or do you want to cause some web server to invoke
something through CGI, and pass the parameters over like a
GET/POST request?
hth
t
--
"With $10,000, we'd be millionaires!"
Homer Simpson
------------------------------
Date: Mon, 07 Aug 2000 08:37:53 -0700
From: Samay <samay1NOsaSPAM@hotmail.com.invalid>
Subject: Hyperlink Patterns
Message-Id: <06ba2d80.66d12260@usw-ex0104-031.remarq.com>
Hi, I have bunch of hyperlinks, and I am trying to figure out
the different patterns.
Is there any simple program which exists to do this?
Sample patterns are:
xyz.htm
xyz.html
xyz.htm#abc
xyz.html#abc
http://www.somesite.com/dir1/dir2/xyz.htm
http://www.somesite.com/cgi-bin/script.pl?query
etc..
-----------------------------------------------------------
Got questions? Get answers over the phone at Keen.com.
Up to 100 minutes free!
http://www.keen.com
------------------------------
Date: Mon, 07 Aug 2000 17:28:08 GMT
From: noway@nohow.com
Subject: ignore IP address
Message-Id: <398ef17f.14854845@news>
Does anyone know how I can make a perl script ignore a certain IP
address?
------------------------------
Date: 07 Aug 2000 12:32:41 -0500
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: ignore IP address
Message-Id: <87em41yo1y.fsf@limey.hpcc.uh.edu>
>> On Mon, 07 Aug 2000 17:28:08 GMT,
>> noway@nohow.com said:
> Does anyone know how I can make a perl script ignore a
> certain IP address?
Blindfold it.
All we know is that you have some kind of perl program
which should do something when given (method unspecified)
a certain address.
Come on, there's *zero* useful information in your post.
How do you expect someone to help you if you don't provide
any context or details for what you're trying to do?
hth
t
--
"With $10,000, we'd be millionaires!"
Homer Simpson
------------------------------
Date: Mon, 07 Aug 2000 10:42:04 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: ignore IP address
Message-Id: <398EF4EC.B4BB0400@stomp.stomp.tokyo>
noway wrote:
> Does anyone know how I can make a perl script ignore
> a certain IP address?
if ($ENV{REMOTE_ADDR} eq "IP Address To Ignore")
{ exit; }
However there are more imaginative and gentle
ways to accomplish this task.
Godzilla!
--
Baby Blue, I will rock you.
http://la.znet.com/~callgirl3/babyblue.mid
------------------------------
Date: Mon, 07 Aug 2000 17:00:58 GMT
From: jonceramic@nospammiesno.earthlink.net (Jon S.)
Subject: Re: Is Learning Perl worth buying?
Message-Id: <398eea8e.13692683@news.earthlink.net>
On Thu, 03 Aug 2000 12:02:32 GMT, john_s_brown@my-deja.com wrote:
>I am beginning to learn Perl. I have read Robert's Perl Tutorial at
>http://www.netcat.co.uk/rob/perl/win32perltut.html almost completely. I
>don't have any earlier experience with C, C++ or the like, but I have
>programmed a bit with Turbo Pascal couple of years ago.
>
>Now, I would like to know if Learning Perl book is worth buying? There
>are two reasons why I don't rush to the bookstore and buy it right away:
>
>1. Learning Perl (2nd edition) is all about Perl 5, and I have
>installed Perl 5.6 on my machine! Do those Perl 5 tricks presented in
>Learning Perl book work with Perl version 6.5?
>
>2. As I said, I have read Robert's Perl tutorial almost completely.
>Would it be wiser with my previous knowledge to buy Programming Perl
>(3rd edition) instead of Learning Perl?
John,
As a newbie's newbie, I'm convinced that Learning Perl is a must read
for you, even if it isn't a must buy. Why? Because it shows you the
basic "form" that Perl code uses. Just holding Perl in a Nutshell in
my hands doesn't give me any of the nuances or reasons why. (Even
though I use it as much now as Learning Perl for code snippet
examples.)
But, if you're even considering buying as many as 2 of the OReilly
Perl books, you might as well buy the six pack on the CD that comes
with the print version of Perl in a Nutshell. I think they call it
Perl Bookshelf or something similar.
Jon
------------------------------
Date: Mon, 07 Aug 2000 10:03:02 -0400
From: brian@smithrenaud.com (brian d foy)
Subject: Re: is mysql faster using Perl or PHP?
Message-Id: <brian-ya02408000R0708001003020001@news.panix.com>
In article <398E3F6E.B46E5E19@softhome.net>, Kris Gonzalez <jimjamjoh@softhome.net> posted:
> From what I've read, PHP is designed with the intent of interacting with
> an SQL database
that's not the only thing PHP does. it can do that, but it is not
the core of it being, necesarily.
> (of which MySQL is one of the fastest, if not the most
> fully-featured).
MySQL is not even close to being fully-featured. it's missing a lot
of things which you can read about in its documentation.
> The Perl DBI allows interaction with SQL databases but
> is more taxing on resources than PHP.
perhaps you can elaborate. you don't seem to know anything about
PHP, Perl, or MySQL, so it's dubious that you could the grounds
for such a claim.
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Mongers <URL:http://www.perl.org/>
------------------------------
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 3936
**************************************
