[oracle@june2 2]$ cat 1.pl
my @elements = sort qw(hydrogen helium lithium athton);
print "@elements is @elements
";
[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:$!
";
my @temp=<FILE>;
foreach (@temp) {
my $var = (split /:/,"$_")[2];
print "$var
";
}
close FILE;
[oracle@june2 2]$ perl 3.pl
0
1
2
3
4
5
6
7
8
9