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

koime

4 _7 M: N6 ~4 h! b4 K
现要编辑一很大的文本文件，因此想给文件每一行加上行号。

我看到网上说：

在文件中插入行号                                    

> perl -pi -e'$_ = sprintf "%04d %s", $., $_' test

9 U; \, f- s; ^8 n             这个脚本在文件中的每一行前面插入 4 位数的行号。


; x( {' E+ T  c3 _) @
我对perl一点都不懂，现在安装了activeperl，请问具体怎样做用才可以让代码在XP系统下运行？

rayman

为什么要在文本里加上行号？要想去掉就麻烦了。
0 p' Q, q. Z2 C( O( z! D  G  `直接用支持行号显示的软件进行编辑不行么？

koime

谢谢rayman的回复。

不是显示，想插入行号。当然我会事先用替换来插入特定字符，以便以后想去掉行号时也可方便去掉。

cdyg

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

koime

* r2 Y2 n( ~8 L8 _

很简单。
( B4 |! v- n3 x7 s0 z2 z) |4 m1 w用ultra-edit，先按Alt-C切换到列模式，然后选中最左列后，执行column → insert number 即可。
' `$ R) H; C) l: U& R8 _) ~) |cdyg 发表于 2010-1-7 15:01

非常感谢。。。

" O9 ?4 ~5 Z/ K' W9 b9 |不过对于百万条的数据那个慢啊。
  M& D8 l8 I% E" w* m$ Y5 W要是能用PERL来，可以看到进度就好了。

koime

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

当某行的文字太多时，ultraedit无法插入序号，会发生错误。

- r# m9 [* b+ C4 S( K" F$ n6 Aperl下应该可以用这个命令：
perl -pi -e'$_ = sprintf "%04d %s", $., $_' test
0 l5 R8 W4 g6 L) }
不过貌似是用于LINUX的，请问有谁知道WINDOWS下上述PERL命令的写法。

4 m) b5 l* ]$ t8 y; z+ |. d3 i
或者不用PERL，其它脚本语言或数据库什么的可以处理很大的UNICODE文件插入行号么？
( E6 }, F/ ^/ g* G% Q
+ B3 _' N; o) f2 I# v6 z, @先谢谢各位了。

cdyg

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

koime

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

cdyg

如果文件太大可以先切割为几个文件再合并。
9 L- u. b; W1 N; }此外，要注意选择编码为unicode-16方式。

koime

哈，你说的我都有做过。就是觉得很不方便来着。
- |* u4 _$ ~. }3 f$ G) d不管怎样谢谢你。