camel

鐃緒申鐃熟常申鐃駿わ申鐃緒申鐃夙わ申鐃緒申鐃緒申鐃夙わ申B::Deparse鐃塾紹駕申

鐃緒申鐃緒申淵屮鐃緒申鐃� - 鐃緒申鐃緒申鐃緒申廛噺鐃緒申鐃緒申僂離妊丱奪鐃緒申了箸鐃緒申鐃� - Ruby, Python, Perl
鐃緒申鐃緒申鐃緒申廛噺鐃緒申鐃緒申僂鐃� CUI鐃塾デバッワ申鐃塾使わ申鐃緒申鐃緒申鐃獣縁申砲泙箸鐃殉わ申鐃緒申鐃緒申鐃出象醐申鐃緒申鐃� Ruby, Python, Perl 鐃叔わ申鐃緒申

鐃渋は誌申癲�鐃叔バッワ申鐃緒申鐃緒申perl -de1鐃緒申鐃初い鐃緒申鐃緒申鐃夙ってわ申鐃淑わ申(perl -de1鐃緒申鐃緒申鐃祝よく鐃夙わ申鐃塾で￥申Terminal.app鐃塾ワ申鐃緒申鐃緒申疋鐃緒申琉鐃縦わ申鐃緒申鐃緒申鐃緒申鐃術になってわ申鐃暑。鐃緒申鐃緒申鐃緒申廛噺鐃緒申鐃塾ワ申鐃藷タラク鐃銃ワ申鐃瞬わ申鐃緒申鐃緒申法鐃祝関わ申鐃銃は逸申鐃緒申鐃緒申404 Blog Not Found:LL Intaractive鐃竣にまとめた鐃塾でわ申鐃緒申鐃緒申鐃緒申鐃縦削申鐃緒申箸鐃緒申董鐃緒申鐃緒申鐃緒申任呂覆鐃緒申鐃緒申鐃緒申鐃竣ト醐申鐃緒申任鐃緒申鐃渋随申縫妊丱奪鐃緒申鐃緒申鐃夙わ申覆鐃緒申鐃緒申鬚�わ申鐃初い鐃緒申鐃緒申鐃緒申如鐃�B::Deparse鐃緒申鐃緒申紊駕申襦�

鐃緒申鐃� C, C++ 鐃叔プワ申鐃緒申鐃緒申鐃緒申颪い討鐃緒申鐃夙わ申鐃熟デバッワ申 (鐃緒申鐃� GNU/Linux 鐃緒申鐃� gdb) 鐃緒申鐃緒申鐃祝わ申鐃緒申鐃術わ申鐃殉わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申廛噺鐃緒申鐃叔はわ申鐃緒申曚匹任發�鐃緒申泙鐃緒申鵝�わ申鐃緒申呂鐃緒申鐃緒申蕕�鐃緒申鐃塾よう鐃緒申鐃緒申由鐃祝わ申鐃殉わ申鐃緒申

  • 鐃俊ワ申匹鐃緒申鐃緒申廚覆里鐃� printf 鐃叔バッワ申鐃緒申鐃銃逸申 (鐃緒申鐃緒申鐃緒申鐃緒申鐃順き鐃緒申 C++ 鐃塾プワ申鐃緒申鐃緒申鐃叔はビワ申瓢鐃緒申屬鐃縦刻申鐃緒申里鐃� printf 鐃緒申鐃緒申鐃緒申鐃熟わ申鐃緒申匹鐃�)
  • 鐃循常終了鐃緒申鐃祝ワ申鐃緒申鐃獣ワ申鐃夙レー鐃緒申鐃緒申表鐃緒申鐃緒申鐃緒申鐃� (Ruby, Python 鐃淑ら自動鐃緒申Perl 鐃塾常申鐃緒申 use Carp; $SIG{__DIE__} = \&Carp::confess; 鐃淑わ申)
  • 鐃緒申鐃瞬ワ申鐃緒申鐃緒申鐃夙のワ申鐃藷スペワ申鐃夙わ申鐃緒申単 (Ruby 鐃淑わ申 p/pp, Python 鐃淑わ申 print, Perl 鐃淑わ申 Data::Dumper)
  • 鐃緒申鐃緒申鐃緒申鐃銃￥申鐃緒申鐃緒申鐃春ワ申鐃緒申箸鐃� (鐃緒申鐃緒申的鐃緒申) 発鐃緒申鐃緒申鐃淑わ申
  • 鐃緒申鐃緒申鐃緒申単鐃緒申淵廛鐃緒申鐃緒申鐃緒申鐃書いてわ申鐃緒申鐃順が多鐃緒申

Perl鐃塾常申隋�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申B::Deparse鐃緒申鐃緒申鐃暑か鐃緒申廚箸鐃緒申鐃緒申鐃塾わ申辰鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申譴�鐃初い鐃緒申鐃緒申鐃淑ツ￥申鐃緒申任鐃緒申襦�

鐃緒申鐃緒申法鐃緒申鐃塾逸申:鐃緒申鐃緒申鐃緒申廛鐃緒申鐃緒申里鐃�Deparse

Perl鐃塾逸申名鐃緒申鐃緒申由鐃塾逸申弔蓮鐃緒申崕颪�やす鐃緒申鐃緒申鐃宿みにわ申鐃緒申鐃竣とわ申鐃緒申鐃緒申里任鐃緒申辰鐃緒申鐃緒申尊櫃鐃緒申鐃緒申任鐃淑わ申鐃緒申鐃緒申鐃薯今￥申鐃獣に￥申Perl Best Practices鐃竣わ申鐃遵梓鐃緒申鐃緒申討鐃緒申鐃緒申blogosphere鐃緒申鐃緒申鐃緒すcode snippets鐃塾駕申鐃緒申鐃緒申鐃緒申澆鐃緒申鐃緒申鐃緒申鐃処う鐃祝上が鐃獣わ申鐃塾わ申鐃緒申鐃緒申鐃緒申鐃緒申任鐃緒申鐃緒申鐃熟�(one-line)鐃淑どわ申鐃宿みやす鐃緒申鐃緒申2鐃塾種申3鐃塾種申鐃緒申鐃緒申鐃緒申golf鐃緒申Obfuscnated Codes鐃淑ど￥申鐃緒ざ鐃緒申鐃宿みにわ申鐃緒申鐃緒申鐃銃わ申鐃緒申鐃塾もあ鐃暑。

鐃緒申鐃緒申併鐃緒申蓮鐃�B::Deparse鐃祝わ申鐃塾ワ申鐃緒申鐃宿わ申鐃宿み解いてわ申蕕�鐃緒申鐃緒申鐃夙わ申鐃緒申鐃熟器申単鐃緒申

perl ...

鐃夙わ申鐃銃わ申鐃緒申鐃夙わ申鐃緒申鐃緒申

perl -MO=Deparse ...

鐃夙わ申鐃緒申个茲わ申鐃�-MB=Deparse鐃叔なわ申鐃緒申鐃緒申鐃緒申鐃春￥申鐃緒申鐃塾ワ申鐃緒申鐃宿わ申鐃渋行わ申鐃緒申鐃緒申鐃緒申鐃祝￥申鐃緒申鐃塾ワ申鐃緒申鐃宿わ申Perl鐃緒申鐃初見鐃銃どわ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申表鐃緒申鐃緒申鐃緒申襦�

鐃純え鐃出￥申鐃瞬フワ申鐃緒申鐃緒申鐃緒申鐃緒申仂譴刻申鐃�0.01鐃薯すべわ申0.02鐃祝書き器申鐃緒申鐃銃￥申鐃緒申鐃塾フワ申鐃緒申鐃緒申鐃出ッワ申鐃緒申鐃獣プわ申鐃緒申廚箸鐃緒申鐃緒申鐃夙なら、

perl -i.bak -ple 's/0\.01/0.02/g' files ...

鐃夙書くわ申鐃緒申鐃緒申鐃緒申鐃�-MB=Deparse鐃緒申佞蠅�鐃緒申鐃緒申箸鐃緒申鐃宿緒申鐃緒申鐃緒申鐃暑。

% perl -MO=Deparse -i.bak -ple 's/0\0.1/0.02/g'
BEGIN { $^I = ".bak"; }
BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined($_ = )) {
    chomp $_;
    s/0\0.1/0.02/g;
}
continue {
    print $_;
}
-e syntax OK

