#指定の単語が出現する行を取り出す
#制作 T. Takahashi
#line_match.pl

#ファイル名の指定
print "開くファイル名を指定してください：";
$open_file = <STDIN>;
print "保存するファイル名を指定してください：";
$save_file = <STDIN>;
#検索する単語の指定
print "入力した単語が含まれる行を抜き出します：";
$word = <STDIN>;
chop($open_file, $save_file, $word);

#ファイルのオープン
open(F, $open_file) || die "$open_fileをオープンできません:$!\n";
open(F2, ">$save_file") ||die "$save_fileを作成できません:$!\n";


while (<F>) {
	if (/$word/)
	{
	print F2;
	}
}

#ファイルのクローズ
close(F);
close(F2);