#!perl -w
use strict;

unless (@ARGV==2) {
	die <<EOF;
$0 strips comment lines beginning with # from perl code

usage: $0 infile outfile

       set outfile to \"display\" to just show result
EOF
}

my $infile = shift;
my $outfile = shift;

my $full_code = '';
my $bad_lines = 0;
my $good_lines = 0;

open(IN,"< $infile") or die "Can't open $infile: $!\n";
while (<IN>) {
   if ( /^\s*#[^!]/ ) {		# if comment line
      $bad_lines++;
   }
   else {
      $good_lines++;
      $full_code .= $_;		# add to code
   }
}
close(IN) or die "Can't close $infile: $!\n";

if ($outfile eq 'display') {
   print $full_code;
}
else {
   open(OUT,"> $outfile") or die "Can't write to $outfile: $!\n";
   print OUT $full_code;
   close(OUT) or die "Can't close $outfile: $!";
}

print ($good_lines+$bad_lines) . "lines read from $infile\n",
	"$bad_lines comment lines detected in $infile\n",
	"$good_lines lines written to $outfile\n";