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