waynechen

摘要： #!/usr/bin/perl@names = qw / fred betty barney dino wilma pebbles bamm-bamm /;@lines = <STDIN>;foreach (@lines){print "$names[$_-1]\n";} 阅读全文