Help for this page

Select Code to Download


  1. or download this
    $ split --lines=1000 --numeric-suffixes=1 --suffix-length=5 --addition
+al-suffix=NR.txt /the/file ''
  2. or download this
    </the/file perl -MIO::File -ne'
    my $nr = 1+int($./1_000);
    $handles[$nr] = IO::File->new(sprintf("%05dNR.txt", $nr), "w") unl
+ess defined $handles[$nr];
    $handles[$nr]->print($_);
'