my $buf; my $nread;
open(my $filehandle, '<', 'f.tmp') or die "error open: $!";
while ($nread = sysread($filehandle, $buf, 1024)) {
print "nread=$nread buf='$buf'\n";
}
####
use strict;
my $buf; my $nread;
open(my $filehandle, '<', 'f.tmp') or die "error open f.tmp: $!";
binmode($filehandle);
open(my $fhout, '>', 'g.tmp') or die "error open g.tmp: $!";
binmode($fhout);
while ($nread = sysread($filehandle, $buf, 1)) {
print $fhout $buf;
}
close($filehandle); close($fhout);
##
##
sysread($filehandle, $buf, 1)
##
##
sysread($filehandle, $buf, 1024)