Re^5: regex basics

[choroba]

These are not the same:

!$_ /;\s+/
!/\#\s+/

In fact, when you want to mention the thing to be matched, you must use the binding operator:

!( $_ =~ /;\s+/);
# or
$_ !~ /;\s+/;

Update: Precedence fixed. Thanks AnomalousMonk.

[AnomalousMonk]

! $_ =~ /;\s+/;


Because of the high precedence of the  ! (logical-not) operator versus  =~ (see perlop), the regex actually matches against either  '' (the empty string) or '1'.

c:\@Work\Perl>perl -wMstrict -MO=Deparse,-p -le
"! $_ =~ /;\s+/;
"
BEGIN { $^W = 1; }
BEGIN { $/ = "\n"; $\ = "\n"; }
use strict 'refs';
((!$_) =~ /;\s+/);
-e syntax OK

These are equivalent:

! ($_ =~ /;\s+/);
# or
$_ !~ /;\s+/;

[Anonymous Monk]

Understood.

=~ means match and !~ means no match.

This should work:

#!/usr/bin/env perl
use strict;
use warnings;
my $iniprod = 'php.ini-production';
my $ininocm = 'php.ini-nocomments';
open my $IN,  '<', $iniprod
   or die "Could not open $iniprod for reading: $!";
my $text;
while (<$IN>) {
   if ($_ !~ /;\s+/) {
      $text .= $_;
   }
}
close $IN
   or die "Error closing $iniprod: $!";
# remove blank lines
$text =~ s{\n{2,}}{\n}gm;
open my $OUT, '>', $ininocm
   or die "Could not open $ininocm for writing: $!";
print $OUT $text;
close $OUT or die "Error closing $ininocm: $!";