Learning Perl 第3章习题答案

weixin_34126215

于 2017-11-09 16:20:00 发布

阅读量83

点赞数

CC 4.0 BY-SA版权

原文链接：https://yq.aliyun.com/articles/371488

本文介绍了使用Perl进行列表操作的方法，包括列表打印、按索引打印和列表内容的不同输出方式。通过示例代码展示了如何正向及反向遍历列表，以及如何根据索引访问列表中的特定元素。

原文发表在网易博客 2010-11-04 21:22:33

3.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";
}

本文转自leipei博客园博客，原文链接：http://www.cnblogs.com/leipei2352/archive/2011/05/25/2057469.html，如需转载请自行联系原作者