作者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