作者dryman (dryman)
看板Perl
標題[問題] 如何將這段縮短？
時間Tue Jun 15 23:23:17 2010
@mylist = <$dir1/*.tif>;
$_ = pop @mylist;
/Img.(\d*)./;
$last_img_number = $1;
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.46.30
1F：→ dryman:pop <$dir1/*.tif> 會出現錯誤 ~"~ 06/15 23:23
※ 編輯: dryman 來自: 140.112.46.30 (06/15 23:24)
2F：→ dryman:唔，想不出來orz||| 我對 perl regexp 的奇怪技巧比較沒涉 06/15 23:46
3F：→ dryman:獵 06/15 23:46
4F：→ frank1983:($number) = (<$dir1/*.tif>)[-1] =~ /Img.(\d*)./; 06/16 03:40
5F：→ dryman:酷～ 感謝樓上 原來只要用小括號就可以直接把它當arr用了 06/16 07:23
6F：→ dryman:如果只要數字的話 06/19 11:30
7F：→ dryman:(&number) = (<$dir1/*.tif>)[-1]=~/(?=Img.)(\d*)(?=.)/; 06/19 11:31