Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
use strict;
...
    $ch = getc(FH);
}
close FH;
  2. or download this
    #! perl -slw
use strict;
...
    $ch = getc(FH);
}
close FH;
  3. or download this
    #! perl -slw
use strict;
...
while ( sysread( FH, $ch, 1 ) ) {
}
close FH;
  4. or download this
    #! perl -slw
use strict;
...
    }
}
close FH;
  5. or download this
    #! perl -slw
use strict;
...
    }
}
close FH;
  6. or download this
    #! perl -slw
use strict;
...
}

close FH;