perl脚本将文件上传至服务器,apache - 如何使用CGI Perl脚本在xampp apache服务器中上载和打开文件？ - 堆栈内存溢出...

此代码在我的本地xampp apache服务器中工作正常。 我在具有不同IP地址系统的局域网中运行相同的代码。 该文件无法打开，我无法将其写入所需的目录。 请做有需要的吗？ 提前致谢。

通过下面的代码传递xml文件。

#!"C:\xampp\perl\bin\perl.exe"

#!"172.18.5.23:\xampp\perl\bin\perl.exe"

#!\usr\bin\perl -wT

#!perl

use strict;

use warnings;

use CGI;

my $query = new CGI;

print $query->header( "text/html" );

print <

My First CGI Script

Welcome to Perl CGI

enctype="multipart/form-data">

Files to Upload:

END_HERE

将xml文件发送到以下代码.....

#!"C:\xampp\perl\bin\perl.exe"

#!"172.18.5.23:\xampp\perl\bin\perl.exe"

#!\usr\bin\perl -wT

#!perl

use strict;

use CGI;

use Cwd 'abs_path';

use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

use File::Basename;

$CGI::POST_MAX;

my $safe_filename_characters = "a-zA-Z0-9_.-";

my $query = new CGI;

my $cgi = new CGI;

my $file = $cgi->param('xml');

my $lines;

open(DATA,"

print $query->header ( );

$lines = ;

close(DATA);

$lines =~s{darling}{CGI}ig;

print $lines;

print abs_path($file);

open(OUT, '>dirname($file)."\\out_".basename($file)');

print OUT $lines;

close(OUT);

print $query->header ( );

print <