Mercurial > hg > batmud > misc
changeset 131:c00076b2d39a misc
Updated.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Mon, 20 Dec 2010 15:33:43 +0000 |
parents | 09515ab68178 |
children | d74acad905a2 |
files | materials/csv2transtab.pl |
diffstat | 1 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/materials/csv2transtab.pl Mon Dec 20 15:31:09 2010 +0000 +++ b/materials/csv2transtab.pl Mon Dec 20 15:33:43 2010 +0000 @@ -1,4 +1,11 @@ #!/usr/bin/perl -w +# +# Generate translation table from CSV format material data +# (C) Copyright 2006-2011 Matti Hämäläinen (Ggr Pupunen) <ccr@tnsp.org> +# +# The generated table needs to be manually sorted in "sane" way, +# the different adjectives cannot be heuristically sorted here. +# #use strict; my %data = (); @@ -18,7 +25,7 @@ } } -print "my %transtab = (\n"; +print "my %transTable = (\n"; foreach my $a (sort { $a <=> $b } keys %data) { print " $a => {\n";