VPF::Перевод с перл на ... - Форум программистов

MAMOHT

Дата 3.10.2007, 20:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 2.10.2007

Репутация: нет
Всего: нет

Привет. Извените конечно.. может не по адресу.. но все же..
С перлом никогда дело не имел.. а тут надо реализовать прогу.. есть код, написанный на этом языке (знаю что код простой... но сам єтого сделать не могу ((( )..
Може кто мог бы перевести на другой язык (лучеш java, но можно и C\C++ delphi,pascal... ) .

Буду очень благодарен.

Код :

Код


#!/usr/bin/perl
# Delta Coding Perl Encoder
# Copyright (C)2002 Sebastien Aperghis-Tramoni
use strict;
use Fcntl;

die "usage: denc file" unless @ARGV;

my $file = shift;
open(FILE, $file) or die "can't open '$file': $! ";

my($buf,$prevbyte) = (0,0);
while(sysread(FILE, $buf, 1024)) {
    my @data = unpack("C*", $buf);
    for my $byte (@data) {
        my $delta = $byte - $prevbyte;
        my $tok = '';
        if($delta == 0)   { $tok = "=" }
        elsif($delta > 0) { $tok = "+$delta" }
        elsif($delta < 0) { $tok = $delta }
        print $tok;
        $prevbyte = $byte;
    }
    print "\n"
}

и это

Код


#!/usr/bin/perl -W
# Delta Coding Perl Decoder
# Copyright (C)2002 Sebastien Aperghis-Tramoni
use strict;

die "usage: ddec file" unless @ARGV;

my $file = shift;
open(FILE, $file) or die "cannot read '$file': $! ";

my $prev = 0;
while(<FILE>) {
    my @data = ();
    while(s/^([=+-])(\d*)//o) {
        my $byte;
        if($1 eq "=") { $byte = $prev }
        elsif($1 eq "+") { $byte = $prev + $2 }
        elsif($1 eq "-") { $byte = $prev - $2 }
        push @data, $byte;
        $prev = $byte;
    }
    print pack "C*", @data;
}

Это сообщение отредактировал(а) MAMOHT - 3.10.2007, 20:23

arto

Дата 3.10.2007, 22:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

надеюсь, вам поможет:

ftp://ftp.ptc.spbu.ru/people/artur/a.c
ftp://ftp.ptc.spbu.ru/people/artur/b.c

MAMOHT

Дата 3.10.2007, 23:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 2.10.2007

Репутация: нет
Всего: нет

Простите конечно, но сервер не отвечает ((

Код


Невозможно найти удаленный сервер

Вы попытались получить доступ к адресу ftp://ftp.ptc.spbu.ru/people/artur/a.c, который сейчас не доступен. Убедитесь, пожалуйста, что веб-адрес (URL) введен правильно и затем попытайтесь загрузить страницу еще раз.

Если Вам не тружно, можете ли вы кинуть код сюда ??

спасибо.

MAMOHT

Дата 4.10.2007, 01:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 2.10.2007

Репутация: нет
Всего: нет

Простите пожалуйста, но вы хотите сказать, что 18 строчек кода на перле еретворились в 18000+ на С ?? =))

arto

Дата 4.10.2007, 06:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

вы ведь попросили перевести на c?

man perlcc

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »