Re: [MacPerl-AnyPerl] regexp matching newline

At 11:45 pm +0100 16/8/03, John Delacour wrote:
>At 7:34 pm +0200 13/8/03, allan juul wrote:
>>
>>i want t achieve:
>>----------------------
>>test0;
>>test1;
>>test3;
>
>
>I'd do it like this:
>
>[...]
>foreach (@lines) {
>   s~^//~~ ;
>   print qq~$_$newlinechar~ ;
>}

Sorry -- I misread your last bit.  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) {
    print qq~$_$newlinechar~ if ! m~^//~ ;
}

or this:

#!/usr/bin/perl
$_ = qq~test0;
test1;
//test2;
//test2;
test3; ~;

s~^//.*$/~~gm;
print;