怎么给文件每一行加上行号？

koime

2 s9 j8 w6 y  H4 ], e6 |
现要编辑一很大的文本文件，因此想给文件每一行加上行号。

( }5 b& w- {6 P8 m我看到网上说：
6 b% D8 k& s) ?. L
在文件中插入行号                                    

> perl -pi -e'$_ = sprintf "%04d %s", $., $_' test " l5 Y1 I9 w" V  [7 _5 g

             这个脚本在文件中的每一行前面插入 4 位数的行号。
9 M4 @/ _( ?; B0 _
# {# h$ M2 m- v3 U
. L4 B) W" N/ t$ f) a
我对perl一点都不懂，现在安装了activeperl，请问具体怎样做用才可以让代码在XP系统下运行？

rayman

为什么要在文本里加上行号？要想去掉就麻烦了。
. A' B0 u/ g1 }9 ^直接用支持行号显示的软件进行编辑不行么？

koime

谢谢rayman的回复。
1 Q) e8 a  i4 S5 o9 n4 ^2 j
不是显示，想插入行号。当然我会事先用替换来插入特定字符，以便以后想去掉行号时也可方便去掉。

cdyg

很简单。
用ultra-edit，先按Alt-C切换到列模式，然后选中最左列后，执行column → insert number 即可。

koime

% Y( q$ Q- v8 F2 T' h/ W4 O

很简单。
用ultra-edit，先按Alt-C切换到列模式，然后选中最左列后，执行column → insert number 即可。
* h' @) E; A' s  e8 S0 rcdyg 发表于 2010-1-7 15:01

非常感谢。。。
) P. J7 e( K* c' u9 {3 ^) @) c. |
- ^6 V! ^: V0 n3 b2 A不过对于百万条的数据那个慢啊。
要是能用PERL来，可以看到进度就好了。

koime

很简单。
用ultra-edit，先按Alt-C切换到列模式，然后选中最左列后，执行column → insert number 即可。
cdyg 发表于 2010-1-7 15:01

  Z- r0 z) |. ~, D
当某行的文字太多时，ultraedit无法插入序号，会发生错误。
* M# R4 z2 n$ h, p: |/ U: ~
perl下应该可以用这个命令：
+ Z. L1 P3 s+ f- y$ b, {perl -pi -e'$_ = sprintf "%04d %s", $., $_' test

2 P- }- k% X; o( \' ^- J不过貌似是用于LINUX的，请问有谁知道WINDOWS下上述PERL命令的写法。


或者不用PERL，其它脚本语言或数据库什么的可以处理很大的UNICODE文件插入行号么？

先谢谢各位了。

cdyg

某行文字太多时也可以插入行号，不过前提是要将UE的wrap（自动换行）选项给关闭。

koime

嗯，本来就没换行。刚才试了一下，即使行非常长也可以正常插入，可不知有时为什么就出现错误了，估计是文件太大还是怎么的。

cdyg

如果文件太大可以先切割为几个文件再合并。
! o( E7 Q' y* }3 n此外，要注意选择编码为unicode-16方式。

koime

哈，你说的我都有做过。就是觉得很不方便来着。
不管怎样谢谢你。