= Сообщение: 3516 из 5322 ========================================= RU.HUSKY = От : Brother Rabbit 2:460/5858 08 Dec 18 11:18:06 Кому : Michael Dukelsky 08 Dec 18 11:18:06 Тема : perl FGHI : area://RU.HUSKY?msgid=2:460/5858+5c0b7ec9 На : area://RU.HUSKY?msgid=2:5020/1042+5c0abd22 = Кодировка сообщения определена как: CP866 ================================== ============================================================================== Hi, Michael!
07 дек 18 21:23, Michael Dukelsky -> Brother Rabbit:
BR>> sub filter() BR>> { BR>> $uuedir = "\/home\/fido\/uue"; BR>> # директория, в которой складывать ююки. BR>> if ($area =~ /RU\.SEX\.SIMVOL/i) {
MD> ^^^^^^^^^^^^^^^^^^^^^ MD> Поскольку эха вроде бы одна, достаточно if(lc($area) eq "ru.sex.simvol")
Ну, да. Так, видимо, быстре будет.
BR>> if ( $text =~ /\rbegin 644[ ]+([^ \r]+)\r.*end\r/si BR>> ){ 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"); #>>> -------------------------^^^^^^^ не срабатывает. Так и должно быть #>>> или я где-то ошибся?
MD> Вроде бы никаких принципиальных запретов нет. У меня system() в MD> filter.pl срабатывает.
Вот в этом я и сомневался.
MD> Но надо указать полный путь к uudecode.
Скорее всего в этом дело. Похоже, не наследуются переменные окружения.
MD> Если паче чаяния и это не сработает, то попробуй такой фокус:
MD> my @args = ("/path/to/uudecode", "-o", "$ofile", "$ofile\.uue"); MD> system(@args);