YAPC::Asia::2008

鐃緒申鐃緒申任鐃緒申鐃緒申鐃叔はわ申鐃緒申泙鐃緒申鐃緒申鐃�perl鐃塾常申鐃緒申辰抜鐃獣縁申鐃緒申鐃祝￥申鐃緒申鐃緒申鐃殉わ申鐃緒申

鐃銃醐申鐃緒申屬了鐃緒申箸鐃緒申鐃緒申呂鐃� - @author pyridoxin
sub swap {
    my ($x , $y) = @_;
    $$temp = $$y;
    $$y = $$x;
    $$x = $$temp
}
[codepad] 
sub swap {
  my $tmp = $_[0];
  $_[0] = $_[1];
  $_[1] = $tmp;
}
my ($a, $b) = (1, 2);
print "\$a = $a, \$b = $b\n";
swap($a, $b);
print "\$a = $a, \$b = $b\n";

鐃緒申鐃緒申蓮鐃�Reference鐃緒申存鐃淳わ申鐃淑わ申鐃獣わ申Perl 4鐃緒申鐃緒申鐃緒申鐃緒申了鐃緒申佑任鐃緒申鐃�

鐃緒申鐃緒申鐃緒申鐃�

sub swap($$){
  ($_[1], $_[0]) = ($_[0], $_[1]);
}

鐃夙わ申鐃銃もう鐃殉わ申鐃峻わ申鐃殉わ申鐃緒申

Perl 5鐃淑降では￥申sub鐃塾緒申鐃緒申鐃夙わ申鐃緒申

sub meth{
  my $self = shift; # shift @_ 鐃緒申略
  # ....
}

鐃夙わ申

sub func{
  my ($a, $b, $c) = @_;
  # ....
}

鐃夙わ申鐃夙わ申鐃緒申鐃緒申鐃祝￥申鐃叔緒申縫譽�鐃緒申鐃緒申鐃緒申鐃術随申鐃緒申@_鐃緒申鐃緒申鐃銃をコピ￥申鐃緒申鐃緒申里鐃緒申鐃緒申鐃重�鐃叔わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申儖佞忙鐃緒申噺鐃緒申鐃書き器申鐃緒申鐃淑わ申鐃緒申鐃緒申旅鐃緒申廚箸鐃緒申鐃緒申鐃殉わ申鐃緒申

鐃淑わ申鐃緒申foreach鐃緒申map鐃淑どにわ申鐃緒申鐃緒申$_鐃盾参鐃夙でわ申鐃緒申

[codepad] 
my @a = (0..10);
print join(', ', @a), "\n";
$_ *= 2 for @a;
print join(', ', @a), "\n";
map { $_ + } @a;
print join(', ', @a), "\n";

鐃緒申鐃緒申泙鐃�Perl 5鐃叔は￥申

for my $item (@array){
  # ....
}

鐃夙わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃楯￥申鐃夙わ申鐃曙、鐃緒申鐃術意に誌申鐃夙醐申鐃緒申颪�器申鐃緒申鐃緒申鐃叔緒申鐃緒申鐃緒申磴�鐃緒申鐃銃わ申鐃殉わ申鐃緒申

鐃緒申鐃曙、鐃塾っわ申鐃夙わ申鐃祝は結構鐃緒申鐃緒申辰箸鐃緒申鐃緒申里任鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申箸鐃緒申悩鐃重�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申泙鐃緒申鐃�

404 Blog Not Found:perl - to goto or not to goto, that's the continuation 
sub _fib_g{
    my ($n, $f1, $f2) = @_;
    return $f2 if $n == 0;
    # _fib_g($n - 1, $f2, $f1 + $f2)
    @_ = ($n - 1, $f2, $f1 + $f2);
    goto  &_fib_g;
}
sub fib_g{ _fib_g(shift, 0, 1) };

鐃淑ワ申肇鐃緒申鐃緒申鐃緒申未六箸鐃緒申茲�....

Dan the Refer(ent|rer)