求教，这是PERL的什么用法？

slwj

请教下，下面的这段代码是PERL的什么用法？

if( $tgzfilename  =~ /.*(.)(.)(.)((.)(.)(.)(.)(.))$/ )  //这里的(.)代表什么
        {
                my $the5 = $1;
                my $last5 = $4; //这里的$1和$4分别代表上面的第2个和第5个(.)吗
                my $PBID = &getSymbol("ECOTS_SD_HIFIXNUMBER");
                if( ($PBID =~ /^8[dD]/ and $the5 != 2) or ( $PBID =~ /^2[dD]/ and $the5 != 1 ) )
                {
                        &popupErrMsg("PBID DUT Number $PBID mismatch with test program fix character setting $the5.");
                        exit 1;
                }

                &setSymbol( "ECOTS_SD_CT_PROGRAM_REVISION", $last5 );
        }
多谢！

q1208c

正则表达式的用法.

取最后的8个字符

slwj

q1208c 发表于 2014-03-21 11:20
正则表达式的用法.

取最后的8个字符

多谢！
          my $the5 = $1;  //这里的$1代表后面8个字符里的从前往后数的第2个吗
               my $last5 = $4;

q1208c

回复 3# slwj


    应该不是, $1 表示是第一个()里的内容.

slwj

q1208c 发表于 2014-03-21 13:02
回复 3# slwj

多谢！

这里的
if( $tgzfilename  =~ /.*(.)(.)(.)((.)(.)(.)(.)(.))$/ )
有双层括号的嵌套，起什么作用？

q1208c

回复 5# slwj


    应该是后面的5个字符, 是新的一组了, 但是, 你要测试一下才知道是$9 还是 $4.

zhlong8

左括号优先不论匹配的右括号在哪里

ytphrx

点号是通配符，只代表一个字符。括号是群组，左右为一对，最后匹配的结果存储在$1,$2...中，从左边向右边数左括号，第一个左括号与配对的右括号匹配的值存储在$1中，依次类推。

skyyy90

学习一下:wink:

fender0107401

(.)(.)

看着好像咪咪。。。