perl用tab替换空格

Question

我想用一个标签从每行的开头替换每两个空格.我尝试了以下方法:

s/^(\s{2})+/\t/gm;

它没有用.

Answer 1

如果您逐行读取文件:

$line =~ s/\G[ ]{2}/\t/g;

如果你诋毁了整个文件:

$file =~ s/(?:\G|^)[ ]{2}/\t/mg;