Ассоциации GNOME

[Alex Emergy]

Всем спасибо! Окончательный вариант решения проблемы у меня получился таким:

#!/usr/bin/perl

use strict;
use warnings;

my $home = $ENV{HOME};
my $env = "env WINEPREFIX='$home/.office'";
my @file_list = split(/\n/, `grep -l 'Microsoft Office' 
$home.local/share/applications/*`);

foreach my $filename (@file_list) {
     open FF, "<", $filename;
     my $text;
     while (<FF>) {
         s/^Exec=(.*)/Exec=sh -c "$env $1"/;
         $text .= $_;
     }
     close FF;
     open FFF, ">", $filename;
     print FFF $text;
     close FFF;
}



05.08.2011 20:56, BcTpe4HbIu пишет:
> ls ~/.local/share/applications/wine-extension-*

-- 
С уважением,
Alex Emergy