While not truly a beginner it feels that way after not doing anything
substantial in Perl in many years.
I currently need a program to take Apache HTTPD configuration files in HTTPD
2.2 syntax used in current production and convert them to HTTPD 2.4 syntax in
future production. I will need to do this many times weekly until we cut over
to the new systems. My first challenge is converting the permissions syntax:
Order deny,allow
Deny from all
To
Require all denied
And similar transformations. I was able to make this modification if I set $/ =
undef and look at the file as a whole. My problem is I really want to process
the file line by line to remove several <IfDefine BLAH> ... </IfDefine> blocks
which may have other conditional code blocks contained within them. I have
considered using two separate scripts and a two pass solution but there is a
part of me which would rather have a single script do it all in one pass.
My current attempt, after several tries, is:
if ( m/{.*}[Oo]rder deny,allow(.*)\n(.*)[Dd]eny from all(.*)/) {
print "\tRequire all denied\n";
next;
}
While not causing syntax errors it is not doing what I want either. I am
probably using the 'm/' incorrectly and need your help.
Darryl Baker
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
