Michael Dukelsky написал(а) к Brother Rabbit в Dec 18 21:23:30 по местному времени:

Привет, Brother!

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.

... node (at) f1042 (dot) ru
--- GoldED+/LNX 1.1.5-b20170303