題目：
12 34 56 7824 65 87 90
76 11 67 87
100 89 78 99
求出文字中數字的最大、小值
我看很多的朋友都用shell的awk實現了，但本人對awk不是很了解，試著用perl簡單的寫了一下，也能實現
code:
#!/usr/bin/perl -wuse strict;
use list::util qw(max min);
open my $file,'<
','e.txt' or die "$!\n";
my @array
= map
<
$file
>
; close $file;
print min(@array),"\n";
print max(@array),"\n";
第8行**的也可以這樣省略寫
my @array
= map
<
$file
>
; 或者這樣寫
my @array
= map
split,
<
$file
>
; 抓圖看一下：
output:
第二種方法：
#!/usr/bin/perl -wusestrict;
my @array
= ();
open file,'
,'e.txt'
ordie
"$!\n"
; while
()
close file;
@array
= sort @
array
; print "min:\n"
; print "\t$array[0]\n"
; print "max:\n"
; print "\t$array[$#array]\n"
; 圖示
perl 測試指令碼
修改日期 2010年01月09日 1.系統環境 系統版本 fedora6 x86 64 db2版本 db2 v9.5.0.3 perl版本 v5.8.8 系統自帶 perl dbi版本 perl dbi 1.52 1.fc6 系統自帶 dbd db2版本 dbd db2 1.76 2.安裝dbd d...
perl 重要練習
陣列，列表練習 小遊戲的例子 檔案練習 模式匹配練習 一道包括陣列 檔案和模式匹配的綜合練習題 編寫乙個短程式，是他能夠執行下列操作 1 開啟乙個檔案 2 將所有檔案行讀入乙個陣列 3 從每行中取出所有單詞 4 找出至少擁有4個連續子音或非原因字元的所有單詞 比如 thoughts 或者 yards...
指令碼入門（2） perl指令碼
一 注釋 pod 這裡的是注釋 cut 二 chomp 去掉換行符 n 去掉 chomp text 讀入，但不含換行符 三 line 一次讀一行，效能好。會帶有換行符，通常都會加上chomp 操作符去掉換行符，四 鑽石尖括號 使用兩個尖括號表示讀取來自檔案的輸入，可以從命令列中傳遞檔案到 當不注釋掉...