Perl 排序

最新推荐文章于 2020-05-23 18:16:31 发布

scan724

最新推荐文章于 2020-05-23 18:16:31 发布

阅读量498

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl高级编程

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/42047401

Perl高级编程专栏收录该内容

41 篇文章 ¥39.90 ¥99.00

订阅专栏

这篇博客展示了如何使用Perl进行排序操作，如对元素数组排序，并打印排序后的结果。此外，还演示了如何打开并读取Linux下 `/etc/passwd` 文件，逐行获取并打印第三字段的内容。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

[oracle@june2 2]$ cat 1.pl 
my @elements = sort qw(hydrogen helium lithium athton);
print "\@elements is @elements\n";
[oracle@june2 2]$ perl 1.pl 
@elements is athton helium hydrogen lithium

---去除uid

[oracle@june2 2]$ cat 3.pl 
open (FILE,"<","/etc/passwd") || die "cannot open the file:$!\n";  
my @temp=<FILE>;  
foreach  (@temp) {  
my $var =  (split /:/,"$_")[2];
print "$var\n";
}  
close FILE; 
[oracle@june2 2]$ perl 3.pl 
0
1
2
3
4
5
6
7
8
9