2011-01-19から1日間の記事一覧
Sample.pm package Sample; sub new { my $class = shift; bless {}, $class; } 1; sample.pl #!/usr/bin/perl use Sample; my $obj = (); # NG $obj = Sample::new; # OK $obj = Sample::new('Sample'); $obj = Sample->new; 参考 http://www.rwds.net/kur…