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 

题目： 

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

图示

总结

以上是内存溢出为你收集整理的perl脚本练习全部内容，希望文章能够帮你解决perl脚本练习所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。