如何檢查正則表達式是否匹配整個字符串？

Question

我有一個正則表達式，可以匹配這樣的東西：asdasd [text]; 一次只執行一次即可，但是如果有類似以下內容的話：

$badinput="add[2,5,525];print['peron'];print['asd','cgfg];time;print['iudofiusdoif'];"; #time should not be matched

這是現在的代碼：

verify($badinput);
sub verify
{
#returns 1 if it's ok, or the text that breaks the match
    my $inp = pop;
    if ($inp =~ /^(?:\w{2,6}\[(?<!\\\[).*?\](?<!\\\]);)+$/s)
    {
        return 1;
    }else{
        return 0; #should be the text that breaks the match or the char number
    };
}

無論第一個指令是否匹配，它都會返回1。 我該如何解決？

Answer 1

單程。 我的正則表達式與您的正則表達式相似，但沒有后顧之憂。

一個例子。 script.pl內容：

#! /usr/bin/perl

use warnings;
use strict;

while ( <DATA> ) {
        chomp;
        printf qq|%s ==> %s\n|, $_, ( m/^(\w{2,6}\[[^]]*\];)+$/ ) ? q|ok| : q|not ok|;
}

__DATA__
add[2,5,525];print['peron'];print['asd','cgfg];time;print['iudofiusdoif'];
add[2,5,525];print['peron'];print['asd','cgfg];print['iudofiusdoif'];

像這樣運行：

perl script.pl

具有以下輸出：

add[2,5,525];print['peron'];print['asd','cgfg];time;print['iudofiusdoif']; ==> not ok
add[2,5,525];print['peron'];print['asd','cgfg];print['iudofiusdoif']; ==> ok

Answer 2

sub verify
{
  return ($_[0] =~ m/^((?:\w{2,6}\[[^\]]*\];)+)$/)? 1 : 0;
}

在此處測試此代碼。