NEED HELP IN Search comment lines Perl script

[blackice]

Hello all

this thread ihttp://www.thescripts. com/forum/thread50290.htm l contains what i need but i cannot understand some of the code i need more explain ....

my $sampleinput = <<"EOF";
 
zone "dontchangethisdomain.com" {
type master;
file "/somepath/to/dontchangethisdomain.com";
notify yes;
}
 
zone "mydomain.com" {
type master;
file "/path/to/zone/mydomain.com";
notify yes;
}
 
zone "leavethisalonetoo.com" {
type master;
file "/other/path/to/leavethisalonetoo.com";
notify yes;
}
 
EOF 

what the need of this however i think itis better to make a file handler to open the file .... !!!!!!

 my $prematch;
my $thematch;
my $postmatch;
 

why i need that variables pre and the and post i think itis better to choose only the matched string and then just replace it !!!!


any help will be appreciated .....


thanks for all

[KevinADC]

You have not posted a question or told us what you are trying to do. Forget that stuff you posted and start over. Describe your problem and post the code you are working with.

[blackice]

sorry for that ....,


I want to write a perl script which will comment out a domain in my named.conf file for Bind.

as a test i made a file in my home directory to perform tests on it ...

the file is /home/blackice/hello

and i wrote this script

  #!/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: $!";
 
while (<HAN>) {
if ( /\n^zone "$targetdomain"
\{\n(.*)type(.*);\n(.*)file(.*);\n(.*)notify(.*);\ n(.?)\}/is) {
 
print "hello";
 
}
else
{print "not hello";
}
} 

so i try to make a simple test before making commenting ....

first it take the domain name as an input and if it finds that pattern including the domain name in this file it will print hello if not it will just print not hello

and the hello file contains

 zone "mydomain.com" {
type master;
file "/path/to/zone/mydomain.com";
notify yes;
}

so when i run the script i got the following

# perl pth.pl
 please enter the domain name: mydomain.com
not hellonot hellonot hellonot hellonot hellonot hello 

any help will be appreciated ...


and if any one have an idea for commenting that matched strings it will a nice tip for me

thanks

[KevinADC]

try this for your test:

while (<HAN>) {
if  ( /^zone "\Q$targetdomain\E"/ ) {
   print "$_  ( hello )";
}
else {
   print "$_ (not hello)";
}

[blackice]

thanks for your support

but what about if i want to after searching comments the empty line before the zone name and comment five lines after commenting the empty line before the zone

[KevinADC]

Do you still need help with this question?

[blackice]

aha i need solution
i think iam now very close to the right solution ..

here is the code :-

#!/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);

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

[KevinADC]

This is very similar to what you are doing. The logic for editing the array can be applied to your code. I used the (core module) Tie::File to edit the file though.

#!/usr/bin/perl -w 
 
use strict;
use Tie::File;
use Fcntl ':flock';
 
print " please enter the domain name: ";
 
my  $targetdomain = <STDIN> ;
chomp $targetdomain;
 
my  $file = "/home/blackice/hello";
my $obj = tie my @array, "Tie::File", $file or die "$!";
$obj->flock;
 
foreach my $i ( 0 .. $#array ){
   if( $array[$i] =~ m/^zone\s+"$targetdomain"/ ){
      $array[$i-1] = '#' unless $i == 0; #first line of file condition
      for my $n (0 .. 5) {
          $array[$i+$n] =  '#' . $array[$i+$n];
      }
   }
}
$obj = undef;
untie @array;

You can see in the "foreach" loop the rather simple logic of moving back or foward "lines" in an array. That can applied directly to your code.

[blackice]

thanks it works and better than i created
but could you kindly explain me the mechanism of this code and what is Fcntl ':flock'; and how it works i want more explain cause this types of code will help me alot in editing various type of linux files .

and thanks again too much ....
------------------------------------------------------------------------------------------------

back to my code i did some refinements to it

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

$fileContent[$i] =~ s/^/#/g;
$fileContent[$i] =~ s/\n/\n#/g;
this makes me to comment the first line and the second line of the zone just like that ...


#zone "mydomain.c om" {
#type master;

and it didnot comment the other lines is there is any way to add more lines like i added to make all the lines commented as you code does ..

and thanks so much

[KevinADC]

As I said at the end of my post:

You can see in the "foreach" loop the rather simple logic of moving back or foward "lines" in an array. That can applied directly to your code.

When you see a module name in code you do not recognize go to CPAN and search for it: CPAN

Type Fcntl in the search box. Then read the modules documentation.