Need second look at this...

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&gt;;
close (FILE);

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

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.

On 10/11/07, Garrett Goebel < ggoebelgoebel.ws">ggoebelgoebel.ws> wrote:

In order to fix your regex you'll need to tell us the difference
between somehostpm1 and dr-somehostpm1.

Will a "good" somehostpm1 never be preceeded by 'dr-&#39;? If so...

# Shot at adhering to Perl Best Practices
open my($file), '<&#39;, '/etc/hosts';
while (my $line = <$file&gt;) {
   ; if ($line =~ /(?<!dr-)S+pm1/) {
 &nbsp; &nbsp;   ; print $line;
&nbsp; &nbsp; }
}

# Quick'n Dirty
open FILE, '</etc/hosts&#39;;
map { print if /(?<!dr-)S+pm1/ } <FILE&gt;;

I haven't tested it... perhaps it'll work.

(?<!pattern) is a zero width negative look behind assertion. I.e.
it9;ll match anything that isn't preceeded by the pattern without
including it in the match.

Garrett

On Oct 11, 2007, at 2:44 PM, Emmanuel Mejias wrote:

> 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&gt;;
> close (FILE);
&gt;
> foreach $line (lines){
&gt; &nbsp; &nbsp;if ($line =~ /pm1/){
&gt; &nbsp; &nbsp; &nbsp; print $line;
>; &nbsp; &nbsp;}
> }
>
>; 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.
&gt;
> _______________________________________________
> kc mailing list
> kcpm.org">kcpm.org
&gt; http://mail.pm.org/mailman/listinfo/kc

On 10/11/07, djgoku < djgokugmail.com">djgokugmail.com> wrote:

On 10/11/07, Emmanuel Mejias < emmanuel.mejiasgmail.com">emmanuel.mejiasgmail.com> wrote:
&gt; 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&gt;;
> close (FILE);
&gt;
> foreach $line (lines){
&gt; &nbsp; &nbsp;if ($line =~ /pm1/){
&gt; &nbsp; &nbsp; &nbsp; print $line;
>; &nbsp; &nbsp;}
> }
>
>;
> 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?

Are the ones you don't want all have a prefix of 'dr-&#39;? Can we get a
sample list?

> 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.
_______________________________________________
kc mailing list
kcpm.org">kcpm.org
http://mail.pm.org/mailman/listinfo/kc