脚本 Perl - 什么问题

sunzhiguolu

这条语句好像有问题, 不知道哪里出错了.

1. 
   
2. if ($sInput =~ m?\A([0-9]+(?:\.[0-9]*)?)\s*([cf])?i){
   
3.    #...               
   
4.    $sType = $2;
   
5.    if ($sType =~ m/c/i){
   
6.       $sC = $1;
   
7.       #...
   
8.    }else{
   
9.       #...
   
10.    }
    
11. }
    

复制代码

谢谢大家...

zhonghua7896321

第一句：if ($sInput =~ m?\A([0-9]+(?:\.[0-9]*)?)\s*([cf])?i，为什么要用问号“？”来做分隔符？
换成其他的吧，比如"/"
if ($sInput =~ m/\A([0-9]+(?:\.[0-9]*)?)\s*([cf])/i){

sunzhiguolu

回复 2# zhonghua7896321
就是想达到这样的效果, 不知道能否实现.

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($sFirst, $sLast);
   
6. foreach (qw (cat cab separator cabby)){
   
7.         $sFirst = $1 if m?(ca.*)?;
   
8.         $sLast = $1 if m/(ca.*)/;
   
9. }
   
10. 
    
11. printf "First Match: <%s>, Last Match: <%s>\n", $sFirst, $sLast;

复制代码

zhonghua7896321

问号在正则里边表示匹配0或1次，为什么你要用问号来做分隔符呢？

sunzhiguolu

回复 4# zhonghua7896321
运行一下就明白我说的意思了.