You have to insert characters. Think about what that entails in terms of manipulating the file image on the hard disk. Every character after the inserted character has to be moved.

There are modules like Tie::File which hide the details from you and expend a great amount of effort to make the process efficient, but at the end of the day every character in the file after the first character that is inserted has to be rewritten.

thanks iam going to check this module ..
i think you saw the code that posted before your post

#!/usr/bin/perl -w

use strict;

print " please enter the domain name: ";

my $targetdomain = <STDIN>;

chomp $targetdomain;

my $file = "/home/blackice/hello";

open HAN,$file || die "error opening file: $!";

my $comment = 0;
my $block = 0;
while (<HAN>) {
/^zone\s+"$targetdomain"/ and $comment++;
if($comment) {
$block += () = /(\{)/g; # add the number of { matches to $block
s!^!// ! if $comment && $block;
$block -= () = /(\})/g; # substract the number of } matches
$comment = 0 unless $block;
}
print;
}
[download]


and my question is how i can make the effects appear in file by commenting the lines without printing it to shell .

hey
i think iam now very close to the right solution ..
i write this

 

#!/usr/bin/perl -w 

use strict;

print " please enter the domain name: ";

my  $targetdomain = <STDIN>;

chomp $targetdomain;

my  $file = "/home/blackice/hello";

open HAN,$file || die "error opening file: $!";
my @fileContent = <HAN>;
close(HAN);

for( my $i = 0; $i < @fileContent; $i++ ){
   if( $fileContent[$i] =~ m/^zone\s+"$targetdomain"/ ){
       $fileContent[$i] =~  s/\n/\n#/g;
   }
}

open HAN, ">$file";
print HAN @fileContent;
close(HAN);
[download]


after run the script th script only comment the second line
#type master; only !
and i want to comment all the lines and thanks for you help

Re-examine Re: Perl script to comment out lines in named.con file.

---

Perl is environmentally friendly - it saves trees