鐃瞬わ申鐃緒申淵屮鐃緒申鐃緒申廚離妊丱奪鐃�(debugee - 鐃緒申鐃曙、鐃出ッドノワ申鐃熟ワ申鐃術醐申脳匆陲靴討發わ申鐃緒申里任鐃�)鐃盾、鐃緒申鐃緒申鐃緒申Perl Monger鐃淑らこ鐃緒申鐃緒申鐃銃わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃�

perl -MLWP::Simple -e 'print get shift' http://0xcc.net

鐃緒申鐃緒申癲�-MB=Deparse鐃叔「醐申鐃緒申鐃潤せ鐃竣る。

% perl -MO=Deparse -MLWP::Simple -e 'print get shift' http://0xcc.net
use LWP::Simple;
print get(shift @ARGV);
-e syntax OK

表鐃緒申鐃緒申鐃緒申調鐃緒申鐃緒申鐃暑こ鐃夙わ申鐃緒申鐃暑。鐃純え鐃出わ申鐃緒申鐃緒申鐃緒申法鐃�

% perl -MO=Deparse,-l,-x7 -MLWP::Simple -e 'print get shift' http://0xcc.net

#line 0 "-e"
sub BEGIN {
#line 0 "-e"
    require LWP::Simple;
#line 0 "-e"
    do {
#line 0 "-e"
        'LWP::Simple'->import
    };
}
#line 1 "-e"
print get(shift @ARGV);
-e syntax OK

