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"; 
 
 

图示