#!/usr/bin/env perl
use Modern::Perl qw /2014/;

my $iniprod = 'php.ini-production';
my $ininocm = 'php.ini-nocomments';

open my $IN,  '<', $iniprod or die "Could not open $iniprod for reading: $!";
open my $OUT, '>', $ininocm or die "Could not open $ininocm for writing: $!";

while (<$IN>) {
    print $OUT $_ unless /;\s+/ ;
}

close $IN  or die "Error closing $iniprod: $!";
close $OUT or die "Error closing $ininocm: $!";

##</code><code>##

[/etc/php.d] # ./php.ini-remove-comments.pl
Can't locate Modern/Perl.pm in @INC (@INC contains: /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib64/perl5 /usr/share/perl5 .) at ./php.ini-remove-comments.pl line 2.
BEGIN failed--compilation aborted at ./php.ini-remove-comments.pl line 2.

##</code><code>##

[/etc/php.d] # perl -v
This is perl, v5.10.1 (*) built for x86_64-linux-thread-multi

##</code><code>##

      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 

##</code><code>##

#!/usr/bin/env perl
# use Modern::Perl qw /2014/;
my $iniprod = 'php.ini-production';
my $ininocm = 'php.ini-nocomments';
open my $IN,  '<', $iniprod or die "Could not open $iniprod for reading: $!";
open my $OUT, '>', $ininocm or die "Could not open $ininocm for writing: $!";
while (<$IN>) {
   if (!$_ /;\s+/) {
      print $OUT $_
   }
}
close $IN  or die "Error closing $iniprod: $!";
close $OUT or die "Error closing $ininocm: $!";