支援一下N板友,以下的Perl一行文是将输入合成一列来看待perl -we ' local $/; $_ = <>; s/^ (CCCCC \s*?) ^ (.+?) ^/\@$1\@$2\@$3/mxs ; print; ' < file.txt不过建议用此较长一点的版本
http://bit.ly/1ROsOZR不好意思第二个推文的pattern少了一组 (...) 正确版本在连结页面中的shorter-version处$perl -pe'(/CCCCC/..$i==2)?($i++,s/^/@/):($i=0)'<file.txt这是逐行处理的版本