此代码在我的本地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 ScriptWelcome 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 <