ファイルのいらない空文字を取り除く作業がうまくいきません

Question

	open(IN,"<kokyakusyouhinjouhou/ID&sougousyouhindata.csv");
	@aaa = <IN>;
	close (IN);

@bbb = "";
i=0;
while(not eof){
	while(@aaa!="n\"){
	substr(@aaa,i,1);
	@bbb=+@aaa;
	i=i+1;
	}
	substr(@aaa,i,1);
	while (@aaa=" "){
		(substr(@aaa,i,1,"");
		@bbb=+@aaa;
		i=i+1;
	}
}

open(OUT,">kokyakusyouhinjouhou/ID&sougousyouhindata.csv");
print OUT "@bbb";
close(OUT);

#新しいデータが追記された配列を test.txt に書き出す
open(OUT,">kokyakusyouhinjouhou/ID&sougousyouhindata.csv");
print OUT "@aaa";
close(OUT);

Answer 1

このルーチンは必要なくなりました。

Answer 2

貴方はもう少し自助努力が必要だと思うので、ヒントだけ書きます。

while(not eof){
    while(@aaa!="n\"){

論理的に破綻しています。
それぞれのwhileは何を判定しようとしているのでしょうか。何となく書くのではなく、きちんと意図を明確にしましょう。
単純変数($aaa)と配列(@aaa)の区別をつけましょう。それぞれで適用できる演算子の種類も違います。
他にも色々おかしいですが、個別指摘は取り敢えずしないでおきます。

Answer 3

その手の処理は正規表現使ったほうがシンプルに書けると思います。

$str =~ s/[\s　]+//g;

ちなみに、上の\sのあとの空白が全角の空白文字　です。

あと、１行単位で処理するのは以下のようにしたほうがシンプルだと思います。

use strict;
use warnings;
 
my $file = shift;
open(my $fh, '<', $file) or die "$file: $!";
 
my @lines = <$fh>;
 
foreach my $line (@lines) {
    # ループ内の処理;
}

＃あまりに大量ならwhileで書いたほうがいいですが。。。

Answer 4

そりゃうまくいかないでしょうね、というソースですが、今までの質問についた回答を読んでください。そうすればうまくいくと思います。

同じ質問をしては放り投げているのでは何度回答を貰っても同じです。

Comments

[trm]

ありごあとうございました

[Zuishin]

回答によって質問が解決した時にはベストアンサーを選んでください。
また自力で解決した時には自己解決してください。
今までの質問がすべて放りっぱなしです。

[trm]

このルーチンは必要なくなりました。