トップ
新規
一覧
単語検索
最終更新
ヘルプ
ログイン
アールメカブ
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++;
}
}
終了行:
とりあえず，以下で簡易的には取れる．
#!/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++;
}
}
ページ名:
