帮忙修改程序可批量处理文件？

[iandjohn]

写论文要用到一个Perl编写的分析一段文章难易程度的package，帮忙解决以下问题（应该不难）， 谢谢！

能否把下面的"Synopsis原程序"或"原程序包自带Sample程序"修改一下，可以一次批量处理某个目录下所有文件（例如： .txt），并把文件名和结果值（num_chars, percent_complex_words, fog等）以表格形式存到一个文件里（txt或Excel）。（详见http://search.cpan.org/~kimryan/Lingua-EN-Fathom-1.12/lib/Lingua/EN/Fathom.pm ; 通过Perl Package Manager安装Lingua::EN::Fathom和Lingua::EN::Syllable两个package就可运行以下程序）

Synopsis原程序（把"sample.txt" 改成"C:\\my.txt"等路径，就可在我的电脑上（WinXP）运行）
use Lingua::EN::Fathom;

my $text = new Lingua::EN::Fathom;

$text->analyse_file("sample.txt");

$accumulate = 1;
$text->analyse_block($text_string,$accumulate);

$num_chars = $text->num_chars;
$num_words = $text->num_words;
$percent_complex_words = $text->percent_complex_words;
$num_sentences = $text->num_sentences;
$num_text_lines = $text->num_text_lines;
$num_blank_lines = $text->num_blank_lines;
$num_paragraphs = $text->num_paragraphs;
$syllables_per_word = $text->syllables_per_word;
$words_per_sentence = $text->words_per_sentence;
$fog = $text->fog;
$flesch = $text->flesch;
$kincaid = $text->kincaid;

print($text->report);

原程序包自带Sample 程序 （应该是用于批量处理，但在我的电脑上运行不了）
#! /usr/local/bin/perl
# demo_recurse.pl script for usew with Lingua::EN::Fathom.pm

use Lingua::EN::Fathom;
use File::Find;

@ARGV = ('.') unless @ARGV;
my $text = new Lingua::EN::Fathom;

find(\&analyse, @ARGV);
print($text->report);

sub analyse
{
return unless ( -T and -s );
print("Analysing file: $File::Find::name\n");
$text->analyse_file($File::Find::name,1);
}

[fairchild811]

up,perl只会 print;-)

[fibbery]

看得我直糊涂。我想，你可能是想让别人帮你干什么事儿。最好是你自己来做，遇到问题，再这里解决问题。或者，把问题再拆分成更小的问题，一个一个解决。

[kindTerry]

写个外围的程序遍历目录，然后循环调用Synopsis里的功能就行了。
具体的还得你来干，别人不可能全帮你搞定

[guzl86]

顶起

[xsir317]

咩。。。楼主email联系我搞定了。。。

晚上我回去找程序贴上来好了。。。

[xsir317]

果然是你呀。。。。。。。。。

[fibbery]

[Quote=引用 5 楼 xsir317 的回复:]
果然是你呀。。。。。。。。。
[/Quote]

你把解决的办法贴上来，我可以帮楼主结帖。

[xsir317]

#! perl -w
#一个分析TXT文件的小脚本
use strict;
use Lingua::EN::Fathom;
#打开输出文件
open OUT, '>>C:\lingua.txt' or die "Can't open Output File:$!\n";
####################################下面是打开csv输出，不要的话就全注释掉吧
open CSV, '>>C:\lingua.csv' or die "Can't open Output File:$!\n";
#输出第一行。。。这个你总看得懂的吧？
print OUT "filename   Numberofwords   Percentofcomplexwords  Averagesyllablesperword  Numberofsentences  Averagewordspersentence Numberofparagraphs  Fog         Flesch   Flesch-Kincaid   \n";
####################################下面是csv输出，不要的话就全注释掉吧
print CSV "filename,Numberofwords,Percentofcomplexwords,Averagesyllablesperword,Numberofsentences,Averagewordspersentence,Numberofparagraphs,Fog,Flesch,Flesch-Kincaid\n";
our $text = new Lingua::EN::Fathom;



#提示用户输入需要进行分析的文件夹
print "Please input the full path ofthe folder:\n";
my $folder = <STDIN>;

#下面对用户的输入进行一下格式化
chomp $folder;
if ($folder !~ /[\/\\]$/)
    {
        $folder = $folder."\\";
    }
#验证一下有效性
if (!(-d $folder))
    {
        die "Oooops that is not a folder!!\n";
    }


#下面是对目录进行遍历
push (my @dirs,$folder);
while (@dirs) {
    #$rcdir is Recent Dir
        my $rcdir = shift @dirs;
        opendir DIR,$rcdir or die "Cant open Dir :$!\n";
        while (my $name = readdir DIR)
        {                
            #print $filename."\n";
            if ($name!~ /\.?\.$/)
            {
                 my $filename = $rcdir.$name;
                 #如果是文件的话，进行分析，并且写文件
                 if(-f $filename)
                 {
                     #看看是不是txt文件
                    if($filename =~ /\.txt$/)
                    {
                        print "Now analyzing $name,";
                        my $linguavalue = &lingua ($filename);
						my $linguacsvvalue = &linguacsv($filename);
                        #输出到文件
                        print OUT $linguavalue."\n";
						print CSV $linguacsvvalue."\n";
                        print "   Complete!\n";
                    }

                 }
                 #如果是文件夹，那么放入数组中等待遍历。
                 else
                 {                                        
                    push (@dirs,$filename."\\");
                 }
            }
        }
}
#关闭文件
close OUT;
close CSV;


#调用lingua进行分析。返回分析结果。csv的输出也在里面。不要的话就都注释掉就好了。
sub lingua
{
    my $filename = shift;
    $text->analyse_file($filename);
    print $filename;
    my $areport = '';
	$areport .= $text->{file_name}."     ";
	$areport .= $text->num_words."                         ";
	$areport .= sprintf("%.2f",$text->percent_complex_words)."                                 ";
	$areport .= sprintf("%.4f",$text->syllables_per_word)."                                     ";
	$areport .= $text->num_sentences."                                ";
	$areport .= sprintf("%.4f",$text->words_per_sentence)."                                       ";
	$areport .= $text->num_paragraphs."                  ";
	$areport .= sprintf("%.4f",$text->fog)."           ";
	$areport .= sprintf("%.4f",$text->flesch)."    ";
	$areport .= sprintf("%.4f",$text->kincaid);
    return $areport;
}

sub linguacsv
{
####################################下面是csv输出，不要的话就全注释掉吧
    my $csvreport = '';
	$csvreport .= $text->{file_name}.",";
	$csvreport .= $text->num_words.",";
	$csvreport .= sprintf("%.2f",$text->percent_complex_words).",";
	$csvreport .= sprintf("%.4f",$text->syllables_per_word).",";
	$csvreport .= $text->num_sentences.",";
	$csvreport .= sprintf("%.4f",$text->words_per_sentence).",";
	$csvreport .= $text->num_paragraphs.",";
	$csvreport .= sprintf("%.4f",$text->fog).",";
	$csvreport .= sprintf("%.4f",$text->flesch).",";
	$csvreport .= sprintf("%.4f",$text->kincaid);
	return $csvreport;
###################################################csv输出结束
}

以上是代码。。。