perl помощь

[Dmitri Zubko]

Как вырезать такой блок целиком?

Code: Select all

<div class="постоянное_имя">
   <div ... </div>
   <div ... </div>
   <style ... </style>
</div>

[Ivan Agarkov]

$constname = "const_name";
$body =~ s/<div
class="$constname">\n\s+<div[^\/]+<\/div>\n\s+<div[^\/]+<\/div>\n\s+<style[^\/]+<\/style>\n\s+<\/div>//g;

[Alexander Wolf]

Могу предположить, что прокатит такое ($body содержит весь документ):
chomp($body);
$body =~ m/<div class="постоянное_имя">(.+)<\/style><\/div>/gi;
$chunk = "<div class="постоянное_имя">".$1."</style></div>";