匹配后停止正则表达式选择第一个字符

Question

我有以下格式的csv；

"12345"|"ABC"|"ABC"[tab delimeter]
"12345"|"ABC"|"ABC"[tab delimeter]
"12345"|"ABC"|"ABC"[tab delimeter]

但是，选项卡也出现在文本中，我需要删除“”之前的选项卡。

我有以下正则表达式突出显示选项卡，其后没有“ \\t[^\\"]但是突出显示了选项卡后的字符，我只想选择并删除选项卡。

注意：不确定这是否重要，但是我先在TextPad中运行命令，然后再在Perl中运行它。

编辑测试数据http://pastebin.com/dYfrcSPc

Answer 1

使用这个：

\t(?!")

表示tab符，后面不能有"字符。

Answer 2

如果您无法下载适当的CSV模块（例如Text::CSV ，则可以使用作为核心部分的轻量级替代方案： Text::ParseWords ：

use strict;
use warnings;
use Text::ParseWords;

while (<DATA>) {
    my @list = quotewords('\t', 1, $_);
    tr/\t//d for @list;
    print join "\t", @list;
}

__DATA__
"12345"|"ABC    "|"ABC" next field
"12345"|"ABC"|" ABC"    next field
"123    45"|"ABC"|"ABC" next field

（注意：制表符可能已被stackoverflow格式破坏了）

这将解析行并忽略带引号的制表符。 然后，我们可以简单地将它们删除并将线放回原处。

Answer 3

好吧，最简单的方法是在后面使用负数...

s/(?<!")\t//g;

...因为它将仅匹配那些不以"字符开头 " tab符。但是，如果您的perl不支持它，请不用担心-还有另一种方法：

s/([^"])\t/$1/g;

...也就是说，仅用该符号替换任何非"后跟\\t符号。