Perlで、503個のデータを処理したいのですが、413個しか生成されず困っています。

Question

データ生成に使ったのは、なんかいろいろしてみますで配布されているものを、まほろば　音響モデルを自作する５（音素ラベリング）で修正したsegment_atr503_windows-v1.0で、
hirosibaフォルダにa01から503個のwavデータを置いて実行しましたが、a01からa09とかb01からb09などがスキップされて413個しかそれぞれデータが生成されません。どうすれば、全てのデータが得られますでしょうか？

アドバイスで、
Padreを入れました。
今すぐ試すPadreのデバッグ支援機能
を参考にステップ実行及び変数のチェックを試しています。

Pealtidyを入れ整形しました。perltidyを使ってみましたやperltidy - Perlソースコード整形ツールを参考にしました。

#!/usr/bin/perl
#atr503 labels wav
#名前はa01からj53までとする。
$speaker = "hiroshiba";
$label   = "labels";
@abc     = ( a, b, c, d, e, f, g, h, i, j );
## julius4 executable
$julius4bin = "julius";

## acoustic model
$hmmdefs = "./models/hmmdefs_monof_mix16_gid.binhmm";    # monophone model

## working directory
$TMPDIR = ".";

mkdir $speaker . "/mono";
mkdir $speaker . "/full";
mkdir $speaker . "/raw";
@filenum = ( 0, 0 );
$abcnum = 0;
while ()
#### initialize
{

    if ( $filenum[0] == 5 && $filenum[1] == 3 ) {
        $filenum[0] = 0;
        $filenum[1] = 0;
        $abcnum += 1;
    }
    if ( $abcnum == 10 ) {
        print "Error: cannot open wav file ¥n";
        print "push key¥n";
        <STDIN>;
        die;
    }
    if ( $filenum[1] == 9 ) {
        $filenum[0] += 1;
        $filenum[1] = 0;
    }
    else {
        $filenum[1] += 1;
    }
    $filename   = $abc[$abcnum] . $filenum[0] . $filenum[1];
    $monofile   = $label . "/mono/${filename}.lab";
    $fullfile   = $label . "/full/${filename}.lab";
    $speechfile = $speaker . "/${filename}.wav";

    print "Start segmentation $filename ¥n";
    if ( -r $speechfile ) {
#### generate speech grammar 'tmp.dfa' and 'tmp.dict' from transcription

        # clean temporary file
        unlink("$TMPDIR/tmp.dfa")  if ( -r "$TMPDIR/tmp.dfa" );
        unlink("$TMPDIR/tmp.dict") if ( -r "$TMPDIR/tmp.dict" );

## read transcription
        @words = ();
        $line  = 0;
        open( TRANS_MONO, "$monofile" );
        while (<TRANS_MONO>) {
            chomp;
            next if /^[ ¥t¥n]*$/;
            if ( $line == 1 ) {
                s/pau/sp/;
                s/A/a/;
                s/I/i/;
                s/U/u/;
                s/E/e/;
                s/O/o/;
                s/cl/q/;
                s/sil$/silE/;
                s/[0-9]+//g;
                s/ //g;
            }
            if ( $line == 0 ) {
                s/sil$/silB/;
                s/[0-9]+//g;
                s/ //g;
                $line = 1;
            }
            push( @words, $_ );
        }
        close(TRANS_MONO);
        $num = $#words;

        # write dfa
        open( DFA, ">$TMPDIR/tmp.dfa" );
        for ( $i = 0; $i <= $num; $i++ ) {
            $str = sprintf( "%d %d %d 0", $i, $num - $i, $i + 1 );
            if ( $i == 0 ) {
                $str .= " 1¥n";
            }
            else {
                $str .= " 0¥n";
            }
            print DFA "$str";
        }
        $str = sprintf( "%d -1 -1 1 0¥n", $num + 1 );
        print DFA "$str";
        close(DFA);

        # write dict
        open( DICT, ">$TMPDIR/tmp.dict" );
        for ( $i = 0; $i <= $num; $i++ ) {
            $w             = shift(@words);
            $str           = "$i [w_$i] $w¥n";
            $WLIST{"w_$i"} = "$w";
            print DICT "$str";
        }
        close(DICT);

        # check generated files
        if ( ( !-r "$TMPDIR/tmp.dfa" ) || ( !-f "$TMPDIR/tmp.dfa" ) ) {
            die "Error: failed to make ¥"$TMPDIR/tmp.dfa¥"¥n";
        }
        if ( ( !-r "$TMPDIR/tmp.dict" ) || ( !-f "$TMPDIR/tmp.dict" ) ) {
            die "Error: failed to make ¥"$TMPDIR/tmp.dict¥"¥n";
        }

#### execute Julius4 and store the output to log
        $command
            = "echo $speechfile | $julius4bin -h $hmmdefs -dfa $TMPDIR/tmp.dfa -v $TMPDIR/tmp.dict -input file -spmodel null -48 -palign";
        system("$command > ${monofile}.log");

#### remove temporary file
        unlink("$TMPDIR/tmp.dfa");
        unlink("$TMPDIR/tmp.dict");

#### open result file for writing
        $logfile_mono = "${speaker}/mono/${filename}.lab";
        $logfile_mono =‾ s/wav//;
        $logfile_full = "${speaker}/full/${filename}.lab";
        $logfile_full =‾ s/wav//;
        open( RESULT_MONO, ">$logfile_mono" );
        open( RESULT_FULL, ">$logfile_full" );

#### parse log and append result to speechfile.align
        open( LOG,        "${monofile}.log" );
        open( TRANS_MONO, "$monofile" );
        open( TRANS_FULL, "$fullfile" );
        $sw = 0;
        while (<LOG>) {
            chomp;
            if (/re-computed AM score:/) {
                $sw = 0;
            }
            if ( $sw == 2 ) {
                $data_mono = <TRANS_MONO>;
                $data_mono =‾ s/¥n//;
                $data_mono =‾ s/^[0-9]+ [0-9]+//g;
                $data_full = <TRANS_FULL>;
                $data_full =‾ s/¥n//;
                $data_full =‾ s/^[0-9]+ [0-9]+//g;
                s/-[0-9]+.[0-9]+//;
                s/[[]//;
                s/[]]//;
                s/[a-zA-Z]+//g;
                s/ +//;
                s/ +/ /g;
                @num = split( /¥s/, $_ );
                $num[0] = $num[0] * 100000;
                $num[1] = ( $num[1] + 1 ) * 100000;

                if ( $num[1] != 0 ) {
                    print RESULT_MONO "@num" . "$data_mono¥n";
                    print RESULT_FULL "@num" . "$data_full¥n";
                }
            }
            if ( $sw == 1 ) {
                $sw = 2;
            }
            if (/ id: from  to    n_score    unit/) {
                $sw = 1;
            }
        }
        close(LOG);
        close(RESULT_MONO);
        close(RESULT_FULL);
        close(TRANS_MONO);
        close(TRANS_FULL);
        unlink "${monofile}.log";
        system(
            "echo $speechfile | sox -t wav $speechfile -t raw -L -2 -s $speaker/raw/${filename}.raw"
        );
    }
}

