CGI.pm is Corrupting Uploaded Picture Files!

Also known as...

My Uploaded Files are Growing!

• print() on Windows/DOS systems automatically convert linefeeds into CR/LF pairs.
• Use binmode() on the output filehandle to prevent this.
• CGI.pm automatically turns on binmode() for filehandle you read from.
• Remember to call binmode() for filehandle you write to.

Examples

The Wrong Way:

use CGI qw/:standard/; my $fh = upload('uploaded_file'); die "No filehandle!" unless $fh; open (OUT,">C:/Temporary/upload.txt") || die "Cannot open: $!"; while (<$fh>) { print OUT; } close OUT;

The Right Way:

use CGI qw/:standard/; my $fh = upload('uploaded_file'); die "No filehandle!" unless $fh; open (OUT,">C:/Temporary/upload.txt") || die "Cannot open: $!"; binmode OUT; <<<<look while (<$fh>) { print OUT; } close OUT;

Previous

Contents

Next