Parsing query 1

[rabinski]

Hi gurus -

I have an input file like so

10.0.0.1 servername
10.0.0.2 servername2
10.0.0.2 servername2
10.0.0.3 servername3

I am reading in the file and just writing out the Servername to a new output file -

But - I only want one entry for servername2 (and any other dupes) in the new file ...

Any pointers would be great

Thanks in advance

Rab

 

[ishnid]

If you're on *nix (I'm not sure how STDOUT redirection works on Win32):

 perl -ane 'print "$F[0]\n" unless ($seen{$F[1]}++)' input_filename > output_filename

 

[duncdude]

use a hash:-

[b]#!/usr/bin/perl[/b]

while (<DATA>) {
  chomp;
  ($ip, $server) = split(/ /);
  $servers{"$server"} = 1;
}

while (($key, $value) = each %servers) {
  print "$key\n";
}

__DATA__
10.0.0.1 servername
10.0.0.2 servername2
10.0.0.2 servername2
10.0.0.3 servername3

Kind Regards
Duncan

 

[rabinski]

Dunc -

You are indeed a dude - cheers mate all sorted ....

Rab

 

[duncdude]

Nice. Thanks for your vote!


Kind Regards
Duncan