Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. File-searching program using $ARGV
#!/usr/local/bin/perl 
print ("Enter the search pattern:\n"); 
$string = ; 
chop ($string); 
while ($line = <>) { 
   if ($line =~ /$string/) { 
      print ("$ARGV:$line"); 
   } 
}