Práca so súbormi v jazyku Perl

Súbory otvárane príkazom "open" a po skončení práce ich zatvárame príkazom "close". Súbor možno otvoriť na čítanie, na zápis, a pár ďalších možností. Ak nie je stanovené inak, súbor sa považuje za textový; číta sa po riadkoch, vrátane znaku konca riadku. Perl automaticky prispôsobuje konce riadkov danej platforme (Windows: CR LF).

Čítanie z textového súboru

Súbor otvoríme na čítanie príkazom "open", kde pred názov súboru dáme znamienko "<" (môžeme vynechať). Jednotlivé riadky načítavame pomocou operátora "<>" v cykle.

$file_path = "input.txt";
open($file, "<" . $file_path)
 or die("Neviem otvorit subor {$file_path} na citanie.\n");
while($line = <$file>) {
  print $line;
}
close($file);

Tento program v cykle načíta jednotlivé riadky textového súboru a vypíše ich na štadardný výstup.

Písanie do textového súboru

Súbor otvoríme na písanie príkazom "open", kde pred názov súboru dáme znamienko ">". Do súboru zapisujeme príkazom "print". Medzi identifikátorom súboru a zapisovaným textom nedávame čiarku (inak Perl vypíše aj identifikátor súboru aj daný text na štandardný výstup). Konce riadku musíme vypisovať tiež, pomocou "\n", inak bude všetko v jednom riadku.

$file_path = "output.txt";
open($file, ">" . $file_path)
 or die("Neviem otvorit subor {$file_path} na pisanie.\n");
print $file "Ahoj!\n";
close($file);

Tento program vypíše do textového súboru text "Ahoj!" a ukončí riadok.