自定义模块(iprint.pm文件) package iprint; require Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(ihash); sub ihash{ my $h=shift;<