Perl – 301 redirects for .htaccess
my @pages = (1 .. 85);
for my $i (@pages) {
print "RewriteRule ^2008_page$i\.shtml$ \"\"http\:\/\/www\.example\.com\/2008\.php\?page\=$i\" [R=301,L]\n";
}
my @pages = (1 .. 85);
for my $i (@pages) {
print "RewriteRule ^2008_page$i\.shtml$ \"\"http\:\/\/www\.example\.com\/2008\.php\?page\=$i\" [R=301,L]\n";
}