アプリ版：「スタンプのみでお礼する」機能のリリースについて

マジレス希望

perlについての質問

解決済

  • 質問者：やまう
  • 質問日時：
  • 回答数：1件

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (1件)

No.1ベストアンサー

  • 回答者： Ogre7077
  • 回答日時：

my @a;


foreach(<>) {
_ splice(@a,-4,4,"新しい文章\n") if /句点/;
_ push(@a,$_);
}
print foreach @a;
    • good
    • 0
    • 件
通報する
この回答へのお礼

ありがとうございます!

通報する
お礼日時：2022/10/03 16:11

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

ページトップページトップ

Q質問する（無料）

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報