Résolu en modifiant le script :D
Code Select
#!/bin/perl
use warnings;
use strict;
use Net::DBus;
my $bus = Net::DBus->session;
my $service = $bus->get_service('org.gmusicbrowser');
my $object = $service->get_object('/org/gmusicbrowser', 'org.gmusicbrowser');
my $info= $object->CurrentSong;
unless (@ARGV)
{ print "Usage examples :\n";
print "$_ : $info->{$_}\n" for sort keys %$info;
exit;
}
for my $string (@ARGV)
{ if ($string=~m/^\w+$/ && exists $info->{$string}) {$string='$'.$string }
$string=~s/\$(\w+)/$info->{$1}/g;
print "$string\n"
}