Help for this page

Select Code to Download


  1. or download this
    open in, shift @ARGV;
for(<in>){
  2. or download this
    tie @in, 'Tie::File', shift @ARGV;
for(@in)
  3. or download this
    tie @in, 'Tie::File', shift @ARGV;
while(1){
$_=$in[$i++];