読者です 読者をやめる 読者になる 読者になる

Perl日記

PerlとかRubyとかPHPとかPythonとか

内容のないラベル

Any::Eventのコードをいろいろ見ていたら、ただのセミコロンにラベルが貼られていたのを見て驚いた。

AnyEvent-5.28/util/gen_uts46data
...
# try to find a valid quoting character - there usually are many legal combos
for (1..127) { # stay out of utf-8 range
   if (0 >= index $valid, chr) {
      print $fh "\$uts46_valid = q", chr, $valid, chr, ";\n";
      goto valid_ok;
   }
}
die "unable to found valid quoting character";
valid_ok:;
...

ラベルってブロックに貼れるものだと思っていたけれど、sentenceにつけられるぽいです。