camel

鐃緒申鐃緒申辰鐃�<*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;
        $expr =~ s{
            \A(.*?)~~(.*?)(\^\.)(\.\^?)(.*?)
        }{
            my $num = eval $1;
            my $min = $2;
            my $lt0  = length($3) == 1 ? '<=' : '<';
            my $lt1  = length($4) == 1 ? '<=' : '<';
            my $max = $5;
            qq($min $lt0 $num && $num $lt1 $max);
        }emsx;
        warn $expr;
        eval $expr;
    };
}

local $\="\n";
print "OK" if     <length('^..^') ~~ 3^..^5>;
print "OK" unless <length('^..^') ~~ 0^..^3>;

鐃緒申鐃緒申鐃�Perl鐃祝わ申鐃緒申鐃銃￥申<$filehandle>鐃夙逸申辰鐃�<*glob*>鐃緒申鐃緒申多鐃祝使わ申覆鐃緒申藥誌申劼任鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申micro-DSL鐃緒申鐃緒申鐃緒申鐃緒申鐃塾にはわ申鐃獣てつわ申鐃緒申鐃緒申鐃緒申CORE::GLOBAL::glob()鐃緒申DSL鐃瞬わ申鐃緒申箸鐃緒申道箸鐃緒申鐃祝￥申蓮鐃緒申鐃�PERL HACKS鐃竣でわ申HACK #90鐃夙わ申鐃銃紹介さわ申討鐃緒申泙鐃緒申鐃�

鐃遵記鐃緒申鐃緒申蓮鐃緒申優鐃緒申鐃緒申鐃緒申鐃緒申辰鐃�eval鐃緒申箸鐃緒申泙鐃緒申辰討鐃粛件申咾琉鐃緒申櫃鐃緒申鐃緒申鐃緒申里任鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃熟わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申超鐃緒申呂如鐃緒申綉�鐃緒申鐃緒申鐃緒申僂覆蕕鰹申鐃緒申鐃緒申鐃緒申鐃緒申僂箸鐃緒申辰鐃緒申鐃緒申鐃準き鐃叔わ申鐃緒申

#!/usr/bin/perl
use strict;
use warnings;
{
    use Carp;
    no warnings 'redefine';
    *CORE::GLOBAL::glob = sub {
        my $path = shift;
        $path =~ s/\A\s+//;
        $path =~ s/\s+\z//;
        my $slurp;
        if ( $path =~ m{\w+://} ) {
            eval { require LWP::Simple; };
            croak $@ if $@;
            $slurp = LWP::Simple::get($path);
        }
        else {
            local $/;
            open my $fh, '<', $path or croak "$path:$!";
            $slurp = CORE::readline($fh);
            close $fh;
        }
        return $slurp;
    };
}

print </etc/motd>;
print <http://www.dan.co.jp/>;

鐃夙わ申鐃緒申鐃緒け鐃叔￥申CPAN鐃祝わ申p鐃緒申鐃銃わ申鐃緒申鐃殉わ申鐃緒申鐃緒申

cpan

<Enjoy/>

Dan the Perl Monger