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|notify_info|notify_error)\(['"](.*?)['"]\)/) { my $msg = $2; $msg =~ s/\"/\\\"/g; print "print T_js_decl(\"$msg\");\n"; } }