Mega Code Archive

 

Categories / Perl / Language Basics

 

File-searching program using $ARGV

#!/usr/local/bin/perl  print ("Enter the search pattern:\n");  $string = <STDIN>;  chop ($string);  while ($line = <>) {     if ($line =~ /$string/) {        print ("$ARGV:$line");     }  }