鐃旬わ申鐃緒申鐃緒申鐃緒申砲鐃獣わ申perldoc B::Deparse鐃薯参照のわ申鐃夙￥申B::Deparse鐃熟初心鐃峻わ申味鐃緒申鐃叔わ申鐃暑。

鐃緒申鐃緒申鐃緒申鐃緒申鐃純ー鐃緒申妊鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�

鐃緒申鐃淑常申鐃�Perl Programmer鐃熟￥申鐃緒申鐃緒申code reference鐃緒申鐃緒申鐃術わ申鐃緒申鐃緒申鐃緒申鐃俊誌申鐃叔わ申鐃暑。鐃緒申鐃祝駈申鐃熟なのわ申鐃緒申鐃緒申鐃緒申鐃緒申鐃夙わ申鐃銃デバッワ申鐃緒申鐃祝わ申鐃緒申鐃夙わ申鐃緒申鐃緒申鐃夙わ申鐃緒申鐃暑。鐃緒申里砲鐃獣てわ申動的鐃緒申code鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申里如鐃緒申鐃緒申鐃緒申房孫圓鐃緒申鐃暑コ鐃緒申鐃宿はどわ申鐃淑のわ申鐃緒申鐃緒申鐃緒申鐃緒申鐃薯見ても見鐃緒申鐃淑わ申鐃塾わ申鐃緒申

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申B::Deparse鐃塾緒申鐃瞬でわ申鐃暑。

鐃緒申鐃夙わ申鐃出￥申鐃淑駕申鐃塾よう鐃淑ワ申鐃緒申鐃宿わ申鐃緒申鐃緒申箸鐃緒申襦�

   1 : use strict;
   2 : use warnings;
   3 : {
   4 :     package MyFileHandle;
   5 :     use base 'FileHandle';
   6 :     sub each_line {
   7 :         my $fh      = shift;
   8 :         my $coderef = shift;
   9 :         while ( my $line = $fh->getline ) {
  10 :             $coderef->( $fh, $line );
  11 :         }
  12 :     }
  13 : }
  14 : my $fh = MyFileHandle->new( shift, 'r' ) or die;
  15 : $fh->each_line(
  16 :     sub {
  17 :         my ( $fh, $line ) = @_;
  18 :         printf "%4d : %s", $fh->input_line_number, $line
  19 : 
  20 :     }
  21 : );

