Re^3: Search replace with a block

ok, maybe something like this, filter every location block

$rawconfig =~ s{
<location \s+ (\S+?)>
(.+?)
</location>
}{
    ReformulateLocation("$1", "$2");
}gimsex;

print $rawconfig;

sub ReformulateLocation {
    my( $loc, $con ) = @_;
    my @pairs =  $con =~ m{ ^ \s* (\S+) \s+ ([^\r\n]+?) \s* $}gmix;
    dd( { $loc, \@pairs } );
    return "<location $loc> $con </location>"; ## no change
}

__END__
{ "/" => ["MaxConnPerIP", 12, "NoIPLimit", "image/*"] }
{ "/location2" => ["MaxConnPerIP", 0] }
{ "/location3" => ["MaxConnPerIP", 0] }

<IfModule> ## workaround of some kind
<IfModule mod_limitipconn.c>
    <location />
        MaxConnPerIP 12
        NoIPLimit image/*
     </location>
    <location /location2>
        MaxConnPerIP 0
     </location>
    <location /location3>
        MaxConnPerIP 0
     </location>
</IfModule>
[download]

Also perlfaq6 has some tips

Comment on Re^3: Search replace with a block Download Code

Replies are listed 'Best First'.
Re^4: Search replace with a block by santoshrao99 (Initiate) on May 12, 2016 at 05:46 UTC
Based on both the feedback I did the following - `#!/usr/bin/perl -w use strict; my $location ="/newlocation"; my $file_name ='ipconn.conf'; $/ = undef; open (FILE, "< $file_name") or die $!; my $file = <FILE>; close FILE; my $value; # check for the block we want if ($file =~ m/\<Location\ $location.+?\<\/Location\>/s){ my $block = $&; if($block =~ s/MaxConnPerIP\s(.+?)/MaxConnPerIP 10/g) { print $block; } }` [download] Now the issue I have is $block has the updated text and $file has the entire file. How do I merge those , by merge meaning either remove the matching block and add this new one. Or change my value into the original variable which has the file. Which is part of the reason I was leaning on using tie::file, updating the file was so much more easier. Let me know what you guys think. Thank you for your help.	[reply] [d/l]
Re^5: Search replace with a block by beech (Parson) on May 12, 2016 at 06:31 UTC
Maybe use ReformulateLocation to perform the location based substitution? :D	[reply]
Re^6: Search replace with a block by santoshrao99 (Initiate) on May 12, 2016 at 08:04 UTC
Thank you Beech, will play around with the code you pasted as well. For now I managed to get it to work using the following - #!/usr/bin/perl -w use strict; #my $location ="/location2.html"; my $location ="/"; my $file_name ='pconn.conf'; my $conf_new ; my $max_connections=10; $/ = undef; #Open file for reading and slurp into file open (FILE, "< $file_name") or die $!; my $file = <FILE>; close FILE; # check for the block we want if ($file =~ m/\<Location\ $location.+?\<\/Location\>/s){ my $first=$`; #Everything before matched string my $block = $&; #Matched block my $second=$'; #Everything after matched string if($block =~ s/MaxConnPerIP\s(.+?)/MaxConnPerIP $max_connections +/g) { $conf_new= $first . $block . $second; } } # Open file for writing and dump matched and unmatched block open (OUTFILE, "> $file_name.tmp") or die "cannot open $file_name.tmp +for write $!"; print OUTFILE $conf_new; close OUTFILE; # save copy of original file rename ($file_name,"$file_name.bak") \|\| die "problem with rename $!"; # replace original with the modified version rename ("$file_name.tmp", $file_name) \|\| die "problem with rename $!"; [download]	[reply] [d/l]