Displaying 1 result from an estimated 1 matches for "testreadlin".
Did you mean:
testreadline
2006 Dec 12
0
perl on CentOS 4.4 : PERLIO=perlio vs stdio, readline error handling
I sometimes use an example from readline entry in perlfunc(1).
This used to work for me, but know (after I upgraded to CentOS)
works only if PERLIO=stdio is defined in environment. See the following:
[xx at xx testreadline]$ cat testreadline.pl
#!/usr/bin/perl
use warnings;
use strict;
for my $fn (@ARGV) {
local (*F);
open F, "< $fn" or die "open err for fn=$fn: $!";
binmode(F);
my $c = 0;
local $/=\8192;
local $_;
for (;;) {
undef $!;
unless (defined($_ = <F>)) {...