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
{{#tags}}- {{label}}
{{/tags}}