[27376] in Perl-Users-Digest
Perl-Users Digest, Issue: 9061 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Mar 17 11:05:40 2006
Date: Fri, 17 Mar 2006 08:05:05 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 17 Mar 2006 Volume: 10 Number: 9061
Today's topics:
[OT] Re: is there a way to trigger "reload"? <1usa@llenroc.ude.invalid>
generating a list reference from qw? <bugbear@trim_papermule.co.uk_trim>
Re: generating a list reference from qw? (Anno Siegel)
Re: generating a list reference from qw? <tadmc@augustmail.com>
Re: generating a list reference from qw? <bugbear@trim_papermule.co.uk_trim>
google scraping <nospam@home.com>
is there a way to trigger "reload"? <mk53x_NOSPAM_@arcor.de>
Re: is there a way to trigger "reload"? <bernard.el-haginDODGE_THIS@LHsystems.pl>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 17 Mar 2006 12:19:40 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: [OT] Re: is there a way to trigger "reload"?
Message-Id: <Xns97894AA915E9Dasu1cornelledu@127.0.0.1>
Manfred Koch <mk53x_NOSPAM_@arcor.de> wrote in
news:Xns9789804636B35manfredkochsiemensco@139.23.33.23:
> I'd like to know if there is a way from client site
> to trigger a "reload".
> The same thing should happen than if you click on the IE
> "reload" button.
>
> It is not necessary to store that data but just to get
> the server to sendout the page again.
Off-topic answer: Lookup the alarm function in Javascript, and provide a
plain HTML link in the page in case Javascript is disabled.
For Javascript questions, please visit comp.lang.javascript
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Fri, 17 Mar 2006 11:53:47 +0000
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: generating a list reference from qw?
Message-Id: <441aa34b$0$70283$ed2619ec@ptn-nntp-reader03.plus.net>
Is there a compact way to do this?
I have a method that accepts an array ref,
and I would like to use qw, simply to avoid
typing lots of commas 'n' quotes.
so:
I have
method(["fred", "harry", "george", "henry"]);
I would like to use qw;
The best I have so far is:
method([qw(fred harry george henry)]);
Is there a better/neater/cleaner way?
BugBear
(note: the real method takes several arguments,
including multiple scalars and array refs).
------------------------------
Date: 17 Mar 2006 12:02:13 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: generating a list reference from qw?
Message-Id: <dve8g5$m81$2@mamenchi.zrz.TU-Berlin.DE>
bugbear <bugbear@trim_papermule.co.uk_trim> wrote in comp.lang.perl.misc:
> Is there a compact way to do this?
>
> I have a method that accepts an array ref,
> and I would like to use qw, simply to avoid
> typing lots of commas 'n' quotes.
>
> so:
>
> I have
>
> method(["fred", "harry", "george", "henry"]);
>
> I would like to use qw;
>
> The best I have so far is:
> method([qw(fred harry george henry)]);
>
> Is there a better/neater/cleaner way?
No.
Anno
--
If you want to post a followup via groups.google.com, don't use
the broken "Reply" link at the bottom of the article. Click on
"show options" at the top of the article, then click on the
"Reply" at the bottom of the article headers.
------------------------------
Date: Fri, 17 Mar 2006 07:41:08 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: generating a list reference from qw?
Message-Id: <slrne1lf3k.b9j.tadmc@magna.augustmail.com>
bugbear <bugbear@trim_papermule.co.uk_trim> wrote:
> Is there a compact way to do this?
A compact way to do _what_?
Oh, there's the question:
Subject: generating a list reference from qw?
There is NO way to do that.
There is no such thing as a "list reference" or a "reference to a list".
perldoc -q "list.*array"
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 17 Mar 2006 15:23:22 +0000
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: Re: generating a list reference from qw?
Message-Id: <441ad46b$0$3640$ed2e19e4@ptn-nntp-reader04.plus.net>
Tad McClellan wrote:
> bugbear <bugbear@trim_papermule.co.uk_trim> wrote:
>
>
>>Is there a compact way to do this?
>
>
> A compact way to do _what_?
>
> Oh, there's the question:
>
> Subject: generating a list reference from qw?
I try to be a good boy and use informative subject lines;
I guess I should repeat the question in the content.
My bad.
>
>
> There is NO way to do that.
>
> There is no such thing as a "list reference" or a "reference to a list".
>
> perldoc -q "list.*array"
Ah. A distinction I was insufficiently aware of. Thanks.
BugBear
------------------------------
Date: Fri, 17 Mar 2006 15:46:04 GMT
From: "Nospam" <nospam@home.com>
Subject: google scraping
Message-Id: <0RASf.1441$H%3.98@newsfe5-gui.ntli.net>
I came across this perl code, google scraping, but for some strange reason
all it does is print out: "title", "url", "size","domain suffix"
#!/usr/bin/perl
# google2csv.pl # Google Web Search Results exported to CSV suitable
# for import into Excel
# Usage: perl google2csv.pl < results.html > results.csv
print qq{"title","url","size","domain suffix"\n};
my($results) = (join '', <>) =~
m!<div>(.*?)</div>!mis;
while ( $results =~
m!<a href="?(.+?)"?>(.+?)</a>.+?\s+-\s+(\d+k)?!mgis
) {
my($url,$title, $size) = ($1||'',$2||'',$3||'');
my($suffix) = $url =~ m!\.(\w+)/!;
$title =~ s!"!""!g; # double escape " marks
$title =~ s!<.+?>!!g; # drop all HTML tags
print qq{"$title","$url","$size","$suffix"\n};
}
I am on windows using activeperl, what could be wrong with the code?
------------------------------
Date: Fri, 17 Mar 2006 11:36:35 +0000 (UTC)
From: Manfred Koch <mk53x_NOSPAM_@arcor.de>
Subject: is there a way to trigger "reload"?
Message-Id: <Xns9789804636B35manfredkochsiemensco@139.23.33.23>
I'd like to know if there is a way from client site
to trigger a "reload".
The same thing should happen than if you click on the IE
"reload" button.
It is not necessary to store that data but just to get
the server to sendout the page again.
MfG
--mkoch
------------------------------
Date: Fri, 17 Mar 2006 12:45:05 +0100
From: Bernard El-Hagin <bernard.el-haginDODGE_THIS@LHsystems.pl>
Subject: Re: is there a way to trigger "reload"?
Message-Id: <slrne1l89t.3m0.bernard.el-haginDODGE_THIS@gdndev25.ent.off.lsy.pl>
In article <Xns9789804636B35manfredkochsiemensco@139.23.33.23>,
Manfred Koch wrote:
> I'd like to know if there is a way from client site
> to trigger a "reload".
> The same thing should happen than if you click on the IE
> "reload" button.
Ctrl - R
--
Cheers,
Bernard
------------------------------
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 9061
***************************************
