camel

鐃宿居申鐃緒申鐃緒申鐃緒申足鐃緒申鐃銃逸申討茲�鐃緒申

鐃緒申足鐃緒申鐃緒申里蓮鐃�$_鐃塾使わ申鐃宿わ申鐃緒申鐃祝つわ申鐃銃￥申

鐃渋はわ申鐃緒申鐃緒申鐃暑こ鐃夙で￥申$_鐃塾誌申鐃術は暗種申的鐃淑わ申里鐃殉わ申討鐃緒申戮謄肇鐃獣プわ申鐃暑こ鐃夙わ申鐃緒申鐃緒申襦�

use strict;
use warnings;
{
  package _;
  use Carp;
  sub TIESCALAR { bless {}, shift }
  sub FETCH { croak q(Don't you dare get $_)  }
  sub STORE { croak q(Don't you dare set $_)  }
}

tie $_, "_";
$_ = 1;

鐃緒申鐃緒申的鐃淑わ申里鐃緒申鐃緒申任呂覆鐃緒申鐃緒申鐃緒申曚里鐃塾わ申鐃緒申鐃緒申膿圓鐃緒申鐃�

use strict;
use warnings;
{
  package _;
  use Carp;
  sub TIESCALAR { bless {}, shift }
  no warnings 'once';
  sub FETCH { croak q(Don't you dare get $_)  }
  sub STORE { croak q(Don't you dare set $_)  }
}
$_ = "dankogai";
tie $_, "_";
my $name = /(dan)/;
print $name;

鐃渋はわ申鐃塾テワ申鐃祝ッワ申鐃熟￥申鐃緒申鐃緒申鐃祝わ申匆陲靴討鐃緒申襦�

鐃緒申鐃緒申鐃銃э申泙鐃緒申鐃緒申鐃叔￥申鐃緒申鐃縦でわ申鐃緒申鐃�$_鐃緒申鐃緒申鐃緒申忙箸鐃緒申襪�鐃緒申鐃緒申泙鐃緒申討澆襦ｏ申岼鐃緒申鐃緒申法廚箸蓮鐃� scope 鐃緒申鐃緒申鐃緒申鐃緒申鐃�$_鐃緒申鐃緒申鐃術わ申鐃縦わ申鐃銃わ申鐃緒申箸鐃緒申鐃緒申鐃緒申箸鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申蕕�鐃緒申鐃緒申鐃緒申鐃処う鐃緒申

use strict;
use warnings;
{
  package _;
  use Carp;
  sub TIESCALAR { bless {}, shift }
  no warnings 'once';
  sub FETCH { croak q(Don't you dare get $_)  }
  sub STORE { croak q(Don't you dare set $_)  }
}
tie $_, "_";
my @a = (0..9);
my @b = map  { $_ * $_ } @a;
my @c = grep { $_ % 2  } @b;
local $\ = "\n"; # make print say
print for @c;
print while (<DATA>)
__DATA__
one
two
three

鐃竣わ申鐃緒申法鐃�map, grep, 鐃緒申鐃緒申鐃緒申foreach鐃叔ワ申鐃銃レー鐃夙わ申鐃緒申櫃砲蓮鐃�$_鐃緒申鐃祝駕申鐃緒申鐃緒申鐃叔緒申鐃緒申鐃緒申曚鐃緒申鐃宿�鐃竣はなわ申鐃夙わ申鐃緒申鐃緒申鐃夙でわ申鐃暑。鐃緒申鐃緒申呂鐃緒申鐃緒申鐃緒申鐃緒申砲鐃緒申覆辰討鐃緒申襪慶常申鐃重�鐃緒申鐃緒申

鐃渋は￥申他鐃塾醐申鐃緒申任呂鐃緒申譴�鐃淑鰹申鐃緒申直鐃緒申的鐃叔なわ申鐃獣わ申鐃所す鐃暑こ鐃夙わ申

鐃叔紹介してわ申鐃暑。lleval鐃緒申箸辰堂鐃緒申鐃銃鰹申認鐃緒申鐃銃わ申鐃緒申鐃緒申鐃緒申

JavaScript 1.6 and less

(function(){
  var i = -1;
  for(var i = 0; i < 10; i++){}
  print(i);
})()

Python 2.x and below

def test():
  i = -1
  for i in range(0,10):
    pass # do nothing
  print i;

test()

Ruby 1.8 or less

def test
  i = -1
  (1..9).each do |i|
  end
  puts i
end
test

鐃緒申鐃緒申鐃緒申癲�鐃緒申側鐃緒申鐃術随申鐃緒申鐃祝駕申鐃緒申鐃銃わ申鐃殉ってわ申鐃暑。鐃淑わ申鐃緒申 Ruby 鐃緒申 1.9 鐃緒申鐃瞬ワ申鐃獣ワ申鐃緒申鐃緒申鐃緒申鐃曙キ鐃緒申鐃緒申鐃緒申鐃術随申鐃祝なってわ申鐃暑。

Larry Wall 鐃祝わ申鐃夙￥申$_鐃夙わ申鐃緒申鐃塾わ申 Perl 鐃祝わ申鐃緒申鐃緒申 it 鐃緒申鐃夙のわ申鐃夙￥申鐃夙わ申鐃緒申鐃宿わ申鐃緒申鐃熟￥申鐃緒申鐃縮わ申文鐃熟わ申颪�とわ申鐃緒申鐃緒申名鐃緒申鐃宿わ申鐃緒申鐃暑か鐃夙ほわ申同鐃緒申鐃緒申鐃緒申適鐃緒申鐃叔わ申鐃暑。鐃夙わ申鐃緒申鐃緒申鐃銃は「わ申鐃緒申匹鐃緒申鐃緒申辰鐃緒申个鐃緒申鐃緒申鐃竣「わ申鐃緒申鐃緒申鐃祝わ申鐃緒申鐃緒申鐃処じ鐃緒申鐃緒申鐃緒申廚里茲�鐃緒申鐃緒申鐃緒申鐃緒申辰砲覆辰討鐃緒申泙鐃緒申鐃緒申鐃緒申峪鐃緒申鐃粛はどわ申鐃祝わ申鐃緒申泙鐃緒申鐃緒申鐃緒申个鐃緒申鐃緒申鐃竣「わ申鐃淑わ申鐃緒申鐃粛は私が鐃術随申hoge鐃緒申鐃緒申鐃緒申討鐃緒申鐃緒申泙鐃緒申鐃緒申茲�鐃出わ申鐃緒申鐃緒申廚任蓮鐃緒申鐃�鐃淑縁申離鐃緒申鐃獣ワ申&鐃駿テワ申鐃竣でわ申鐃暑。鐃緒申鐃駿わ申鐃緒申辰道箸鐃緒申于鐃緒申鐃緒申鐃緒申呂爐件申鐃緒申紊�鐃暑。鐃獣わ申map鐃緒申grep鐃熟わ申鐃緒申鐃叔￥申鐃緒申箸鐃緒申討鐃� 

my @sqare = map { |$x| $x * $x } @numbers;

鐃夙わ申鐃緒申表鐃緒申鐃薯強わ申鐃緒申鐃淑わ申鐃緒申鐃夙はわ申鐃所が鐃緒申鐃緒申鐃緒申鐃緒申辰箸發緒申譴件申鐃緒申覆鐃緒申辰鐃緒申里鐃�TMTOWTDI鐃緒申鐃峻とわ申鐃銃わ申鐃緒申鐃緒申鐃緒申鐃獣わ申鐃塾で￥申鐃宿わ申鐃緒申鐃�(鐃緒申鐃緒申鐃銃わ申鐃緒申乏擇塀鐃緒申鐃緒申鐃�)鐃緒申鐃緒申鐃� Perl 6 鐃緒申里曚曚鐃緒申鐃峻ってわ申鐃暑次鐃緒申鐃緒申鐃�

Dan the Perl Monger