Perl常用語法記錄

##包的切換和調(diào)用其它包的方式 #package?A; #my?$a=10;#package?B; #print?$A::a; #print?$a;##local局部標(biāo)識符的使用 #$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##函數(shù)傳遞數(shù)組參數(shù)，改變數(shù)組的內(nèi)容，打印數(shù)組內(nèi)容 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變量聲明，賦值，循環(huán)輸出 my?%hHashinfo=('a'=>,'b'=>2);my?%hTableinfo=(); ###?讀取記錄數(shù)據(jù) while?(?my?@recs?=?$sth->fetchrow_array?)?{$hTableinfo{?$recs[0]?}?=?(?$recs[6]?-?$recs[3]?)?/?$recs[6];}foreach?my?$key?(?keys?%hTableinfo?)?{my?$value?=?$hTableinfo{$key};}

轉(zhuǎn)載于:https://blog.51cto.com/raugher/1561839

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。