Perlコーディング初心者質問スレ Part 56

[0019 nobodyさん 2007/09/17(月) 07:36:15 ID:???]

前スレ993へ
% cat Hoge.pm
package Hoge ;
use 5.005_02 ;
use vars qw( @ISA @EXPORT ) ;
use vars qw( $hoge ) ;
use subs qw( hoge ) ;
use Exporter ;
use Cwd ;
@ISA = qw( Exporter ) ;
@EXPORT = qw($hoge hoge ) ;
$hoge = 42 ;
sub hoge{ return 42 ;}
1;

% perl -Mstrict -Mwarnings -MHoge -le 'print $hoge; print hoge'

ってか朝っぱらから何やってんだろ俺。