Jak w Perl zorganizowana jest praca z potokami wejścia-wyjścia? Wyjaśnij cechy warstw, przypisywania deskryptorów plików i podaj przykłady poprawnej pracy z plikami binarnymi i tekstowymi.

Odpowiedź.

W Perl do pracy z plikami używa się otwierania deskryptorów za pomocą open. Oprócz standardowych deskryptorów (STDIN, STDOUT, STDERR), można tworzyć własne i zarządzać nimi.

Perl używa pojęcia warstw wejścia-wyjścia (:encoding, :utf8, :raw i inne), aby poprawnie przetwarzać różne typy plików i kodowania. Domyślnie Perl może działać w trybie tekstowym (z konwersją linii) lub binarnym.

Przykład otwierania pliku tekstowego z wyraźnym kodowaniem:

open my $fh, '<:encoding(UTF-8)', 'file.txt' or die $!;
while (my $line = <$fh>) {
    print $line;
}
close $fh;

Przykład otwierania pliku binarnego:

open my $fh, '<:raw', 'image.bin' or die $!;
read($fh, my $data, -s 'image.bin');
close $fh;

Poprawny wybór warstwy (:raw dla binarnych, :encoding(NAME) dla tekstowych) zapewnia poprawne czytanie i pisanie.

---

Pytanie z podstępem.

Czy otwierając plik za pomocą konstrukcji open FH, '<', $file i odczytując dane binarne, zawsze uzyskamy poprawny wynik?

Odpowiedź: Nie! Bez wskazania :raw Perl na niektórych platformach automatycznie przekształci znaki końca linii (np. CRLF → LF na Windows). Do odczytu plików binarnych zawsze używaj trybu :raw:

open my $fh, '<:raw', 'file.bin';

---

Przykłady realnych błędów wynikających z nieznajomości szczegółów tematu.

---

Historia

W jednym projekcie korporacyjnym programiści pracowali z tekstowymi logami, odczytując linie bez wskazania kodowania. W rezultacie logi w UTF-8 czasami "psuły się" — plik read został uszkodzony podczas odczytu znaków cyrylicy, ponieważ Perl błędnie interpretował bajty. Błąd został naprawiony dopiero po wyraźnym dodaniu warstwy :encoding(UTF-8) w wywołaniu open.

---

Historia

Na Windows podczas kopiowania plików binarnych dane były odczytywane za pomocą open FH, '<', 'binfile.dat' i zapisywane bez wskazania trybu. Program "psuł" obrazy, ponieważ w strumieniu konwersji końca linii CRLF zmieniało się na LF, co prowadziło do nieprawidłowych danych binarnych. Warstwa :raw naprawiła problem.

---

Historia

W zewnętrznym API wymagano wyjścia STDOUT tylko w UTF-8, a programiści używali print bez zmiany warstwy zapisu. Aplikacja wysyłała tekst w lokalnym kodowaniu systemowym, a cyrylica wyświetlała się jako "krakozybry" po stronie klienta. Po wyraźnym zastosowaniu binmode STDOUT, ':encoding(UTF-8)' problem zniknął.