質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

91.06%

  • Perl

    403questions

    Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

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

解決済

回答 4

投稿

  • 評価
  • クリップ 0
  • VIEW 191

trm

score -6

次のようにファイルを読み込み新しい行を行頭に入れそのファイルを保存すると、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);

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 4

+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"); # 一行ごとに出力
}

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/12/27 15:27

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

    キャンセル

check解決した方法

0

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

0

配列を"(ダブルクォート)で囲んで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

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/12/26 06:48

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

    キャンセル

  • 2017/12/26 12:58

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

    キャンセル

  • 2017/12/26 19:47

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

    キャンセル

  • 2017/12/26 19:57

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

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

    キャンセル

  • 2017/12/26 20:07 編集

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

    キャンセル

  • 2018/02/16 10:46

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

    キャンセル

0

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 91.06%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る

  • Perl

    403questions

    Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。