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