0

我正在尝试使用 perl 来搜索和替换一些过时的 MySQL 命令

perl -i -pe 'BEGIN{undef $/;} s/if @RequestID.*@NextValue=@TableNameID output/if @RequestID is not NULL\n                begin\n                        select @TableNameID = @TableNameID + 1/smgi' $file1

然而，目前该文件在暗示正则表达式不匹配之前和之后保持完全相同？

我smgi打开了标志，因此.*也匹配了从Multiline search 中获取建议的新行替换为 Perl

这是我要匹配的文件的片段

        if ( @@rowcount = 0 )
                return 1

        update Sequence set CurrentValue = @TableNameID where Code = 'TableName'
end

/* TableNames - Approval Request ID */
if @RequestID is not NULL
begin
        exec spGetNextSequence @Name='TableName', @NextValue=@TableNameID output

        insert into TableName        /* RequestID */
        (
                TableNameID,
                TxnVrsnID,
                FldNmCod,

如果您在http://regexpal.com/（或任何类似的正则表达式测试器）smi上测试模式 - 它匹配正常吗？

图案：if @ApprovalRequestID.*@NextValue=@TxnDecoratorID output

这是 perl 稍微分开的，所以你可以看到发生了什么

perl -i -pe 'BEGIN{undef $/;} s/
if @RequestID.*@NextValue=@TableNameID output/
if @RequestID is not NULL\n
                begin\n
                        select @TableNameID = @TableNameID + 1
/smgi' $file1
4

1 回答 1

5

@name被内插为正则表达式模式中的命名 Perl 数组。转义@字符：

perl -i -pe 'BEGIN{undef $/;} s/
if \@RequestID.*\@NextValue=\@TableNameID output/
if \@RequestID is not NULL\n
                begin\n
                        select \@TableNameID = \@TableNameID + 1
/smgi' $file1
于 2012-09-05T14:45:03.620 回答