<div>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.</div>
<div> </div>
<div>
<p>#!/usr/bin/perl</p>
<p>open (FILE, "/etc/hosts");<br>@lines = <FILE>;<br>close (FILE);</p>
<p>foreach $line (@lines){<br> if ($line =~ /pm1/){<br> print $line;<br> }<br>}<br></p>
<p>the problem with this is that it's printing out some hosts that i don't want that also have pm1 at the end.</p>
<p>somehostpm1 but it also gets my dr hosts (dr-somehostpm1)</p>
<p>thoughts?</p>
<p>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.</p></div>