Re: How do I get the last occurrence of a word (or words) in a file?

Or stated another way ... arn't hashes great?

  while (<>) {
    /^(.+)\:/ ;         # Capture Server Name
    $hash{$1} = $_ ;    # Create Hash Key if found
  } 

  foreach $server (sort keys %hash) {
    print "$hash{$server}\n" ;
  }
[download]

Just for another style!

Have fun,
mslattery

Comment on Re: How do I get the last occurrence of a word (or words) in a file? Download Code