用perl 取最大数和最小数

kernel69

这是shell版的一个帖子，想用perl命令行解决，但没找到合适的方法，还请perl大牛们帮忙啊
现在有这样一个文加件的列表


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  最小的数-最大的数

比如
bbb   1-29

这样的一个统计效果。

用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] 数组切片