CL Wiki

#!/usr/bin/perl
 
use strict;
use warnings;
 
my %languages = (
        0 => 1550,
        1 => 1834,
        2 => 5996,
        3 => 1948,
        4 => 2645,
);
 
foreach my $i (keys %languages) {
        foreach my $j (keys %languages) {
                next if $j <= $i;
                my $c = sprintf 'sed -r -e "s/%%1/%d/" -e "s/%%2/%d/" < dicts.sql '
                        .'| psql --host kitt.ifi.uzh.ch --user laacuser laac -t -A '
                        .'> dicts/%3$d_%4$d.dict 2> %3$d_%4$d.err',
                        $languages{$i}, $languages{$j}, $i, $j;
                print "$c\n";
                system $c;
        }
}