[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
Perl 排序
最新推荐文章于 2020-05-23 18:16:31 发布