配列の移動

質問

TEXTファイルに文字列を書き込んだり削除したり移動したりするプログラムを作成していますが、

aaa bbb ccc
ddd eee fff
ggg hhh iii

このような内容を

1,aaa bbb ccc
2,ddd eee fff
3,ggg hhh iii

のように上から順番に配列化して番号を指定して移動させたいのですが、
3の配列を2の上(配列１と配列２の間)や下(配列２と配列３の間)に移動するのにはどのようにしたら良いのでしょうか？

回答No.1

BLUEPIXY · ベストアンサー

#方法１
#配列の要素の３行目を１行目と２行の間に入れる
#というか２行目と２行目を入れ替える
open(IN, "data.txt");
@array=<IN>;
close(IN);
($array[1], $array[2])=($array[2], $array[1]);
print @array;
----------------------------------------------------------------
#方法２
#配列の要素の３行目を１行目と２行の間に入れる
#というか最後の要素を１行目と２行の間に入れる
@array=<IN>;#ファイルハンドルの割り当ては省略
splice(@array,1,0,pop(@array));
print @array;

お礼

どうもありがとうございました。
まだまだPerlの勉強不足により大変ためになりました。

回答No.2

BLUEPIXY

＃１＞#というか２行目と２行目を入れ替える
は、
#というか２行目と３行目を入れ替える
の間違い