質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
Perl

Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

teratail

teratail(テラテイル)は、プログラミングに特化した日本語Q&Aサイトです。

Q&A

0回答

2622閲覧

perl言語 要約プログラミング

abcdefghi

総合スコア8

Perl

Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

teratail

teratail(テラテイル)は、プログラミングに特化した日本語Q&Aサイトです。

0グッド

0クリップ

投稿2016/04/21 04:58

編集2022/01/12 10:55

単語の重要度を用いた文書の要約のプログラミングをperl言語で作ろうと思っているんですが、いまいち閃かず困っています。

ソースコード分かる方いたら教えていただけないでしょうか。
何か知識を持っている方教えてください。
よろしくお願いします。

これはtf-idf値を計算するソースコードです。
これから単語の重要度を基にして文の重要度を決定。重要な文を選択して要約する感じにしたいです。
#!/usr/bin/perl

&load_file;
&print_dat;

sub load_file{

open(DFLOG, ">> /mkyozai/jk1sum/log/calc_df.log");

date >> /mkyozai/jk1sum/log/calc_df.log;

whoami >> /mkyozai/jk1sum/log/calc_df.log;

print DFLOG "perl calc_df.pl $ARGV[0] $ARGV[1] $ARGV[2] $ARGV[3]\n---\n";

close(DFLOG);

#---load tf file to count df values---# $fname=$ARGV[0]; $document=$ARGV[1]; @word=(); open(FP,$fname)||die "cannot open $fname\n"; while(defined($line=<FP>)){ chomp($line); ($tmp_word,$tmp_pos,$tmp_tf,$tmp_df,$tmp_idf)=split(/\t/,$line); if($tmp_word ne ""){ push(@word,$tmp_word); push(@pos,$tmp_pos); push(@tf,$tmp_tf); push(@df,$tmp_df); push(@tf_idf,sprintf("%.2f",$tmp_tf*(log($document/($tmp_df+1))+1))); } } close(FP);

}

sub print_dat{

($fname,$tmp)=split(/.df/,$ARGV[0]); $fname=$fname.".idf";

print "output file=$fname\n";

open(DF, ">$fname")||die("cannot open $fname\n"); for($i=0; $i<= $#word; $i++){ if($word[$i] ne ""){ print DF "$word[$i]\t$pos[$i]\t$tf[$i]\t$df[$i]\t$tf_idf[$i]\n"; } } close(DF);

}

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

abcdefghi

2016/04/21 05:26

perl言語を学びたてなので知識が少なくこの様な質問をしました。
ttyp03

2016/04/21 05:39

もう少し具体例を書いた方がよいのでは?
argius

2016/04/21 06:56

レイアウトが崩れていて読みにくいので、コード部分の前後に```行を追加してください。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだ回答がついていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問