输入数字, 并输出对应的字母
#!/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