Re^2: Perl RE; how to capture, and replace based on a block?

[taint]

Sorry. I just

cat ./FILE.html | perl {...}

in an open xterm. After several failures, and no more ideas. I closed the xterm, and asked for help. I didn't think it'd be of any use in the request.

I've since read every single reference in the Perl documentation, and while I think I've got the RE part down. I'm quite sure I don't know how to feed Perl the file properly to do any more than eat a single line at a time.

So let me have another go at it. The following

#!/usr/bin/perl -w

#retest.pl
# my feeble attempt to a multi-line RE in Perl

$regexp = shift;
while (<>) {
    print if /$regexp/;
}

won't work as

# ./retest.pl \</\div\>\n\<\/body\> ./FILE.html

because shift will only manage input one line at a time. Attempts to figure how to make use of psed, and s2p, have failed miserably.

Apologies for the previous noise, and thank you for the thoughtful responses.

--Chris

[hdb]

Hi Chris, specifying a regex on the command line seems a difficult thing to do. At least you should be printing your $regexp to see what it contains.

In any case, this code seems to work:

my $str = "
</div>
</body>
";

print "Success\n" if $str =~ /\<\/div\>\n\<\/body\>/;

which suggests that if you slurp in your whole file as a single string (e.g. by unsetting $/), your regex should do its job.

local $/;
my $str = <>;
print "Success\n" if $str =~ /\<\/div\>\n\<\/body\>/;

[taint]

Perl said; Success.

Thanks a million, hdb! Your suggestion has helped me greatly in putting the last piece in my current "puzzle".

Thanks again. I'd like to buy a round of +'s, for the house.

--Chris

UPDATE; I forgot to mention. The reason I was feeding the file to Perl is
1) That's what worked best for me with sed.
2) It seemed the easiest way to experiment getting a correct match with Perl.

[QM]

For fiddling with little bits of code, just use the debugger straight away:

swedish_chef> perl -demo

Loading DB routines from perl5db.pl version 1.32
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(-e:1):   mo
  DB<1> $string = "one two three four"

  DB<2> x $string =~ m/(\w+)/g
0  'one'
1  'two'
2  'three'
3  'four'

Note that "my" variables don't work as expected, I think they get created in the Debug scope, and not in the interpreted scope. But otherwise, have fun in the sandbox.