导入模块实例【PERL】

自定义模块（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);