Perl experts ? Here is another one...

[CHMOD]

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]

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

[Spider Ninja]

well, something like:

#!/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]

[CHMOD]

Originally Posted by Spider Ninja

well, something like:

#!/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]

always happy when something works ;-)