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?"@$rown";
	}
	
	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};
	?
}