ディレクトリ内のテキストファイルに対する同一処理

質問

よろしくお願いします。現在Linuxの環境でテキスト処理をしております。
ディレクトリ内にファイル名の異なった以下のような大量ファイルがあります。

a.txt
0,1,2,3,4,5,6,7
1,2,3,4,5,6,7,8

b.txt
2,3,4,5,6,7,8,9
3,4,5,6,7,8,9,10

これらのファイルをカンマでsplitし、左から２番目の数にだけ１を引き,下のディレクトリであるoutに出力させます。出力は以下のようになります。

./out/a.txt
0,0,2,3,4,5,6,7
1,2,3,4,5,6,7,8

./out/b.txt
2,2,4,5,6,7,8,9
3,4,5,6,7,8,9,10

そこで以下のようなPerlのプログラムを作成しました。

use strict;

use warnings;

my $dirname = '.';

opendir(DIR, $dirname) or die "$dirname: $!";

while (my $dir = readdir(DIR)) {

next unless (-f $dir);

next unless ($dir =~ /\.txt$/);

print $dir, "\n";

open(FILE, $dir) or die "$dir: $!";

my @file = <FILE>;

foreach $line (@file) {
my ($a,$b,$c,$d,$e,$f,$g,$h) = split(/,/, $line);

　　　　　my $b = $b - 1;

close(FILE);
}

open(NEWFILE, "> ./out/$dir") or die "$dir: $!";

print NEWFILE @file;

close(NEWFILE);

}

closedir(DIR);

ですが、出力は完了するのですが、元のファイルから計算がされていません。どこがどう間違えているのかご指摘よろしくお願い申し上げます。

回答No.2

aigaion · ベストアンサー

my @file = <FILE>;
close(FILE);

foreach $line (@file) {
　my ($a,$b,$c,$d,$e,$f,$g,$h) = split(/,/, $line);
　my $b = $b - 1;
　$line = "$a,$b,$c,$d,$e,$f,$g,$h"; #ここ
}

やるならこうですね。

splitの返り値は元の文字列に関係なくコピーされた値なのでので
その値を格納した$bを変えただけでは元の文字列は変更しただけでは不十分です。
変更後の値を元の文字列に代入してやる必要があります。

お礼

ものすごく早いご対応ありがとうございました。大変感謝しております。
ご回答くださったaigaion様、shippo_ppk様にお礼を申し上げます。

回答No.3

aigaion

＞その値を格納した$bを変えただけでは元の文字列は変更しただけでは不十分です。
その値を格納した$bを変えただけでは元の文字列は変更されないので不十分です。

脳内補完ヨロ

回答No.1

shippo_ppk

@file の要素を変更しているコードが見当たりません。