DicParams.pm

#!perl
#参数字典


use warnings;
use strict;


package DicParams;


sub new
{
my($this,@argv) = @_;
my %this =();
foreach(@argv)
{
#my($val_name,$val_value) = split /=/; #对参数中有=的情况解析出错
my $index = index $_,"=";
next if $index < 0;
my $val_name = substr($_,0,$index);
my $val_value = substr($_,$index+1);
$this{$val_name} = $val_value;
}
bless(\%this,$this);
return \%this;
}


1;