CSVの条件出力について

質問

ディレクトリー内のCSVを1ファイルにするルーチンで、現在46カラム目から3桁が"000"なら出力としている判断を、5項目めが"000"ならに変更したいのですが、どのようにすればよいでしょうか？

現在の記述は下記の通りです。

if(open(OUT,">$path/$year$mon$mday$csv")){
for my $fname (sort @FTPlist){
if(open(IN,"$path/$fname")){
while (<IN>)
{
$sip = substr($_,46,3);

if ($sip == "000")
{
print OUT "$_";
}
}
close(IN);
}
}
close(OUT);
}

回答No.2

BLUEPIXY · ベストアンサー

ごめんなさい、カンマが抜けてました。
(split /,/,$_)[4] eq "000"

正規表現でやる場合は
(split /,/,$_)[7] =~ /^1234567/
の様にします
eqの場合は
substr((split /,/,$_)[7],0,7) eq "1234567"
でいいかと思います

お礼

ご回答ありがとうございます。先ほど私もカンマに気づいたのやってみると、できました。

回答No.1

BLUEPIXY

(split /,/$_)[4] eq "000"

補足

回答ありがとうございます。上記記述でやってみたのですが、$_のところでエラーが出るようです。

Scalar found where operator expected at near "/,/$_"
(Missing operetor before $_?)

あと同じような条件指定で8項目目の頭7桁"1234567"と一致するものを抽出する場合
(split /,/$_)[7] eq ^"1234567"
となるのでしょうか？