Tuesday, 9 April 2013

Anchor in perl

#!/usr/bin/perl
open(FILE,"/etc/passwd");
while($line=<FILE>)
{
if ( $line =~ /ser\b/ )
{
print $line."\n";
}
}

No comments:

Post a Comment