NEED HELP IN comment lines PERL Perl script

theNbomr · 10-05-2007, 06:51 PM

Please post the relevant code segment. I cannot guess what you have and why it does not do what you want.

--- rod.

adam_blackice · 10-05-2007, 08:08 PM

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 @array = <HAN>;

close(HAN);

      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];
  
            }
  
         }
  
      }

open HAN, ">$file";

print HAN @array;

close(HAN);

here is the code but i have last problem when i run this code the output like that

Quote:

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

i want the first empty line commented also without affecting the other lines cuz in my output the first line shifted and commented to the first line in the file

itis now done thanks for alll

and for your great support

Quote:

foreach my $i ( 0 .. $#array ){

if( $array[$i] =~ m/^zone\s+"$targetdomain"/ ){

$array[$i-2] = '' unless $i == 0; #first line of file condition

for my $n (-1 .. 5) {

$array[$i+$n] = '//' . $array[$i+$n];

}

}

}

archtoad6 · 11-07-2007, 08:01 AM

If it's not too late -- I just found this thread -- or too heretical

, would not the following do what you want?:

Code:

#! /bin/bash
F="bind"
read -p " please enter the domain name: " X
sed -i '\#^zone .*'$X'#,\#^}#s,^,//,;\#//}#N;s,\n *,\n//,' $F

I named my test file bind & put your "hello" contents in it followed by 2 blank lines, here is the output of my little script:

Quote:

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

I think that's the same as your last post.

If my sed seems cryptic, it might help to know that I am using '#' as the delimiter for the address regexes & ',' as the delimiter for the replace regexes. Although I rarely see it, I believe Perl also has this feature.

If you were to use this, you might want to eliminate the "-i" (in-line) option & send the output to a different file instead, at least during testing.