[問題] 如何將這段縮短？

[dryman (dryman)]

@mylist = <$dir1/*.tif>;
$_ = pop @mylist;
/Img.(\d*)./;
$last_img_number = $1;

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.46.30
→ dryman:pop <$dir1/*.tif> 會出現錯誤 ~"~
※ 編輯: dryman          來自: 140.112.46.30        (06/15 23:24)
→ dryman:唔，想不出來orz||| 我對 perl regexp 的奇怪技巧比較沒涉
→ dryman:獵
→ frank1983:($number) = (<$dir1/*.tif>)[-1] =~ /Img.(\d*)./;
→ dryman:酷～ 感謝樓上  原來只要用小括號就可以直接把它當arr用了
→ dryman:如果只要數字的話
→ dryman:(&number) = (<$dir1/*.tif>)[-1]=~/(?=Img.)(\d*)(?=.)/;