Help for this page

Select Code to Download


  1. or download this
    my @files=<*.text>;#scans for .txt extensn in the curent dir
local @_=@files;
foreach my $file(<>)
  2. or download this
    local @ARGV = <*.text>;#scans for .txt extensn in the curent dir
while ( my $line = <> )