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

轉載于:https://blog.51cto.com/raugher/1561839

總結

以上是生活随笔為你收集整理的Perl常用语法记录的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。