如何重复 Perl 正则表达式直到没有任何更改？

Question

I'm trying to write a simple command line script to fix some whitespace and need to replace occurrences of two spaces with a tab, but only if it appears at the beginning of the line (prefixed only by other tabs.)

I came up with s/^(\\t*) /\\1\\t/g; which works perfectly if I run through multiple passes, but I don't know enough about perl to know how to loop until the string didn't change, or if there is a regular expression way to handle it.

My only thought was to use a lookbehind but it can't be variable length. I'd be open to a non-regex solution if its short enough to fit into a quick command line script.

For reference, the current perl script is being executed like so:

perl -pe 's/^(\t*)  /$1\t/g'

Answer 1

Check a very similar question .

You could use 1 while s/^(\\t*) /$1\\t/g; to repeat the pattern until there are no changes left to make.

Answer 2

或者

perl -pe 's{^(\t*)((  )+)}{$1 . "\t" x (length($2)/length($3))}e'

Answer 3

支持混合空格和制表符：

perl -pe'($i,$s)=/^([ \t]*)([.*])/s; $i=~s/  /\t/g; $_="$i$s";'

Answer 4

This is Perl, so you don't have to do a loop. Instead you could just evaluate in the replace expression, like so:

my $tl = 4;
s{ ( \t* ) ( [ ]* ) }
 { my $l=length( $2 ); 
   "$1" . ( "\t" x int( $l / $tl )) . ( ' ' x ( $l % $tl ))
 }ex
;