Assumptions:

• The mapping of IP addresses to Computer names is in a relatively small file named 'ip.dat'.
• You don't want to overwrite your data file.
• You trust Ovid's untested code :)

use strict;
use warnings;

my $ips      = 'ip.dat';
my $in_data  = 'DJB.dat';
my $out_data = 'DJB_new.dat';
my %ip_map;

# you should ask for a shared lock in case someone updates this
open IPS, "< $ips" or die "Couldn't open $ips for reading: $!";

while ( <IPS> ) {
    my ( $ip, $name ) = split /:/, $_, 2;
    warn "$ip is already mapped to $ip_map{$ip }" if exists $ip_map{ $
+ip };
    chomp $name;
    $ip_map{ $ip } = $name;
}

close IPS;

open IN_DATA, "< $in_data"   or die "Couldn't open $in_data for readin
+g: $!";
open OUT_DATA, "> $out_data" or die "Couldn't open $out_data for writi
+ng: $!";

while ( <IN_DATA> ) {
    my $replace;
    my $ip = '';
    ( $replace, $ip ) = ( /^\+([^:]+):([\d.]+)/ );
    if ( exists $ip_map{ $ip } ) {
        s/$replace/$ip_map{ $ip }/;
    }
    print OUT_DATA $_;
}

close OUT_DATA;
close IN_DATA;
[download]

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.