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