namazu-dev(ring)

[Rei FURUKAWA <furukawa@xxxxxxxxxxxxxxxx>]

古川です。

>> On Fri, 03 Sep 1999 09:45:01 +0900, Satoru Takabayashi <satoru-t@xxxxxxxxxxxxxxxxxx> said:
  > src/gcnmz.in 新しいファイルに置き換えて commit しておきまし
  > た。古川さんもcommitter になって、 src/gcnmz.in をメインテナ
  > ンスしてもらえます?

はい。これについては、また後ほど。


  > 動作確認はまだしていませんが、

  >   sub readw{
  >       my $fh = shift;
  >       my $ret = '';
  >       my $c;
  
  >       while (read($fh, $c, 1)){
  >           $ret .= $c;
  >           last unless 0x80 & ord $c;
  >       }
  >       unpack('w', $ret);
  >   }

  > この関数、いいですね。mknmzで使わせてもらいます。私が書いた


でも、せっかく unpack 'w' なんていう、便利な関数があるのに、そのデータ
単位を検出するのに、スクリプト側で、0x80 & orc $c なんてやらないといけ
ない、というのが、ちょっとシャクですね。

perl 側に、「unpack に必要な分だけ、ファイルから読む」ような機能があれ
ばいいのに… と、ここで言っても仕方ないですが。

-- 

                                        ヤマハ(株)ピアノプレーヤ設計課
                                                              古川 令
                                             furukawa@xxxxxxxxxxxxxxxx