Question

刚才那个perl程序，怎么办结果输出到文本中呢

Answer 1

又是你啊，哈哈，有缘再帮你一次
#! /usr/bin/perl
open OUT，“> xxx.txt”; #----你要输出的文件名
my @filename =glob("*.txt");
foreach my $file(@filename){
open TFILE,"$file";
while(<TFILE>){
$cnt++;
}
print OUT $cnt."\n";
}

话说我的那个答案明明更专业，为啥没采纳=。=。。。

追问

程序运行没错，但没有文本没有输出结果~

Answer 2

??什么意思？？

追问

#! /usr/bin/perl
my @filename =glob("*.txt");
foreach my $file(@filename){
open TFILE,"$file";
while(){
$cnt++;
}
print $cnt."\n";
}
这怎么cnt里面的信息输出文本txt中呢？

追答

前面加一句
my $file="1.txt";
open(FF,">$file");
输出语句 写成：print FF $cnt."\n";
close(FF);

追问

#! /usr/bin/perl
my @filename =glob("*.txt");
foreach(@filename){
#shift(@filename);
open TFILE, $_;
#print @filename;
while(){
$mytxt=$cnt++;
}
my $file="1.txt";
Open(FF,">$file");
print FF $cnt."\n" ;
colse(FF);
}
open TFILE,$_;
提示Undefined subroutine &main::Open called at test.pl line 11, line 1. 呵呵，有错误