🚀 go-pugleaf

Artur R. Czechowski <arturcz@kerigma.cyf.gov.pl> wrote:
: Adam [a.lesien@pbg.pl] in pl.comp.lang.perl wrote:
:> Potrzebuje dwie proste funkcje na gwalt!
:> 1. konwersja znakow ISO->WIN1250 (lub odwrotnie)
:>    w lancuchu znakow.
:>    to pewnie bedzie z jedna linijka :)
: zakładając, że tekst do konwersji masz w zmiennej $text:

: $text =~ tr/ĽĆĘŁŃÓ<8C><8F>Żšćęłńó<9C><9F>ż/ĄĆĘŁŃÓŚŹŻąćęłńóśźż/;

: [zerżnięte żywcem z wwwfixpl, (c) by Jarek Strzałkowski]

Tak, tylko że w zasadzie wystarczyłoby:

$text =~ tr/ąśźĄŚŹ/šœŸĽŒ/;

Znaczy się - tylko 6 liter jest różnych w tych kodach. A w ogóle to 
może by ktoś w końcu to napisał porządnie, tzn. używając \ooo zamiast 
ośmiobitowych znaków? :-)

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND