Perl列表及数组语法练习

2023年11月26日 544次阅读 来源: SophieSg

1. 读入一些字符串（每行一个），直到文件结尾。然后，以相反的顺序输出这个列表。

#!/usr/bin/perl
@lines = <STDIN>;
@lines = reverse @lines;
print @lines;

2. 读入一些数字（每行一个），直到文件结尾。然后，根据数字的顺序输出人名（人名是事先在代码中定义好的）。

#!/usr/bin/perl
@names = ("Tom", "Sandy", "Linda", "Lilei", "Kitty");
@lines = <STDIN>;
foreach $line (@lines) {
    print "$names[$line]\n";
}

3. 读入一些字符串（每行一个），直到文件结尾。然后以ASCII码的顺序输出这些字符串，以同行和换行两种方式输出。

3.1 同行输出

#!/usr/bin/perl
#@lines = <STDIN>;
chomp( @lines=<STDIN>);
@lines = sort @lines;
foreach $line (@lines) {
    print "$line\t";
}
print "\n";

3.2 换行输出

#!/usr/bin/perl
@lines = <STDIN>;
@lines = sort @lines;
print @lines;
    原文作者：SophieSg
    原文地址: https://www.jianshu.com/p/00e3e14bb3aa
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。
点赞