Polskie Forum Użytkowników Debiana

Witam.

Piszę skrypt w perlu (działania na plikach tekstowych). Szukam sposobu na zmianę kodowania pliku z ISO-8859-1 na UTF-8.
Znalazłam jedną metodę w Internecie, wygląda to tak:

Kod: Zaznacz cały

#!/usr/bin/perl
use Text::Iconv;
my $plik="/home/olx/plik";
$converter = Text::Iconv->new("iso-8859-1","utf-8");
$plik=$converter->convert("$plik");

Niestety nie działa, kodowanie znaków się nie zmienia.
Bardzo proszę o pomoc i wyrozumiałość, to mój pierwszy skrypt w tym języku.
Piszę go pod Debianem Wheezy.

Dodane:
Poradziłam sobie korzystając z "system", który wywołuje mi iconv.

Wg synopsisu:

Kod: Zaznacz cały

  use Text::Iconv;   
  $converter = Text::Iconv->new("fromcode", "tocode");   
  $converted = $converter->convert("Text to convert");

Konwersja jest wykonywana dla ciągu (ang. string) podanego w argumencie, a nie dla wskaźnika do pliku - musisz więc poddać konwersji zwartość pliku. http://szablony.freeware.info.pl/kodowanie.html

franek4always pisze:Wg synopsisu:

Kod: Zaznacz cały

 use Text::Iconv;   
  $converter = Text::Iconv->new("fromcode", "tocode");   
  $converted = $converter->convert("Text to convert");

Więc jak dodać do argumentu zawartość tego pliku?

Skorzystaj z File::Read http://search.cpan.org/~saper/File-Read ... le/Read.pm

Polskie Forum Użytkowników Debiana

[+] Perl - zmiana kodowania znaków

[+] Perl - zmiana kodowania znaków