[sarveniusz]

W jaki sposób najlepiej pozbyć się polskich znaków z pliku UTF8?

#perl #programowanie

[razvizion]

@sarveniusz: Google nie boli.

http://perlmaven.com/replace-character-by-character

tr/ąćęłńóśźżĄĆĘŁŃÓŚŹŻ/acelnoszzACELNOSZZ/

[sarveniusz]

@razvizion: tak wiem wiem, ale dla plików utf8 to nie działa, bo już sprawdzałem

[razvizion]

@sarveniusz: http://www.ogonki.agh.edu.pl/plchars.html

tr/#0104#0106 itd... ehhh no i usunęło backslashe, przed każdym # daj backslash

[sarveniusz]

@razvizion: takie coś również u mnie nie działa. W zasadzie znalazłem takie rozwiązanie:

perl -C -MText::Unidecode -n -i -e'print unidecode( $_)' unicode_text.txt

i działa, ale jeżeli użyje tego w ten sposób

#!/usr/bin/perl -w -CSA

use utf8;

use Text::Unidecode;

while(<>)

{

 my $line = $_;

 print unidecode($line);

}

już nie działa.

[razvizion]

@sarveniusz: Zobacz jeszcze to:

http://ahinea.com/en/tech/perl-unicode-struggle.html

[filo86]

@sarveniusz

lamowate trochę, no ale...

#!/usr/bin/env perl

$s = "zażółć geślą jaźń";

$out = 

echo "$s" | iconv -t ascii//translit -;

print $out;



[sarveniusz]

@filo86: Mam już w ten sposób zrobione:

#!/usr/bin/perl -w

use open ':encoding(utf8)';

use strict;

use Text::Unidecode;

while(<>)

{

 print unidecode($_);

}