小编Joh*_*hnB的帖子

我们有一个用Perl编写的自定义站点,它使用CGI.pm的略微修改版本.在服务器更新期间,CGI.pm可能会在更新时被覆盖.我的目标是能够在不影响站点的情况下更新服务器 - 即更改依赖于修改后的CGI.pm的代码.不幸的是,我不熟悉Perl语法或最佳实践.

这是修改后的CGI.pmn的差异(行号从最新版本的CGI.pm中删除):

--- CGI.pm.orig Tue Nov  7 12:14:09 2006
+++ CGI.pm      Tue Nov  7 12:13:29 2006
@@ -3386,7 +3386,7 @@ sub read_multipart {
               if (defined $self->{'.upload_hook'})
                {
                   $totalbytes += length($data);
-                   &{$self->{'.upload_hook'}}($filename ,$data, $totalbytes, $self->{'.upload_data'});
+                   &{$self->{'.upload_hook'}}($filename ,$data, $totalbytes, $self->{'.upload_data'}, $param, $header{'Content-Type'});
               }
               print $filehandle $data if ($self->{'use_tempfile'});
           }

依赖于此差异的代码如下:

my %file_hash = ();
my $page = new CGI(\&file_reader, \%file_hash, 0);

my $session = &get_session($page);


foreach my $param_name (keys %file_hash) {
        my $notes_param = $param_name . "_notes";
        &store_file($file_hash{$param_name}, …