1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
#!/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"; } }