awk 替换单引号

Question

我想用include(' 替换一组文件中的所有include('./。我正在尝试按如下方式使用 awk：

awk '{gsub("include\('"'"'./", "include\('"'"'", $0); print > FILENAME}' *.php

它向我抛出了这个错误。

awk: (FILENAME=xyz.php FNR=1) fatal: Unmatched ( or \(: /include('.//

任何帮助将不胜感激。

Answer 1

@OP，您可以尝试使用八进制代码作为单引号（\047）和正斜杠（\057），例如

$ cat file
include('./
$ awk '{gsub(/include\(\047\.\057/ , "include(\047" ) }1' file
include('

Answer 2

这可行（在“打印”上没有 I/O 重定向）：

awk '{gsub(/include\('"'"'.\//, "include\('"'"'", $0); print }' # Wrong
awk '{gsub(/include\('"'"'.\//, "include('"'"'", $0); print }'  # Right

它映射这个输入：

include('./abc')
include('x/abc')

到：

include('abc')
include('abc')

根据经验，正则表达式似乎必须在斜杠内；替换字符串必须是常规字符串。您需要将“.”映射到“\.”以停止第二次替换。

我对这个解释不太满意。 MacOS X 上 'awk' 的手册页说：

/re/ 是一个常量正则表达式；任何字符串（常量或变量）都可以用作正则表达式，但模式中孤立正则表达式的位置除外。

因此，理论上，您使用的字符串形式应该可以工作。根据经验，它没有。我收到的错误消息与您对代码所做的错误消息基本相同。而且你得到了正确的 shell 引号，这很重要。

有时 Perl 可能更容易（因为您可以选择任意分隔符来标记正则表达式的边界）：

perl -pe "s%include\('\./%include('%g"

Answer 3

试试这个：

awk '{gsub("include(\'"'"'./", "include\('"'"'", $0); print > FILENAME}' *.php

你放错了反斜杠

或者这个：

 awk '{gsub("include(\'./", "include(\'", $0); print > FILENAME}' *.php

这个怎么样？

awk '{gsub("include(\47./", "include(\47", $0); print > FILENAME}' *.php

你有没有尝试过而没有逃避任何事情

awk '{gsub("include('./", "include('", $0); print > FILENAME}' *.php

Answer 4

如果您只想这样做，则无需使用awk。 :) 另外，在读取文件的同时写入文件会导致数据丢失或损坏，尽量不要这样做。

for file in *.php ; do
# or, to do this to all php files recursively:
# find . -name '*.php' | while read file ; do
  # make backup copy; do not overwrite backup if backup already exists
  test -f $file.orig || cp -p $file $file.orig
  # awk '{... print > NEWFILE}' NEWFILE="$file" "$file.orig"
  sed -e "s:include('\./:include(':g" "$file.orig" >"$file"
done

---

只是为了澄清数据丢失方面：当awk（或sed）开始处理文件并且您要求他们读取第一行时，他们实际上将执行缓冲读取，即他们将从文件系统（让我们简化并说“来自磁盘”）一个与其内部读取缓冲区一样大的数据块（例如 4-65KB），以便获得更好的性能（通过减少磁盘 I/O）。假设你的文件重新工作大于缓冲区大小。进一步的读取将继续来自缓冲区，直到缓冲区耗尽，此时第二个数据块将从磁盘加载到缓冲区等。

但是，在您读取第一行之后，即在第一块数据从磁盘读取到缓冲区之后，您的 awk 脚本会打开输入文件本身 FILENAME，用于写入 截断，即磁盘上的文件大小重置为 0。此时，您原始文件的所有剩余部分都是awk 内存中的前几千字节数据。 Awk 将愉快地继续从内存缓冲区中逐行读取并产生输出，直到缓冲区耗尽，此时awk 可能会停止并为您留下一个 4-65k 的文件。

附带说明，如果您实际上使用 awk 来扩展（例如 print "PREFIX: " $0），而不是收缩（gsub(/.../, "")）数据，那么您几乎肯定会以无响应的 awk 和一个不断增长的文件。 :)