perl脚本练习

题目： 

12 34 56 78  
24 65 87 90  
76 11 67 87  
100 89 78 99 

求出文本中数字的最大、小值 

我看很多的朋友都用shell的awk实现了，但本人对awk不是很了解，试着用perl简单的写了一下，也能实现

code:

#!/usr/bin/perl -w 
 
use strict; 
use List::Util qw(max min); 
 
open my $file,'<','e.txt' or die "$!\n"; 
 
my @array = map {split /\s+/} <$file>; 
 
close $file; 
 
print min(@array),"\n"; 
print max(@array),"\n"; 

第8行代码的也可以这样省略写

my @array = map {split} <$file>; 

或者这样写

my @array = map split,<$file>; 

抓图看一下：

output:

第二种方法：

#!/usr/bin/perl -w 
 
use strict; 
 
my @array = (); 
 
open FILE,'<','e.txt' or die "$!\n"; 
 
while (<FILE>) { 
       chomp; 
       push @array,split; 
} 
 
close FILE; 
 
@array = sort {$a<=>$b} @array; 
 
print "Min:\n"; 
print "\t$array[0]\n"; 
print "Max:\n"; 
print "\t$array[$#array]\n"; 

图示