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};	 }