Perl ile Dosya Yazma Okuma İşlemi

#!/usr/bin/perl
#yetkiler
# < yada r , Sadece okuma
# > yada w , Oluşturma,Yazdırma, Kesebilme
# >> yada a , Yazabilme,Okuyabilme, Ekleyebilme
# +< yada r+ , Yazabilme,Okuyabilme, Kesebilme
# +> yada w+ ,Yazabilme,Okuyabilme, Ekleyebilme
# +>> yada a+ , Yazabilme,Okuyabilme, Ekleyebilme ve Oluşturabilme

$dosya=">>test.txt"; # okuma yazma ve ekleyebilme yetkili dosya ismi
$dosyar="<test.txt"; # okuma yetkili dosya ismi
# Dosya Yazdirma Islemi

#Yazma
open(VERI,$dosya) or die "$dosya dosya acilamiyor.\n"; # Dosyayi acar acamazsa dosya acilamiyor yazdirir
$data = "selam";#yazdırılacak veri
print VERI $data; # Dosyaya $data yi yazdirir. (VERI YE $data YAZDIR)
print "Dosyaya $data yazdirildi.\n";
close(VERI); # Dosyayı kapatır.

#Okuma
open(VERIS,$dosyar) or die "$dosyar acilamiyor"; # Dosyayi sadece okuma modunda açma eğer hata çıkarsa $dosyar acilamiyor yazdir.
print "$dosyar acildi\n";
$veri = "";
read(VERIS,$veri, 5); # VERIS adlı dosya oturmundan 5 bytelik veri oku ve $veri değişkenine yazdır
print $veri; # $veri değişkenini yazdırma
close(VERIS); # dosya oturumu kapatilir.