[13135] in Perl-Users-Digest
Perl-Users Digest, Issue: 545 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Aug 15 19:07:19 1999
Date: Sun, 15 Aug 1999 16:05:16 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 15 Aug 1999 Volume: 9 Number: 545
Today's topics:
Re: BOOLEAN SEARCH (Bart Lateur)
Re: CGI.pm persistent data: Security risk? (Abigail)
Re: child process don't end before getting output? (Abigail)
Re: closing browser window (Abigail)
Re: closing browser window (Michel Dalle)
Creating hotlinks out of plain URLs in Perl. <sunfox@sunwerx.com>
Re: Creating hotlinks out of plain URLs in Perl. (Abigail)
error message?? is there another way <mcmike123@worldnet.att.net>
Re: error message?? is there another way (Bill Moseley)
Re: Files exploding on me and I'm not sure why (Bart Lateur)
Re: HARASSMENT -- Monthly Autoemail <drclue@drclue.net>
Re: HARASSMENT -- Monthly Autoemail (Dave Salovesh)
Re: i cann't read and write at the sametime (Abigail)
Re: intel machines: what freebie compilers available? (Bart Lateur)
Re: intel machines: what freebie compilers available? (Abigail)
Re: Looking for a Regular Expression to do an exact mat (Bart Lateur)
Re: Nastiness contrary to the spirit of perl? (Id Est)
Re: Nastiness contrary to the spirit of perl? <mike@crusaders.no>
Re: Nastiness contrary to the spirit of perl? (Abigail)
Re: newbie search script help <cmd@maths.uq.edu.au>
Peace in our time? Alas no. Was: Why use Python when we <JamesL@Lugoj.Com>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 15 Aug 1999 21:51:42 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: BOOLEAN SEARCH
Message-Id: <37b93577.1664557@news.skynet.be>
inlandpac@my-deja.com wrote:
>I need to take the initial search keyword (let's use 'pepsi') and then
>search each URL that comes up with that keyword for the keyword and one
>extra word (let's use 'like') but with these limitations:
>
>'pepsi' and 'like' cannot be one word,
>'pepsi' and 'like' cannot be one right after each other (such as, "I
>like pepsi"),
>and the words must be within one word of each other (such as, "Pepsi is
>like....).
>
>Does anyone know how to create this search pattern?
/\bpepsi\W+\w+\W+like\b|\blike\W+\w+\W+pepsi\b/
although it's a bit permissive on the definition of a "word": it must
contain letters, digits or underscores. If you want a more strict,
letter only, rule, then replace "\w" with "[a-zA-Z]" and "\W" with
"[^a-zA-Z]". Add accented characters, and maybe the hyphen, if you like.
Bart.
------------------------------
Date: 15 Aug 1999 17:25:43 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: CGI.pm persistent data: Security risk?
Message-Id: <slrn7refks.81j.abigail@alexandra.delanet.com>
Jeff Zucker (jeff@vpservices.com) wrote on MMCLXXIV September MCMXCIII in
<URL:news:37B4E1B6.B005BA0A@vpservices.com>:
^^
^^ Let's look at that line a piece at a time:
^^
^^ http://bigidiot.abuse-me.com ON THE MACHINE BIGIDIOT.ABUSE-ME.COM
^^ /cgi-bin/perl.exe?-e+ USE PERL TO EVAL (RUN)
^^ `format:%20c` THE SYSTEM COMMAND "FORMAT DRIVE C"
^^
^^ Get it?
No, frankly, I don't get it. Why would bigidiot.abuse-me.com run a
web server that's not CGI compliant? Surely, a CGI compliant server
would call that in the equivalent of:
export QUERY_STRING='-e \`format: c\`'
perl.exe
Now, I've yet the hear of a Perl that takes the environment variable
QUERY_STRING, and treats it as command line parameters.
You may mean the URL should read ".../perl.exe+-e+`format:%20c`".
But that's still safe if the web server checks for the existance of
a program before calling it. And there's no file by the name
"perl.exe -e `format: c`".
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";`$@`'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 15 Aug 1999 17:31:28 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: child process don't end before getting output?
Message-Id: <slrn7refvu.81j.abigail@alexandra.delanet.com>
Lan Chai (anonymous@web.remarq.com) wrote on MMCLXXIII September MCMXCIII
in <URL:news:934578534.14401@www.remarq.com>:
^^ Hi everyone. I'm a newbie so go easy on me :^). Here's my
^^ problem. I'm making a program that "rup" but it's not
^^ working (obviously, why else will I post here?). I
^^ notice that "rup" takes a long time to quit if the
^^ server is down, so I try to make a named pipe to open
^^ it and time it to see if it's working longer than a time
^^ limit and if so kill it. Here's my attempt:
^^
^^ $timeout = 0.25; #0.25 seconds as a time limit
^^ $pid = open (RUP, "rup $server|");
^^ select RUP; $| = 1;
^^ $timestart = gettimeofday; #Time:HiRes used
^^ while (gettimeofday - $timestart < $timeout) {
^^ if (!kill (0, $pid)) { #rup died?
^^ #gets the output from the pipe
^^ #print the rup things
^^ }
^^ last;
^^ }
^^ if (gettimeofday - $timestart >= $timeout) {
^^ print STDOUT "$server timed out\n";
^^ kill (9, $pid);
^^ }
^^
^^ The output is always "timed out", even though I know rupping
^^ that server takes faster than 0.25 seconds. I am thinking
^^ that the child process doesn't really end before I get its
^^ output, is that true?
Well, you wouldn't want your pipe to die before you read your output,
would you? The pid returned from open is the pid of the child process,
not the rup. The child shouldn't terminate untill you do the close.
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 15 Aug 1999 17:32:45 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: closing browser window
Message-Id: <slrn7reg2b.81j.abigail@alexandra.delanet.com>
Eli Smets (Eli.Smets@advalvas.be) wrote on MMCLXXV September MCMXCIII in
<URL:news:7p72uj$6c6$1@nickel.uunet.be>:
{} Is it possible to close the active browser window from within perl code?
Sure, kill the browser. ;-) Some browers allow remote commands, and
you might use them to send commands. Read the manual of your browser.
Abigail
--
perl -MNet::Dict -we '(Net::Dict -> new (server => "dict.org")
-> define ("foldoc", "perl")) [0] -> print'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sun, 15 Aug 1999 22:34:00 GMT
From: michel.dalle@usa.net (Michel Dalle)
Subject: Re: closing browser window
Message-Id: <7p7f6p$iql$1@xenon.inbe.net>
In article <7p72uj$6c6$1@nickel.uunet.be>, "Eli Smets" <Eli.Smets@advalvas.be> wrote:
>Is it possible to close the active browser window from within perl code?
>
Yes. Here's a three-step program to do it :
1) find out what JavaScript code will close() a window.
2) write a CGI script in Perl that prints out that JavaScript code
3) install the CGI on your webserver and call it from your browser
Of course, your browser may decide not to close itself anyway,
or may ask the user whether he agrees to close that window...
Or he may have disabled JavaScript, for that matter. Hey,
nobody's perfect :-)
Have fun,
Michel.
------------------------------
Date: Sun, 15 Aug 1999 21:09:00 GMT
From: "Sunfox" <sunfox@sunwerx.com>
Subject: Creating hotlinks out of plain URLs in Perl.
Message-Id: <M%Ft3.105842$U42.130683@news1.rdc1.bc.home.com>
It seems no one can help with my problem, so I'll try re-wording.
I'm reading in text from a raw file for formatting on the web. Don't worry,
I don't need help with CGI or anything like that - this is a Perl question.
This text contains numerous URLs, in the format http://www.blah.com and I
would like to re-work those so the finished text displayed is in proper HTML
format - <A HREF="http://www.blah.com">http://www.blah.com">.
Now, I figure I need to search for a reference to http://. Then strip the
remain text up until the next space and put it in $url -
http://www.blah.com. From there I need to insert/replace it in the finished
text. Now here's my problem. I'm having difficulty finding references to
http:// and stripping the complete remain text in order to format EACH URL
individually. Can anyone help with the logic or code to this issue?
Thanks very much in advance.
------------------------------
Date: 15 Aug 1999 17:39:39 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Creating hotlinks out of plain URLs in Perl.
Message-Id: <slrn7regf5.81j.abigail@alexandra.delanet.com>
Sunfox (sunfox@sunwerx.com) wrote on MMCLXXV September MCMXCIII in
<URL:news:M%Ft3.105842$U42.130683@news1.rdc1.bc.home.com>:
|| It seems no one can help with my problem, so I'll try re-wording.
||
|| I'm reading in text from a raw file for formatting on the web. Don't worry,
|| I don't need help with CGI or anything like that - this is a Perl question.
|| This text contains numerous URLs, in the format http://www.blah.com and I
|| would like to re-work those so the finished text displayed is in proper HTML
|| format - <A HREF="http://www.blah.com">http://www.blah.com">.
That's an unclosed anchor element.
|| Now, I figure I need to search for a reference to http://. Then strip the
|| remain text up until the next space and put it in $url -
It's a bit more complicated than that.
|| http://www.blah.com. From there I need to insert/replace it in the finished
|| text. Now here's my problem. I'm having difficulty finding references to
|| http:// and stripping the complete remain text in order to format EACH URL
|| individually. Can anyone help with the logic or code to this issue?
Sure. Assume your text is in $text.
$text =~ s {(
(?:http://(?:(?:(?:(?:(?:[a-zA-Z\d](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?)\.
)*(?:[a-zA-Z](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?))|(?:(?:\d+)(?:\.(?:\d+)
){3}))(?::(?:\d+))?)(?:/(?:(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F
\d]{2}))|[;:@&=])*)(?:/(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{
2}))|[;:@&=])*))*)(?:\?(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{
2}))|[;:@&=])*))?)?)|(?:ftp://(?:(?:(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?
:%[a-fA-F\d]{2}))|[;?&=])*)(?::(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-
fA-F\d]{2}))|[;?&=])*))?@)?(?:(?:(?:(?:(?:[a-zA-Z\d](?:(?:[a-zA-Z\d]|-
)*[a-zA-Z\d])?)\.)*(?:[a-zA-Z](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?))|(?:(?
:\d+)(?:\.(?:\d+)){3}))(?::(?:\d+))?))(?:/(?:(?:(?:(?:[a-zA-Z\d$\-_.+!
*'(),]|(?:%[a-fA-F\d]{2}))|[?:@&=])*)(?:/(?:(?:(?:[a-zA-Z\d$\-_.+!*'()
,]|(?:%[a-fA-F\d]{2}))|[?:@&=])*))*)(?:;type=[AIDaid])?)?)|(?:news:(?:
(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[;/?:&=])+@(?:(?:(
?:(?:[a-zA-Z\d](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?)\.)*(?:[a-zA-Z](?:(?:[
a-zA-Z\d]|-)*[a-zA-Z\d])?))|(?:(?:\d+)(?:\.(?:\d+)){3})))|(?:[a-zA-Z](
?:[a-zA-Z\d]|[_.+-])*)|\*))|(?:nntp://(?:(?:(?:(?:(?:[a-zA-Z\d](?:(?:[
a-zA-Z\d]|-)*[a-zA-Z\d])?)\.)*(?:[a-zA-Z](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d
])?))|(?:(?:\d+)(?:\.(?:\d+)){3}))(?::(?:\d+))?)/(?:[a-zA-Z](?:[a-zA-Z
\d]|[_.+-])*)(?:/(?:\d+))?)|(?:telnet://(?:(?:(?:(?:(?:[a-zA-Z\d$\-_.+
!*'(),]|(?:%[a-fA-F\d]{2}))|[;?&=])*)(?::(?:(?:(?:[a-zA-Z\d$\-_.+!*'()
,]|(?:%[a-fA-F\d]{2}))|[;?&=])*))?@)?(?:(?:(?:(?:(?:[a-zA-Z\d](?:(?:[a
-zA-Z\d]|-)*[a-zA-Z\d])?)\.)*(?:[a-zA-Z](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d]
)?))|(?:(?:\d+)(?:\.(?:\d+)){3}))(?::(?:\d+))?))/?)|(?:gopher://(?:(?:
(?:(?:(?:[a-zA-Z\d](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?)\.)*(?:[a-zA-Z](?:
(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?))|(?:(?:\d+)(?:\.(?:\d+)){3}))(?::(?:\d+
))?)(?:/(?:[a-zA-Z\d$\-_.+!*'(),;/?:@&=]|(?:%[a-fA-F\d]{2}))(?:(?:(?:[
a-zA-Z\d$\-_.+!*'(),;/?:@&=]|(?:%[a-fA-F\d]{2}))*)(?:%09(?:(?:(?:[a-zA
-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[;:@&=])*)(?:%09(?:(?:[a-zA-Z\d$
\-_.+!*'(),;/?:@&=]|(?:%[a-fA-F\d]{2}))*))?)?)?)?)|(?:wais://(?:(?:(?:
(?:(?:[a-zA-Z\d](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?)\.)*(?:[a-zA-Z](?:(?:
[a-zA-Z\d]|-)*[a-zA-Z\d])?))|(?:(?:\d+)(?:\.(?:\d+)){3}))(?::(?:\d+))?
)/(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))*)(?:(?:/(?:(?:[a-zA
-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))*)/(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(
?:%[a-fA-F\d]{2}))*))|\?(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]
{2}))|[;:@&=])*))?)|(?:mailto:(?:(?:[a-zA-Z\d$\-_.+!*'(),;/?:@&=]|(?:%
[a-fA-F\d]{2}))+))|(?:file://(?:(?:(?:(?:(?:[a-zA-Z\d](?:(?:[a-zA-Z\d]
|-)*[a-zA-Z\d])?)\.)*(?:[a-zA-Z](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?))|(?:
(?:\d+)(?:\.(?:\d+)){3}))|localhost)?/(?:(?:(?:(?:[a-zA-Z\d$\-_.+!*'()
,]|(?:%[a-fA-F\d]{2}))|[?:@&=])*)(?:/(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(
?:%[a-fA-F\d]{2}))|[?:@&=])*))*))|(?:prospero://(?:(?:(?:(?:(?:[a-zA-Z
\d](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?)\.)*(?:[a-zA-Z](?:(?:[a-zA-Z\d]|-)
*[a-zA-Z\d])?))|(?:(?:\d+)(?:\.(?:\d+)){3}))(?::(?:\d+))?)/(?:(?:(?:(?
:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[?:@&=])*)(?:/(?:(?:(?:[a-
zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[?:@&=])*))*)(?:(?:;(?:(?:(?:[
a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[?:@&])*)=(?:(?:(?:[a-zA-Z\d
$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[?:@&])*)))*)|(?:ldap://(?:(?:(?:(?:
(?:(?:[a-zA-Z\d](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?)\.)*(?:[a-zA-Z](?:(?:
[a-zA-Z\d]|-)*[a-zA-Z\d])?))|(?:(?:\d+)(?:\.(?:\d+)){3}))(?::(?:\d+))?
))?/(?:(?:(?:(?:(?:(?:(?:[a-zA-Z\d]|%(?:3\d|[46][a-fA-F\d]|[57][Aa\d])
)|(?:%20))+|(?:OID|oid)\.(?:(?:\d+)(?:\.(?:\d+))*))(?:(?:%0[Aa])?(?:%2
0)*)=(?:(?:%0[Aa])?(?:%20)*))?(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F
\d]{2}))*))(?:(?:(?:%0[Aa])?(?:%20)*)\+(?:(?:%0[Aa])?(?:%20)*)(?:(?:(?
:(?:(?:[a-zA-Z\d]|%(?:3\d|[46][a-fA-F\d]|[57][Aa\d]))|(?:%20))+|(?:OID
|oid)\.(?:(?:\d+)(?:\.(?:\d+))*))(?:(?:%0[Aa])?(?:%20)*)=(?:(?:%0[Aa])
?(?:%20)*))?(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))*)))*)(?:(
?:(?:(?:%0[Aa])?(?:%20)*)(?:[;,])(?:(?:%0[Aa])?(?:%20)*))(?:(?:(?:(?:(
?:(?:[a-zA-Z\d]|%(?:3\d|[46][a-fA-F\d]|[57][Aa\d]))|(?:%20))+|(?:OID|o
id)\.(?:(?:\d+)(?:\.(?:\d+))*))(?:(?:%0[Aa])?(?:%20)*)=(?:(?:%0[Aa])?(
?:%20)*))?(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))*))(?:(?:(?:
%0[Aa])?(?:%20)*)\+(?:(?:%0[Aa])?(?:%20)*)(?:(?:(?:(?:(?:[a-zA-Z\d]|%(
?:3\d|[46][a-fA-F\d]|[57][Aa\d]))|(?:%20))+|(?:OID|oid)\.(?:(?:\d+)(?:
\.(?:\d+))*))(?:(?:%0[Aa])?(?:%20)*)=(?:(?:%0[Aa])?(?:%20)*))?(?:(?:[a
-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))*)))*))*(?:(?:(?:%0[Aa])?(?:%2
0)*)(?:[;,])(?:(?:%0[Aa])?(?:%20)*))?)(?:\?(?:(?:(?:(?:[a-zA-Z\d$\-_.+
!*'(),]|(?:%[a-fA-F\d]{2}))+)(?:,(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-f
A-F\d]{2}))+))*)?)(?:\?(?:base|one|sub)(?:\?(?:((?:[a-zA-Z\d$\-_.+!*'(
),;/?:@&=]|(?:%[a-fA-F\d]{2}))+)))?)?)?)|(?:(?:z39\.50[rs])://(?:(?:(?
:(?:(?:[a-zA-Z\d](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?)\.)*(?:[a-zA-Z](?:(?
:[a-zA-Z\d]|-)*[a-zA-Z\d])?))|(?:(?:\d+)(?:\.(?:\d+)){3}))(?::(?:\d+))
?)(?:/(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))+)(?:\+(?:(?:
[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))+))*(?:\?(?:(?:[a-zA-Z\d$\-_
.+!*'(),]|(?:%[a-fA-F\d]{2}))+))?)?(?:;esn=(?:(?:[a-zA-Z\d$\-_.+!*'(),
]|(?:%[a-fA-F\d]{2}))+))?(?:;rs=(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA
-F\d]{2}))+)(?:\+(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))+))*)
?))|(?:cid:(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[;?:@&=
])*))|(?:mid:(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[;?:@
&=])*)(?:/(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[;?:@&=]
)*))?)|(?:vemmi://(?:(?:(?:(?:(?:[a-zA-Z\d](?:(?:[a-zA-Z\d]|-)*[a-zA-Z
\d])?)\.)*(?:[a-zA-Z](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?))|(?:(?:\d+)(?:\
.(?:\d+)){3}))(?::(?:\d+))?)(?:/(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a
-fA-F\d]{2}))|[/?:@&=])*)(?:(?:;(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a
-fA-F\d]{2}))|[/?:@&])*)=(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d
]{2}))|[/?:@&])*))*))?)|(?:imap://(?:(?:(?:(?:(?:(?:(?:[a-zA-Z\d$\-_.+
!*'(),]|(?:%[a-fA-F\d]{2}))|[&=~])+)(?:(?:;[Aa][Uu][Tt][Hh]=(?:\*|(?:(
?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[&=~])+))))?)|(?:(?:;[
Aa][Uu][Tt][Hh]=(?:\*|(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2
}))|[&=~])+)))(?:(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[
&=~])+))?))@)?(?:(?:(?:(?:(?:[a-zA-Z\d](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])
?)\.)*(?:[a-zA-Z](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?))|(?:(?:\d+)(?:\.(?:
\d+)){3}))(?::(?:\d+))?))/(?:(?:(?:(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:
%[a-fA-F\d]{2}))|[&=~:@/])+)?;[Tt][Yy][Pp][Ee]=(?:[Ll](?:[Ii][Ss][Tt]|
[Ss][Uu][Bb])))|(?:(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))
|[&=~:@/])+)(?:\?(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[
&=~:@/])+))?(?:(?:;[Uu][Ii][Dd][Vv][Aa][Ll][Ii][Dd][Ii][Tt][Yy]=(?:[1-
9]\d*)))?)|(?:(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[&=~
:@/])+)(?:(?:;[Uu][Ii][Dd][Vv][Aa][Ll][Ii][Dd][Ii][Tt][Yy]=(?:[1-9]\d*
)))?(?:/;[Uu][Ii][Dd]=(?:[1-9]\d*))(?:(?:/;[Ss][Ee][Cc][Tt][Ii][Oo][Nn
]=(?:(?:(?:[a-zA-Z\d$\-_.+!*'(),]|(?:%[a-fA-F\d]{2}))|[&=~:@/])+)))?))
)?)|(?:nfs:(?:(?://(?:(?:(?:(?:(?:[a-zA-Z\d](?:(?:[a-zA-Z\d]|-)*[a-zA-
Z\d])?)\.)*(?:[a-zA-Z](?:(?:[a-zA-Z\d]|-)*[a-zA-Z\d])?))|(?:(?:\d+)(?:
\.(?:\d+)){3}))(?::(?:\d+))?)(?:(?:/(?:(?:(?:(?:(?:[a-zA-Z\d\$\-_.!~*'
(),])|(?:%[a-fA-F\d]{2})|[:@&=+])*)(?:/(?:(?:(?:[a-zA-Z\d\$\-_.!~*'(),
])|(?:%[a-fA-F\d]{2})|[:@&=+])*))*)?)))?)|(?:/(?:(?:(?:(?:(?:[a-zA-Z\d
\$\-_.!~*'(),])|(?:%[a-fA-F\d]{2})|[:@&=+])*)(?:/(?:(?:(?:[a-zA-Z\d\$\
-_.!~*'(),])|(?:%[a-fA-F\d]{2})|[:@&=+])*))*)?))|(?:(?:(?:(?:(?:[a-zA-
Z\d\$\-_.!~*'(),])|(?:%[a-fA-F\d]{2})|[:@&=+])*)(?:/(?:(?:(?:[a-zA-Z\d
\$\-_.!~*'(),])|(?:%[a-fA-F\d]{2})|[:@&=+])*))*)?)))
)}{<a href = "$1">$1</a>}xg;
print $text;
HTH. HAND.
Abigail
--
$" = "/"; split $, => eval join "+" => 1 .. 7;
*{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}};
%{"@_"} = %_ = (Just => another => Perl => Hacker); &{%{%_}};
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sun, 15 Aug 1999 17:24:29 -0400
From: "mike" <mcmike123@worldnet.att.net>
Subject: error message?? is there another way
Message-Id: <7p7b4d$4a3$1@bgtnsc02.worldnet.att.net>
the error
Can't locate LWP/Simple.pm in @INC (@INC contains:
/usr/local/lib/perl5/i386-freebsd/5.00404 /usr/local/lib/perl5
/usr/local/lib/perl5/site_perl/i386-freebsd /usr/local/lib/perl5/site_perl
.) at search.cgi line 12.
BEGIN failed--compilation aborted at search.cgi line 12.
the code
#! /usr/bin/perl
# put errors to html page
BEGIN {
print "Content-type: text/plain\n\n";
open STDERR, '>&STDOUT';
$| = 1;
}
# allows the get statment
use CGI;
use LWP::Simple;
$content=get("http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&stype=stext&
q=mike");
# prints the results
print "Content-type:text/html\n\n";
print <<EndOfHTML;
<html>
<head><title>meta test</title></head>
<body>
<p align="center">welcome</p>
</body></html>
EndOfHTML
;
does this mean all is lost and im doomed because i cant use the the
LWP/Simple.pm.
or is there another way?
------------------------------
Date: Sun, 15 Aug 1999 14:35:28 -0700
From: moseley@best.com (Bill Moseley)
Subject: Re: error message?? is there another way
Message-Id: <MPG.1220d27e14bc4a669896bb@nntp1.ba.best.com>
mike (mcmike123@worldnet.att.net) seems to say...
> Can't locate LWP/Simple.pm in @INC (@INC contains:
> /usr/local/lib/perl5/i386-freebsd/5.00404 /usr/local/lib/perl5
> /usr/local/lib/perl5/site_perl/i386-freebsd /usr/local/lib/perl5/site_perl
> .) at search.cgi line 12.
> BEGIN failed--compilation aborted at search.cgi line 12.
http://www.CPAN.org/modules and you can learn how to install your own
modules. But it's hard to believe that LWP isn't installed on your
system. Ask you system admin about the problem.
--
Bill Moseley mailto:moseley@best.com
pls note the one line sig, not counting this one.
------------------------------
Date: Sun, 15 Aug 1999 21:46:12 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Files exploding on me and I'm not sure why
Message-Id: <37b833d2.1243721@news.skynet.be>
vertigotwo@my-deja.com wrote:
>Below is the code for the save routine:
>
>sub savedata{
> open(FILE, ">ff/playerindex") || IllegalRefresh("PlayerIndex file
>cannot be opened - $!");
That file gets opened, and ERASED, even when it is "locked". File
locking is a convention on Unix. This code ignores the convention. It's
a real party pooper.
> flock(FILE, 2) || IllegalRefresh("PlayerIndex cannot be flocked - $!");
Too late.
> seek (FILE, 0, 2) || IllegalRefresh("PlayerIndex cannot be seeked -
>$!");
You're seeking the end of the file? After you've just erased it? That's
strange.
I bet you intended the file to be opened using "+<", not ">". Then
flock() the file, just like you did. Read the file if you want to.
(Likely. Otherwise, why have a file at all?) Then rewind, doing {
seek(FILE,0,0) }, and get rid of the current contents with { truncate
FILE,0 }. Now you're ready to rewrite the whole contents of the file,
and *close* it to unlock it.
HTH,
Bart.
------------------------------
Date: Sun, 15 Aug 1999 15:22:36 -0700
From: ".." <drclue@drclue.net>
Subject: Re: HARASSMENT -- Monthly Autoemail
Message-Id: <37B73DAC.D29FBC3D@drclue.net>
"Daniel R. Tobias" wrote:
> Uriel Wittenberg wrote:
> >
> > Yes, I erred horribly ... horribly. But anyone who cares to review the thread which
> > prompted Tom's aggression ("Re: Documenting character encoding --
> > comments/corrections?", on comp.infosystems.www.authoring.html) can see I was more
> > than ready to promptly correct any protocol breach that was brought to my
> > attention. In other words, Tom's goon tactics were wholly gratuitous.
>
> And wasn't that exactly what Tom was doing? Bringing your protocol
> breach to your attention?
>
> Just how are newbies *ever* supposed to learn the basics of netiquette
> in the future, if people like you are so intent on insisting that the
> "oldtimers" be "nicey-nicey" and never do anything so rude as to
> actually tell a newbie that something they did was wrong?
Save some bandwidth by answering the question and as a PS only , mentioning your PC
concerns regarding protocol.
Simply being a moronic NG cop means the question and all will probably need to be
reposted , wasting far more bandwidth than the original offense.
You have the answer , take the F**king time to do your job as a responder and simply
mention the protocol breach as an addendum , and do so in a respectful manner.
If all you have is protocol mouth to give , than save some bandwidth by keeping your
mouth shut.
--
--=<> Dr. Clue (A.K.A. Ian A. Storms) <>=--
--=<[]>=- http://www.drclue.net
--=<[]>=-
--=<[]>=- C++ HTML JavaScript JAVA VRML DHTML
--=<[]>=- CGI NSAPI TCP/IP SQL Sybase Informix (Interest In Oracle)
--=<[]>=- Dr. Clue's famous HTML/CGI guide.
--=<[]>=- http://www.drclue.net/F1.cgi/HTML/HTML.html
------------------------------
Date: Sun, 15 Aug 1999 22:49:53 GMT
From: darsal@erols.com (Dave Salovesh)
Subject: Re: HARASSMENT -- Monthly Autoemail
Message-Id: <37bf42e2.20734392@news.erols.com>
In article <37b7130f.894473@news.interpath.net>,
gh@netquick.net (Gil Harvey) opined:
> Unsolicted mail is unsolicted mail - No?
Absolutely.
But posting to Usenet solicits replies via email -or- via the newsgroup.
Who told you different?
------------------------------
Date: 15 Aug 1999 17:53:58 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: i cann't read and write at the sametime
Message-Id: <slrn7reha5.81j.abigail@alexandra.delanet.com>
JCEtek (jcetek@ezzi.net) wrote on MMCLXXIV September MCMXCIII in
<URL:news:tA2t3.4113$Rh.185805@typ11.nn.bcandid.com>:
-- i've openned the file with +<, +> and +>>, i can read but cann't write. >
-- overwrites. is there a way to open a file so i can finded something and
-- rewrite just that line.
Well, how do you use it?
Abigail
--
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sun, 15 Aug 1999 22:01:46 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: intel machines: what freebie compilers available?
Message-Id: <37ba36be.1991360@news.skynet.be>
Pauline Seymour wrote:
>I have bought myself a win98 laptop, would like to play with
>some ideas using c, c++ (if I have to!), java and learn something
>about perl. I've bought a book on perl but there is nothing like
>trying it out.
Ooh! All Perl compilers (although not in the traditional sense) are
freely available! Check out Activestate, <www.activestate.com>, for a
Win32 version: ActivePerl.
For other languages, check the "Free Compiler" list on
<http://www.idiom.com/free-compilers/>.
Dr. Dobbs Journal has brought out a CD-ROM with some of the more
interesting ones, under the name "Alternative Programming Languages".
Check their website (www.ddj.com) for info.
Bart.
------------------------------
Date: 15 Aug 1999 17:48:20 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: intel machines: what freebie compilers available?
Message-Id: <slrn7regvj.81j.abigail@alexandra.delanet.com>
Pauline Seymour (paseymo@ix.netcom.com) wrote on MMCLXXV September
MCMXCIII in <URL:news:ant150938b49#mt$@paseymo.ix.netcom.com>:
-- I have bought myself a win98 laptop,
Why are you posting this in the thread named "Help with CGI and Perl"?
You don't followup to any of the postings, and you don't contribute
to the discussion in any way. Yet, you copy the references line from
the thread.
If you don't know what the buttons do on your machine, DO NOT PUSH THEM!
Seek professional help. Or toss your computer away. Just don't randomly
push them, else bad things might happen.
[References header fixed]
Abigail
--
*** ACHTUNG! ALLES LOOKENSPEEPERS! ***
Das Internet is nicht fuer gefingerclicken und giffengrabben. Ist easy
droppenpacket der routers und overloaden der backbone mit der spammen unt
der me-tooen. Ist nicht fuer gewerken bei das dumpkopfen. Das musclicken
sichtseeren keepen das bandwit-spewin hans in das pockets muss; relaxen und
watchen das cursorblinken.
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sun, 15 Aug 1999 21:38:41 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Looking for a Regular Expression to do an exact match case indepenent
Message-Id: <37b731b6.703754@news.skynet.be>
Andreas Fehr wrote:
>>> Does anyone know how "regular expression" that matches either upper or
>>> lower case letter strings and does not use the "/i" option ???
>>
>>/[a-zA-Z]/
>>
>
>And how should that match 'computer administration' ?
/[cC][oO][mM][pP][uU][tT][eE][rR]/ # etc.
When I tested it, it turned out to be quite a bit faster than the //i
option.
In recent Perl versions, you can also use:
/(?i:computer administration)/
or
/(?i)computer administration/
Bart.
------------------------------
Date: Sun, 15 Aug 1999 21:34:04 GMT
From: id-est@home.com (Id Est)
Subject: Re: Nastiness contrary to the spirit of perl?
Message-Id: <slrn7recfj.c69.id-est@erato.bigredrockeater.com>
In article <slrn7rdp8j.lrv.fl_aggie@thepentagon.com>, I R A Darth Aggie wrote:
>Not many, they are, for the most part, script-kiddies who have no real
>interest in programming much beyond customizing pre-built scripts. They
>have demonstrated this lack-of-desire by *not* bothering to look at
>the documentation.
maybe they're script kiddies, maybe not. regardless, they ask for help,
and don't deserve to be called "stupid" for asking.
>> once i get as good as Abigail claims to be, i'll probably do just that.
>No. Sorry. WRONG ANSWER. They're *newbie* questions, how hard can it be
>to answer them, even if you're just a bit above that level? If you want
>things to change, then get off your fat, lazy ass and DO SOMETHING.
sorry, right answer. i *will* answer newbie questions from now on, if i
know the answer, even if it's just "RTFM, page XXXX", just to counter-act
the effect of Abigail and her ilk, of which you seem to be.
geez, you must hate newbies. why do you even bother answering questions
at all? why not just ignore them? if answering stupid questions is so
bad, you ought to give it up, stick to high-brow shit like discussing
why /^\d/ is always better than /^[0-9]/ or something.
>And whining doesn't count as "doing something".
neither does defending bullies. you her lawyer or something?
------------------------------
Date: Mon, 16 Aug 1999 00:25:53 +0200
From: "Trond Michelsen" <mike@crusaders.no>
Subject: Re: Nastiness contrary to the spirit of perl?
Message-Id: <I6Ht3.659$U36.3607@news1.online.no>
I R A Darth Aggie <fl_aggie@thepentagon.com> wrote in message
news:slrn7rdv8l.m47.fl_aggie@thepentagon.com...
> + > + a BIT short? i've been on USENET for nearly 20 years and Abigail is
one
> + > + of the worst offenders i've seen, short of complete yahoos like
> + Plutonium
> + > + or Sternlight.
> + > Oh, please. If you've been on Usenet for 20 years, you need to get out
> + > to other newsgroups more often...
> + Huh? Here I am, thinking that every newsgroup is a part of USENET. Did I
> + miss something significant somewhere?
> Why, yes. But every group is different. But if this yahoo thinks
> Abigail is just shy of a Sternlight or Archie the Potwasher, he
> *really* needs to get out more...
*blush*
I totally misread your post. I somehow thought you implied that he should
get away from Usenet and into some newsgroups instead.
> There are people on the net that make those two look stable and
> reasonably sane.
I won't argue with that. :-)
--
Trond Michelsen
------------------------------
Date: 15 Aug 1999 18:03:25 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Nastiness contrary to the spirit of perl?
Message-Id: <slrn7rehrq.81j.abigail@alexandra.delanet.com>
Id Est (id-est@home.com) wrote on MMCLXXV September MCMXCIII in
<URL:news:slrn7rcbt5.9v9.id-est@erato.bigredrockeater.com>:
@@ In article <slrn7rc904.5k9.fl_aggie@thepentagon.com>, I R A Darth Aggie wrote:
@@
@@ btw, don't bother spewing on me Abigail. i plonked you 6 months ago and
@@ so i won't see your no-doubt lucid commentary. no great loss, i'm sure.
Now, why would someone who claims to have plonked me 6 months ago have
a collection of quotes from me, many of them less than 6 months old?
Doesn't Id Est after 20 years on Usenet know what "plonk" means? Or is
he just making up facts?
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";`$@`'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Mon, 16 Aug 1999 09:04:32 +1000
From: chris dawson <cmd@maths.uq.edu.au>
Subject: Re: newbie search script help
Message-Id: <37B74780.C2E35582@maths.uq.edu.au>
twentyfour seven wrote:
>
> Hi,
>
> I'm having problems not with the query itself, its the links that it
> generates at the bottom remove the + from between the words and causes a
> syntax error. Is there a snippet of code I can use to make sure that this +
> is not excluded from the link?(the links call the script to get the next 10
> search results). I would appreciate a response.
Huh?
------------------------------
Date: Sun, 15 Aug 1999 14:06:04 -0700
From: James Logajan <JamesL@Lugoj.Com>
Subject: Peace in our time? Alas no. Was: Why use Python when we've got Perl?
Message-Id: <37B72BBC.2172F66C@Lugoj.Com>
(The problem with these language wars is that there is no way for a
self-respecting arms merchant to sell to both sides; there just isn't
anything to sell.)
I suspect that computer language wars arise for some of the same reasons
some real wars arise: a battle over finite resources. In this case, the
finite resource is a programmer's time. I know I don't have time to find the
"Holy Grail" (ahem, sorry!) of languages by learning every language ever
invented. Once I've somehow settled on a language and spent an irretrievable
fraction of my life learning it, I get irritable when someone tells me I
have to do that process over again. For me, the interest in computer
languages per se passed a decade and a half ago. I've learned and glanced at
(and forgotten) far too many languages and notations (at least 22, probably
more). It is a tiny subset of all the languages that have been commercially
released, but to my mind is too bloody much. Bottom line for me (and I
suspect for others) is: Please don't ask me to change from X to Y unless you
have a damn good reason; my time is precious.
But sometimes people have to discard something that works perfectly fine and
learn another language, simply because they move into a group that mandates
the use of something else. Then the irritation and fight over languages
happens. There is no avoiding it I think, so these languages wars will go on
for as long as there are multiple languages (and anyone who thinks that will
change is dreaming).
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
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" from
almanac@ruby.oce.orst.edu. The real FAQ, as it appeared last in the
newsgroup, can be retrieved with the request "send perl-users FAQ" from
almanac@ruby.oce.orst.edu. 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" from
almanac@ruby.oce.orst.edu.
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 545
*************************************
