' "abcdefg"&"1111"&"11""  23sdsd" '
复制代码

my $raw = '"12"& """""" &"34" & """" & 56 & "-" & ""';
my @buff = split( //, $raw );

my $result = full_string();
printf "\nResult:%s\n", $result;

sub full_string
{
    # unit
    # full_string & unit

    my $left = unit();
    while (1)
    {
        printf "full_string: %s\n", $left;
        my $token = shift @buff;
        if ( $token =~ /&/ )
        {
            # 忽略& 右边的空格
            shift @buff unless $buff[0] ne " ";
            $left .= unit();
            #printf "full_string: %s\n", $left;
        }
        # 忽略 & 左边的空格
        elsif ( $token eq " " )      { next; }
        elsif ( not defined $token ) { return $left; }
        else { printf "unknow case:%s, left: %s\n", $token, join("", @buff); }
    }

    printf "full_string: %s\n", $left;
}

sub unit
{
    # /"/ inner /"/
    # number

    my $token = shift @buff;
    if ( $token =~ /\d/ )
    {
        my $number = $token;
        while ( scalar(@buff) > 0 and $buff[0] =~ /[\d\.]/ )
        {
            $number .= shift @buff;
        }

        printf "number:%d\n", $number;
        return $number;
    }
    elsif ( $token =~ /"/ )
    {
        my $inner = inner();
        $token = shift @buff;
        if ( not defined $token or $token !~ /"/ )
        {
            warn "wrong inner string, not ending by \"";
        }
        return $inner;
    }
    elsif ( $token =~ " " )  { return ""; }
    else                     { warn "what ?"; }
}

sub inner
{
    # escape
    # string
    # empty
    # string include escape
    my $string = "";

    while (1)
    {
        my $token = shift @buff;
        return $string unless defined $token;

        if ( $token =~ /"/ )
        {
            if ( scalar(@buff) >= 2 and $buff[0] =~ /"/ )
            {
                $string .= q/"/;
                shift @buff;
            }
            # 如果处于最末尾
            elsif ( scalar(@buff) == 0 )
            {
                unshift @buff, $token;
                return $string;
            }
            # 如果一个双引号引用的字符串完结，返回阶段性结果
            elsif ( scalar(@buff) > 2 and join("", @buff) =~ /^\s*&/ )
            {
                unshift @buff, $token;
                printf "inner: $string\n";
                return $string;
            }
            else
            {
                warn "something wrong: " .join("", @buff);
            }
        }
        else
        {
            $string .= $token;
        }
    }
}
复制代码

full_string:
    unit
    full_string & unit

unit:
    "inner"  //字符串
    number   //数值 - 没有双引号

inner:
    escape //双引号转义
    string //双引号内的字串
    empty  //空白
    string include escape //包含双引号转义的字串
复制代码

inner: 12
full_string: 12
inner: ""
full_string: 12""
full_string: 12""
inner: 34
full_string: 12""34
full_string: 12""34
inner: "
full_string: 12""34"
full_string: 12""34"
number:56
full_string: 12""34"56
full_string: 12""34"56
inner: -
full_string: 12""34"56-
full_string: 12""34"56-
full_string: 12""34"56-

Result:12""34"56-
复制代码