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
*
|
Line | |
---|
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.