[28744] in Perl-Users-Digest
Perl-Users Digest, Issue: 10108 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jan 1 18:05:57 2007
Date: Mon, 1 Jan 2007 15:05:04 -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 Mon, 1 Jan 2007 Volume: 10 Number: 10108
Today's topics:
Re: Assigning pattern matches to an array <noreply@gunnar.cc>
Re: Assigning pattern matches to an array <ben.usenet@bsb.me.uk>
extracting regular expression with two http's <nospam@home.com>
Re: extracting regular expression with two http's <noreply@gunnar.cc>
Re: extracting regular expression with two http's <abigail@abigail.be>
Larry or Linus? Give credit to everyone else... <gb0506@kickindanuts.threefiddy.com>
new CPAN modules on Mon Jan 1 2007 (Randal Schwartz)
Re: Perl LWP post to password protected script jcharth@hotmail.com
Perl's reference is the best compare with other languag <howachen@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 01 Jan 2007 13:23:13 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Assigning pattern matches to an array
Message-Id: <4vsct9F1cojaaU1@mid.individual.net>
Ben Bacarisse wrote:
> Gunnar Hjalmarsson <noreply@gunnar.cc> writes:
>>Graham Stow wrote:
>>>
>>>ian@email.co.uk}}}{\f1\fs20\lang1033\langfe1033\langnp1033
>>
>>If I have understood it correctly, RFC 822 does not accept backslashes
>>in the domain part of an address. A bug in Email::Address?
>
> The governing RFC is now 2822 and, no, it does not allow \ in the
> domain.
Thanks, Ben, for confirming my suspicion and for reporting the bug.
http://rt.cpan.org/Public/Bug/Display.html?id=24161
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Mon, 01 Jan 2007 17:49:57 +0000
From: Ben Bacarisse <ben.usenet@bsb.me.uk>
Subject: Re: Assigning pattern matches to an array
Message-Id: <87tzzaljqy.fsf@bsb.me.uk>
Gunnar Hjalmarsson <noreply@gunnar.cc> writes:
> Ben Bacarisse wrote:
>> Gunnar Hjalmarsson <noreply@gunnar.cc> writes:
>>>Graham Stow wrote:
>>>>
>>>>ian@email.co.uk}}}{\f1\fs20\lang1033\langfe1033\langnp1033
>>>
>>>If I have understood it correctly, RFC 822 does not accept backslashes
>>>in the domain part of an address. A bug in Email::Address?
>> The governing RFC is now 2822 and, no, it does not allow \ in the
>> domain.
>
> Thanks, Ben, for confirming my suspicion and for reporting the bug.
>
> http://rt.cpan.org/Public/Bug/Display.html?id=24161
You are welcome and, sorry, I should have posted back here that I had
reported it.
--
Ben.
------------------------------
Date: Mon, 01 Jan 2007 21:37:13 GMT
From: "Nospam" <nospam@home.com>
Subject: extracting regular expression with two http's
Message-Id: <dafmh.50071$HV6.49629@newsfe1-gui.ntli.net>
I am trying to extract the contents of mechanize matching a url that has two
urls in it (i.e http://www.example.com?http:www.sample.com/sample1, i.e: my
$sample = $mech->content();$sample =~ m{http://*.+sample(.+)};
Code so far:
#! c:/perl/bin/perl.exe
use WWW::Mechanize;
use strict;
use warnings;
my $mech = WWW::Mechanize->new();
my $url = 'http://www.example.com/';
$mech->get($url);
my $example = $mech->content();
$example =~ m{http://.+example.*+sample(.+)};
print "$example \n";
So far nothing is done
------------------------------
Date: Mon, 01 Jan 2007 23:53:34 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: extracting regular expression with two http's
Message-Id: <4vthr6F1dlhclU1@mid.individual.net>
Nospam wrote:
> I am trying to extract the contents of mechanize matching a url that has two
> urls in it (i.e http://www.example.com?http:www.sample.com/sample1,
<snip>
> $example =~ m{http://.+example.*+sample(.+)};
>
> print "$example \n";
>
> So far nothing is done
Yes, it is. The regex is producing a compilation error. Please copy and
paste code that you post, don't retype it.
Leaving that error aside, do you mean that it didn't match? In that
case, how do you know?
As regards URL extraction, there is an applicable FAQ entry:
perldoc -q "extract URLs"
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 01 Jan 2007 23:00:36 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: extracting regular expression with two http's
Message-Id: <slrnepj4kk.co.abigail@alexandra.abigail.be>
Nospam (nospam@home.com) wrote on MMMMDCCCLXXI September MCMXCIII in
<URL:news:dafmh.50071$HV6.49629@newsfe1-gui.ntli.net>:
}} I am trying to extract the contents of mechanize matching a url that has two
}} urls in it (i.e http://www.example.com?http:www.sample.com/sample1, i.e: my
}} $sample = $mech->content();$sample =~ m{http://*.+sample(.+)};
Unless you are talking about relative URLs (and in that case, any substring
after 'http://' is one), the given string cannot be decomposed in two
URLs.
}} Code so far:
}}
}} #! c:/perl/bin/perl.exe
}}
}} use WWW::Mechanize;
}} use strict;
}} use warnings;
}}
}} my $mech = WWW::Mechanize->new();
}}
}} my $url = 'http://www.example.com/';
}}
}} $mech->get($url);
}}
}} my $example = $mech->content();
}}
}} $example =~ m{http://.+example.*+sample(.+)};
}}
}}
}}
}} print "$example \n";
}}
}}
}} So far nothing is done
Perhaps nothing if fetched? What did get() return? And what's the
point of the match if you aren't doing anything with the result,
or its side-effects?
Abigail
--
perl -we 'print q{print q{print q{print q{print q{print q{print q{print q{print
qq{Just Another Perl Hacker\n}}}}}}}}}' |\
perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w
------------------------------
Date: 1 Jan 2007 22:09:58 +1100
From: GB <gb0506@kickindanuts.threefiddy.com>
Subject: Larry or Linus? Give credit to everyone else...
Message-Id: <12phrn9e7j6ka79@corp.supernews.com>
Hi All,
A few months ago now I read an interview on the web somewhere. I
can't for the life of me remember whether the interviewee was
Larry or Linus (or someone else). A part of the story discussed
the person's habit of giving credit for everything to other
people - contributors to the projects, etc. A quote with words to
the effect of "if you give all credit for everything away, they
will worship you as a god" (not those exact words, just that
sentiment-ish).
Now, I can't find it anywhere. I'm hoping that someone remembers
what I'm talking about and can point me in the right direction,
a URL or something.
I am (of course) subscribed to these groups, but if you prefer
to email me directly, please feel free. The From: address is
real.
Thanks in advance,
GB
--
"Most police misconduct occurs when citizens challenge an individual
officer's authority" (Reiss, 1971 c.in Jermier & Berkes 1979)
------------------------------
Date: Mon, 1 Jan 2007 05:42:13 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Mon Jan 1 2007
Message-Id: <JB6D6D.KxE@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Authen-Htpasswd-0.15
http://search.cpan.org/~dkamholz/Authen-Htpasswd-0.15/
interface to read and modify Apache .htpasswd files
----
Business-TNTPost-NL-0.01
http://search.cpan.org/~blom/Business-TNTPost-NL-0.01/
Calculate Dutch (TNT Post) shipping costs
----
Business-TPGPost-0.05
http://search.cpan.org/~blom/Business-TPGPost-0.05/
[OBSOLETE] See Business::TNTPost::NL
----
CPAN-1.88_67
http://search.cpan.org/~andk/CPAN-1.88_67/
query, download and build perl modules from CPAN sites
----
CPAN-SQLite-0.1_03
http://search.cpan.org/~rkobes/CPAN-SQLite-0.1_03/
maintain and search a minimal CPAN database
----
Catalyst-Plugin-Authentication-Credential-HTTP-0.09
http://search.cpan.org/~jrobinson/Catalyst-Plugin-Authentication-Credential-HTTP-0.09/
HTTP Basic and Digest authentication for Catalyst.
----
Catalyst-Plugin-Email-0.08
http://search.cpan.org/~mramberg/Catalyst-Plugin-Email-0.08/
Send emails with Catalyst
----
Catalyst-Plugin-PageCache-0.15
http://search.cpan.org/~mramberg/Catalyst-Plugin-PageCache-0.15/
Cache the output of entire pages
----
Compass-Bearing-0.02
http://search.cpan.org/~mrdvt/Compass-Bearing-0.02/
Convert angle to text bearing (aka Heading)
----
Crypt-Camellia_PP-0.01
http://search.cpan.org/~oyama/Crypt-Camellia_PP-0.01/
Pure Perl Camellia 128-bit block cipher module.
----
Data-Random-String-0.02
http://search.cpan.org/~makis/Data-Random-String-0.02/
Perl extension for creating random strings
----
File-HomeDir-0.60_08
http://search.cpan.org/~adamk/File-HomeDir-0.60_08/
Find your home and other directories, on any platform
----
File-HomeDir-0.60_10
http://search.cpan.org/~adamk/File-HomeDir-0.60_10/
Find your home and other directories, on any platform
----
File-HomeDir-0.60_11
http://search.cpan.org/~adamk/File-HomeDir-0.60_11/
Find your home and other directories, on any platform
----
GD-Thumbnail-1.10
http://search.cpan.org/~burak/GD-Thumbnail-1.10/
Thumbnail maker for GD
----
Geo-Coder-YahooJapan-Inverse-0.01
http://search.cpan.org/~kokogiko/Geo-Coder-YahooJapan-Inverse-0.01/
a simple wrapper for Yahoo Japan Inverse Geocoder API
----
HTML2XHTML-0.03.07
http://search.cpan.org/~oembry/HTML2XHTML-0.03.07/
Wrapper to command-line program that converts from HTML 3.x/4.x to XHTML 1.0
----
Lemonldap-NG-Handler-0.71
http://search.cpan.org/~guimard/Lemonldap-NG-Handler-0.71/
The Apache module part of Lemonldap::NG Web-SSO system.
----
Lemonldap-NG-Manager-0.1
http://search.cpan.org/~guimard/Lemonldap-NG-Manager-0.1/
Perl extension for managing Lemonldap::NG Web-SSO system.
----
Lemonldap-NG-Portal-0.51
http://search.cpan.org/~guimard/Lemonldap-NG-Portal-0.51/
The authentication portal part of Lemonldap::NG Web-SSO system.
----
List-RewriteElements-0.07
http://search.cpan.org/~jkeenan/List-RewriteElements-0.07/
Create a new list by rewriting elements of a first list
----
POE-Component-Pool-Thread-0.015
http://search.cpan.org/~tag/POE-Component-Pool-Thread-0.015/
A POE Managed Boss/Worker threadpool.
----
Statistics-Smoothing-SGT-2.0.3
http://search.cpan.org/~bjoernw/Statistics-Smoothing-SGT-2.0.3/
A Simple Good-Turing (SGT) smoothing implementation
----
Statistics-Smoothing-SGT-2.0.4
http://search.cpan.org/~bjoernw/Statistics-Smoothing-SGT-2.0.4/
A Simple Good-Turing (SGT) smoothing implementation
----
Statistics-Smoothing-SGT-2.0.5
http://search.cpan.org/~bjoernw/Statistics-Smoothing-SGT-2.0.5/
A Simple Good-Turing (SGT) smoothing implementation
----
Test-Without-Module-0.09
http://search.cpan.org/~corion/Test-Without-Module-0.09/
Test fallback behaviour in absence of modules
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: 1 Jan 2007 12:17:13 -0800
From: jcharth@hotmail.com
Subject: Re: Perl LWP post to password protected script
Message-Id: <1167682633.005679.274100@n51g2000cwc.googlegroups.com>
Thanks for the hints. I tried Get and it did not work that would have
being easy. too easy. I am passing variable to some kind of c demon.
may be post will work. ill will look a the example and hopefully get
some ideas on how to re POST all my variables to another script.
------------------------------
Date: 31 Dec 2006 20:14:45 -0800
From: "howa" <howachen@gmail.com>
Subject: Perl's reference is the best compare with other languages
Message-Id: <1167624885.628599.214560@n51g2000cwc.googlegroups.com>
after learning many years of programming languages, e.g. C, pascal,
C++, PHP
I believe Perl reference is the best and easy to learn, much better
than C pointer
------------------------------
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 10108
****************************************
