求助：如何给文本加序号

nickleeh

1^# nickleeh 发表于 2008-08-26 18:08

求助：如何给文本加序号
一个客户信息的文本文件，每个客户以等号行（=============这个样子的64个“=”分割）

请教：如何把”===========“替换成"==== 序号 ====="

序号从1开始，两面个32个等号。最好序号左右各有一个空格，这样可读性好一些。

谢谢。

firstddf

2^# firstddf 发表于 2008-08-26 19:57

[quote]--$a= '='x64;

$a= '='x64;
$b= '1';
$c='='x32;
$_=$b.$a;
print "$_\n";
~s/([0-9]+)={64}/$c $1 $c/;
print $_