2010-04-28から1日間の記事一覧
Post.pm package Post; use strict; use warnings; sub new{ my $class = shift; my $word = shift; return bless {'word'=>$word},$class; } sub wri{ my ($self,$arg) = @_; print $arg; } sub loop{ my $self = shift; for(my $i=0;$i<10;$i++){ print "$…