The Perl Jam 2 - #183311 (Allgemeines zu Perl)

Gast wer

2015-12-30 01:31

Naja, das ganze löst sich in Wohlgefallen auf, wenn man es so macht:

Code (perl): (dl )

if(my $fh = $cgi->upload('upload_file')) {
  while(<$fh>) {
    # ...
  }
}

oder

Code (perl): (dl )

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)