[ LUGOS ] Razdelitev datoteke na enake dele

[LEGO Andy]

> > > Kako razdeliti datoteko po stevilu vrstic na N enake dele ?
> > > Npr. datoteko z 10 vrsticami na 3 dele 
> > > razdeli na  4, 3, 3 vrstic 
> > 
> > split -l 3 vhod.txt izhod.
> 
> split poznam samo mi ne najbolj ustreza, rabim skripto
> ki naredi zgoraj opisano.
> 
> npr.
> cat <datoteka> |skripta 3 2   
> izpise drugi del pri razdelitvi na 3 dele

v perlu bi bilo nekaj takega:

#!/usr/local/bin/perl -w

if($#ARGV != 0){
  die "Usage: $0 <size>";
}

@array=<STDIN>;

$size=@array;

$split=$ARGV[0];
$split=$size/$split;

$count=0; $open =0;
for(my $i=0; $i<$size; $i++){
   if($i%$split == 0){
#        close(FILE) if $open ;
        print "-----Open new file------------\n";
#        open (FILE, $file.$count) or die(....)
#        $open=1
        $count++;
   }
   print $array[$i];

}
close(FILE) if  $open;


				Andy

------------------------------------------------
  |\      _,,,,--,,_    E-MAIL: andy na x0.org
  /,`.-'`'    -,  \-;,	ICQ:    10024539
 |,4-  ) ),,__ ,\ (  ;;	URL: http://andy.x0.org
'---''(.'--'  `-'`.)`'	TEL: 301 725 5724
------------------------------------------------