[Kc] Need second look at this...

[Emmanuel Mejias]

trying to grep out some info from my /etc/hosts file...just to get more
practice with Perl and well for my personal pleasure, too.


#!/usr/bin/perl

open (FILE, "/etc/hosts");
@lines = <FILE>;
close (FILE);

foreach $line (@lines){
   if ($line =~ /pm1/){
      print $line;
   }
}

the problem with this is that it's printing out some hosts that i don't want
that also have pm1 at the end.

somehostpm1 but it also gets my dr hosts (dr-somehostpm1)

thoughts?

by the way, i had to jump the wifes car so i ended up missing out on the
meeting. gonna try to make the next one for sure, though.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/kc/attachments/20071011/72b64e75/attachment.html