この手のやっつけ仕事は作ったほうが早いんじゃないかと。
次のスクリプトで、perl bunkatsu.pl eijiroxx.txt とすれば、
40万行ごとに分割した eiji1, eiji2, eiji3 を出力します(拡張子
付けたほうが良かったかな？)。行数など適当に変えてやってみては？
BASICやCでやるのもおしゃれかと。(^_^)
[bunkatsu.pl]
$GYOSUU = 400000;
$FLNAME = "eiji";
open(outf, ">" . $FLNAME . "1");
while (<>) {
if ($. % $GYOSUU == 0) {
open(outf, ">" . $FLNAME . int($. / $GYOSUU + 1));
}
print outf $_;
}
|