PTT數位生活區 / Perl

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

看板Perl作者 (dryman)時間15年前 (2010/06/15 23:23), 編輯推噓0(0推 0噓 7→)
留言7則, 2人參與, 最新討論串1/1
@mylist = <$dir1/*.tif>; $_ = pop @mylist; /Img.(\d*)./; $last_img_number = $1; -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.112.46.30
→
06/15 23:23, , 1F
pop <$dir1/*.tif> 會出現錯誤 ~"~
06/15 23:23, 1F
※ 編輯: dryman 來自: 140.112.46.30 (06/15 23:24)
→
06/15 23:46, , 2F
唔，想不出來orz||| 我對 perl regexp 的奇怪技巧比較沒涉
06/15 23:46, 2F
→
06/15 23:46, , 3F
獵
06/15 23:46, 3F
→
06/16 03:40, , 4F
($number) = (<$dir1/*.tif>)[-1] =~ /Img.(\d*)./;
06/16 03:40, 4F
→
06/16 07:23, , 5F
酷～ 感謝樓上 原來只要用小括號就可以直接把它當arr用了
06/16 07:23, 5F
→
06/19 11:30, , 6F
如果只要數字的話
06/19 11:30, 6F
→
06/19 11:31, , 7F
(&number) = (<$dir1/*.tif>)[-1]=~/(?=Img.)(\d*)(?=.)/;
06/19 11:31, 7F
‣ 更多 dryman 的文章
文章代碼(AID): #1C5vhdpW (Perl)
Perl 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 dryman 的文章
文章代碼(AID): #1C5vhdpW (Perl)