再 次 请 教 ： 关 于 writing to a file 用 Perl for CGI# Programming - 葵花宝典
b*h
1 楼
上周曾问过这个问题，可能大家都去渡长周末了，只有一个人回了一下。到现在我这个
问题还没解决，请知道的朋友给指点一下。
这 是 我 的 CODE：
#!C:\perl\bin\perl.exe -wT
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my $q = new CGI;
print $q->header;
print $q->start_html(-title=>'writing to a file');
open csv_file, "> /test.txt" or die "Could not open file$!";
print csv_file "It is a test!!!\n";
close csv_file;
print $q->end_html();
我 想 把 “It is a test!!!”写 到 Apache 的 DocumentRoot 下 一 个 叫 test.
txt 的文 件 里， 可 是 我 运 行 这 个 CODE 后， test.txt里 什 么 都 没 写 上
。 请
问题还没解决，请知道的朋友给指点一下。
这 是 我 的 CODE：
#!C:\perl\bin\perl.exe -wT
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my $q = new CGI;
print $q->header;
print $q->start_html(-title=>'writing to a file');
open csv_file, "> /test.txt" or die "Could not open file$!";
print csv_file "It is a test!!!\n";
close csv_file;
print $q->end_html();
我 想 把 “It is a test!!!”写 到 Apache 的 DocumentRoot 下 一 个 叫 test.
txt 的文 件 里， 可 是 我 运 行 这 个 CODE 后， test.txt里 什 么 都 没 写 上
。 请