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

slwj

請(qǐng)教下，下面的這段代碼是PERL的什么用法？

if( $tgzfilename  =~ /.*(.)(.)(.)((.)(.)(.)(.)(.))$/ )  //這里的(.)代表什么
        {
                my $the5 = $1;
                my $last5 = $4; //這里的$1和$4分別代表上面的第2個(gè)和第5個(gè)(.)嗎
                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

正則表達(dá)式的用法.

取最后的8個(gè)字符

slwj

q1208c 發(fā)表于 2014-03-21 11:20
正則表達(dá)式的用法.

取最后的8個(gè)字符

多謝！
          my $the5 = $1;  //這里的$1代表后面8個(gè)字符里的從前往后數(shù)的第2個(gè)嗎
               my $last5 = $4;

q1208c

回復(fù) 3# slwj


    應(yīng)該不是, $1 表示是第一個(gè)()里的內(nèi)容.

slwj

q1208c 發(fā)表于 2014-03-21 13:02
回復(fù) 3# slwj

多謝！

這里的
if( $tgzfilename  =~ /.*(.)(.)(.)((.)(.)(.)(.)(.))$/ )
有雙層括號(hào)的嵌套，起什么作用？

q1208c

回復(fù) 5# slwj


    應(yīng)該是后面的5個(gè)字符, 是新的一組了, 但是, 你要測(cè)試一下才知道是$9 還是 $4.

zhlong8

左括號(hào)優(yōu)先不論匹配的右括號(hào)在哪里

ytphrx

點(diǎn)號(hào)是通配符，只代表一個(gè)字符。括號(hào)是群組，左右為一對(duì)，最后匹配的結(jié)果存儲(chǔ)在$1,$2...中，從左邊向右邊數(shù)左括號(hào)，第一個(gè)左括號(hào)與配對(duì)的右括號(hào)匹配的值存儲(chǔ)在$1中，依次類(lèi)推。

skyyy90

學(xué)習(xí)一下:wink:

fender0107401

(.)(.)

看著好像咪咪。。。