ファイルを更新するといらぬスペース文字が入ってしまう。

Question

次のようにファイルを読み込み新しい行を行頭に入れそのファイルを保存すると、２行目から最終行まで、スペース文字が、２行目１個３行目２個４行目３個といった感じで最終行までスペース文字が増えて入って行ってしまいます。この解決策をご存知の方、ご指導お願い致します。

#既存ファイルを読み込み、配列@aaa に入れる
open(IN,"<kokyakusyouhinjouhou/ID&sougousyouhindata.csv");
@aaa = <IN>;
close (IN);

unshift(@aaa,"$sql,$name,$pass,$simei,$mail,$syouhinmei,$nedan,$q1,$file1,$File2,$File3\n");
#新しいデータが追記された配列を ID&sougousyouhindata.csv に書き出す
open(OUT,">kokyakusyouhinjouhou/ID&sougousyouhindata.csv");
print OUT "@aaa";
close(OUT);

Answer 1

printでデータを一挙に書き出そうというのが間違いのもとです。
冗長なようでも次のように書いてみてください。

my @a; # データ丸呑み用
open(my $fhi, "<", "kokyakusyouhinjouhou/ID&sougousyouhindata.csv")  or die;
# open(FH, "<kokyakusyouhinjouhou/ID&sougousyouhindata.csv") これは古い書き方。真似してはいけない。
open(my $fho, ">", "kokyakusyouhinjouhou/ID&sougousyouhindata.csv") or die;
while(<$fhi>){
  chomp; # 改行を削除。残しておくと文字列処理の際いろいろバグのもとになる。
　push(@a, $_);
}

# 行をまたいだ処理が必要なら、ここに書く

foreach my $a (@a){
　#行単位の処理が必要なら、ここに書く

  print($fho "$a\n"); # 一行ごとに出力
}

Comments

[trm]

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

Answer 2

配列を"(ダブルクォート)で囲んでprintすると要素の間に空白が入ります。

print "@aaa"; // 行1\n(空白)行2\n(空白)行3\n

つまり、これを何度も繰り返すと順番に空白が増えて行くわけです。

実行例:

$ cat test.pl
#!/bin/perl
open(IN,"test.txt");
@a=<IN>;
close(IN);

unshift(@a,"test\n");

open(OUT,">test.txt");
print OUT "@a";
close(OUT);

$ : > test.txt
$ seq 5|xargs -n1 perl test.pl
$ cat test.txt
test
 test
  test
   test
    test

Comments

[trm]

ありがとうございました！ためになりました！

[KojiDoi]

"@aaa"で要素の間にデフォルトでスペースが入るのは確かですが、そのスペースが「順番に増えていく」などということにはなりません。

[nullpon]

1回実行するごとに、先頭に1行足され、2行目以降の行頭に空白が1つずつ足されるので順番に増えていきますよ。

[KojiDoi]

> 1回実行するごとに、先頭に1行足され、2行目以降の行頭に空白が1つずつ足されるので順番に増えていきますよ。

質問者がやっていることとは全く違いますよね。

[nullpon]

「２行目から最終行まで、スペース文字が、２行目１個３行目２個４行目３個といった感じで最終行までスペース文字が増えて入って行ってしまいます。」質問者のこの文言から、何度も同じコマンドを実行した結果と推測しました。回答に実行例を足しました。

[trm]

まさにhichonさんのおっしゃる通りです。２行目に空白１つ３行目に空白２つ４行目に空白３つというように空白がどんどん増えてファイルに書き込まれます。

Answer 3

この問題は単純にファイルに追加書き込みをすることによって解決しました。

Answer 4

この問題はファイルに追加書き込みをすることによって解決しました。