Всем спасибо! Окончательный вариант решения проблемы у меня получился таким:
#!/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
--
ubuntu-ru mailing list
ubuntu-ru@lists.ubuntu.com
https://lists.ubuntu.com/mailman/listinfo/ubuntu-ru
