perl 如何取出一行中匹配到第2次的字段？

__lxmxn__

1. my $str='the first file is abc.jpg the second file is cba.jpg the third file is bac.jpg and';
   
2. if($str=~/\.jpg.*?(\w+\.jpg)/){
   
3.     print 'filename is ',$1;
   
4. }
   

复制代码

__lxmxn__

1. #!perl -w
   
2. print "输入jpg文件名的序号,倒序的使用负数表示:\n";
   
3. my $select=<STDIN>;
   
4. chomp $select;
   
5. my $str='the first file is abc.jpg the second file is cba.jpg the third file is bac.jpg and def.jpg the end';
   
6. my @jpgarray=($str=~/[^\W]*\.jpg/g);
   
7. if($select<0){
   
8.     print "FileName is $jpgarray[$select]\n";
   
9. }else{
   
10.     print "Filename is $jpgarray[--$select]\n";
    
11. }

复制代码