🚀 go-pugleaf

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]

> 2. mam plik z wzorcem.
>    funkcja ma wycinac wzorzec z innego pliku.

open(W,"/plik/z/wzorc.em");
$wzorzec=<W>;
close W;
chop $wzorzec;
open(I,"/inny/pl.ik");
@inny=<I>;
close(I);
@inny=~s/$wzorzec//gm;
open(I,">/inny/pl.ik");
print I @inny; ###!!! tutaj nie jestem pewien[1]
close(I);

[1] jeżeli w pliku wynikowym okaże się, że każda linijka ma na początku spację,
    której nie powinno być, to tą linijkę trzeba zastąpić poniższymi:

$inny=" @inny";
$inny=~s/^ //gm;
print I $inny;

Pozdrawiam


PS. RTFM
-- 
Artur R. Czechowski <arturcz@kerigma.cyf.gov.pl>
See http://pgp.icm.edu.pl/pks/ for PGP public key