2008-03-21から1日間の記事一覧

OOP

クラスの基本 use strict; { package Person; use Carp qw(croak); #クラス変数 my $class_var = 'hoge'; #コンストラクタ sub new { ref (my $class = shift) and croak("warn: method 'new' is class method"); my $self = {Name => shift}; bless $self, …

シフト演算

perlでは算術右シフトはできないっぽい printf("-2 >> 1 is %d\n", -2 >> 1); 2 >> 1 is 2147483647 と表示される。試しに、自作関数で2進数表記にしてみると print &decimal2binary(-2), "\n"; print &decimal2binary(-2 >> 1), "\n"; sub decimal2binary {…