0

私がやろうとしているのは、テキストファイルに書き込むことです。しかし、送信ボタンをクリックすると、コンソールに次のエラーが表示されます: ローカル リソースの読み込みが許可されていません: file:///C:/xampp/cgi-bin/test.pl

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

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = CGI->new;

print $cgi->header,
      $cgi->start_html,
      $cgi->start_form(-action=>'C:\xampp\cgi-bin\test.pl'),
      $cgi->textfield(-name=>'myString'),
      $cgi->submit,

      $cgi->end_form,

      $cgi->end_html;

test.pl

#!"C:\xampp\perl\bin\perl.exe"
# print "Content-type: text/html; charset=iso-8859-1\n\n";

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi    = CGI->new;
my $string = $cgi->param("myString");

print $cgi->header,
      $cgi->start_html('Writing to a file');

open my $fh, '>', './write.txt' or die "failed to open './write.txt' $!";
print $fh $string;
close $fh;

print $cgi->p( "qq(write.txt should contain ".$string.") ");
print $cgi->end_html;

何が問題なのですか？test.pl は「C:\xampp\cgi-bin\test.pl」です。

4

1 に答える 1

3

$cgi->start_form(-action=>'C:\xampp\cgi-bin\test.pl'),

Web サーバーを介してスクリプトにアクセスする必要があります。HTTP URL を指定する必要があります。

于 2013-07-20T20:13:06.177 に答える