igor@22: #!/usr/bin/perl
igor@22: 
igor@22: my @lines=<STDIN>;
igor@22: my $lines=$#lines;
igor@22: my $interval=$ARGV[0];
igor@22: my ($start,$stop,$total);
igor@22: if ($interval =~ m@(.*)/(.*)@) {
igor@22:     $start = $1;
igor@22:     $total = $2;
igor@22: }
igor@22: else {
igor@22:     $start=$interval;
igor@22:     $total=0;
igor@22: }
igor@22: if ($start =~ m@(.*)-(.*)@) {
igor@22:     $start = $1;
igor@22:     $stop = $2;
igor@22: }
igor@22: if ($start =~ m@(.*)\+(.*)@) {
igor@22:     $start = $1;
igor@22:     #if ($2 =~ /%$/) {
igor@22:     #}
igor@22:     #else {
igor@22:     $stop = $start+$2;
igor@22:     #}
igor@22: }
igor@22: #print "start = $start\n";
igor@22: #print "stop = $stop\n";
igor@22: #print "total = $total\n";
igor@22: 
igor@22: $start=int($lines/$total*$start);
igor@22: $stop=int($lines/$total*$stop);
igor@22: 
igor@22: #print "start = $start\n";
igor@22: #print "stop = $stop\n";
igor@22: #print "total = $total\n";
igor@22: for($i=$start;$i<$stop;$i++){
igor@22:     print $lines[$i];
igor@22: }