История изменений

Исправление AITap, 17.09.12 18:14 (текущая версия) :

($sec, $min, $hour, $day, $month, $year) = (localtime)[0..5];
my $dt=($year+1900).'-'.($month+1).'-'.$day.'_'.$hour.':'.$min.':'.$sec.'.log';

use POSIX 'strftime';

system(«wine приложение1.exe &»);

use IPC::Run;

А так у Вас из-под Perl запускается шелл и запускает программы, да ещё и в фоне. Естественно, что часть текста в таких условиях может потеряться.

Также можно попробовать Capture::Tiny для отлова STDOUT и STDERR произвольного кода.

Исходная версия AITap, 17.09.12 18:13:

($sec, $min, $hour, $day, $month, $year) = (localtime)[0..5];
my $dt=($year+1900).'-'.($month+1).'-'.$day.'_'.$hour.':'.$min.':'.$sec.'.log';

use POSIX 'strftime';

system(«wine приложение1.exe &»);