こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Perl 行の置換

ご教示お願い致します。

ーーーーーーーーーーーテキストファイルーーーーーーーーーーー
5,a,a,a,a,a
4,a,a,a,a,a
3,a,a,a,a,a
2,a,a,a,a,a
1,a,a,a,a,a

5,a,a,a,a,a
4,a,a,a,a,a
3,a,a,a,a,a
2,ddddd,44444,sssss,ffffff,ssssss
1,a,a,a,a,a

my $NO = $form->param('NO');
$NO = 2 の場合
この1列目が2のとこのを
修正訂正をしたいです。

どのようにするのでしょうか?

投稿日時 - 2017-08-02 15:57:15

QNo.9358621

困ってます

質問者が選んだベストアンサー

以下でどうでしょう。

#!/usr/bin/perl
use strict;
use warnings;
my @d = <DATA>;
for my $i (0 .. $#d) {
if ($d[$i] =~ /^2/) {
$d[$i] = "2,ddddd,44444,sssss,ffffff,ssssss\n";
last;
}
}
print @d;

__END__
5,a,a,a,a,a
4,a,a,a,a,a
3,a,a,a,a,a
2,a,a,a,a,a
1,a,a,a,a,a

投稿日時 - 2017-08-02 22:07:40

お礼

できました!
ありがとうございます!

投稿日時 - 2017-08-04 08:53:48

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問