ako vyparsovat block

[Jiri Polcar]

On Mon, Oct 27, 2003 at 10:04:50AM +0100, Aben Siatris wrote:
>
> potreboval by som tomu (.*?) povedat nejako nech zahrna v sebe i pary
> BLOCK]>.*?<[BLOCK]>, ale neviem ako na to... asi mi to dnes moc nemysli :)
>

No, nevim, jesli nejsem uplne mimo, ale treba co treba tohle:


    @LIST = split /^<(MODULE=)?\[BLOCK\]>$/im, $file;

    foreach my $block ( @LIST ) {
      next if /^(MODULE=)?\s*$/i;
      print $block;
    }

--
JP