Revision 795,
798 bytes
checked in by viani, 15 years ago
(diff) |
Ticket #488 - Inclusão do módulo workflow no ramo trunk do repositório Expresso.
|
-
Property svn:executable set to
*
|
Rev | Line | |
---|
[795] | 1 | #! /usr/bin/perl -w |
---|
| 2 | |
---|
| 3 | use strict; |
---|
| 4 | |
---|
| 5 | my $file = 'context-menu.js'; |
---|
| 6 | my $outfile = $file.'-i18n'; |
---|
| 7 | my $langfile = 'en.js'; |
---|
| 8 | |
---|
| 9 | open FILE, "<$file"; |
---|
| 10 | #open OUTFILE, ">$outfile"; |
---|
| 11 | #open LANGFILE, ">$langfile"; |
---|
| 12 | my %texts = (); |
---|
| 13 | while (<FILE>) { |
---|
| 14 | if (/"(.*?)"/) { |
---|
| 15 | my $inline = $_; |
---|
| 16 | chomp $inline; |
---|
| 17 | my $key = $1; |
---|
| 18 | my $val = $1; |
---|
| 19 | print "Key: [$key]: "; |
---|
| 20 | my $line = <STDIN>; |
---|
| 21 | if (defined $line) { |
---|
| 22 | chomp $line; |
---|
| 23 | if ($line =~ /(\S+)/) { |
---|
| 24 | $key = $1; |
---|
| 25 | print "-- using $key\n"; |
---|
| 26 | } |
---|
| 27 | $texts{$val} = $key; |
---|
| 28 | } else { |
---|
| 29 | print " -- skipped...\n"; |
---|
| 30 | } |
---|
| 31 | } |
---|
| 32 | } |
---|
| 33 | #close LANGFILE; |
---|
| 34 | #close OUTFILE; |
---|
| 35 | close FILE; |
---|
| 36 | |
---|
| 37 | print "\n\n\n"; |
---|
| 38 | print '"', join("\"\n\"", sort keys %texts), '"', "\n"; |
---|
Note: See
TracBrowser
for help on using the repository browser.