<highlight language="config">
RewriteMap lc int:tolower
-RewriteRule "(.*?[A-Z]+.*)" "${lc:$1}" [R]
+RewriteRule "(.*)" "${lc:$1}" [R]
</highlight>
<note>
<p><strong>dash2under.pl</strong></p>
<highlight language="perl">
- #!/usr/bin/perl
- $| = 1; # Turn off I/O buffering
- while (<STDIN>) {
- s/-/_/g; # Replace dashes with underscores
- print $_;
- }
+#!/usr/bin/perl
+$| = 1; # Turn off I/O buffering
+while (<STDIN>) {
+ s/-/_/g; # Replace dashes with underscores
+ print $_;
+}
</highlight>
<note><title>Caution!</title>