in reply to 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

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]
      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]
        Thanks!!!! It now works. I assume "\s+" means match any whitespace character 1 or more times?
[reply]

In Section Seekers of Perl Wisdom