Answer 1

まず、インデントの付け方がおかしいので修正してください。これだけでも制御構造の書き方の誤りに気付けることは多いです。

次にデバッガの使い方を覚えてください。出力されるはずにもかかわらず出力されないデータの処理ステップに達したところで実行を一時停止し、その時点での変数の内容がすべて期待通りか確かめてください。異常な値を示すものがあればその変数を定義している部分の周辺に問題がある可能性が高いと判断できます。

解決したようだけど追記:
ああ力技で解決ですか。じつはファイル名の生成では範囲演算子というのを使えばいいので、最初の20行ぐらいは一行にまとめることができたのです。途中までコメントを書きかけていたので、サンプルだけ書いておきます。

foreach $filenamebase (map {my $x=$_; map{$x.$_} "01".."10"} "a".."j"){
  print "$filenamebase\n";
}

Comments

[BURI55]

PealのIDEが必要でしょうか？

[BURI55]

Padreを入れることができました。インデントのつけ方や制御構造はわかりませんが、デバッガの使い方を覚えて、なんとか頑張ってみたいと思います。

[BURI55]

もしかしてif文のインデントがおかしいということでしょうか？if文が制御構造ということでしょうか？

[BURI55]

Pealtidyで整形しました。

[BURI55]

デバッガのステップイン実行で変数の変化を解析しました。#initializeで、$filenameがa1からa9の時にはループしていて、次に実行が行かないようです。a10からは次に実行が行くので生成されているのではないでしょうか？

[BURI55]

ということは#initializeがおかしいということになりますか？

[BURI55]

変数に異常な値を示しているものはないですね。遷移がおかしい？

Answer 2

元データの形式がおかしかったです。a01.wavからa09.wavを与えなくてはならないところ、a1.wavからa9wavとなっていました。手入力ですべて修正したところ、正常に吐き出しました。