perlについて

現在perlでプログラムを書いています。
その中で、

校長先生 合体 1
というような列があった場合、その行を全て、別の場所に移動させたいです。

移動させたい場所は、例えばですが次に

に に に 助詞 9 格助詞 1 * 0 * 0 NIL <かな漢字><ひらがな><付属>

このような列がでてくる一つ上の行に移動させたいです。

やり方が分からないため、詳しい方にお力を借りたいです。
宜しくお願いいたします。

No.2 ベストアンサー 回答者： Tacosan 回答日時： 2022/11/19 00:35

ちょっと補足.

データをどのように取り出してどのように格納するのかさっぱりわからんのだけど, たとえば
@new_data = ();
@data_to_be_moved = ();
while (<>) {
if (移動させたいデータ) {
push @data_to_be_moved, $_;
next;
}
if (移動先) {
push @new_data, @data_to_be_moved;
@data_to_be_moved = ();
}
push @new_data, $_;
}
のような感じかな.

この回答へのお礼

ありがとうございます！
なんとか実装させることができました！！

お礼日時：2022/11/22 00:42

No.1 回答者： Tacosan 回答日時： 2022/11/18 21:10

「移動させたい」行を覚えておいて「移動先」に移せばいい.

「移動」という言葉がどのような意味なのかわからんけど, 配列を使えばなんとでもなるだろう.