[19728] in Perl-Users-Digest
Perl-Users Digest, Issue: 1923 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Oct 13 14:06:26 2001
Date: Sat, 13 Oct 2001 11:05:08 -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: <1002996308-v10-i1923@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sat, 13 Oct 2001 Volume: 10 Number: 1923
Today's topics:
Re: $query->param not working. (Eric Bohlman)
Re: $query->param not working. <news@scottbell.org>
Re: $query->param not working. (David Efflandt)
Re: $query->param not working. (Trewth Seeker)
Re: $query->param not working. <news@scottbell.org>
Re: 20-line webserver in perl ? <joe+usenet@sunstarsys.com>
Re: Difference between .pl, .cgi, and .pm File Extensio (Trewth Seeker)
Re: Difference between .pl, .cgi, and .pm File Extensio (Trewth Seeker)
Re: How do you get paid for Perl work over the Internet <spamhater@keepyourfilthyspamtoyourself.co.uk>
i need help please (JOSUESAINTVILLIE)
if(m:some_text:i) ???? <mario.lat@libero.it>
Re: if(m:some_text:i) ???? <tsee@gmx.net>
Re: if(m:some_text:i) ???? (John J. Trammell)
Re: if(m:some_text:i) ???? <jimbo@soundimages.co.uk>
IP faking <ant@tardis.ed.ac.uk>
Re: IP faking <jeff@vpservices.com>
Re: IP faking (Mark Jason Dominus)
Re: IP faking <jeff@vpservices.com>
Re: IP faking <pilsl_@goldfisch.at>
Re: Problems with Perl/cgi on webserver (David Efflandt)
Rookie with a perl issue (Choareau)
Re: Rookie with a perl issue <jeff@vpservices.com>
Re: Rookie with a perl issue <tsee@gmx.net>
Re: Rookie with a perl issue (Choareau)
Re: Rookie with a perl issue (Jason Kohles)
Re: Rookie with a perl issue <jeff@vpservices.com>
Re: Rookie with a perl issue (Choareau)
Re: Rookie with a perl issue (Mark Jason Dominus)
s/([^\n])</\1\n</g what does it means? <mario.lat@libero.it>
Re: s/([^\n])</\1\n</g what does it means? (John J. Trammell)
Re: s/([^\n])</\1\n</g what does it means? <tsee@gmx.net>
Re: s/([^\n])</\1\n</g what does it means? <jimbo@soundimages.co.uk>
Re: s/([^\n])</\1\n</g what does it means? (Garry Williams)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 13 Oct 2001 11:07:38 GMT
From: ebohlman@omsdev.com (Eric Bohlman)
Subject: Re: $query->param not working.
Message-Id: <9q979q$dsu$1@bob.news.rcn.net>
Scott Bell <news@scottbell.org> wrote:
> I have a simple CGI website, but I get this error:
> Can't call method "param" on an undefined value at
> /home/sbell/public_html/index.cgi line 52.
> The code thats causing the error is this:
> if ($query->param(content) eq home){
> print "home<br>\n";
> } else {
> print "<a href=\"?\">home</a><br>\n";
> }
That means that for whatever reason, $query never got set to anything
(either because you made no attempt to set it or your call to CGI's
constructor failed for some reason).
------------------------------
Date: Sat, 13 Oct 2001 12:50:57 +0100
From: "Scott Bell" <news@scottbell.org>
Subject: Re: $query->param not working.
Message-Id: <5SVx7.15377$oE5.1429675@news2-win.server.ntlworld.com>
Thanks, I missed out $query = new CGI;
--
Scott Bell
Email: scott@scottbell.org
The content of this message has been certified 100% correct.
Eric Bohlman <ebohlman@omsdev.com> wrote in message
news:9q979q$dsu$1@bob.news.rcn.net...
> Scott Bell <news@scottbell.org> wrote:
> > I have a simple CGI website, but I get this error:
>
> > Can't call method "param" on an undefined value at
> > /home/sbell/public_html/index.cgi line 52.
>
> > The code thats causing the error is this:
>
> > if ($query->param(content) eq home){
> > print "home<br>\n";
> > } else {
> > print "<a href=\"?\">home</a><br>\n";
> > }
>
> That means that for whatever reason, $query never got set to anything
> (either because you made no attempt to set it or your call to CGI's
> constructor failed for some reason).
>
------------------------------
Date: Sat, 13 Oct 2001 11:56:06 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: $query->param not working.
Message-Id: <slrn9sgaul.30m.efflandt@typhoon.xnet.com>
On Sat, 13 Oct 2001 10:59:16 +0100, Scott Bell <news@scottbell.org> wrote:
> I have a simple CGI website, but I get this error:
>
> Can't call method "param" on an undefined value at
> /home/sbell/public_html/index.cgi line 52.
>
> The code thats causing the error is this:
>
> if ($query->param(content) eq home){
> print "home<br>\n";
> } else {
> print "<a href=\"?\">home</a><br>\n";
> }
Clue, the undefined value it chokes on is the bareword: content. If it
had gotten past that, it would have errored on the bareword: home.
Try quoting any strings that are not variables:
if ($query->param('content') eq 'home'){
--
David Efflandt - All spam is ignored - http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://cgi-help.virtualave.net/ http://hammer.prohosting.com/~cgi-wiz/
------------------------------
Date: 13 Oct 2001 07:23:57 -0700
From: trewth_seeker@yahoo.com (Trewth Seeker)
Subject: Re: $query->param not working.
Message-Id: <d690a633.0110130623.43ff909c@posting.google.com>
"Scott Bell" <news@scottbell.org> wrote in message news:<zdUx7.10836$fo2.1290157@news6-win.server.ntlworld.com>...
> I have a simple CGI website, but I get this error:
>
> Can't call method "param" on an undefined value at
> /home/sbell/public_html/index.cgi line 52.
>
> The code thats causing the error is this:
>
> if ($query->param(content) eq home){
> print "home<br>\n";
> } else {
> print "<a href=\"?\">home</a><br>\n";
> }
>
>
> Can anyone tell me why this isn't working,
No, no one can.
> I got it to work for Perl on my
> Windows machine but on my shell account it doesn't.
------------------------------
Date: Sat, 13 Oct 2001 15:53:47 +0100
From: "Scott Bell" <news@scottbell.org>
Subject: Re: $query->param not working.
Message-Id: <vxYx7.16419$oE5.1610149@news2-win.server.ntlworld.com>
very helpful
--
Scott Bell
Email: scott@scottbell.org
The content of this message has been certified 100% correct.
Trewth Seeker <trewth_seeker@yahoo.com> wrote in message
news:d690a633.0110130623.43ff909c@posting.google.com...
> "Scott Bell" <news@scottbell.org> wrote in message
news:<zdUx7.10836$fo2.1290157@news6-win.server.ntlworld.com>...
> > I have a simple CGI website, but I get this error:
> >
> > Can't call method "param" on an undefined value at
> > /home/sbell/public_html/index.cgi line 52.
> >
> > The code thats causing the error is this:
> >
> > if ($query->param(content) eq home){
> > print "home<br>\n";
> > } else {
> > print "<a href=\"?\">home</a><br>\n";
> > }
> >
> >
> > Can anyone tell me why this isn't working,
>
> No, no one can.
>
> > I got it to work for Perl on my
> > Windows machine but on my shell account it doesn't.
------------------------------
Date: 13 Oct 2001 12:45:57 -0400
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Re: 20-line webserver in perl ?
Message-Id: <m3ofnbebei.fsf@mumonkan.sunstarsys.com>
Philip Newton <pne-news-20011013@newton.digitalspace.net> writes:
> On 12 Oct 2001 11:26:40 -0700, entropy@farviolet.com (Lawrence Foard)
> wrote:
>
> > 1) Education - If you really want to understand something doing it
> > from the ground up is the best way. This doesn't mean you
> > necessarily use the code in production, but the exercise means that
> > you really understand whats going on.
I disagree that this is the "best" way, or even the preferred one.
Having a fully functional implementation (which is what a module
typically represents) on which to base your work IME leads to much
quicker understanding. You can always peek under the hood if you
so desire.
There is certainly some value in putting together a toy model to
help understand the issues confronted by the module author, and how
he/she solved them. But I usually do that *after* I've tried using
the module, not beforehand.
> Reminds me of a quote that said something like "Inventing one's own
> templating system appears to be a kind of 'rite of passage'" to
> explain the proliferation of such systems.
The first time I saw this sentiment was Aug 2, 2000 on the modperl list:
http://groups.yahoo.com/group/modperl/message/26329
Randal L. Schwartz :
I think it's a rite of passage to look at all the templating systems,
and decide "I can do better, along axis $X", and write your own. Then
you discover after a while that:
a) writing templating systems is no fun the moment you let someone
else start using it, because they want feature $Y which you thought
nobody would need
b) you understand why that other package was so fat
:-)
Maybe we should have a "Congratulations: you wrote a templating system!"
web memorial. :)
One brief serious note: I think the fact that there are SO MANY is a
tribute to just how easy it is to process text in Perl. I don't think
there are 47 templating system for Java. :)
Besides, you can cram an awful lot of stuff in 4 lines of Perl :)
Joe Schaefer
--
$v="HTTP/1.0";$/="\r\n"x2;socket S,2,1,6;bind(S,pack'Snx12',2,80)||die;listen S
,8;for(*STDOUT=*C;accept(C,S);close){($_)=<C>=~/^GET\s+(\S+)/ or print("$v 400"
.$/),next;$ENV{QUERY_STRING}=s/\?(.+)//?$1:'';s/%(..)/chr hex$1/eg;-x$_?print(
"$v 200$/")&&do$_:open(F,$_)?print"$v 200$/",<F>:print"$v 404$/"for$ARGV[0].$_}
------------------------------
Date: 13 Oct 2001 06:22:01 -0700
From: trewth_seeker@yahoo.com (Trewth Seeker)
Subject: Re: Difference between .pl, .cgi, and .pm File Extensions.
Message-Id: <d690a633.0110130522.a94662f@posting.google.com>
"J?gen Exner" <jurgenex@hotmail.com> wrote in message news:<3ba66bbc@news.microsoft.com>...
> "Trewth Seeker" <trewth_seeker@yahoo.com> wrote in message
> news:d690a633.0109141629.1a2ebcf7@posting.google.com...
> > damian@qimr.edu.au (Damian James) wrote in message
> news:<slrn9pnqsr.o41.damian@puma.qimr.edu.au>...
> > > Trewth Seeker chose 6 Sep 2001 18:44:55 -0700 to say this:
> > > >"J?gen Exner" <jurgenex@hotmail.com> wrote in message
> news:<3b8fcb68$1@news.microsoft.com>...
> > > >> "Trewth Seeker" <trewth_seeker@yahoo.com> wrote in message
> > > >> news:d690a633.0108302015.60293f45@posting.google.com...
> > > >> > .pl and .cgi files also must be "installed onto a server" -- where
> *else*
> > > >> > do you expect them to be?
> > > >>
> > > >> Hmm, then I guess my computer is broken.
> > > >> If I type "foobar.cgi" at the command line my computer will run the
> program
> > > >> "foobar.cgi". No server of whatever kind involved here.
> > > >
> > > >Your PC is a server of a kind.
> > The issue here is the meaning of "server"
> > in various contexts. [...]
>
> So far agreed.
>
> > "server" means "HTTP server" only to ignoramuses. Do you suppose
> > a machine must have "perl installed" to run, say, an X server?
> > Or a time-sharing server? A PC is, as I said,
> > "a server of a kind" -- it serves up execution of programs.
>
> Well, ok, granted. As this is a rather uncommon (although not necessarily
> wrong) definition of "server" I hope you don't mind if I don't quite follow
> you.
You might have asked, instead of being a snide asshole.
> For me the simple local execution of a program does not involve a server, at
> least not in the context we are talking about here (if you go into the level
> of OS architecture then matters change, of course).
>
> jue
>
> jue
------------------------------
Date: 13 Oct 2001 06:25:24 -0700
From: trewth_seeker@yahoo.com (Trewth Seeker)
Subject: Re: Difference between .pl, .cgi, and .pm File Extensions.
Message-Id: <d690a633.0110130525.63d470f8@posting.google.com>
damian@qimr.edu.au (Damian James) wrote in message news:<slrn9qabkt.i3r.damian@puma.qimr.edu.au>...
> Trewth Seeker chose 14 Sep 2001 17:29:47 -0700 to say this:
> >I'd point you to the
> >philosophical literature of ontology to help clarify your thinking
> >about what "is", if I thought it would do any good -- "dude".
>
> BTDTGTTS. Ontology is seldom any good at making things clearer.
As I suggested, it won't do *you* any good.
------------------------------
Date: Sat, 13 Oct 2001 11:20:07 +0100
From: Alan Wrigley <spamhater@keepyourfilthyspamtoyourself.co.uk>
Subject: Re: How do you get paid for Perl work over the Internet??
Message-Id: <02c0c1c84a.spamhater@keepyourfilthyspamtoyourself.co.uk>
In message <MPG.16313ff14741c3a79897ad@news.edmonton.telusplanet.net>
Carlos C. Gonzalez <aperlprogrammer@yahoo.com> wrote:
> I am
> especially interested in hearing from brand new, beginning programmers
> who might want to handle excess work in exchange for a commission to me.
And why on earth would anyone pay to commision work that's going to be
sub-contracted to novices?
Alan
------------------------------
Date: 13 Oct 2001 13:42:30 GMT
From: josuesaintvillie@aol.com (JOSUESAINTVILLIE)
Subject: i need help please
Message-Id: <20011013094230.28876.00003027@mb-cl.aol.com>
i need some help. i am a student in computer science. i am studying operating
system. my professor gave me a homework to do. could you help me please.
The homework consists of finding data structure used to manage a processor. he
told me to find any description of the object. please help me. this homework is
due monday the 15 november 2001
------------------------------
Date: Sat, 13 Oct 2001 15:22:41 GMT
From: "_Mario Latens" <mario.lat@libero.it>
Subject: if(m:some_text:i) ????
Message-Id: <20011013.171900.680466996.1838@localhost.localdomain>
what does it means?
if(m:some_taxt:i)
shoud find the "some_text" but how it works?
m: ?
:i?
what these are?
Thakyou in advance, Mario.
------------------------------
Date: Sat, 13 Oct 2001 17:26:22 +0200
From: "Steffen Müller" <tsee@gmx.net>
Subject: Re: if(m:some_text:i) ????
Message-Id: <9q9mcn$9c8$00$1@news.t-online.com>
"_Mario Latens" <mario.lat@libero.it> schrieb im Newsbeitrag
news:20011013.171900.680466996.1838@localhost.localdomain...
> if(m:some_taxt:i)
evaluates the regular expression m/some_text/i.
From perlre manpage:
Matching operations can have various modifiers. Modifiers that relate to the
interpretation of the regular expression inside are listed below. Modifiers
that alter the way a regular expression is used by Perl are detailed in
perlop/"Regexp Quote-Like Operators" and perlop/"Gory details of parsing
quoted constructs".
i
Do case-insensitive pattern matching.
If use locale is in effect, the case map is taken from the current locale.
See perllocale.
m
Treat string as multiple lines. That is, change "^" and "$" from matching
the start or end of the string to matching the start or end of any line
anywhere within the string.
s
Treat string as single line. That is, change "." to match any character
whatsoever, even a newline, which normally it would not match.
The /s and /m modifiers both override the $* setting. That is, no matter
what $* contains, /s without /m will force "^" to match only at the
beginning of the string and "$" to match only at the end (or just before a
newline at the end) of the string. Together, as /ms, they let the "." match
any character whatsoever, while still allowing "^" and "$" to match,
respectively, just after and just before newlines within the string.
> shoud find the "some_text" but how it works?
> m: ?
> :i?
> what these are?
As you now know where to find more information, you will certainly consult
the manual that comes with Perl, won't you?
Steffen
------------------------------
Date: Sat, 13 Oct 2001 10:46:15 -0500
From: trammell@haqq.hypersloth.invalid (John J. Trammell)
Subject: Re: if(m:some_text:i) ????
Message-Id: <slrn9sgoe7.d8a.trammell@haqq.hypersloth.net>
On Sat, 13 Oct 2001 15:22:41 GMT, _Mario Latens <mario.lat@libero.it> wrote:
> what does it means?
>
> if(m:some_taxt:i)
>
> shoud find the "some_text" but how it works?
> m: ?
> :i?
> what these are?
The piece of code
m:some_text:i
is the same thing as
/some_text/i
It's handy to be able to use different characters than "/"
to limit the pattern, like for filenames:
/\/usr\/home\/foo/
can be rewritten like
m:/usr/home/foo:
or even
m[/usr/home/foo]
The "i" at the end stands for case-insensitive matching. This is
all documented in the "perlop" manual page, or at www.perldoc.com,
or lots of other places.
--
Never hit anyone with glasses. Instead, use your fist.
------------------------------
Date: Sat, 13 Oct 2001 17:33:35 +0100
From: "jimbo" <jimbo@soundimages.co.uk>
Subject: Re: if(m:some_text:i) ????
Message-Id: <v1_x7.9810$yL4.63745@NewsReader>
> Never hit anyone with glasses. Instead, use your fist.
Insofar as Mario is concerned, I couldn't agree. more.
At least this time I didn't suggest one should RTFM.
jimbo
;-)
------------------------------
Date: Sat, 13 Oct 2001 15:44:31 +0100
From: Anthony Clifford <ant@tardis.ed.ac.uk>
Subject: IP faking
Message-Id: <Pine.GS4.4.33.0110131540060.13730-100000@omega.tardis.ed.ac.uk>
Hello,
I am trying to duplicate a database held on the web, by sending recursive
queries to the web form using the code at the bottom of this email. My
problem is since I will need to send up to 10 million requests, I am
assummed to be mounting some kind of server attack and the IP i use gets
banned. Is there some way to persuade the server that the requests are
coming from different IP addresses?
The script will run over a few weeks, I'm not cruel enough to try and get
all X million in a weekend!
cheers
ant
sub GetURL
{
my ($inURL) = @_;
my ($ua, $request, $response);
$ua = new LWP::UserAgent;
$request = new HTTP::Request 'GET', $inURL;
$response = $ua->request($request);
if ($response->is_success) {
return $response->content;
} else {
return $response->error_as_HTML;
}
}
------------------------------
Date: Sat, 13 Oct 2001 08:00:20 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: IP faking
Message-Id: <3BC85704.21AC8E3C@vpservices.com>
Anthony Clifford wrote:
>
> I am trying to duplicate a database held on the web, by sending recursive
> queries to the web form using the code at the bottom of this email. My
> problem is since I will need to send up to 10 million requests, I am
> assummed to be mounting some kind of server attack and the IP i use gets
> banned.
Why don't you ask whomever owns the database if and how they would like
to share the data with you and get it whatever way they suggest?
> Is there some way to persuade the server that the requests are
> coming from different IP addresses?
Can you give me the keys to your house? (and everyone else's house)
> The script will run over a few weeks, I'm not cruel enough to try and get
> all X million in a weekend!
I will be burglarizing your house over a month, I am not cruel enough to
steal everything in a weekend.
--
Jeff
------------------------------
Date: Sat, 13 Oct 2001 15:49:36 GMT
From: mjd@plover.com (Mark Jason Dominus)
Subject: Re: IP faking
Message-Id: <3bc8628f.4d55$20f@news.op.net>
In article <Pine.GS4.4.33.0110131540060.13730-100000@omega.tardis.ed.ac.uk>,
Anthony Clifford <ant@tardis.ed.ac.uk> wrote:
>
>I am trying to duplicate a database held on the web, by sending recursive
>queries to the web form using the code at the bottom of this email. My
>problem is since I will need to send up to 10 million requests, I am
>assummed to be mounting some kind of server attack and the IP i use gets
>banned.
You ARE mounting a server attack.
>Is there some way to persuade the server that the requests are coming
>from different IP addresses?
Why, so you can overload this server for the purpose of copying this
data that the server owner obviously doesn't want you to copy? I
would ban you too under these circumstances.
Anyway, the answer is yes, you can persuade the server that the
requests are coming from different addresses. But it would send the
responses back to those addresses and not to you. You would not be
able to get the results.
--
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
------------------------------
Date: Sat, 13 Oct 2001 09:02:20 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: IP faking
Message-Id: <3BC8658C.CC8DBBF9@vpservices.com>
> Anthony Clifford wrote in an unasked for private email to me:
>
> Jeff Zucker wrote:
>>
>> Anthony Clifford wrote:
>>
>>> The script will run over a few weeks, I'm not cruel enough to try and get
>>> all X million in a weekend!
>>
>> I will be burglarizing your house over a month, I am not cruel enough to
>> steal everything in a weekend.
>
> Your analogy is flawed - you already have the keys to my house
> you can visit whenever you want, you can visit so often that it seems as
> if you are staying here..
>
> think about it, it is data published on the web, i am not stealing
> anything, just trying to make my end more efficient.
A. You are stealing bandwidth from the server and download time from the
other users, otherwise you would not have been banned from the server in
the first place.
B. If you are not stealing anything, then what is wrong with my
suggestion to ask the database owners the best method of getting the
data and cooperating with them?
C. Because a database is available for individual searches on the web
does not mean that it is defacto being made freely available as a
whole. That's like saying that a radio station playing cuts from a CD
is the same as giving you the whole CD.
D. Whether or not there is anything wrong with you obtaining this
particular data, you have asked for us to help you use a tool which can
easily be used to obtain any other kind of data under false pretenses.
I'm not claiming you're the world's worst person for trying to do what
you asked about and in fact your goals may be quite innocent. But
please don't try to convince us (or yourself) that what you are doing is
without moral implications.
> try to be helpful in your next post
Am I only allowed to be helpful to you, or may I also be helpful to
people who provide and maintain web resources for the public and who
have to deal with people like you?
--
Jeff
------------------------------
Date: Sat, 13 Oct 2001 18:29:35 +0200
From: peter pilsl <pilsl_@goldfisch.at>
Subject: Re: IP faking
Message-Id: <3bc86bf4$2@e-post.inode.at>
Anthony Clifford wrote:
>
> Hello,
> I am trying to duplicate a database held on the web, by sending recursive
> queries to the web form using the code at the bottom of this email. My
> problem is since I will need to send up to 10 million requests, I am
> assummed to be mounting some kind of server attack and the IP i use gets
> banned. Is there some way to persuade the server that the requests are
> coming from different IP addresses?
>
> The script will run over a few weeks, I'm not cruel enough to try and get
> all X million in a weekend!
>
I also think that there can be a moral and a legal problem. The way you
want to fetch the date assumes that the current 'owner' of the data does
not want to give em to you.
you argument that everything that is offered on a webpage is 'public
property' is obviously wrong. If I own content and offer this content on my
webpage then the content still belongs to me. I give out the right to view
this content as soon as I put in on a public webserver, but I do not give
out the right to process or do mass-copies. This is a very very basic and
important aspect of copyright.
I would recommend contacting the author and tell him what you want and
maybe he gives you a databasedump. If not, bad luck.
On the other side: if this is a database that has great public interest and
the owner offers the content in a very useless way or the 'owner' isnt even
the owner, then I would agree that there could be need for a 'hidden
transfer' of the database to make this world better. I'm sure then one
could find a way to hide the true 'attacker' :)
But : if you offer the same content later, you will have to reveal your
identity (via the whois-database) anyway. So I'm not clear about your
motive.
Maybe you want to tell more about your 'project' ;)
best,
peter
--
peter pilsl
pilsl_@goldfisch.at
http://www.goldfisch.at
------------------------------
Date: Sat, 13 Oct 2001 12:22:32 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: Problems with Perl/cgi on webserver
Message-Id: <slrn9sgcg7.30m.efflandt@typhoon.xnet.com>
On Fri, 12 Oct 2001 22:41:00 -0700, Arm123 <wienerpatrolinc@hotmail.com> wrote:
> Hi there, I know this probably does not belong in this group but i have
> tried others and somebody told me to look around the perl newsgroups. I
> have setup an Apache webserver for the first time. It is going to have
> a few Virtual hosts set up on it. I am not having any problems with
> that. However, I am having trouble getting things to run the way I want
> to.
Somebody steered you wrong. You likely have an Apache config problem
which should be asked in a *www.server* (or is it *server.www*) group.
Since you want to run CGI anywhere, besides Options ExecCGI (or All covers
that), you also need to uncomment or add the following to your httpd.conf:
# If you want to use server side includes, or CGI outside
# ScriptAliased directories, uncomment the following lines.
#
# To use CGI scripts:
#
AddHandler cgi-script .cgi
Note that this is a space separated list of file extensions. For example
if you also want to enable .pl as CGI it would be:
AddHandler cgi-script .cgi .pl
But it is really best to stick to .cgi for all CGI scripts or programs so
you can tell them from shell scripts.
--
David Efflandt - All spam is ignored - http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://cgi-help.virtualave.net/ http://hammer.prohosting.com/~cgi-wiz/
------------------------------
Date: 13 Oct 2001 15:17:09 GMT
From: choareau@aol.com (Choareau)
Subject: Rookie with a perl issue
Message-Id: <20011013111709.20398.00007269@mb-ch.aol.com>
Hello guys,
I am just starting to evaluate perl capabilities.
I am launching a test script in a MSDOS windows.
each time I ask for an input with <STDIN> through a variable, if I do a
"print()" of the variable I get nothing on the screen.
Does it make sense?
Regards and thank you.
------------------------------
Date: Sat, 13 Oct 2001 08:21:30 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: Rookie with a perl issue
Message-Id: <3BC85BFA.7F24A410@vpservices.com>
Choareau wrote:
>
> I am just starting to evaluate perl capabilities.
> I am launching a test script in a MSDOS windows.
> each time I ask for an input with <STDIN> through a variable, if I do a
> "print()" of the variable I get nothing on the screen.
> Does it make sense?
There's no way for us to comment without seeing the actual code you are
using.
--
Jeff
------------------------------
Date: Sat, 13 Oct 2001 17:27:29 +0200
From: "Steffen Müller" <tsee@gmx.net>
Subject: Re: Rookie with a perl issue
Message-Id: <9q9mep$hav$05$1@news.t-online.com>
"Choareau" <choareau@aol.com> schrieb im Newsbeitrag
news:20011013111709.20398.00007269@mb-ch.aol.com...
>
> Hello guys,
>
> I am just starting to evaluate perl capabilities.
> I am launching a test script in a MSDOS windows.
> each time I ask for an input with <STDIN> through a variable, if I do a
> "print()" of the variable I get nothing on the screen.
> Does it make sense?
No. Please post a code example.
And there is no MSDOS windows. :)
Steffen
------------------------------
Date: 13 Oct 2001 15:33:38 GMT
From: choareau@aol.com (Choareau)
Subject: Re: Rookie with a perl issue
Message-Id: <20011013113338.20398.00007275@mb-ch.aol.com>
#/usr/local/bin/perl
print("Entrez l'adresse du Packetshaper \n");
$Ipadresse= <STDIN>;
chop($ipadresse);
print(" salut voici l'adresse");
print($ipadresse, "\n");
@tabipadresse = $ipadresse;
$longtab=@tabipadress;
------------------------------
Date: 13 Oct 2001 15:37:03 GMT
From: usenet@jasonkohles.com (Jason Kohles)
Subject: Re: Rookie with a perl issue
Message-Id: <slrn9sgnq3.fd5.usenet@poseidon.mediabang.com>
On 13 Oct 2001 15:33:38 GMT, Choareau wrote:
>#/usr/local/bin/perl
>
>print("Entrez l'adresse du Packetshaper \n");
>$Ipadresse= <STDIN>;
>chop($ipadresse);
>print(" salut voici l'adresse");
>print($ipadresse, "\n");
>@tabipadresse = $ipadresse;
>$longtab=@tabipadress;
$Ipadresse and $ipadresse are not the same variable, case is important.
--
Jason S Kohles
email@jasonkohles.com http://www.jasonkohles.com/
------------------------------
Date: Sat, 13 Oct 2001 08:37:32 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: Rookie with a perl issue
Message-Id: <3BC85FBC.3286B9D9@vpservices.com>
Choareau wrote:
>
> #/usr/local/bin/perl
If you change that line to these two:
#!/user/local/bin/perl -w
use strict;
Then perl itself will tell you what is wrong with your script.
--
Jeff
------------------------------
Date: 13 Oct 2001 15:42:08 GMT
From: choareau@aol.com (Choareau)
Subject: Re: Rookie with a perl issue
Message-Id: <20011013114208.20398.00007281@mb-ch.aol.com>
Great and thanks to all who cared about me.
------------------------------
Date: Sat, 13 Oct 2001 15:43:16 GMT
From: mjd@plover.com (Mark Jason Dominus)
Subject: Re: Rookie with a perl issue
Message-Id: <3bc86113.4d35$35a@news.op.net>
In article <20011013113338.20398.00007275@mb-ch.aol.com>,
Choareau <choareau@aol.com> wrote:
>$Ipadresse= <STDIN>;
>print($ipadresse, "\n");
'Ipaddresse' and 'ipaddresse' are not the same.
One has capital 'I' and the other has small 'i'.
The data from STDIN is stored in 'Ipaddresse'.
But you are printing 'ipaddresse', which is still empty.
--
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
------------------------------
Date: Sat, 13 Oct 2001 15:19:34 GMT
From: "_Mario Latens" <mario.lat@libero.it>
Subject: s/([^\n])</\1\n</g what does it means?
Message-Id: <20011013.171553.1789366143.1838@localhost.localdomain>
I'm studing perl and I found a line:
s/([^\n])</\1\n</g
What does it means?
Thankyou in advance, Mario.
------------------------------
Date: Sat, 13 Oct 2001 10:53:20 -0500
From: trammell@haqq.hypersloth.invalid (John J. Trammell)
Subject: Re: s/([^\n])</\1\n</g what does it means?
Message-Id: <slrn9sgorg.d8a.trammell@haqq.hypersloth.net>
On Sat, 13 Oct 2001 15:19:34 GMT, _Mario Latens <mario.lat@libero.it> wrote:
> I'm studing perl and I found a line:
> s/([^\n])</\1\n</g
>
> What does it means?
> Thankyou in advance, Mario.
s/// is the substitution operator; it lets you modify strings.
It's documented in perlop, right next to m//. :-)
--
[M]en become civilized, not in proportion to their willingness to believe,
but in proportion to their willingness to doubt. - H.L. Mencken
------------------------------
Date: Sat, 13 Oct 2001 17:34:50 +0200
From: "Steffen Müller" <tsee@gmx.net>
Subject: Re: s/([^\n])</\1\n</g what does it means?
Message-Id: <9q9ou1$ekc$03$1@news.t-online.com>
"_Mario Latens" <mario.lat@libero.it> schrieb im Newsbeitrag
news:20011013.171553.1789366143.1838@localhost.localdomain...
> I'm studing perl and I found a line:
> s/([^\n])</\1\n</g
>
> What does it means?
It does mean you should read my other post, read perlre and RTFM in general.
"The bracketing construct ( ... ) creates capture buffers. To refer to the
digit'th buffer use \<digit> within the match. Outside the match use "$"
instead of "\". (The \<digit> notation works in certain circumstances
outside the match. See the warning below about \1 vs $1 for details.)
Referring back to another part of the match is called a backreference."
This appends a newline to all matches of the character class [^\n]. Now,
read perlre to get to know what a character class is.
Steffen
------------------------------
Date: Sat, 13 Oct 2001 17:35:33 +0100
From: "jimbo" <jimbo@soundimages.co.uk>
Subject: Re: s/([^\n])</\1\n</g what does it means?
Message-Id: <l3_x7.18821$U97.99288@NewsReader>
> > What does it means?
>
> It does mean you should read my other post, read perlre and RTFM in
general.
Now, now. It's considered heresy around these parts to *even* suggest
such thoughts. Let alone speak them publicly.
jimbo
;-)
------------------------------
Date: Sat, 13 Oct 2001 16:50:49 GMT
From: garry@ifr.zvolve.net (Garry Williams)
Subject: Re: s/([^\n])</\1\n</g what does it means?
Message-Id: <slrn9sgs79.h8m.garry@zfw.zvolve.net>
On Sat, 13 Oct 2001 10:53:20 -0500, John J. Trammell
<trammell@haqq.hypersloth.invalid> wrote:
> On Sat, 13 Oct 2001 15:19:34 GMT, _Mario Latens <mario.lat@libero.it> wrote:
>> I'm studing perl and I found a line:
>> s/([^\n])</\1\n</g
>>
>> What does it means?
>> Thankyou in advance, Mario.
>
> s/// is the substitution operator; it lets you modify strings.
> It's documented in perlop, right next to m//. :-)
Well, yes, but that didn't really get the question answered. The
perlre manual page will be necessary as well. Between the two, you
will find what you need.
As to the substitution, it matches a single character that is anything
but a new line character followed by a `<'. It also captures the
character matched before the `<'. Once the two characters are
matched, they are substituted with the captured character before the
`<' followed by a new line followed by `<'. The /g modifier will
cause the substitution to be performed on all occurrences of the
pattern.
The example that the OP gives indicates that the coder did not
understand the substitution operator very well. The example should be
rewritten:
s/(.)</$1\n</g
Without the /s modifier, the `.' *is* `[^\n]'. The backreference in
the code from the OP is incorrect (although it is allowed). See
perlop and perlre.
--
Garry Williams
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.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 V10 Issue 1923
***************************************
