From: Ahmet TaY (ahmettay@yahoo.com)
Date: Tue 17 Apr 2001 - 17:07:35 EEST
Selam arkadaslar;
Perl ile bir dosyadan bir degiskeni (rakam) üzerine 1 ekleterek ekrana
yazdiriyorum. 1 ekleyerek cikan bu sayiyi da dosyanin icine yazmak
istiyorum. Ama dosyanin icini siliyor. Kodu asagiya yazdim.
Nerede hatam var?
Yardimlariniz icin tesekkurler
Iyi Calismalar
Ahmet TaY
ahmettay@yahoo.com
#!/usr/bin/perl
open (DOSYA,"file") || die ("Hata\n\n");
@degerler = <DOSYA>;
close (DOSYA);
foreach $sayi (@degerler)
{
$sayi = $sayi +1;
print "$sayi";
}
open (NEW,">file") || die ("Hata");
print NEW "$sayi";
close (NEW);
Listeden cikmak icin:
unsub linux
mesajini listeci@bilkent.edu.tr adresine gonderiniz.
Lutfen Listeci icin MIME / HTML / Turkce Aksan kullanmayin.
Listeci arayuzu: http://listweb.bilkent.edu.tr/yardim/bilkent/linux.html
Liste arsivinin adresi: http://listweb.bilkent.edu.tr/