VPF::UTF-7 - Форум программистов

DaemonSuw

Дата 21.8.2008, 17:09 (ссылка)

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

Загрузка ...

Бывалый

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

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

Доброго времени суток.
Есть задание "Напишите кодировщик и раскодировщик для кодировки UTF-7 (sic)." на perle. Нашел на cpane модули... только возник вопрос возможно ли самому написать на perle перекодировщик, посоветуйте инфу на эту тему и вообще реально ли это сделать?

shamber

Дата 21.8.2008, 17:12 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(DaemonSuw @ 21.8.2008, 17:09

)

Нашел на cpane модули... только возник вопрос возможно ли самому написать на perle перекодировщик, посоветуйте инфу на эту тему и вообще реально ли это сделать?

DaemonSuw, если нашли модули, то почему такой вопрос?
Сделать можно, ведь их не инопланетяне писали?
почерпнуть инфу: посмотрите, как эти модули написаны, может вам понятнее станет.

nitr

Дата 21.8.2008, 20:33 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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

DaemonSuw, гугль тоже поможет, т.к. нужна "основа". Вариант shamber хорош, но вы будете понимать "что да как"?

--------------------

I love ArchLinux

shamber

Дата 22.8.2008, 08:29 (ссылка)

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

Загрузка ...

Эксперт

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

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

nitr, точно smile

DaemonSuw, Вы книжечки какие-нибудь по perl читали?

nitr

Дата 22.8.2008, 08:43 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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

Цитата(shamber @ 22.8.2008, 08:29

)

по perl читали

я не про Perl даже сказал, хотя и они не помешают ;)

А как раз про теорию по теме данного топика smile

--------------------

I love ArchLinux

DaemonSuw

Дата 22.8.2008, 12:15 (ссылка)

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

Загрузка ...

Бывалый

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

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

Посмотрел модули нашел...

Код


#!/usr/bin/perl -w

$str = '&- (+_+) &- & ++ * йоузыв qweasd';
print "Начальная       : $str";
print "\nЗакодированная  : ",$str=decode($str);
print "\nРаскодированная : ",encode($str),"\n";

sub decode {
    my ($s) = @_;
    $s =~ s/\+/PLUS/g;
    $s =~ s/&([^,&\-]*),([^,\-&]*)\-/&$1\/$2\-/g;
    $s =~ s/&(?!\-)/\+/g;
    $s =~ s/&\-/&/g;
    $s =~ s/PLUS/+-/g;
    return $s;
}

sub encode {
    my ($s) = @_;
    $s =~ s/\+\-/PLUS/g;
    $s =~ s/\+([^\/&\-]*)\/([^\/\-&]*)\-/\+$1,$2\-/g;
    $s =~ s/&/&\-/g;
    $s =~ s/\+([^+\-]+)?\-/&$1\-/g;
    $s =~ s/PLUS/+/g;
    return $s;
}

Это сообщение отредактировал(а) DaemonSuw - 22.8.2008, 12:15

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