用perl 取最大數(shù)和最小數(shù)

kernel69

這是shell版的一個帖子，想用perl命令行解決，但沒找到合適的方法，還請perl大牛們幫忙啊
現(xiàn)在有這樣一個文加件的列表


aaa_bbb_1
aaa_bbb_11
aaa_bbb_12
~
aaa_bbb_19
aaa_bbb_2
aaa_bbb_21
~
aaa_bbb_29

aaa_bbb_3
.....




最后想要得到的結果是

bbb  最小的數(shù)-最大的數(shù)

比如
bbb   1-29

這樣的一個統(tǒng)計效果。

用perl命令行模式怎么寫？

蘭花仙子

A homework question?

$ perl -nle 'push @a,$1 if /bbb_(\d+)/; END{($min,$max)=(sort {$a<=>$b} @a)[0,-1];print "$min $max"}' data.txt
1 29

kernel69

版主，文本格式是bbb 1-29
還有一個想請教，

1. ($min,$max)=(sort {$a<=>$b} @a)[0,-1]

復制代碼

代碼中=()[0,-1]不太明白什么意思，sort出來的值怎么就能用[0,-1]調用了那？回復 2# 蘭花仙子


   

wsxedcer

回復 3# kernel69


    sort 大小排序， [0,-1] 數(shù)組切片