#!/usr/bin/perl-w

use strict;
use win32;

my $in_name=$ARGV[0];
my $out_name=$ARGV[1];

our (@x);  # new type of global declaraton
           # carefull commas needed I.E. our (@x, @y);
           # use vars qw ( @x @y );  <- obsolete global declaration

# pass a reminder
if($#ARGV < 1) {
  die "usage: ip.pl <input file> <output file>\n"
    . "for example: program.pl infile.txt outfile.txt\n"
}

open(FILE, $in_name) || die "ip.pl can't open $in_name: $!";
open(IPFILE,">$out_name") || die "ip.pl can't open $out_name: $!";

my $dns2="toto";   #157.173.20.2
my $dns3="oz";     #157.173.20.3
my $dns4="wizard"; #157.173.20.4

my $ip2;
my $ip3;
my $ip4;

while (<FILE>){
    # sample line 
    # Tz25,D,wizard,2,157.173.20.2,Local
    
    @x=split(/,/);
    next unless (($_ =~ /Local/)||($_ =~ /Network/));
    
    if  ($x[4] =~ /157.173.20.2/){ 
        $ip2 = $dns2;
        print $x[0], $x[1], $x[2], $ip2;
        print IPFILE;
    }
}
[download]