12 7 8 6 2007 2009 2010 17 captures 10 6 03 - 6 7 09

Close Help

    plscript/merge.pl
    --------------------------------------------------
    #変数にファイル名を代入
    $fileA = "data/nihongoA.cha";
    $fileB = "data/nihongoB.cha";

    #各ファイルを読み込み用に開く
    open (INA, $fileA) or die;
    open (INB, $fileB) or die;

    #各ファイルから１行づつ読み込めるあいだ，
    while ($textA = <INA> and $textB = <INB>) {

       
       if ($textA eq $textB) {       #２つのファイルの対応する
                                     #行の内容が同じなら，
          $textA =~ s/^\*/\n\*/;     #* で始まっていたら改行を挿入し，
          print $textA;              #$textA (=$textB) を出力する。

       } else {                      #同じでなければ，

          #[改行] を取り，'(ファイル名)' を付け，[改行] 付きで出力する
          chomp $textA; print "$textA ($fileA)\n";
          chomp $textB; print "$textB ($fileB)\n";
       }

    }
    
    exit;
    --------------------------------------------------