my @langs = ('en', 'de', 'fr', 'it', 'gr', '...');
my @projects = ('dogs', 'cats', 'birds', 'horses');
my @targets = ('images', 'data', 'links', 'other');
####
endogs, encats, enbirds, enhorses
dedogs, decats, debirds, dehorses
frdogs, frcats, frbirds, frhorses
itdogs, itcats, itbirds, ithorses
grdogs, grcats, grbirds, grhorses
##
##
endogs/images.tar.bz2
endogs/data.tar.bz2
endogs/links.tar.bz2
endogs/other.tar.bz2
dedogs/images.tar.bz2
dedogs/data.tar.bz2
dedogs/links.tar.bz2
dedogs/other.tar.bz2
[...]
encats/images.tar.bz2
encats/data.tar.bz2
encats/links.tar.bz2
encats/other.tar.bz2
decats/images.tar.bz2
decats/data.tar.bz2
decats/links.tar.bz2
decats/other.tar.bz2
##
##
foreach my $lang (@langs) {
foreach my $project (@projects) {
mkpath ("$project/$lang");
foreach my $target (@targets) {
my $backup = $backup_file;
my $output = $output_save_file;
print "Mirroring $project ($lang) now...\n";
# Other stuff happens here
}
}
}
##
##
'it' => 'Italian' { ... },
'es' => 'Spanish' { ... },
...