#!/usr/bin/perl -w

use strict;

open IN, "filename" or die "$!";
while (<IN>) {
       chomp;
       my ($first, $info) = (split />/);
       my $number = (split /'/, $first)[9];
       print "$number => $info\n";
}
close IN or warn "$!";
[download]

113 => San Francisco (Manager)
680 => Los Angeles (Worker)
456 => San Jose (People)
[download]

Thanks for all the responses. I still cant fetch the information. I know its coming down to the newline problem because I tried a test by putting it on one line:  <A HREF="JavaScript:AFunction('AA', 'B','0','Project','113')">San Francisco (Manager)
and was able to fetch the different the number that was located where "113" was located:

use LWP::Simple;
my $url = 'www.website.com';
my $content = get($url);
my ($number) = $content =~ /'(\d{3})'\)">San Francisco (Manager)/;

print "$number\n";
[download]

BUT I really need to fetch the information where it is split on two lines:

 <A HREF="JavaScript:AFunction('AA', 'B','0','Project','113')">
San Francisco (Manager)
[download]

I tried both these and still didnt get it to work:

my ($number) = $content =~ /'(\d{3})'\)">\nSan Francisco (Manager)/;
[download]

and:

my ($number) = $content =~ /'(\d{3})'\)">San Francisco (Manager)/s;
[download]

Your use of my ($number) = $content =~ /'(\d{3})'\)">\nSan Francisco (Manager)/; seems almost correct. Why don't you modify it slightly to:


my ($number) = $content =~ /'(\d{3})'\)">\s+San Franscisco \(Manager\)
+/;
[download]

You probably can't guarantee that the newline is a literal "\n", and you didn't escape the parens around the string "Manager".

The code you show does not do what you think it does. It's declaring a new variable, $number, and then matching the regex against it. Obviously, the regex won't match against an empty string.

I think this code does what you meant to do:

my $got = q!<A HREF="JavaScript:AFunction('AA', 'B','0','Project','113
+')">San Francisco (Manager)!;
$got =~ /'(\d{3})'\)">San Francisco \(Manager\)/;
my $number = $1;

print $number;
[download]

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated

Thanks, But the problem is the number 113 changes and that is the number I am trying to print. Whatever the new number that replaced 113 is the number I am trying to fetch and print. I tried this and it doesnt work:

my $got = q!<A HREF="JavaScript:AFunction('AA', 'B','0','Project','(\d
+{3}')">San Francisco (Manager)!;
print $got;
[download]

What about something like this, assuming all of the lines will follow the same pattern. Given file lines such as:


<A HREF="blah('aa','b','0','Project','112)">
Some Label Without Any Digits
[download]

Do:

open(F,"file.html");
@array = <F>;
close (F);
foreach (@array) {
    if (/\d/) {
        my ($s1,$s2,$s3,$s4,$needednumber) = split(/,/);
        $needednumber =~ s/[^\d]//g;
        print $needednumber . "\n";
    }
}
[download]

#!/usr/bin/perl -w
use strict;


my $regex = q{<A HREF="JavaScript:AFunction('AA', 'B','0','Project','4
+56')">
San Jose (People)
};
$regex =~ /'(\d{3})'\)">\n(.*?) (\(.*\))/;

my $number = $1;
my $area = $2;
my $position = $3;


print $number;
print $area;
print $position;
[download]