#!/usr/bin/perl
@names = qw / fred betty barney dino wilma pebbles bamm-bamm /;
@lines = <STDIN>;
foreach (@lines){
print "$names[$_-1]\n";
}
转载于:https://www.cnblogs.com/waynechen/archive/2010/07/28/1787181.html
转载于:https://www.cnblogs.com/waynechen/archive/2010/07/28/1787181.html