Perl ile Dosya Yazma Okuma İşlemi

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
S

septillioner

Konuyu başlatan
Üye
Katılım
13 Ağu 2017
Mesajlar
21
Tepki puanı
6
Yaş
26
Selam Arkadaşlar!
Perl ile basit bir şekilde yazma ve okuma işlemini gerçekleştiricez basit bir örnek ve anlatımla kodu buraya koyuyorum. iyi forumlar :)
Perl:
#!/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.
 
W

Wiojelt

senmisinsevdiğimokavgasenokavganıngüzelliğimisin
Süper Üye
Katılım
9 Ocak 2018
Mesajlar
1,124
Çözümler
1
Tepki puanı
234
Yaş
23
Konum
'Cu
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...