upload file through Perl CGI script without storing file

Question

I created a CGI script in Perl which uploads a file to the server. The script works perfectly:

my $upload_filehandle = $query->upload("config");

if (!$upload_filehandle)
{
    die "Configuration file could not be loaded";
}

open ( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!";
binmode UPLOADFILE;

while ( <$upload_filehandle> )
{
    print UPLOADFILE;
}

close UPLOADFILE;

The problem is that I do not want to store the file onto the server but only want to store a part of its contents inside some variables in the Perl script. I do not know how to do this. I tried the following piece of code instead:

my @array;
my $upload_filehandle = $query->upload("config");

if (!$upload_filehandle)
{
    die "Configuration file could not be loaded";
}

open ( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!";
binmode UPLOADFILE;

while ( <$upload_filehandle> )
{
    push @array, $_;
}


close UPLOADFILE;

I want to store the file contents in an array but it gives an error:

[Sat Aug 31 18:03:27 2013] [error] [client 127.0.0.1] malformed header from script. Bad      header=\xff\xd8\xff\xe11\xdcExif: loadConfig.cgi, referer: http://localhost/cgi-bin/uploadFile.cgi

I think it is at line push @array, $_; and it maybe caused because the header of the file is not recognized.

Do you have any ideas about how to store the file content without saving the file?

Thank you in advance for your response.

RobEarl · Accepted Answer · 2013-08-31 17:48:12Z

1

It looks like you're trying to print the file (\xff\xd8\xff\xe11\xdcExif) before a proper HTTP header:

print $query->header;

I've tidied up your script a little and this works fine:

#!/usr/bin/perl

use strict;
use warnings;

use CGI;
use CGI::Carp 'fatalsToBrowser';

my $query = CGI->new;

my $upload_filehandle = $query->upload("config")
    or die "Configuration file could not be loaded";


my @array = <$upload_filehandle>;

print $query->header;

use Data::Dumper;
print Dumper(\@array);

edited Aug 31, 2013 at 17:48

answered Aug 31, 2013 at 17:00

RobEarl

7,9226 gold badges38 silver badges52 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

upload file through Perl CGI script without storing file

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related