If you are trying to delete lines within left and right curly braces, {}, then you could use Range Operators:

#!/usr/bin/env perl

use warnings;
use strict;

while (<DATA>) {
    unless (/{/ .. /}/) {print}
}

__DATA__
keep
{
junk
junk2
junk3
}
keep
keep2
keep3
{ junk4 }
keep4
[download]

keep
keep1
keep2
keep3
keep4
[download]

thanks for your help but exactly what i want to make is to delete a certain zone from a file the zone will be provided
by the user input which i assigned at the start of my code
and then uses the $block variable to count the range of the curly brackets until the end of the zone
Example for what iam taking about


zone "foo.com" {
type master;
file path to file ;
};

zone "bar.com" {
type master;
file path to file ;
additional informations {
blah blah blab 
}
}

zone "perl.com" {
type master;
file path to file;
}
[download]

i want to delete lines from start of the the zone which is provided by targetdomain variable which is entered by the user
after the script is running assume that the targetdomain was = bar.com the output

 
zone "foo.com" {
type master;
file path to file ;
};

zone "perl.com" {
type master;
file path to file;
};
[download]

and thanks for your care

Your print isn't conditional so it will always print out. I think you want to change it to something like print $out $_ unless $block;

thanks for your replay but this didnot work :(
i think i need to provide something to link between the block and the statement that makes the deletion as in the example of the commeting

here is what exactly i want to make and hope you will show me how i can do that real


#the first part of the code as the same last code i provided 
#!/usr/bin/perl -w



use strict;



print " please enter the domain name: ";



my  $targetdomain = <STDIN>;



my $susdate = `date -u "+%m/%d/%Y %H:%M"`;

my $char = "This Domain is Suspended at ";

chomp $targetdomain;



my  $file = "/home/adam/Desktop/hello";



rename $file, "$file.bak" or die "Can't rename file '$file': $!\n";



open my $in, '<', "$file.bak" or die "Can't read file '$file': $!\n";

open my $out, '>', $file or die "Can't write file '$file': $!\n";



my $block   = 0;

while(<$in>) {

    if (/^zone\s+"$targetdomain"/) {          
#here i want to start to deleting lines i think it will done by 
s// /; #by replacing the lines with an empty lines 
#then i need to increase the $block by 1 to add the first #open bracke
+t by using
 $block += () = /(\{)/g;
#then i want to make something like condition if the block #variable i
+s exist add one also to block and then  continue #deleting lines 

if ($block) {
s// /;
#or if it find a closed bracket decrease the $block by 
 $block -= () = /(\})/g;
#and if the block equal to 0 stop deleting lines 
#then print the output
[download]

sorry for this long thread but i write what i think just making a brain storming to find a way with you
thanks

hello Shmem how are i would thank your for you help
but i cannot really understand the code of the zone master the link you provided in your replay
and as i saw this zone master depend on connection to database not reladted to a file .
and i will be thankful if you could help me

The answers to your very first post here provided all you need to do the task. I gave you a solution which can be tweaked to not comment lines out, but not print them instead (untested):

my $comment = 0;
my $block   = 0;

while(<$in>) {
    if (/^zone\s+"$targetdomain"/) {
        $comment++;
        $block += () = /(\{)/g;
        # print $out '// '.$_;
        next;
    }
    if($comment) {
        $block += () = /(\{)/g;
        s!^!// ! if $comment or $block;
        $block -= () = /(\})/g;
        $comment = 0 unless $block;
    }
    print $out $_ unless $comment;
}
[download]

Since that trivial task seems to be too difficult for you, I gave you a link to a tool which handles all things zone file related. Yes, it relies on a database, but if you have to do more than casual changes to zone files, for which you could also fire up your editor and do changes by hand, it is the right way to go.

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}