自定義模塊(iprint.pm文件)
package iprint;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(ihash);
sub ihash{
my $h=shift;
for my $k(sort keys %$h){
print $k,"\t",$h->{$k},"\n";
}
}
1;
調用
package iprint;
require Exporter;
use lib;
use iprint;
my %h=("a"=>1,"b"=>2,"c"=>3);
ihash(\%h);