Perl split関数について

Question

###前提・実現したいこと
perl初心者です。前回perlを使って特定行の取り出し、かつ数字のみを抜き出すプログラムについて投稿させて頂きました。そこでsplit関数の使い方について少し勉強したのですが、疑問が残りました。先ほど回答して頂いた方のコードを参考に、再投稿させて頂きます。

###発生している問題・エラーメッセージ
test.logを読み込み、test.plを実行し以下のような結果を得たいと思っています。
しかし、何も表示されません。

test.log
Summary:
  Total number of files:        36
  Added files:                  0
  Removed files:                0
  Changed files:                1
  Updata files:                 1

test.pl

open my $FH, '<', "test.log" or die $!;

while ( $data = <$FH> ) {
    chomp $data;
    my ( $name,$dummy, $number ) = split /\s+/, $data;

    print "$number\n"
        if ( $name eq 'Total' ) .. ( $name eq 'Changed' );
}

close $FH;        

(目的の結果)
36
0
0
1

###試したこと
my ( $name,$dummy, $number ) = split /\s+/, $data;
の部分において、Total number of files:の前にスペースが二つあるので、my ( $blank,$space,$name,$dummy, $number ) = split /\s+/, $data;
のように記述したのですが、上手くいかず...

split関数において、空白の扱いがよくわかりません。
ご存じの方がいらっしゃいましたら、教えて頂きたいと思います。
よろしくお願いします。

Answer 1

プログラミング言語を勉強するのでしたら、わからないことがあったときに言語の公式なマニュアルを参照するくせをつけて下さい。ひとつひとつの事項の理解が曖昧なままコードを書いていても、いつまでたっても上達しません。

1. Perl (Perl 5) の公式マニュアルは、ほぼすべてが日本語訳されています (こちら)。
2. splitは「関数」です。Perlの組み込み関数についてはperlfuncにまとめられています。
3. splitの説明を一通り全部読んで、理解してください。

これで、splitの動きについては理解できると思います。その上でさらに何か疑問が生まれて、Perlの公式マニュアルを読んでも解決しなければ、また質問して下さい。

Comments

[moana_39]

参考サイトを提示していただき、ありがとうございます。もう一度split関数について勉強しなおし直します。