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);