Help for this page

Select Code to Download


  1. or download this
    my $filename = "";
my $outputfile = "";
  2. or download this
    my $filename = <STDIN>;
chop ($filename);
  3. or download this
    while (<INFILE>) #read the input file
{
while ( /(\w['\w-]*)/g ){  #if we have a "word";
}