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 () {
       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";

图示