Perl程序用空格替换制表符

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

谁能告诉我该怎么做？

最佳答案

这是在FAQ中:

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

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

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

关于Perl程序用空格替换制表符，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/5997404/