perl - ネコ演算子と<*glob*>とFile::Glob::Slurp : 404 Blog Not Found

2009年06月10日07:30 カテゴリLightweight Languages perl - ネコ演算子と<*glob*>とFile::Glob::Slurp それって<*glob*>「メタ演算子」で。 Perl5 でネコ演算子Range Check - id:kazuhookuのメモ置き場 Perl 5 で、ある値が範囲内に入ってるか確認したいことってあるわけで。たとえば、 my $t = time; if ($min <= $t && $t < $max) { ... } みたいな冗長なコードは書きたくない。 こんな感じで。 #!/usr/bin/perl use strict; use warnings; { no warnings 'redefine'; *CORE::GLOBAL::glob = sub{ my $expr = shift; warn $expr; $exp

[kkobayashi]

下の方も十分黒い気がする・・・。すごいな。お手軽DSL。

[kazuhooku]

あざっす。実用的な解じゃなかったけど

[orangevtr]

なにこれおもしろい！確かにPerlHacks#90に載ってる。

[mattn]

面白い

[dankogai]

<*glob*>の無限の可能性について