Re: Fetching unique info

I think the following code does what you are looking for.

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

So the output would look like the following:

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

Hope that helps.

-Prime

Comment on Re: Fetching unique info Select or Download Code

Replies are listed 'Best First'.
Re: Re: Fetching unique info by Anonymous Monk on Jun 05, 2003 at 17:34 UTC
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]	[reply] [d/l] [select]
Re: Re: Re: Fetching unique info by cbro (Pilgrim) on Jun 05, 2003 at 18:19 UTC
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".	[reply] [d/l] [select]
Re: Re: Re: Re: Fetching unique info by Anonymous Monk on Jun 05, 2003 at 18:29 UTC
Thanks!!!! It now works. I assume "\s+" means match any whitespace character 1 or more times?	[reply]
Re: Re: Re: Re: Re: Fetching unique info by cbro (Pilgrim) on Jun 05, 2003 at 18:34 UTC


Think about Loose Coupling
	PerlMonks