FGHIGate на GaNJa NeTWoRK ST@Ti0N - Просмотр сообщения в эхоконференции RU.HUSKY
Присутствуют сообщения из эхоконференции RU.HUSKY с датами от 16 Jul 13 10:00:06 до 03 May 24 13:56:51, всего сообщений: 5322
= Сообщение: 3518 из 5322 ========================================= RU.HUSKY = От : Michael Dukelsky 2:5020/1042 08 Dec 18 12:48:02 Кому : Brother Rabbit 08 Dec 18 12:48:02 Тема : perl FGHI : area://RU.HUSKY?msgid=2:5020/1042+5c0b9470 На : area://RU.HUSKY?msgid=2:460/5858+5c0b89c3 = Кодировка сообщения определена как: CP866 ================================== Ответ: area://RU.HUSKY?msgid=2:460/5858+5c0baca8 ============================================================================== Привет, Brother!
08 Dec 18 12:02, Brother Rabbit послал(а) письмо к Michael Dukelsky:
MD>> my @args = ("/path/to/uudecode", "-o", "$ofile", "$ofile\.uue"); MD>> system(@args);
BR> Я пошел другим путем. ;)
А полный путь указать не пробовал?
BR> === Import Windows Clipboard Start === BR> my $uudecoded_data = ""; BR> if ( $text =~ /\rbegin 644[ ]+([^ \r]+)\r(.*\r)end\r/i ){ BR> $ofile = "$uuedir\\$1"; BR> $uuelines = $2; BR> open(F, ">>$ofile"); BR> binmode(F); BR> while( $uuelines =~ /^([^ \r]+\r)/ ){ BR> $uudecoded_data = unpack("u", $1); BR> print(F $uudecoded_data); BR> $uuelines =~ s/^[^\r]+\r//; BR> } BR> close(F); BR> } BR> === Import Windows Clipboard End ===
Судя по binmode(F), это винда. А в винде как раз без приведённого мной выше фокуса system() не работает.
BR> Здесь, видимо, нужно еще проверять $ofile на наличие и если он уже BR> есть, выбирать другое имя или удалять старый.
Да. А после open() написать or ... и дальше ругнуться в лог и прекратить обработку.
Желаю успехов, Brother! За сим откланиваюсь, Michael.
... node (at) f1042 (dot) ru --- GoldED+/LNX 1.1.5-b20170303 * Origin: ==<<.f1042.ru.>>== (2:5020/1042) |
К главной странице гейта
|