Perl_カボチャから句数を計る - アールメカブ

アールメカブ


Perl_カボチャから句数を計る

とりあえず,以下で簡易的には取れる.

#!/usr/bin/perl
# INPUT  $cabocha -f1 -O2 test.txt > test2.txt
$input = &argcut($ARGV[0]);
open(INPUT, "$ARGV[0]") or die "cant open $ARGV[0]";
open(OUT,">$input") or die "cant open $ARGV[0]";
$aster;
$line;

while(<INPUT>){
  chomp;
  if(/^EOS/){
	 $line++;
	 print "$line"."="."$aster\n";
	 $aster = 0;
  }
  elsif(/^\*/){
	 $aster++;
  }
}
 
Link: Programming(5180d)
Last-modified: 2007-10-03 (水) 11:57:48 (6245d)