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

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

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

while( <> ){    while( /\t/ ) {        s/^(([^\t]{4})*)\t/    /;        s/^((([^\t]{4})*)[^\t]{1})\t/   /;        s/^((([^\t]{4})*)[^\t]{2})\t/  /;        s/^((([^\t]{4})*)[^\t]{3})\t/ /;    }    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来分离(扩展标签)？全部内容，希望文章能够帮你解决有没有更好的方法来使用Perl来分离(扩展标签)？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。