最後のレコードを編集したい。

xyz.logというテキストファイルがあります。
構成は長さは不定ですが、１レコードが１２個の"<>"で区切られたフィールドを持ちます。
01<>abc<><>5<>33<>～<>82<>　のような。

教えて欲しいのは、
このファイルの最後のレコードの１０番目のフィールドの値を「０」にしたいのです。

最後のレコードはpop,pushで触れるのは分かるのですが、
そのレコードの編集の方法が分かりません。

@lines = <IN>;
$wkrec = pop(@lines);
*********************************　ここの部分
push (@lines,$wkrec);

宜しくお願いします。

質問者からの補足コメント

• 出来ました。
  
  @tmp = split(/<>/,$lines[-1]);
  @tmp[9] = "0";
  $lines[-1]=join('<>',@tmp);
  
  コレでいいですよね。
  スッキリしました。

    補足日時：2016/02/26 20:58

No.2 ベストアンサー 回答者： Tacosan 回答日時： 2016/02/26 17:14

意図がわかりやすいのは split かな.

ちなみに「配列 @lines の最後の要素」は
$lines[-1]
で取れるからね. push や pop で配列をいじるよりもこっちの方がいいと思うよ.

この回答へのお礼

早速有り難うございます。
＞push や pop で配列をいじるよりも
　まさにその通りかと思いますが動きが取れません。

　お手数をお掛けしますが、
　具体的なコードをお願いできますでしょうか。
　宜しくお願いいたします。

お礼日時：2016/02/26 18:13

No.1 回答者： Ogre7077 回答日時： 2016/02/26 17:03

@a=split(/<>/,$wkrec);

$a[9]='0';
$wkrec=join('<>',@a);

または

$wkrec =~ s/^((?:.*?<>){9}).*?(<>|$)/${1}0${2}/;

この回答へのお礼

早速有り難うございました。
完成しました。

ｊｏｉｎで繋ぐことを知りませんでした。
考えたらsplitの逆なのですね。
お世話になりました。

お礼日時：2016/02/26 18:10