Shell Programming and Scripting

open ( IN, "peeplist" ) or die;
my @lines =<IN>;
#close (IN);
#
while ($line = <IN> ) {
  ($rtrname, $storename, $ip)=split(/ /,$line);
  $cstorename{$rtrname} = $storename;
  $cip{$rtrname} = $ip;
}
close (IN) ;

#!/bin/perl
$err=1;
open (IN,"peeplist") or die;
while (<IN>) {
  if (/\b$ARGV[0]\b/) {print; $err=0;}
}
close (IN);
if ($err==1) {print STDERR "not found\n"}
exit $err;

...
while ($line = <IN>) {
  if ($line =~ /\b$ARGV[0]\b/) {print $line; $err=0;}
}
...

print grep /\Q$ARGV[0]\E/, @lines

@lines = <IN>;
print grep /\Q$ARGV[0]\E/, @lines;

print grep /\Q$ARGV[0]\E/, <IN>;