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

Answer 5

不能让vi孤身一人。 emacs的：

M-x tabify
M-x untabify

Answer 6

我在vim中这样做：

:%s/^V^I/    /g

（这是一个文字 ^ V 后跟一个文字标签），然后是:%gq来修复错误的间距。 Perl太过分了。

Answer 7

确切的表达是：

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

扩展对于不在程序内部的命令行很有用，可能会扩展或不扩展某些行。

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

7 个答案: