Re: [MacPerl-AnyPerl] regexp matching newline

[John Delacour]

At 7:34 pm +0200 13/8/03, allan juul wrote:
hello

i have a problem removing blank lines in one regexp. my string will 
be slurped so it will contain newlines as examplified below:

my $str = qq(test0;
test1;
//test2;
test3;);
$str =~ s,^.*//.+;$,,igm;

print $str;

__END__

i want t achieve:
----------------------
test0;
test1;
test3;


I'd do it like this:

#!/usr/bin/perl
my $newlinechar = $/ ;
my @lines = split $newlinechar, <<END_OF_LINES;
test0;
test1;
//test2;
test3;
END_OF_LINES
foreach (@lines) {
  s~^//~~ ;
  print qq~$_$newlinechar~ ;
}