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