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,'
页:
[1]