Perl常用文法記錄

標籤：perl

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

本文出自 “與IT一起的日子” 部落格，請務必保留此出處http://raugher.blog.51cto.com/3472678/1561839

Perl常用文法記錄