仅替换引号之间的空格

Question

我有来自日志文件的行：

field 1234 "text in quotes" 1234 "other text in quotes"

我想替换引号之间的空格，这样我就可以使用空格作为分隔符来提取列。所以结果可能是

field 1234 "text@in@quotes" 1234 "other@text@in@quotes"

我自己无法找到 sed 的工作正则表达式。 非常感谢您的帮助。 马丁

Answer 1

红宝石(1.9+)

$ cat file
field 1234 "text in quotes" 1234 "other text in quotes"

$ ruby -ne 'print $_.gsub(/(\".*?\")/){|x| x.gsub!(/\s+/,"@") }'  file
field 1234 "text@in@quotes" 1234 "other@text@in@quotes"

Answer 2

通过使用双引号作为 RS，所有偶数记录都是双引号内的记录。替换那些偶数记录中的空间。由于输出记录分隔符默认为换行符，请将其更改为双引号。

awk 'BEGIN {RS="\"";ORS="\"" }{if (NR%2==0){gsub(/ /,"@",$0);print $0}else {p
rint $0}}' InputText.txt

Answer 3

如果您决定将 sed 替换为功能更丰富的 perl，那么这里有一个行可以满足您的需求：

line='field 1234 "text in quotes" 1234 "other text in quotes"'
echo $line | perl -pe 's#("[^"]*")#sub{$p=$1; $p =~ tr/ /@/; return $p}->()#eg'

Output: field 1234 "text@in@quotes" 1234 "other@text@in@quotes"

Answer 4

通过以下 awk 命令传输日志文件：

awk -F\" '{OFS="\"";for(i=2;i<NF;i+=2)gsub(/ /,"@",$i);print}'

Answer 5

感谢您的所有回答。

这是我最终使用的 Perl 单行代码：

perl -pe 's{("[^\"]+")}{($x=$1)=~s/ /@/g;$x}ge'

它会生成 required

field 1234 "text@in@quotes" 1234 "other@text@in@quotes"

。