prev Translate | Page next |
2002 5.8.0 2003 5.8.1 5.8.2 2004 5.8.3 5.8.4 5.8.5 5.8.6 2005 5.8.7 2006 5.8.8 ←今ここ
2007 5.8.9 # これも出ます、一応 5.10 # 新バージョン; 10月予定 6.0 # ポロロッカ星より
use feature qw/say switch/; # ひとつづつ use feature qw/:5.10/; # いっぺんにまとめて use 5.10 # これでもおk
{ use feature 'say'; say "YES:)"; } print "NO:(";
$c = defined($a) ? $a : $b; # マンドクサイ
$c = $a // $b; # こう書けます
低優先度版もあり〼
use feature qw/dor err/; fileno($fh) dor die "that's not a filehandle"; fileno($fh) err die "that's not a filehandle";
{ my $i = 0; sub incr { $i++ }; }
use feature 'state'; sub incr { state $i = 0; $i++; }
use feature 'switch'; given($cond){ when (/pat/){ ... } when ($num) { # $_ == $num } default { ... } }
use feature 'switch'; foreach (@array){ when (/pat/){ ... } when ($num) { # $_ == $num } default { ... } }
use feature '~~'; @array ~~ $x and say "$x exists"; /弾/ ~~ $str and say "空気嫁"; /弾/ ~~ @array and say "自重汁";
/とかちつくちて|とかしつくして/ → /とか[ちし]つく[ちし]て/
perldoc perl595delta
rsync -avz \ rsync://ftp.linux.activestate.com/perl-current/ \ perl-curent