Dwie proste funkcje

Thread View: pl.comp.lang.perl

4 messages

[T] Back to Threads [V] Tree View [G] Group Articles

4 total messages Started by Adam Lesien Fri, 13 Mar 1998 13:01

#1113

Author: Adam Lesien
Date: Fri, 13 Mar 1998 13:01

10 lines
750 bytes

Potrzebuje dwie proste funkcje na gwalt!
1. konwersja znakow ISO->WIN1250 (lub odwrotnie)
   w lancuchu znakow.
   to pewnie bedzie z jedna linijka :)
2. mam plik z wzorcem.
   funkcja ma wycinac wzorzec z innego pliku.

Dzieki za wszelka pomoc!

Adam

Re: Dwie proste funkcje

#1114

Author: Artur R. Czechowski
Date: Fri, 13 Mar 1998 13:43

40 lines
1828 bytes

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

Re: Dwie proste funkcje

#1115

Author: Piotr Piatkowski
Date: Mon, 16 Mar 1998 14:43

22 lines
1561 bytes

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

Re: Dwie proste funkcje

#1116

Author: Jaroslaw Strzalkowski
Date: Tue, 17 Mar 1998 08:16

8 lines
1106 bytes

Piotr Piatkowski <kompas@galaxy.uci.agh.edu.pl> wrote:
: 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? :-)

ftp://ftp.uci.agh.edu.pl/ogonki/konwertery/js/wwwfixpl
-- 
Jaroslaw Strzalkowski, Uczelniane Centrum Informatyki AGH, Krakow

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads