Thread Registry Einträge für "Standard Programme": zBwelcher player wird bei mp3 aufgerufen (5 answers)
Opened by vayu at 2006-05-03 00:18

esskar
 2006-05-05 00:12
#11787 #11787
User since
2003-08-04
7321 articles
ModeratorIn

user image
man könnte es wohl auch so machen:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl

{
my $extensions = undef;
sub get_standard_extension_cmdline {
my $ext = shift;
unless(defined $extensions) {
my %assoc = map { split /=/, $_, 2 } split /\r?\n/, qx/assoc/;
my %ftype = map { split /=/, $_, 2 } split /\r?\n/, qx/ftype/;
$extensions = {};
while(my ($k, $v) = each %assoc) {
$extensions->{lc $k} = $ftype{$v};
}
}
return $extensions->{lc $ext};
}
}

print ".pl = " . &get_standard_extension_cmdline('.pl') . "\n";
print ".zip = " . &get_standard_extension_cmdline('.zip') . "\n";

View full thread Registry Einträge für "Standard Programme": zBwelcher player wird bei mp3 aufgerufen