agriget/utils/extract-i18n-js.pl

16 lines
231 B
Perl
Raw Normal View History

2019-03-22 22:17:29 +08:00
#!/usr/bin/perl -w
#
use strict;
while (<STDIN>) {
chomp;
if (/(__|Notify.progress|Notify.msg|Notify.info|Notify.error)\(['"](.*?)['"]\)/) {
my $msg = $2;
$msg =~ s/\"/\\\"/g;
print "print T_js_decl(\"$msg\");\n";
}
}