鐃殉わ申鐃緒申鐃緒申鐃緒申鐃緒申each_line鐃緒申鐃緒申鐃叔どわ申鐃�code reference鐃緒申鐃緒申鐃緒申鐃獣わ申鐃緒申鐃緒申鐃叔э申鐃緒申討澆鐃緒申鐃緒申鐃塾とわ申鐃暑。鐃緒申鐃緒申鐃緒申鐃緒申个茲わ申鐃�

   3 : {
   4 :     package MyFileHandle;
   5 :     use base 'FileHandle';
   6 :     use B::Deparse;
   7 :     sub each_line {
   8 :         my $fh      = shift;
   9 :         my $coderef = shift;
  10 :         my $bd      = B::Deparse->new;
  11 :         warn $bd->coderef2text($coderef);
  12 :         while ( my $line = $fh->getline ) {
  13 :             $coderef->( $fh, $line );
  14 :         }
  15 :     }
  16 : }

鐃緒申鐃緒申函鐃�each_line鐃緒申鐃銃ばわ申鐃緒申鐃緒申鐃�

{
    use warnings;
    use strict 'refs';
    my($fh, $line) = @_;
    printf '%4d : %s', $fh->input_line_number, $line;
} at deparse.pl line 11.

鐃夙出てわ申鐃暑。

鐃潤ソ鐃獣ドわ申妊鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�

鐃遵記鐃緒申鐃緒申如鐃緒申佞鐃�each_line()鐃緒申鐃緒申箸鐃銃び出わ申側鐃叔鰹申認鐃緒申鐃緒申鐃緒申鐃緒申鐃熟どわ申鐃緒申鐃緒申鐃緒申茲わ申鐃�?

鐃緒申鐃緒申鐃緒申鐃暑。

  15 : my $fh = MyFileHandle->new( shift, 'r' ) or die;
  16 : use B::Deparse;
  17 : my $bd = B::Deparse->new();
  18 : warn $bd->coderef2text($fh->can('each_line'));

鐃渋行わ申鐃緒申鐃夙￥申鐃緒申鐃緒申鐃淑る。

{
    package MyFileHandle;
    use warnings;
    use strict 'refs';
    my $fh = shift @_;
    my $coderef = shift @_;
    while (my $line = $fh->getline) {
        &$coderef($fh, $line);
    }
} at deparse.pl line 18.

鐃緒申鐃緒申鐃夙わ申鐃出￥申鐃叔バッワ申鐃緒申鐃緒申箸錣削申箸鐃潤ソ鐃獣ドのワ申鐃緒申鐃宿わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃叔わ申鐃緒申里鐃緒申鐃�

Data::Dumper鐃緒申Storable鐃緒申鐃夙み刻申錣誌申鐃�

鐃渋わ申Data::Dumper鐃緒申Storable鐃盾、B::Deparse鐃薯サポ￥申鐃夙わ申鐃銃わ申鐃暑。鐃緒申鐃緒申鐃緒申鐃緒申鐃術わ申鐃緒申函鐃�code reference鐃緒申鐃緒申鐃縮のワ申鐃瞬ワ申鐃緒申鐃緒申鐃夙のよう鐃祝逸申鐃獣わ申鐃所、鐃緒申鐃所ア鐃初イ鐃緒申鐃緒申鐃緒申鐃所す鐃暑こ鐃夙わ申鐃緒申単鐃祝緒申鐃緒申襦ｏ申椶鐃緒申鐃緒申呂鐃緒申譴常申鐃塾マニュア鐃緒申鮖仮箸里鐃緒申函鐃�

鐃殉とわ申

鐃淑常申里茲�鐃祝￥申B::Deparse鐃熟初心鐃峻わ申鐃緒申鐃緒申圓泙如鐃緒申造忙箸鐃緒申个里鐃緒申鐃盾ジ鐃遵ー鐃緒申任鐃緒申襦ｏ申鐃緒申鐃塾わ申鐃緒申鐃緒申鐃叔わ申鐃縦てはデバッワ申鐃緒申鐃緒申辰討鐃緒申鐃緒申鐃緒申箸發鰹申鐃叔ほとわ申百屬帽腓�鐃処う鐃祝なっわ申鐃緒申Ruby鐃緒申Python鐃叔はどわ申鐃緒申鐃銃わ申鐃緒申里鐃緒申鐃緒申鐃緒申鐃�....

Dan the Perl Monger