CGI Upload Hook noch nicht ganz verstanden - #135866 (Perl/CGI)

Gast Egga

2010-04-09 16:05

Aha! Ich dachte, dass die Hook nach dem ganzen Rest ausgeführt wird und nicht davor... Man muß also nur vor dem Instanzieren des CGI-Objekts seine Sachen setzen.

Dann kann ich also doch den Fortschritt in der Datenbank speichern, solange ich die Verbindung vorher aufbaue. Oder spricht da aus eurer Sicht noch etwas dagegen?

TestCode

Code (perl): (dl )

#!perl
use warnings;
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;
use File::Basename;


my $global_array_ref = ['vorher'];

my $cgi = CGI->new(\&hook, $global_array_ref, 0);

push @$global_array_ref, 'nachher';


sub hook {
        my (undef, undef, undef, $array_ref) = @_;

        my $path = dirname($0) . '/cgi_hook_test.txt'; 
        open (my $OUTFILE, '>', $path) || die qq(File not writable: "$path"!);
        print $OUTFILE "global array:\n" . Dumper($global_array_ref);
        print $OUTFILE "given array:\n" . Dumper($array_ref);
        close $OUTFILE;
}

print $cgi->header();
print $cgi->start_multipart_form();
print $cgi->filefield('uploaded_file');
print $cgi->submit('button', 'und ab');
print $cgi->end_form();

Last edited: 2010-04-09 16:09:53 +0200 (CEST)