From: Topatan, Kutlay (Kutlay.Topatan@marconi.com)
Date: Wed 18 Apr 2001 - 20:37:12 EEST
En basit haliyle kod su sekilde olmalidir
#### Kod Baslangici
#!/usr/bin/perl
open (DOSYA,"+<file") || die ("Hata\n\n");
@degerler = <DOSYA>;
#Degerleri array'a okuduktan sonra dosyanin basina gidelim
seek DOSYA,0,0;
foreach $sayi (@degerler)
{
$sayi = $sayi +1;
print "$sayi\n";
print DOSYA "$sayi\n";
}
close (DOSYA);
#### Kod Sonu
> Niyetim
> sayac gibi. Okudugu degeri 1 ekleyerek ekrana
> yazdirsin sonrada 1 ekleyerek elde ettigi bu degeri
> dosyanin icine kaydetsin. Bu mantikla yola cikmak
> istedim. Sayac gibi...
Iyi Calismalar
Kutlay
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/