18 lines
298 B
Perl
18 lines
298 B
Perl
|
#binmode FILEHANDLE
|
||
|
|
#binmode FILEHANDLE, DISCIPLINE
|
||
|
|
|
||
|
|
$infile="a.gif";
|
||
|
|
open( INFILE, "<$infile" );
|
||
|
|
open( OUTFILE, ">out.gif" );
|
||
|
|
|
||
|
|
binmode( INFILE );
|
||
|
|
binmode( OUTFILE );
|
||
|
|
|
||
|
|
while ( read( INFILE, $buffer, 1024 ) ) {
|
||
|
|
print OUTFILE $buffer;
|
||
|
|
}
|
||
|
|
|
||
|
|
close( INFILE );
|
||
|
|
close( OUTFILE );
|
||
|
|
|
||
|
|
|