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.
--- Коньки и ласты - что суждено отбросить, того уже не склеишь...
|