[12696] in Perl-Users-Digest
Perl-Users Digest, Issue: 105 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jul 10 21:07:26 1999
Date: Sat, 10 Jul 1999 18:05:06 -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 Sat, 10 Jul 1999 Volume: 9 Number: 105
Today's topics:
beginner's sorting problem (BLUESRIFT)
Re: beginner's sorting problem (Larry Rosler)
Re: beginner's sorting problem (Abigail)
Re: Best method to test a string within an array? (Larry Rosler)
Re: Best method to test a string within an array? <sjs@yorku.ca>
Re: Carriage returns <sjs@yorku.ca>
Re: Changing case local-specifically <uri@sysarch.com>
Re: checking Perl offline <uri@sysarch.com>
How secure is my Perl code on the web? <wagener@cs.fsu.edu:NOSPAM>
Re: How secure is my Perl code on the web? (brian d foy)
Re: How secure is my Perl code on the web? <wagener@cs.fsu.edu:NOSPAM>
Re: How to dereference an array reference? (Randal L. Schwartz)
Re: How to dereference an array reference? <cassell@mail.cor.epa.gov>
Re: How to dereference an array reference? (Abigail)
Re: How to dereference an array reference? <anonymous@web.remarq.com>
Re: Idiot requires help <sjs@yorku.ca>
Re: Ignoring the first line of a file <cassell@mail.cor.epa.gov>
Re: PERLFUNC: tr/// - transliterate a string (Randal L. Schwartz)
Re: Question: Good Project? <sjs@yorku.ca>
Simulating CRON (Jonathan Chum)
Re: Simulating CRON <cassell@mail.cor.epa.gov>
Re: url extraction without HTML::LinkExtor module (brian d foy)
Re: variable "$foo" will not stay shared (Randal L. Schwartz)
What's a scalar? hehehe <sjs@yorku.ca>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 10 Jul 1999 23:46:34 GMT
From: bluesrift@aol.com (BLUESRIFT)
Subject: beginner's sorting problem
Message-Id: <19990710194634.23289.00006527@ng-fk1.aol.com>
I'm sorry. I can usually figure out what should be simple on my own, but I'm
not understanding sort. Here's what I tried:
Working with an array containing records each ending in "\n" and each field
within delimited by "|"
To keep things simple I thought to ignore fields and just sort the array on the
whole record string like this:
@newlines = sort { $a cmp $b } @origlines;
but when I print the contents of @newlines like this:
foreach $newline (@newlines) {
print "$newline";
}
the records do not print in ascii order.
Please help me learn what I am doing wrong.
Thanks,
Rob
------------------------------
Date: Sat, 10 Jul 1999 17:34:15 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: beginner's sorting problem
Message-Id: <MPG.11f1866148386bc989c9a@nntp.hpl.hp.com>
[Posted and a courtesy copy sent.]
In article <19990710194634.23289.00006527@ng-fk1.aol.com> on 10 Jul 1999
23:46:34 GMT, BLUESRIFT <bluesrift@aol.com> says...
> I'm sorry. I can usually figure out what should be simple on my own, but I'm
> not understanding sort. Here's what I tried:
>
> Working with an array containing records each ending in "\n" and each field
> within delimited by "|"
>
> To keep things simple I thought to ignore fields and just sort the array on the
> whole record string like this:
>
> @newlines = sort { $a cmp $b } @origlines;
Fine. This is even simpler:
@newlines = sort @origlines;
> but when I print the contents of @newlines like this:
>
> foreach $newline (@newlines) {
> print "$newline";
> }
Fine (except for the superfluous quotes). This is even simpler:
print @newlines;
> the records do not print in ascii order.
The politest way I can put my response is this simple: "I don't believe
you."
> Please help me learn what I am doing wrong.
Gladly, if you would show a short piece of code that demonstrates the
problem. As it is, what you are trying is indeed so simple that it is
impossible to understand how it could go wrong go wrong go wrong...
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 10 Jul 1999 19:43:04 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: beginner's sorting problem
Message-Id: <slrn7ofq41.h7.abigail@alexandra.delanet.com>
BLUESRIFT (bluesrift@aol.com) wrote on MMCXXXIX September MCMXCIII in
<URL:news:19990710194634.23289.00006527@ng-fk1.aol.com>:
%% I'm sorry. I can usually figure out what should be simple on my own, but I'm
%% not understanding sort. Here's what I tried:
%%
%% Working with an array containing records each ending in "\n" and each field
%% within delimited by "|"
%%
%% To keep things simple I thought to ignore fields and just sort the array on t
%% whole record string like this:
%%
%% @newlines = sort { $a cmp $b } @origlines;
%%
%% but when I print the contents of @newlines like this:
%%
%% foreach $newline (@newlines) {
%% print "$newline";
%% }
%%
%% the records do not print in ascii order.
I bet they do. It's more likely you get confused by 'ascii order'.
Could you post some data where it goes wrong in your opinion?
And why are you quoting $newline?
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: Sat, 10 Jul 1999 16:04:35 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Best method to test a string within an array?
Message-Id: <MPG.11f1715d3f37abcc989c99@nntp.hpl.hp.com>
In article <931640099.2015233735@newshub.ccs.yorku.ca> on Sat, 10 Jul
1999 16:52:46 -0400, Steven Smolinski <sjs@yorku.ca> says...
> On Wed, 07 Jul 1999, pedro wrote:
> >Wondered if anyone could suggest
> >the best method to test whether
> >a string is within an array?
>
> I suggest you look into any one of the Perl books; most have fairly extensive
> information on pattern matching.
>
> $string =~ /$match/; # returns true if $match is in $string
That tests whether a string is matched inside another string. For the
answer to the question about arrays, this following might be
appropriate:
perlfaq4: "How can I tell whether a list or array contains a certain
element?"
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sat, 10 Jul 1999 18:54:45 -0400
From: Steven Smolinski <sjs@yorku.ca>
Subject: Re: Best method to test a string within an array?
Message-Id: <931647330.821377297@newshub.ccs.yorku.ca>
On Sat, 10 Jul 1999, Larry Rosler wrote:
>In article <931640099.2015233735@newshub.ccs.yorku.ca> on Sat, 10 Jul
>1999 16:52:46 -0400, Steven Smolinski <sjs@yorku.ca> says...
>>
>> $string =~ /$match/; # returns true if $match is in $string
>
>That tests whether a string is matched inside another string. For the
>answer to the question about arrays, this following might be
>appropriate:
>
>perlfaq4: "How can I tell whether a list or array contains a certain
>element?"
Oops, my bad. Thx for the correction. Sometimes I try too hard :)
Steve
------------------------------
Date: Sat, 10 Jul 1999 17:52:58 -0400
From: Steven Smolinski <sjs@yorku.ca>
Subject: Re: Carriage returns
Message-Id: <931643662.1817303518@newshub.ccs.yorku.ca>
On Wed, 07 Jul 1999, Abigail wrote:
>Anders Thorsby (artsoft@danbbs.dk) wrote on MMCXXXVI September MCMXCIII
>in <URL:news:TgMg3.356$HY5.645@news.get2net.dk>:
>::
>:: Greg Bacon <gbacon@itsc.uah.edu> wrote in message
>:: news:7m01s8$7me$1@info2.uah.edu...
>::
>:: > $textarea =~ s/\s+/ /g;
>::
>:: \s is blanks
>:: use \n for new-lines
>
>
>Are your newlines solid green blocks?
Probably he was just warning against flattening tabs to spaces, since the
questioner only needed to know how to get rid of newlines.
Steve
------------------------------
Date: 10 Jul 1999 20:46:55 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Changing case local-specifically
Message-Id: <x7r9mgovwg.fsf@home.sysarch.com>
>>>>> "LR" == Larry Rosler <lr@hpl.hp.com> writes:
>> my @left = map chr, ord('A') .. 0xFF;
>> my @right = map {$_ ne uc $_ ? uc : lc} @left;
>> eval "sub TR { \$_[0] =~ tr/@left/@right/ }";
having finally looked at that trick closely i wonder if you are setting
$" to '' before you build the TR? otherwise, you will get a space char
interpolated between each char in @left and @right. it shouldn't affect
the functionality but it does make for a longer tr/// and a slightly
slower execution, i would imagine.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: 10 Jul 1999 20:42:27 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: checking Perl offline
Message-Id: <x7u2rcow3w.fsf@home.sysarch.com>
>>>>> "A" == Abigail <abigail@delanet.com> writes:
A> Using print statements is, except for analysing the program, the only
A> way I debug.
print rules. debuggers suck.
<abigail and i agree on a technique. must be the influence of the
millennial cults>
having first learned to program on punch cards with multi-hour turnaround
(overwhelmed 2000 lpm line printers), i do lots of analysis and use
strategically placed print statements. i can usually debug faster and
better than most who use debuggers.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: Sat, 10 Jul 1999 19:13:00 -0400
From: "Brian Wagener" <wagener@cs.fsu.edu:NOSPAM>
Subject: How secure is my Perl code on the web?
Message-Id: <7m8jr0$dvo$1@news.fsu.edu>
The company I am working for is developing a web application (CGI) that is
written in Perl. I am wondering about the security of the code while it is
on the web. I heard something about writing a C wrapper that calls the perl
script. Is this to prevent the reading of the Perl code? If it is how does
this happen if the default action of the web server is to run the Perl
script. Well let me know how a person can read the actual code while it is
posted on a web page, and if so will creating this C wrapper stop it.
Thanks.
------------------------------
Date: Sat, 10 Jul 1999 19:00:10 -0500
From: brian@pm.org (brian d foy)
Subject: Re: How secure is my Perl code on the web?
Message-Id: <brian-1007991900100001@241.chicago-03-04rs.il.dial-access.att.net>
In article <7m8jr0$dvo$1@news.fsu.edu>, "Brian Wagener"
<wagener@cs.fsu.edu:NOSPAM> wrote:
> The company I am working for is developing a web application (CGI) that is
> written in Perl. I am wondering about the security of the code while it is
> on the web.
as with any program, the lack of security is in what you tell the
computer to do, not the language used to tell the computer to do it.
see the Security section of the CGI Meta FAQ for more details.
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Monger Hats! <URL:http://www.pm.org/clothing.shtml>
------------------------------
Date: Sat, 10 Jul 1999 20:38:48 -0400
From: "Brian Wagener" <wagener@cs.fsu.edu:NOSPAM>
Subject: Re: How secure is my Perl code on the web?
Message-Id: <7m8ort$ga7$1@news.fsu.edu>
I understand what you mean, but in this case it everything to do with using
a scripting language like Perl. So can you or not see the cgi code that is
being used on the web.
brian d foy wrote in message ...
>In article <7m8jr0$dvo$1@news.fsu.edu>, "Brian Wagener"
><wagener@cs.fsu.edu:NOSPAM> wrote:
>
>> The company I am working for is developing a web application (CGI) that
is
>> written in Perl. I am wondering about the security of the code while it
is
>> on the web.
>
>as with any program, the lack of security is in what you tell the
>computer to do, not the language used to tell the computer to do it.
>
>see the Security section of the CGI Meta FAQ for more details.
>
>--
>brian d foy
>CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
>Perl Monger Hats! <URL:http://www.pm.org/clothing.shtml>
------------------------------
Date: 10 Jul 1999 16:15:47 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: How to dereference an array reference?
Message-Id: <m11zeg6qqk.fsf@halfdome.holdit.com>
>>>>> "Abigail" == Abigail <abigail@delanet.com> writes:
Abigail> Pointers to the FAQ are posted here every few days. "I don't know
Abigail> where the FAQ is" isn't an excuse. "I don't know where the FAQ is"
Abigail> is just a way of saying "I am a lamer - and I don't even know it".
Also, if your email address isn't spam-proofed, the FAQ pointer
is emailed to you on your first posting.
Yet another reason that Spamproofing your posting address is a Bad Idea.
Listen, I'm preaching to the choir here, but this is a *grownup*
place. It doesn't take a lot of poking to discover the rules. All
proper newsreaders come presubscribed to news.announce.newusers, which
takes all of an hour or two to read even if you have to sound out some
of the words.
Just another guy longing for when you had to be *this tall* to post to the net,
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Sat, 10 Jul 1999 17:27:10 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: How to dereference an array reference?
Message-Id: <3787E4DE.5BB8F48@mail.cor.epa.gov>
Randal L. Schwartz wrote:
>
> Listen, I'm preaching to the choir here, but this is a *grownup*
> place. It doesn't take a lot of poking to discover the rules. All
> proper newsreaders come presubscribed to news.announce.newusers, which
> takes all of an hour or two to read even if you have to sound out some
> of the words.
And all the 'popular' newsreaders are flashy bits of fluff
which skip over all that stuff people don't want to waste their
time on before getting to the really good stuff, like
alt.sex.hampsters.ducttape.and.other.naughty.bits
> Just another guy longing for when you had to be *this tall* to post to the net,
Hey hey hey! Those of us who are vertically-challenged take
offense at this!
I mean, errm, altitudinally-different. I'll get it right
shortly. Oops...
David, not having to duck much...
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 10 Jul 1999 19:40:33 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: How to dereference an array reference?
Message-Id: <slrn7ofpv9.h7.abigail@alexandra.delanet.com>
David Cassell (cassell@mail.cor.epa.gov) wrote on MMCXL September
MCMXCIII in <URL:news:3787E4DE.5BB8F48@mail.cor.epa.gov>:
\\ Randal L. Schwartz wrote:
\\ >
\\ > Just another guy longing for when you had to be *this tall* to post to the
\\
\\ Hey hey hey! Those of us who are vertically-challenged take
\\ offense at this!
Well.... when I read this, my first reaction was "then why were you posting
back then?".....
But I never said that. Forget I'm here. I've never heard of this group.
You have never heard of me. I'm an illusion.
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
-----------== 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: Sat, 10 Jul 1999 16:42:42 -0800
From: theoddone33 <anonymous@web.remarq.com>
Subject: Re: How to dereference an array reference?
Message-Id: <931653763.9013@www.remarq.com>
>Also, if your email address isn't spam-proofed, the FAQ
>pointer is emailed to you on your first posting.
That's a neat trick. I've never heard of that before,
although I should expect it from a newsgroup full of perl
freaks. :)
>Yet another reason that Spamproofing your posting address
>is a Bad Idea.
This is the fourth newgroup I've lurked in since my time
on the internet. I've also kept track of other newsgroups
for a short amount of time, but not long enough to say I
lurked there. In most if not all of the newsgroups I've
read or posted to, I've never heard of anyone taking
offense to spam-proofing. It seems to me that it's a
widespread thing across Usenet. This is the first
newsgroup I've ever seen that dislikes the practice.
(Granted, I don't hang out in technical groups too much)
It's possible and very likely that a person could post
using a spam-proofed addy, and not even know it was a no-no.
However, this is also the first group I've seen where it is
common to email and post replies to posts. I guess this
whole scenario is why people recommend lurking for 3 months
before posting.
>All proper newsreaders come presubscribed to
news.announce.newusers
Mine didn't, but it *is* a Microsoft product. =)
Don't get me wrong, I love Perl as a programming language,
and I greatly enjoy reading your book, Learning Perl. I
just saw a rule that I didn't understand and wanted to know
why it existed. I may not agree with such a rule, but I'm
not going to try to change your newsgroup. Just be careful
if you try to email me.
theoddone33
**** Posted from RemarQ - http://www.remarq.com - Discussions Start Here (tm) ****
------------------------------
Date: Sat, 10 Jul 1999 18:09:35 -0400
From: Steven Smolinski <sjs@yorku.ca>
To: tony.mail@tesco.net, Tony <tony.mail@tesco.net>
Subject: Re: Idiot requires help
Message-Id: <931644689.1941307473@newshub.ccs.yorku.ca>
On Sat, 10 Jul 1999, Tony wrote:
>I'm working for a small company and we don not have a perl genius handy
>when wee need one - like now...
Try sourceXchange.com, where you can post jobs you want to hire open-source
programmers for. I'm sure a perl guru would love to get your contract.
Steve
------------------------------
Date: Sat, 10 Jul 1999 17:57:08 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
To: Robert E Webb <bwebb@fred.net>
Subject: Re: Ignoring the first line of a file
Message-Id: <3787EBE4.4471B825@mail.cor.epa.gov>
[courtesy cc emailed to poster]
Robert E Webb wrote:
>
> I have a file that has control Ms on the end of each line where the data
> starts at line 2. The first line is an unwanted data.
Hmmm. Usually I only see files with \cM on the ends of lines
when the files have been improperly improperly ftp'ed from a
win32/MS-DOS box up to a unix box. If this is the case for
you, please make sure to transfer these files in ASCII mode
instead of binary mode. That will help with one part of your
problem.
> I wrote the following:
>
> #!/usr/bin/perl -i -p
Okay, two things about your first line:
[1] you should know that -p *prints* each line for you, after
all you're using it to get your printing done for you; if
you read the docs [the perlrun section on your hard disk]
you'll see that it's equivalent to putting a print() in
your continue block, so your next statement won't stop it.
[2] you should use -w on your first line also.
> next if $.=1;
> tr/\cM//d;
These look good, subject to my comments above.
> The problem is that the 1st line is still in the file after running the
> script. What am I doing wrong??
Using -p . Use -n instead, and put in a print statement after
the tr/// .
> Also, the last 4 lines in the file are also unwanted data, but the file
> itself is variable in length, so I am not sure how to get rid of those
> lines.
Then you either have to compute the number of lines and
backtrack, or else you could just read everything into one
array, then splice() off the last four elements. Then print()
what's left. But if you're going to do all that, then you
might not want to use the command-line options, but rather
do it all yourself.
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 10 Jul 1999 16:17:36 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: PERLFUNC: tr/// - transliterate a string
Message-Id: <m1yago5c33.fsf@halfdome.holdit.com>
>>>>> "David" == David Cassell <cassell@mail.cor.epa.gov> writes:
>> DESCRIPTION
>> The transliteration operator
David> , also known as the translation operator to those Perl
David> troublemakers who are just bucking Larry and Tom.
Although gnu-sed calls it transliterate... cf. "man sed" on this Linux
system:
y/source/dest/
Transliterate the characters in the pattern space
which appear in source to the corresponding charac-
ter in dest.
print "Just another sed -- er -- Perl hacker,"
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Sat, 10 Jul 1999 17:56:22 -0400
From: Steven Smolinski <sjs@yorku.ca>
Subject: Re: Question: Good Project?
Message-Id: <931643806.2048610138@newshub.ccs.yorku.ca>
On Wed, 07 Jul 1999, Ashish Kadakia wrote:
>I am going to give a good project..
>
>See if you can come up with good answer.
>
>I have a table with fields A, B, C
>Table goes like this
..
are you trying to get others to do your homework?
Steve
------------------------------
Date: Sat, 10 Jul 1999 23:16:08 GMT
From: jchum@jps.net (Jonathan Chum)
Subject: Simulating CRON
Message-Id: <3787d3fa.4099597@news.jps.net>
Is there a way so that I can run specific cgi programs without the use
of CRON?
Techdevelopers
http://www.techdevelopers.com
CGI, ASP, DHTML, FLASH, and more
------------------------------
Date: Sat, 10 Jul 1999 17:30:42 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Simulating CRON
Message-Id: <3787E5B2.18CA08F3@mail.cor.epa.gov>
Jonathan Chum wrote:
>
> Is there a way so that I can run specific cgi programs without the use
> of CRON?
> Techdevelopers
> http://www.techdevelopers.com
> CGI, ASP, DHTML, FLASH, and more
Since you're using Forte Free Agent, I'll take a guess that
you're on a win32 box. If so, NT has an AT program which
is like a sickly little cron program. It might do what you
want.
But one doesn't normally need cron [or whatever] to run CGI
programs. But I'll assume you know what you're doing...
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Sat, 10 Jul 1999 19:06:33 -0500
From: brian@pm.org (brian d foy)
Subject: Re: url extraction without HTML::LinkExtor module
Message-Id: <brian-1007991906330001@241.chicago-03-04rs.il.dial-access.att.net>
In article <7m8c46$drd$1@nnrp1.deja.com>, webmaster@inlandpac.com wrote:
> I am trying to write a script that will extract all domains (i.e.
> ME.COM, PEPSI.COM, etc.) from $results and out put those domains as
> $domains.
>
> I don't want to use HTML::LinkExtor and cannot find any documentation
> on how to do this.
why don't you want to use that module? and, if you haven't found
any documentation on how to do this, you haven't tried very hard. if
you don't want to make things easy by using known methods (like the
module), then don't complain that you are having a tough time ;)
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Monger Hats! <URL:http://www.pm.org/clothing.shtml>
------------------------------
Date: 10 Jul 1999 16:08:37 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: variable "$foo" will not stay shared
Message-Id: <m1673s6r2i.fsf@halfdome.holdit.com>
>>>>> "random" == random static <rand@localhost.localdomain> writes:
random> brian d foy,
random> in <brian-1007991310480001@218.chicago-03-04rs.il.dial-access.att.net>:
>> In article <slrn7oeq37.p1.rand@localhost.localdomain>,
>> random_static@bigfoot.com wrote:
>>> writing CGI scripts using CGI.pm and CGI::Carp, i'm getting warnings
>>> saying `Variable "$foo" will not stay shared at...' when calling a
>>> subroutines in a homebrew module at various places.
>> are you using mod_perl?
random> yes. (and it's a PITA at times, it seems quite fragile to me -
random> but then, most of my scripts are fairly buggy until i beat
random> them into submission. i suppose running them under mod_perl
random> improves their quality by forcing me to kill more bugs.)
It's not really mod_perl's fault. You're probably using the
Apache::Registry band-aid, meant only as a stop-gap to emulate
"CGI.pm" while you start writing real mod_perl modules. And because
of that, there are restrictions, which you apparently skipped over
reading about. Please don't do that. :)
"perldoc mod_perl_traps" will give you a starting place to read about.
"perldoc Apache::Registry" another. And don't forget to read the
"Mod_perl developer's mini-guide" at http://perl.apache.org/guide/.
In fact, scruffing through all of perl.apache.org is advised.
mod_perl is not for the faint hearted... you have to *think* a bit to
get 2300% improvement over CGI launching. But if you can get used to
the compile-once-run-many mindset, it's "the bomb", as the kids say
these days. My picture page at
http://www.stonehenge.com/merlyn/Pictures/ is now mod_perl enhanced,
and runs lickity split (as we old'uns say) over the old version.
print "Just another mod_Perl hacker,"
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Sat, 10 Jul 1999 18:38:43 -0400
From: Steven Smolinski <sjs@yorku.ca>
Subject: What's a scalar? hehehe
Message-Id: <931647241.1035528990@newshub.ccs.yorku.ca>
On Sat, 10 Jul 1999, Randal L. Schwartz wrote:
[...]
>Just another guy longing for when you had to be *this tall* to post to the net,
I'm with you, Randal.
OK, I have to admit that I recently used to think there were too many harsh
words here by ... um ... unnamed cast-iron bitches :) Well, I've switched
sides.
I converted after seeing all the people posting bullshit questions answered
just pages inside the front cover of any one of the O'Reilly books with "Perl"
in the title (or at the damn faq websites if you can't figure out how to use the
voluminous online documentation).
These fools never seem to ask where to go find their answer, or answers in
general, they just want someone to mail code to parasite@NOSPAMaol.com.
It's like they read a quote by Larry and now are trying to be "lazy" (but not
nearly like him).
I'd bet the people who are scared off don't have the initiative to be problem
solvers (and thus programmers) and really aren't worth the concern.
So, needless to say, I now appreciate Abigail's posts in a way I didn't expect
I would just a week ago :)
Steve
------------------------------
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". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 105
*************************************
