in reply to File Searching

Start by reading the IP list into a hash. 

open my $iplist_fh, '<', 'iplist.txt'
    or die "Can't read iplist.txt: $!\n";
my %text_for;
while ( <$iplist> ) {
    chomp;
    if ( m{ \A                               # line start
            ( \d{1,3} (?: \. \d{1,3} ){3} )  # IP address
            \s+ \| \s+                       # separator
            ( .* )                           # text
            \z                               # line end
          }xms ) {
        $text_for{$1} = $2;
    }
}
close $iplist_fh or die "Can't close??: $!\n";

[download]

Note that this assumes each IP has only one entry in your list. If that's not the case, there's another solution for that...

Once you have your list in memory, you can get the text of any IP out of it pretty easily. 

my @ips_of_interest = qw( 127.0.0.1 10.0.1.51 );
foreach my $ip ( @ips_of_interest ) {
    print "IP is $ip\n";
    print "Text is $text_for{$ip}\n";
}

[download]

Replies are listed 'Best First'.
Re^2: File Searching
by blazar (Canon) on Sep 14, 2007 at 13:04 UTC
    Start by reading the IP list into a hash.

    If he can trust the "format" of his lines enough, then along with others who partecipated to this thread I would suggest going with split - and I hardly see a risk of "messing up things" if he can not.

    Also, we recommend all the time not to slurp a whole file in at a time if not for a good reason, but perhaps in this case there's no reason not to:

    my %text_for = map { chomp; split /\s*\|\s*/, $_, 2 } <$iplist>;

    [download]
    Note that this assumes each IP has only one entry in your list. If that's not the case, there's another solution for that...

    Of course in that case one couldn't go with the simple map solution. I would do:

    while (<$iplist>) {
    chomp;
    my ($k,$v) = split /\s*\|\s*/, $_, 2;
    push @{ $text_for{$k} }, $v;
}

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom