PERL语言入门:第三章:列表与数组:习题2

输入数字， 并输出对应的字母

#!/usr/bin/perl -w
#先建一个数据库
@test = ('a'..'z');
@db = ();
print "请输入一串数字:";
$number = <STDIN>;
while($number > 0){
	$index = $number%10;
	#print "$test[$index-1]\n";
	unshift @db, $test[$index-1];
	#加入数组前面
	$number = int($number/10);
}
if($number < 0){
	print "你输入了个负数.\n";
}
print @db;
print "\n";

上面程序， while()里用>号， 说明这里只能输入数字， 当你输入字符时， 会报错。注意。

当字符串与上面的while()中的0比较时， 字符串如果是数字开头， 会转化为相应的数字， 否则会被自动转化为0