Lesiš og skrifaš ķ textaskrįr
Til žess aš bśa til skrį og skrifa ķ hana eru eftirfarandi skipanir:
open (SKRA, ">skra.txt");
print SKRA "Fyrsta lķna ķ nżrri skrį";
close SKRA;
Til žess aš bęta aftan viš textaskrį eru žessar skipanir:
open (SKRA, ">>skra.txt");
print SKRA "Önnur lķna ķ nżrri skrį";
close SKRA;
Til žess aš lesa sömu skrį og skrifa hana į skjįinn:
open (SKRA, "skra.txt");
@linur = <SKRA>;
print @linur;
Hęgt er aš stilla lestrarhįtt į żmsa vegu, t.d. žannig aš ķ hverri fęrslu ķ listanum sem tekur viš efni skrįrinnar sé ein mįlsgrein og er žį mišaš viš aš auš lķna skilji milli mįlsgreina. Til žess aš koma žvķ ķ kring žarf aš stilla į mįlsgreinalestur og leyfa aš margar lķnur (ašskildar af \n) myndi eina fęrslu:
# Lestrarmįti forrits stilltur
$/=""; # Enable paragraph mode
$*=1; # Enable multi-line pattern
open (SKRA, "skra.txt");
@malsgreinar = <SKRA>;
close SKRA;
Efni skrįarinnar mętti sķšan skrifa meš nśmerušum mįlsgreinum og lķnum t.d. į žennan veg:
$mgr = 0;
foreach (@malsgreinar){
$mgr++;
@linur = split("\n", $_);
$lin = 0;
foreach (@linur){
$lin++;
print "$mgr\-$lin:$_\n";
}
}