Help for this page

Select Code to Download


  1. or download this
     ...
 my $input = $mw->getOpenFile();
...
 ...
 tie @lines, 'Tie::File', $input or die $!;
 ...
  2. or download this
     ...
 open FILE, ">$input" or die $!;
 tie @array, 'Tie::File', \*FILE, ...;
 ...