0

我正在尝试编写一个使用 perl 查找和替换字符的 bash 函数。我写了以下函数:

find_replace() {
 perl -p -i -e "s/$1/$2/g" "$3"

}

我认为它现在不起作用,因为 $1 和 $2 被围绕它们的引号转义(据我所知,这是需要存在的 perl 语法的一部分)。

有关如何使此功能起作用的任何提示(或避免此问题的更好的编写方法)?

编辑:

按照 Barmar 的建议,这是我尝试运行该函数时的输出:

dholtz$ find_replace \001 , revenue_by_offer_tid
+ find_replace 001 , revenue_by_offer_tid
+ perl -p -i -e ''\''s/001/,/g'\''' revenue_by_offer_tid
++ update_terminal_cwd
++ local 'SEARCH= '
++ local REPLACE=%20
++ local PWD_URL=file://Dave-Mac-2.local/Users/dholtz
++ printf '\e]7;%s\a' file://Dave-Mac-2.local/Users/dholtz
dholtz$ head revenue_by_offer_tid
+ head revenue_by_offer_tid
Friday00228686050.0
Friday00228690410.0
Friday017438366585.040000000000004
Friday017438366591.3200000000000003
Friday017438366600.12
Friday0174383666114.759999999999962
Friday017438371407.440000000000006
Friday0174383815118.599999999999977
Friday017438382221.5600000000000005
Friday017438383663.480000000000002

预期输出为:

Friday,0,0,22,86860,50.0
Friday,0,0,22,86904,10.0
Friday,0,1,7438,36658,5.040000000000004
Friday,0,1,7438,36659,1.3200000000000003
Friday,0,1,7438,36660,0.12
Friday,0,1,7438,36661,14.759999999999962
Friday,0,1,7438,37140,7.440000000000006
Friday,0,1,7438,38151,18.599999999999977
Friday,0,1,7438,38222,1.5600000000000005
Friday,0,1,7438,38366,3.480000000000002
4

2 回答 2

0

反斜杠阻止引号被正确处理

find_replace() {
  perl -p -i -e "s/$1/$2/g" "$3"    
}
于 2013-03-01T02:22:27.620 回答
0

bash手册告诉:

不带引号的反斜杠 (\) 是转义字符。它保留后面的下一个字符的文字值,...

因此,正如我们在上面的输出中看到的,您的命令

find_replace \001 , revenue_by_offer_tid

被视为 (\ 只是不必要地保留了 0)

find_replace 001 , revenue_by_offer_tid

- 不是你想要的。要保留反斜杠,您必须在输入的命令行中引用它,例如

find_replace \\001 , revenue_by_offer_tid
于 2014-06-03T13:15:42.973 回答