文字列の切り出しとその文字列からの文末削除がしたい
while(<GO>){
if($_ =~ /BOOK(.+)/){
print OUT "\n$1,";
}
#01234を見つけたら、一番最初の文字列を抜き出す
if($_ =~ /012345 (.+)(.+)(.+)(.+)(.+)(.+) /){
#その文字列の文末を削除
$data=(.+)
substr($data, -3, 2) = "";
print OUT "$1,";
}
}
close(OUT);
データ例
#####BOOK######
###################33##########################
012345 6.6666ppm 2.6asc 3.9asc GOOD 0 0
012345 1.6666pm 2.6asc 3.9asc NO 0 0
012345 6.6656pppm 2.6asc 3.9asc MIN 0 0
###################36##########################
012346 6.6666ppm 2.6asc 3.9asc GOOD 0 0
012346 1.6666ppm 2.6asc 3.9asc NO 0 0
012346 6.6656ppm 2.6asc 3.9asc MIN 0 0
上記のようなデータから一番左の文字列があったら、
一番最初の文字列を切り出し,文末を削除したいのですが、
作成したperlでは6.6666ppm 2.6asc 3.9asc まで切り出して且文末が削除できません。
どうかアドバイスをお願いします。
お礼
ありがとうございました。今後も宜しくお願いいたします