Thread The Perl Jam 2 (24 answers)
Opened by Raubtier at 2015-12-17 14:04

guest wer
 2015-12-30 01:31
#183311 #183311
Naja, das ganze löst sich in Wohlgefallen auf, wenn man es so macht:

Code (perl): (dl )
1
2
3
4
5
if(my $fh = $cgi->upload('upload_file')) {
  while(<$fh>) {
    # ...
  }
}


oder

Code (perl): (dl )
1
2
3
4
5
6
7
if(my @fh_list = $cgi->upload('upload_file')) {
  for my $fh ( @fh_list ) {
    while(<$fh>) {
      # ...
    }
  }
}


So steht es auch so in der Doku:

Code (perl): (dl )
 if ( my $io_handle = $q->upload('field_name') ) { 


Ja es ist problematisch , das $cgi->param( ... ) auch das filehandle zurück gibt und nicht nur den Dateinamen. Aber genau das sind die Gründe warum man CGI im allgemeinen nicht mehr verwenden sollte.
Last edited: 2015-12-30 09:08:19 +0100 (CET)

View full thread The Perl Jam 2