• Üyelik paylaşımı yasaktır! Hesabınızı başkalarına vermeyin! Hesap paylaşımları yasaklama ile sonuçlanacaktır.

Perl ile Dosya Yazma Okuma İşlemi

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Katılım
13 Ağu 2017
Mesajlar
21
Beğeni Puanı
6
Yaş
24
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.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...


Üst Alt