in reply to How to use matched strings

One approach is to read the file with names and addresses into a Perl hash, with the name as a key and the address as a value. A simple hash requires that the names be unique.

Then, you can read the names file and use each name as a key into your hash to get the address.

Since you are new to Perl, a good free starting point is perlintro.

Replies are listed 'Best First'.
Re^2: How to use matched strings
by tophat (Initiate) on Apr 12, 2011 at 17:37 UTC
    Thank you, I am going to try this and report back.
[reply]

      Just read your update. foreach? while? up to you, both could work here. One approach to your query: 

      #!/usr/bin/perl
use strict;
use warnings;
open my $CUR, "<", "tdat_cur" or die "no tdat_cur";
open my $IPS, "<", "tdat_ips" or die "no tdat_ips";

my @cur = map { chomp ; $_ } <$CUR>;

my %ips;
foreach ( <$IPS> ) {
    # if there's a chance of $nam recurring you need to check for it.
    my ($nam, $ip) = split;
    $ips{$nam} = $ip;
}

foreach my $curious_about ( @cur ) {
    if( defined $ips{$curious_about} ) {
        print "$curious_about has IP addr $ips{$curious_about}\n";
    }
    else {
        print "No IP addr information for $curious_about\n";
    }
}

      [download]
      tdat_cur contains:
michael
joe
renee

      [download]
      tdat_ips contains:
rose 10.100.100.12
michael 10.100.100.13
renee 10.100.100.14
nizar 10.100.100.15

      [download]

      As you can see I'm a foreach kinda guy. That data is very simplified and you'll probably need to handle a slightly more complex match and split.


      Be Appropriate && Follow Your Curiosity
[reply]
[d/l]
[select]
        Wow, this is amazing. I have to pore over this a bit to understand it, but it uses all the beginner's stuff I should know how to use already. I can't wait to try to localize this concept into my script. Thanks for this.
[reply]

In Section Seekers of Perl Wisdom