次のようにファイルを読み込み新しい行を行頭に入れそのファイルを保存すると、2行目から最終行まで、スペース文字が、2行目1個3行目2個4行目3個といった感じで最終行までスペース文字が増えて入って行ってしまいます。この解決策をご存知の方、ご指導お願い致します。
#既存ファイルを読み込み、配列@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);
回答4件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/12/27 06:27