Mega Code Archive

 

Categories / Perl / File

 

Win32 Binary Files

#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 );