#!/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; } }