perl
Brother Rabbit написал(а) к Michael Dukelsky в Dec 18 12:02:00 по местному времени:
Нi, Michael!
07 дек 18 21:23, Michael Dukelsky -> Brother Rabbit:
MD> my @args = ("/path/to/uudecode", "-o", "$ofile", "$ofile\.uue");
MD> system(@args);
Я пошел другим путем. ;)
=== Import Windows Clipboard Start ===
my $uudecoded_data = "";
if ( $text =~ /\rbegin 644[ ]+([^ \r]+)\r(.*\r)end\r/i ){
$ofile = "$uuedir\\$1";
$uuelines = $2;
open(F, ">>$ofile");
binmode(F);
while( $uuelines =~ /^([^ \r]+\r)/ ){
$uudecoded_data = unpack("u", $1);
print(F $uudecoded_data);
$uuelines =~ s/^[^\r]+\r//;
}
close(F);
}
=== Import Windows Clipboard End ===
Здесь, видимо, нужно еще проверять $ofile на наличие и если он уже есть, выбирать другое имя или удалять старый.
Нave nice nights.
Brother Rabbit.
--- Если ложка не стоит в сметане, очевидно, виновата не ложка!
|