用空格替换制表符的Perl程序

Question

我想编写一个Perl单行代码,用空格替换当前目录中一批文本文件中的所有选项卡'\ t',对可见间距没有影响.

谁能告诉我怎么做？

Answer 1

这是在FAQ中:

1 while $string =~ s/\t+/' ' x (length($&) * 8 - length($`) % 8)/e;

或者您可以只使用该Text::Tabs模块(标准Perl发行版的一部分).

use Text::Tabs;
@expanded_lines = expand(@lines_with_tabs);

Answer 2

你不需要Perl单线程,你可以使用expand:

该扩展程序应写入文件或标准输入到标准输出字符需要垫下一个制表位的一个或多个字符替换.

该expand实用程序甚至会为您管理制表位,这似乎是您"对可见间距没有影响"要求的一部分,Perl单行可能不会(但我敢打赌,这里有人可以提供一个-liner那将).

Answer 3

使用Text :: Tabs.以下内容仅适用于文档:

perl -MText::Tabs -n -i.orig -e 'print expand $_' *

Answer 4

perl -p -i -e 's/\t/ /g' file.txt 将是一种方法来做到这一点