如何进行文本分割？

Bisn

1^# Bisn 发表于 2007-12-14 21:37

我有个几十万行的文本文件，想把它分割成1万的几个小文件，用perl该怎么写呢？谢谢

Lonki

2^# Lonki 发表于 2007-12-14 22:00

while (<FH>) {
... ...
if ($. % 10_000 == 0) {
... ...
}
... ...
}

这个用shell蛮好的

flw

3^# flw 发表于 2007-12-14 22:57

man split