#!/usr/bin/perl
@names=qw(fred betty barney dino wilma pebbles bamm-bamm);
chomp(@lines=<STDIN>);
@ascii=sort(@lines);
print "@ascii\n";
本文提供了一个使用Perl语言进行数组排序的简单示例。通过读取标准输入中的行并将其排序,展示了如何处理文本数据的基本方法。
#!/usr/bin/perl
@names=qw(fred betty barney dino wilma pebbles bamm-bamm);
chomp(@lines=<STDIN>);
@ascii=sort(@lines);
print "@ascii\n";

被折叠的 条评论
为什么被折叠?