Поделиться:

Проект закрыт Программист со знанием PERL -> PASCAL (конвертировать код дл

nicolapr
Бюджет: 5000 ₽
[nicolapr] [13.02.2020 | 16:46] [поднят: 15.02.2020 | 16:46]
Зарегистрирован на сайте меньше месяца
Безопасных сделок: 0
Отзывы фрилансеров: + 0 0 - 0
Необходимо конвертировать 6.5кб исходного кода на PERL с сетевыми функциями на Delphi с использованием библиотеки ICS 8.44
Суть кода заключается в передаче и приеме файла(ов) через сеть. Вот вырезка кода:
sub writeFile
{
    my ($host, $src, $dst) = @_;
    my ($total, $percent);
    my $s = IO::Socket::INET->new(PeerA ddr => $host, PeerPort => DEFAULT_PORT,
                                  Proto => 'tcp') or die;
    die "Can't open source $src.n" unless -f $src and -r $src and
        open FILE, $src;
    my ($mode, $len) = (stat FILE)[2,7];
    my $buf = pack 'CNNA*', WRITE_FILE_CMD, $mode, $len, $dst;
    print $s pack('n', length $buf), $buf;
    $| = 1;
    print 'Sending...    ';
    my $startTime = time;
    while (read FILE, $buf, 1024)
    {
        print $s $buf;
        $total += length $buf;
        my $p = int($total / $len * 100 + .5);
        printf "bbbb%3d%", ($percent = $p) if $p > $percent;
    }
    sysread($s, $buf, 1) or die "Can't read result.n";
    close $s;
    my $result = unpack 'C', $buf;
    my $endTime = time;
    $endTime++ unless $endTime – $startTime;
    print "bbbb", $result ? "done." : "failed.";
    printf " %d bytes/secn", int($total / ($endTime – $startTime));
}
Разделы:
Конкурс

Участники

Статистика по конкурсу

  • Сегодня опубликовано 0 работ и 0 комментариев

Проект закрыт Конкурс окончен 20.02.2020

Конкурс длился с 13.02.2020 до 20.02.2020

Победитель будет объявлен в четверг, 27.02.2020

Теги: написать программу, создать программу, разработать программу, разработчики программ, прикладной программист