1 #!/usr/bin/env perl
      2 # use Modern::Perl qw /2014/;
      3 
      4 my $iniprod = 'php.ini-production';
      5 my $ininocm = 'php.ini-nocomments';
      6 
      7 open my $IN,  '<', $iniprod or die "Could not open $iniprod for reading: $!";
      8 open my $OUT, '>', $ininocm or die "Could not open $ininocm for writing: $!";
      9 
     10 while (<$IN>) {
     11     print $OUT $_ unless /;\s+/;
     12 }
     13 while (<$OUT>) {
     14     print $OUT $_ unless /\n+/;
     15 }
     16 close $IN  or die "Error closing $iniprod: $!";
     17 close $OUT or die "Error closing $ininocm: $!";
     18