home *** CD-ROM | disk | FTP | other *** search
- #! /usr/bin/perl -w
-
- use strict;
-
- my $file = 'context-menu.js';
- my $outfile = $file.'-i18n';
- my $langfile = 'en.js';
-
- open FILE, "<$file";
- #open OUTFILE, ">$outfile";
- #open LANGFILE, ">$langfile";
- my %texts = ();
- while (<FILE>) {
- if (/"(.*?)"/) {
- my $inline = $_;
- chomp $inline;
- my $key = $1;
- my $val = $1;
- print "Key: [$key]: ";
- my $line = <STDIN>;
- if (defined $line) {
- chomp $line;
- if ($line =~ /(\S+)/) {
- $key = $1;
- print "-- using $key\n";
- }
- $texts{$val} = $key;
- } else {
- print " -- skipped...\n";
- }
- }
- }
- #close LANGFILE;
- #close OUTFILE;
- close FILE;
-
- print "\n\n\n";
- print '"', join("\"\n\"", sort keys %texts), '"', "\n";
-