[26031] in Perl-Users-Digest
Perl-Users Digest, Issue: 8240 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jul 10 14:05:33 2005
Date: Sun, 10 Jul 2005 11:05:05 -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, 10 Jul 2005 Volume: 10 Number: 8240
Today's topics:
error 400 url must be absolut <""alexjaquet\"@[no spam]msn.com">
Re: error 400 url must be absolut <""alexjaquet\"@[no spam]msn.com">
Re: Problems understanding and implementing process man <joe@inwap.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 10 Jul 2005 19:52:58 +0200
From: Alexandre Jaquet <""alexjaquet\"@[no spam]msn.com">
Subject: error 400 url must be absolut
Message-Id: <42d16084$0$1146$5402220f@news.sunrise.ch>
Hi,
With my following script I got this error and didn't know why.
Here is my script :
#!perl -w
use LWP::UserAgent;
use LWP::Simple;
my $server = 'http://www.hardstyle-force.ch/phpBB2/index.php';
my @proxies = ();
my @proxy_servers_list =
('http://www.multiproxy.org/txt_anon/proxy.txt','http://www.multiproxy.org/txt_all/proxy.txt','http://agat.net.ru/many/proxy.txt');
foreach my $page(@proxy_servers_list) {
my $content = get ($page);
push (@proxies, split(/\s{2,}/,$content));
}
foreach my $proxy(@proxies) {
my $ua = LWP::UserAgent->new;
if ($proxy ne '') {
(my $ip,my $port) = split (/:/,$proxy);
if ($port eq '80' or $port eq '8080') {
$ua->proxy('http', $proxy);
my $exp = "banni";
my $response = $ua->get('$server');
if ($response->content =~ $exp) {
print "banni avec le proxy : $proxy\n";
}
else {
print $response->content ."\n";
print "proxy : $proxy ok \n";
}
}
}
}
Thanks¨
Alexandre Jaquet
------------------------------
Date: Sun, 10 Jul 2005 19:55:42 +0200
From: Alexandre Jaquet <""alexjaquet\"@[no spam]msn.com">
Subject: Re: error 400 url must be absolut
Message-Id: <42d16128$0$1146$5402220f@news.sunrise.ch>
Alexandre Jaquet > a écrit :
> Hi,
>
> With my following script I got this error and didn't know why.
>
> Here is my script :
>
> #!perl -w
> use LWP::UserAgent;
> use LWP::Simple;
>
> my $server = 'http://www.hardstyle-force.ch/phpBB2/index.php';
>
> my @proxies = ();
> my @proxy_servers_list =
> ('http://www.multiproxy.org/txt_anon/proxy.txt','http://www.multiproxy.org/txt_all/proxy.txt','http://agat.net.ru/many/proxy.txt');
>
> foreach my $page(@proxy_servers_list) {
> my $content = get ($page);
> push (@proxies, split(/\s{2,}/,$content));
> }
>
>
> foreach my $proxy(@proxies) {
> my $ua = LWP::UserAgent->new;
> if ($proxy ne '') {
> (my $ip,my $port) = split (/:/,$proxy);
> if ($port eq '80' or $port eq '8080') {
> $ua->proxy('http', $proxy);
> my $exp = "banni";
> my $response = $ua->get('$server');
> if ($response->content =~ $exp) {
> print "banni avec le proxy : $proxy\n";
> }
> else {
> print $response->content ."\n";
> print "proxy : $proxy ok \n";
> }
>
> }
> }
> }
>
> Thanks¨
>
> Alexandre Jaquet
I founded : my $response = $ua->get('$server');
but now I get 501 Protocol scheme '' is not supported...
------------------------------
Date: Sun, 10 Jul 2005 02:16:43 -0700
From: Joe Smith <joe@inwap.com>
Subject: Re: Problems understanding and implementing process management
Message-Id: <T6udnZwFZYPhek3fRVn-qw@comcast.com>
James Calivar wrote:
> because I had a comment line that exceeded 80
> lines ??? For the record, my perl executable didn't puke on this.
Have you actually tested that? To properly test it, you'll need to
have to the code as we received it, which is different from what
you started with.
Go back to
Date: Fri, 8 Jul 2005 15:36:31 -0400
Message-ID: <damkjv$k5k$1@home.itg.ti.com>
select the text and copy-and-paste it into a new file. Then check
to see if your perl executable barfs on that.
I expect that you'll see the same thing we see: overly long comments
got mangled by the trip to USENET and back. If you can't get
the program to work after copy-and-paste, neither can we.
-Joe
------------------------------
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 8240
***************************************
