Perl常用语法记录

##包的切换和调用其它包的方式
#package A;
#my $a=10;#package B;
#print $A::a;
#print $a;##local局部标识符的使用
#$aa=20;
#{
#	local $aa;
#	$aa=10;
#	print "$aa \n";
#	
#}#print $aa;##别名的使用
=comment
$b=10;
$a=1;
$c=200;
{local *b;*b=*a;$b=20;print "$a \n";}*d=*c;
$d=100;print "$a \n";
print "$b \n";
print "$c \n";
print "$d \n";
=cut##函数传递数组参数，改变数组的内容，打印数组内容
my @array=(10,20);
xxxx(\@array);
print "@array \n";
sub xxxx{my $copy=shift;foreach $item (@$copy){$item=$item*2;} for $row ($copy) {print "@$row\n";}print "@$copy \n";}##hash变量声明，赋值，循环输出
my %hHashinfo=('a'=>,'b'=>2);my %hTableinfo=();
### 读取记录数据
while ( my @recs = $sth->fetchrow_array ) {$hTableinfo{ $recs[0] } = ( $recs[6] - $recs[3] ) / $recs[6];}foreach my $key ( keys %hTableinfo ) {my $value = $hTableinfo{$key};}