File: klist-to-po.pl

package info (click to toggle)
console-data 2:1.12-5
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd, stretch
  • size: 6,388 kB
  • sloc: sh: 3,272; pascal: 472; makefile: 231; perl: 168
file content (14 lines) | stat: -rwxr-xr-x 267 bytes parent folder | download | duplicates (8)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl


$filename = $ARGV[0];
open (MAPLIST, $filename) || die "Failed to open $filename";

while (<MAPLIST>) {
	($langlist, $name, $english) = split;
	print "# $filename, $name\n";
	print "msgid \"$english\"\n";
	print "msgstr \"\"\n\n";
}

close MAPLIST;