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

前端之家收集整理的这篇文章主要介绍了有没有更好的方法来使用Perl来分离(扩展标签)?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我想要删除我的源文件. (请注意,为什么我想要删除我的消息来源没有火焰.这不是重点:-)我找不到一个实用程序来做到这一点. 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的精神,我很好奇其他方法.

ü.

解决方法

我记得有一本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

猜你在找的Perl相关文章