Тема: perl
Показать сообщение отдельно
  #4  
Старый 07.12.2018, 17:18
Brother Rabbit
Guest
 
Сообщений: n/a
По умолчанию perl

Brother Rabbit написал(а) к All в Dec 18 15:00:52 по местному времени:

Нi, All!

[fido@BroRabbit]$ uname -a
Linux BroRabbit.localdomain 4.9.71-std-def-alt0.M80P.1 #1 SMP Thu Dec 21 01:27:05 UTC 2017 x86_64 GNU/Linux

НPT распоследний.

вставляю в filter.pl код:

sub filter()
{

$uuedir = "\/home\/fido\/uue";
# директория, в которой складывать ююки.
if ($area =~ /RU\.SEX\.SIMVOL/i) {
if ( $text =~ /\rbegin 644[ ]+([^ \r]+)\r.*end\r/si ){
my $ofile = "$uuedir\/$1";
w_log("uue of \"$ofile\" found.");
if (open(F, ">$ofile\.uue")){
print(F $text);
close(F);
system("uudecode -o $ofile $ofile\.uue");

#> -------------------------^^^^^^^ не срабатывает. Так и должно быть или
#> я где-то ошибся?

w_log("Dcoded \"$ofile\" from Area \"$area\".");
} else {
w_log("Can't open \"$ofile\.uue\"\: $!\.");
}
}
}

}

Нave nice nights.
Brother Rabbit.

--- Коньки и ласты - что суждено отбросить, того уже не склеишь...
Ответить с цитированием