#!/usr/bin/perl use MDK::Common; sub get { my ($meta_class) = @_; my @l; local *F; open F, "../compssUsers$meta_class" or return; #die "can't open file ../compssUsers$meta_class"; foreach (<F>) { /^\s*$/ || /^#/ and next; if (/^(\S.*)/) { my ($icon, $path, $descr); /^(.*?)\s*\[icon=(.*?)\](.*)/ and $_ = "$1$3", $icon = $2; /^(.*?)\s*\[path=(.*?)\](.*)/ and $_ = "$1$3", $path = $2; /^(.*?)\s*\[descr=(.*?)\](.*)/ and $_ = "$1$3", $descr = $2; push @l, $_, $descr, $path; } } close F; @l; } foreach (uniq(get(''), get('.desktop'))) { if ($_) { s/"/\"/g; s/\n//g; print qq( #: ../../share/compssUsers:999 msgid "$_" msgstr "" ); } }