07 Dec 18 15:00, Brother Rabbit послал(а) письмо к All:
BR> вставляю в filter.pl код:
BR> sub filter() BR> { BR> $uuedir = "\/home\/fido\/uue"; BR> # директория, в которой складывать ююки. BR> if ($area =~ /RU\.SEX\.SIMVOL/i) { ^^^^^^^^^^^^^^^^^^^^^ Поскольку эха вроде бы одна, достаточно if(lc($area) eq "ru.sex.simvol")
BR> if ( $text =~ /\rbegin 644[ ]+([^ \r]+)\r.*end\r/si ){ BR> my $ofile = "$uuedir\/$1"; BR> w_log("uue of \"$ofile\" found."); BR> if (open(F, ">$ofile\.uue")){ BR> print(F $text); BR> close(F); BR> system("uudecode -o $ofile $ofile\.uue"); #>> -------------------------^^^^^^^ не срабатывает. Так и должно быть #>> или я где-то ошибся?
Вроде бы никаких принципиальных запретов нет. У меня system() в filter.pl срабатывает. Но надо указать полный путь к uudecode. Если паче чаяния и это не сработает, то попробуй такой фокус:
my @args = ("/path/to/uudecode", "-o", "$ofile", "$ofile\.uue"); system(@args);
Желаю успехов, Brother! За сим откланиваюсь, Michael.
