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

发布时间：2020-12-15 23:31:46 所属栏目：大数据来源：网络整理

导读：我想要删除我的源文件. (请注意,为什么我想要删除我的消息来源没有火焰.这不是重点:-)我找不到一个实用程序来做到这一点. Eclipse没有为我做,所以我实现了自己的. 我无法将其纳入单线程(-e)程序. 我带来了以下,完成了这项工作. while( ){ while( /t/ ) { s/

我想要删除我的源文件. (请注意,为什么我想要删除我的消息来源没有火焰.这不是重点:-)我找不到一个实用程序来做到这一点. 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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!