camel

Good Question!

@_鐃緒申鐃緒申鐃叔わ申$_[0],$_[1]鐃緒申鐃熟￥申鐃緒申納鐃緒申鐃緒申戮鐃緒申鐃緒申疋譽刻申鐃緒申鐃緒申僉鐃� - 鐃緒申鐃緒申鐃緒申鐃緒申
鐃淑わ申鐃緒申鐃緒申鐃緒申併鐃緒申佑砲鐃緒申鐃緒申里鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�

Good Question 鐃緒申鐃緒申鐃緒申鐃獣て￥申Good Reasons 鐃盾き鐃緒申鐃緒申箸鐃緒申鐃殉わ申鐃緒申

@_鐃緒申$_鐃緒申鐃緒申密

鐃殉わ申鐃緒申鐃緒申鐃渋わ申導鐃叔э申鐃緒申討鐃緒申鐃緒申泙鐃緒申腓�鐃緒申

Perl鐃祝わ申鐃緒申鐃銃￥申鐃緒申鐃緒申鐃緒申鐃叔種申鐃緒申鐃緒申鐃緒申鐃�@_鐃熟￥申鐃緒申忙鐃緒申鐃�(reference)鐃叔わ申鐃緒申鐃緒申(value)鐃叔はわ申鐃緒申泙鐃緒申鐃�

鐃緒申鐃曙が鐃緒申鐃緒申鐃縮ｏ申鐃緒申襪�鐃夙わ申鐃緒申鐃夙￥申@_鐃舜の書き刻申鐃淳わ申鐃緒申鐃銃び出わ申鐃緒申鐃舜の書き刻申鐃淳となわ申箸鐃緒申鐃緒申鐃緒申箸任鐃緒申鐃�

鐃渋際わ申鐃粛子を見てみまわ申鐃順う鐃緒申

[Run via CodePad] 
sub inc { ++$_[0] }
my $a = 0;
print $a, "\n";
inc($a);
print $a, "\n";

鐃緒申鐃緒申蓮鐃緒申鐃緒申鐃緒申望鐃緒申鐃粛わ申鐃緒申鐃緒申JavaScript鐃淑どと異なわ申泙鐃緒申鐃�

var inc = function(n){ return ++n };
var a = 0;
alert([a, inc(a), a].join(', '));

JavaScript鐃緒申同鐃粛の件申未鐃緒申鐃緒申鐃祝は￥申鐃緒申鐃塾よう鐃祝わ申鐃銃呼び出わ申側鐃緒申鐃緒申鐃緒申的鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申必鐃竣わ申鐃緒申鐃緒申泙鐃緒申鐃�

var inc = function(n){ return ++n };
var a = 0;
alert([a, a = inc(a), a].join(', '));

Perl鐃叔は￥申他鐃祝も、foreach鐃緒申grep鐃緒申map鐃塾ブワ申鐃獣ワ申鐃緒申鐃�$_鐃盾参鐃夙となってわ申鐃殉わ申鐃緒申

[Run via CodePad] 
local ($, , $\) = (', ', "\n"); # for print
my @a = (1..10);
print @a;
--$_ foreach @a;
print @a;
map { $_ *= 2 } @a;
print @a;
print grep { $_ *= $_ } @a;
print @a;

鐃緒申弔鐃緒申鐃粛�

鐃淑わ申如鐃緒申鐃緒申鐃緒申覆辰討鐃緒申鐃塾でわ申鐃順う鐃緒申鐃緒申鐃緒申由鐃緒申鐃緒申弔鐃緒申鐃殉わ申鐃緒申

鐃緒申弔蓮鐃緒申鐃緒申的鐃緒申鐃緒申由鐃緒申Perl 4鐃殉で￥申Perl鐃祝わ申鐃緒申鐃緒申的鐃淑誌申鐃緒申(reference)鐃夙わ申鐃緒申鐃緒申鐃夙みわ申鐃緒申鐃緒申泙鐃緒申鐃叔わ申鐃緒申鐃緒申$$scalarref = 'new string';鐃塾よう鐃淑わ申鐃夙わ申鐃緒申鐃緒申覆鐃緒申辰鐃緒申里任鐃緒申鐃�

鐃盾う鐃緒申弔蓮鐃緒申鐃塾�鐃緒申鐃緒申鐃夙わ申鐃緒申funksun($scalar)鐃緒申$scalar鐃緒申鐃緒申鐃緒申MB鐃盾あ鐃獣わ申鐃緒申匹鐃緒申覆鐃叔わ申鐃順う?鐃舜随申鐃塾呼び出わ申鐃塾わ申鐃俊に￥申鐃緒申鐃塾駕申MB鐃盾あ鐃緒申鐃緒申鐃銃わ申鐃緒申鐃峻￥申鐃緒申鐃緒申覬�鐃旬になわ申泙鐃緒申鐃緒申鐃緒申鐃緒申呂鐃緒申任鐃緒申鐃出￥申鐃緒申鐃緒申鐃緒申匹鐃緒申鐃緒申箸鐃緒申鐃緒申鐃殉わ申鐃緒申

