Handle Multiple files upload in CGI

[skyy]

Hi.. i would like to know how to handle multiple upload files with the cgi module in perl script..

With single file,

my $my_cgi new CGI;
my $upload_filehandle = cgi ->upload('file1');
my $filename = $cgi->param('file1');
$filename =~ s/.*[\/\\](.*)/$1/;
if ($upload_filehandle) {
    open(FILE1, ">$upload_dir/$filename") || print("Could not open file!");
    binmode FILE1;
    while (<$upload_filehandle>) {
        print FILE1 ;
    }
    close FILE1;
 

For multiple files, how to determine how many files are there? if the filename are file1, file2, file3, file4......

[KevinADC]

Don't use different names for the file upload fields, use the same name for all of them. Then read in the value of the file fields in list context (array) instead of scalar context:

my @upload_filehandles = cgi ->upload('fileup');

[skyy]

Don't use different names for the file upload fields, use the same name for all of them. Then read in the value of the file fields in list context (array) instead of scalar context:

my @upload_filehandles = cgi ->upload('fileup');

Hi.. thanks for the reply..

I know that option is available.. but i do not want to have the same filename cos i want to carry out some operations later.

[KevinADC]

You should still be able to do anything you wanted to even if the file fields are all the same name. But if you wanted to use different names you could hard code them into the script if you know what the names will be.

my @file_upload_fields = qw(file1 file2 file3 file4 file5);
foreach my $fields (@file_upload_fields) {
....
}

[skyy]

You should still be able to do anything you wanted to even if the file fields are all the same name. But if you wanted to use different names you could hard code them into the script if you know what the names will be.

my @file_upload_fields = qw(file1 file2 file3 file4 file5);
foreach my $fields (@file_upload_fields) {
....
}

Hi thanks for the reply...

Anyway i managed to solve the problem using some loops and checking.. thanks

[legolas188]

Dear friends,

  my $respid = $q->param('rid');
  my ($data, $n, $size);
  if ($q->param('cmd') eq 'upload_img'){
    my @file = ();
    my @files = $q->param('file');
 
    foreach (@files){
      push @file, $_ if  length $_ > 0;
    }
 
    my $r = ();
    foreach my $f (@file){
      while (($n = read $f, $data, 10000000, $size) != 0) {
    $r = $data;
      }
 
  # create record in resp_images to have an unique image id
  my $query = "INSERT INTO IMAGES2 (RespondentID, UserID, Created, Completed)".
              "VALUES ($respid, '1', NOW(), 1)";
  # insert 
  $dbh->do ($query);
 
  # set imageid into cookie message
  my $image_id = $dbh->{'mysql_insertid'};
 
 if ($image_id) {
  my $query = "UPDATE ".IMAGES2.
              " SET Image=".$dbh->quote($r)." WHERE ImageID=".$image_id;
  $dbh->do($query);
 
}
 
  }
 
    }
 
    print $q->startform(-name   => 'form',
            -method => 'POST',
            -action => 'upload_img',
            -enctype => 'multipart/form-data'
               );
    print "<table border=0 style=\"color:black;\" valign=top cellspacing=0 cellpadding=0 width=35%>";
    print "<tr>";
    print "<td style=\"color:black;\"  colspan=3 height=\"70\">";
    for (my $i=0; $i<5; $i++){
      print " Resim Seç : </b><input type=\"file\" name=\"file\" /><br><br>";
    }
    print $q->button
      (-name    => 'update',
       -value   => "Gönder",
       -style   => $RS{BUTTON_STYLE}."width:75;",
       -onClick => "cmd.value='upload_img';this.form.submit();"
      );
    print "</center></td></tr>";
    print &hidden_param('cmd'  , '');
    print &hidden_param('rid'  , $q->param('rid'));
    print $q->endform;
 

see you soon...

[numberwhun]

Next time, legolas188, please surround your code in code tags so we don't have to.

Regards,

Jeff