Url generator for https://github.com/sportsru/gourlmapper

gistfile1.pl

use Redis;
my $redis = Redis->new;

open my $fh, '>', 'gen_map.txt';
for my $d (qw(ru ua)) {
    my $count = 1;
    for my $i (1_000_000 .. 1_200_000) {
        print $fh join(" ", $d, "I", "/$i", "/_tags/$d/$i.html") . "\n";
        print $fh join(" ", $d, "301", "/tags/$d/$i.html", "/$i") . "\n";
        $redis->set("$d:/$i", "I /_tags/$d/$i.html");
        $redis->set("$d:/tags/$d/$i.html", "301 /$i");
        print "Set $count keys\n" if $count++ % 10_000 == 0;
    }
}