8 lines
97 B
Perl
Executable File
8 lines
97 B
Perl
Executable File
#! /usr/bin/perl
|
|
|
|
while (<>) {
|
|
if (/_\(\"(.*)\"\)/) {
|
|
print "gchar *s = N_(\"$1\");\n"
|
|
}
|
|
}
|