Learning Perl 第3章习题答案
原文发表在网易博客 2010-11-04 21:22:333.1 列表打印
#从STDIN中读取每个列表值时,都会经过chomp的处理,因此每个列表元素都被去掉了结尾的换行符
chomp(@lines=<STDIN>);
print "print the list\n";
foreach$line (@lines){
print "$line\t";
}
print "\n";
print "print the list reverse\n";
@lines_reverse=reverse(@lines);
foreach $list (@lines_reverse){
print "$list\t";
}
3.2 按索引打印已有列表
#print array2
@namelist=qw(fred barney betty wilma dino);
chomp(@indexlist=<STDIN>);
print "@namelist";
foreach $index (@indexlist){
print "the $index element in list is :\t$namelist[$index]\n";
}
3.3 列表内容以同行和不同行方式输出
chomp(@namelist=<STDIN>);
@sortedNamelist=sort(@namelist);
print "print in one line:\t@{sortedNamelist}\n";
print "print elements in list in different lines;\n";
foreach $element (@sortedNamelist){
print "$element\n";
}
页:
[1]