有没有更好的方法来使用Perl来分离(扩展标签)？

Question

我想要删除我的源文件.(请注意,为什么我想要删除我的消息来源没有火焰.这不是重点:-)我找不到一个实用程序来做到这一点.Eclipse没有为我做,所以我实现了自己的.

我无法将其纳入单线程(-e)程序.我带来了以下,完成了这项工作.

while( <> )
{
    while( /\t/ ) {
        s/^(([^\t]{4})*)\t/$1    /;
        s/^((([^\t]{4})*)[^\t]{1})\t/$1   /;
        s/^((([^\t]{4})*)[^\t]{2})\t/$1  /;
        s/^((([^\t]{4})*)[^\t]{3})\t/$1 /;
    }
    print;
}

然而,这让我想知道Perl--处理文本的冠军语言 - 是否是正确的工具.代码看起来不是很优雅.如果我必须删除假设tab = 8空格的源代码,代码看起来会更糟.

特别是因为我可以想到一个只有4个状态的确定性状态机来完成这项工作.

我觉得存在更优雅的解决方案.我错过了一个Perl成语吗？根据TIMTOWTDI的精神,我很好奇其他方法.

ü.

Answer 1

旧的Unix程序发生了什么？"扩展"？我曾经一直使用它.

Answer 2

我记得有一本O'Reilly书中的详细脚本,但我现在似乎无法找到链接.

我也不得不解决这个问题,我决定使用这个简洁的解决方案来解释一条线:

1 while $line =~ s/\t/" " x ($tablength - ($-[0] % $tablength))/e ;

在此正则表达式$-[0]中,该行的"预匹配"部分的长度 - 制表符之前的字符数.

作为单线:

perl -pe '1 while s/\t/" "x(4-($-[0]%4))/e' input

Answer 3

每当我想扩展标签时,我都会使用Text :: Tabs.

Answer 4

这可以在vim中轻松完成:

:set expandtab
:retab

http://vim.wikia.com/wiki/Converting_tabs_to_spaces