Perl experts ? Here is another one... - GoFuckYourself.com

CHMOD · 02-23-2006, 10:22 PM

I am slowly learning Perl... I can't figure out this one :

This link :

http://www.maxmind.com/app/ccv2r?i=2...CENSE_KEY_HERE

Returns a response on a webpage. A blank webpage with a string printed on the top of the page. It doesn't return a string.... It returns a webpage with a string printed on it.

Something like this :

distance=10;countryMatch=no;countryCode=US;freeMail=no; etc etc...

Now... What lines can pick up the answer of...let's say countryMatch ? ( On my example, the answer is "no" )

How can I pick up the answer of countryMatch and print it on my screen ?

Thanks !

Spider Ninja · 02-23-2006, 10:25 PM

Code:

if (/countryMatch=([^;]+)/) {
    $match = $1;
}

Spider Ninja · 02-23-2006, 10:30 PM

well, something like:

Code:

#!/usr/bin/perl
use strict;
use LWP::Simple;

my $url = "http://www.domain.com/page.html";

my $html = get($url);

my $match;

if ($html =~ /countryMatch=([^;]+)/) {
    $match = $1;
}

print $match;

BusterBunny · 02-23-2006, 10:32 PM

CHMOD · 02-24-2006, 07:03 AM

Quote:

Originally Posted by Spider Ninja

well, something like:

Code:

#!/usr/bin/perl
use strict;
use LWP::Simple;

my $url = "http://www.domain.com/page.html";

my $html = get($url);

my $match;

if ($html =~ /countryMatch=([^;]+)/) {
    $match = $1;
}

print $match;

Awesome !

Thanks a lot !

Spider Ninja · 02-24-2006, 08:10 AM

always happy when something works ;-)

02-23-2006, 10:22 PM	#1
CHMOD Confirmed User Join Date: Jun 2003 Posts: 1,697	Perl experts ? Here is another one... I am slowly learning Perl... I can't figure out this one : This link : http://www.maxmind.com/app/ccv2r?i=2...CENSE_KEY_HERE Returns a response on a webpage. A blank webpage with a string printed on the top of the page. It doesn't return a string.... It returns a webpage with a string printed on it. Something like this : distance=10;countryMatch=no;countryCode=US;freeMail=no; etc etc... Now... What lines can pick up the answer of...let's say countryMatch ? ( On my example, the answer is "no" ) How can I pick up the answer of countryMatch and print it on my screen ? Thanks !

02-23-2006, 10:25 PM	#2
Spider Ninja Registered User Join Date: Nov 2005 Location: NYC ICQ: 320970274 Posts: 2,051	Code: if (/countryMatch=([^;]+)/) { $match = $1; }

02-23-2006, 10:30 PM	#3
Spider Ninja Registered User Join Date: Nov 2005 Location: NYC ICQ: 320970274 Posts: 2,051	well, something like: Code: #!/usr/bin/perl use strict; use LWP::Simple; my $url = "http://www.domain.com/page.html"; my $html = get($url); my $match; if ($html =~ /countryMatch=([^;]+)/) { $match = $1; } print $match;

02-23-2006, 10:32 PM	#4
BusterBunny perverted justice decoy Join Date: Aug 2005 Location: unborn still in the womb connected via blackberry Posts: 19,291	__________________ my sig caught gonoherpasyphilaids and died

02-24-2006, 08:10 AM	#6
Spider Ninja Registered User Join Date: Nov 2005 Location: NYC ICQ: 320970274 Posts: 2,051	always happy when something works ;-)