鐃夙はわ申鐃緒申鐃緒申鐃春図わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃術わ申鐃銃わ申鐃殉わ申鐃塾は器申鐃緒申鐃叔わ申鐃緒申鐃緒申鐃所ー鐃緒申造鐃緒申鐃�my(鐃曙キ鐃緒申鐃緒申鐃緒申鐃術随申)鐃盾サ鐃楯￥申鐃夙わ申鐃曙た鐃緒申鐃叔は￥申

my $self = shift; # 鐃緒申鐃緒申鐃緒申鐃�use Data::Dumper;
my %hash = do { my $i = 0; map { $_ => $i++ } qw/Sun Mon Tue Wed Thr Fri Sat/ };
print Dumper \%hash;
while(my ($k, $v) = each %hash){ $k = lc($k); $v *= 2 };
print Dumper \%hash;

鐃緒申

my ($a, $b, $c) = @_; # 鐃緒申鐃緒申鐃緒申鐃緒申

鐃夙わ申鐃緒申鐃緒申鐃祝￥申鐃叔緒申飽鐃緒申鐃緒申離鐃緒申圈鐃緒申鐃緒申辰鐃緒申鐃叔￥申鐃緒申鐃塾ワ申鐃峻￥申鐃緒申鐃緒申鐃術わ申鐃緒申箸鐃緒申鐃緒申里鐃緒申鐃祝�(a good practice)鐃夙なり、鐃緒申鐃夙醐申鐃緒申鐃緒申僂鐃緒申鐃緒申鐃祝は￥申鐃銃び出わ申側鐃緒申鐃緒申鐃緒申的鐃緒申

my $a = 0;
inc(\$a);

鐃夙わ申鐃緒申鐃緒申如鐃緒申愎鐃渋�鐃叔わ申鐃緒申鐃緒申的鐃緒申

sub inc{
  my $n = shift;
  $$n += 1;
}

鐃夙わ申鐃緒申鐃緒申鐃祝わ申鐃緒申茲�鐃祝なってわ申鐃殉わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃叔わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申覆鐃緒申鐃出なわ申覆鐃緒申鐃緒申未箸鐃緒申鐃緒申里狼鐃緒申覆鐃緒申鐃渋醐申澆鐃緒申泙鐃緒申鐃緒申磴�鐃緒申Encode鐃叔も、鐃緒申鐃竣ワ申鐃緒申鐃塾誌申鐃緒申砲鐃獣てはワ申鐃初ー鐃緒申鐃緒申鐃塾際￥申未鐃緒申鐃緒申鐃緒申分鐃緒申鐃緒申鐃緒申暴鐃緒申瓩刻申茲�鐃祝わ申鐃銃わ申鐃殉わ申鐃緒申鐃緒申鐃曙が鐃淑わ申必鐃竣なのわ申鐃熟￥申Encode::PerlIO鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申

@_鐃緒申$_鐃塾わ申鐃緒申鐃緒申鐃緒申鐃熟￥申鐃塾らず鐃祝使わ申鐃夙わ申鐃緒申辰抜鐃緒申鐃緒申任鐃緒申鐃緒申鐃緒申里辰討鐃緒申鐃出醐申率的鐃淑ワ申鐃緒申鐃宿わ申颪韻泙鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申僂鐃緒申泙鐃緒申腓�鐃緒申

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃盾う鐃緒申鐃塾縁申鐃緒申鐃緒申鐃�foreach my $elem (@array){ ... }鐃緒申$elem鐃盾参鐃夙となわ申泙鐃緒申鐃�

[Run via CodePad] 
local ($, , $\) = (', ', "\n"); # for print
my @array = (0..6);
for my $i (@array) { $i++ };
print @array;

鐃緒申鐃緒申鐃緒申个鐃緒申董鐃�while(my ($k, $v) = each %hash){ ... }鐃緒申$k鐃緒申鐃緒申鐃�$v鐃熟ワ申鐃峻￥申鐃叔わ申鐃緒申

[Run via CodePad] 
use Data::Dumper;
my %hash = do { my $i = 0; map { $_ => $i++ } qw/Sun Mon Tue Wed Thr Fri Sat/ };
print Dumper \%hash;
while(my ($k, $v) = each %hash){ $k = lc($k); $v *= 2 };
print Dumper \%hash;

Dan the Perl Monger