perlについての質問

現在jumanでの形態素解析結果を用いてプログラムを書いております。
perlで、句点が出てきた場合、その前の4行を削除し、そこに新しい文章を加えたいのですが、やり方がわかりません。
どうしたらいいでしょうか？

No.1 ベストアンサー 回答者： Ogre7077 回答日時： 2022/10/01 17:21

my @a;

foreach(<>) {
_ splice(@a,-4,4,"新しい文章\n") if /句点/;
_ push(@a,$_);
}
print foreach @a;

この回答へのお礼

ありがとうございます!

お礼日時：2022/10/03 16:11