|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : HB 2:5020/400 26 Jun 2001 21:40:12 To : All Subject : Re: шифровка -------------------------------------------------------------------------------- Sergey Golubitsky wrote in <993593276@p29.f97.n5000.z2.ftn>... >чем можно обработать такую шифровку чтоб привести в удобочитаемый вид ? > ><H2> <FONT FACE="arial"><FONT COLOR="#8B0000">Выбор ><H2> номера порта ><H2> Web-менеджера ><H2> NetWare</FONT></FONT></H2> Hу, например, вручную: %cyrillica = ( A => 'А', B => 'Б', V => 'В', G => 'Г', D => 'Д', IE => 'Е', ZH => 'Ж', M => 'М', N => 'H', O => 'О', P => 'П', R => 'Р', T => 'Т', Y => 'Ы', # etc. a => 'а', b => 'б', v => 'в', g => 'г', d => 'д', ie => 'е', zh => 'ж', m => 'м', n => 'н', o => 'о', p => 'п', r => 'р', t => 'т', y => 'ы' # etc. ); s/\&(\w\w?)cy;/$cyrillica{$1}/g; print; -------------------------------------------------- <H2> <FONT FACE="arial"><FONT COLOR="#8B0000">Выбор <H2> номера порта <H2> Web-менеджера <H2> NetWare</FONT></FONT></H2> -- HB mailto:npecca@yahoo.com?subject=Usenet --- ifmail v.2.15dev5 * Origin: VoronezhSvyazInform ISP (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/6307435174e8.html, оценка из 5, голосов 10
|