Help for this page

Select Code to Download

Select or download this

E:\test>dir
 Volume in drive E is New Volume
...
               2 Dir(s)  1,624,181,088,256 bytes free

E:\test>perl -E"while( <> ){ print 'got here'; }" fred

Select or download this

open my $fh, '<', 'C:\ppp.txt', or die "Could not open file $!";
     while (my $line = <$fh>) 
     {   foreach my $str ($line)