Plasma Fox

#!/usr/bin/perl -w
use strict;

my $file = shift || die $0.": parameters are $0 <file> <user> <ip>\n";
my $user = shift || die $0.": parameters are $0 <file> <user> <ip>\n";
my $ip   = shift || die $0.": parameters are $0 <file> <user> <ip>\n";

open(FILE, $file) or die $file.": $!\n";
my $file;
my $read;
my @tmp; 

while ($read = <FILE>) {
	chomp($read);
	@tmp   = split(/\s/, $read);
	if ($tmp[1] =~ /$user/) {
		print "Found $user, changing $tmp[0] to $ip\n";	
		$file .= $ip." #".$user."\n";
	}
	else { $file .= $read."\n"; }
}

close(FILE);
open(FILE, ">$file"); 
print FILE $file;
close(FILE);

print "Done\n";