#!/usr/bin/perl -w

$nth = shift(@ARGV);
$file = shift(@ARGV);

print "Delete every $nth-te line in $file\n";
print "The crushed file will be named $file.$nth";

$delete_this = 0;

open(IN,"<$file") or die "could not read datafile\n$!";
$outfile = "$file.$nth";
open(OUT,">$outfile") or die "could not write outfile\n$!";

LIES:while(<IN>) {
  $line = $_;
  if($line =~ /^\s#/)
     {
      next LIES;
     }
  if($delete_this==$nth-1) {
    $delete_this = 0;
    next LIES;
  }
  else {
    print OUT $line;
    $delete_this++;
  }   
}
close IN;
close OUT;
  
exit;

# End of file
[download]