NYP-1 2016 14. Hafta Uygulamaları
NYP-1 2016 13. Hafta Uygulamaları
NYP-1 2016 12. Hafta Uygulamaları
Perl de dosya okuma işlemi oldukça basit
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
#!/usr/bin/perl -w my $filename="dosya.txt"; open(DAT,$filename) or die("Dosya acilamadi: $filename \n"); my @tumsatirlar=<DAT>; close(DAT); chomp(@tumsatirlar); # \n tum satirlardaki \n karakterlerini siler(remove \n for all lines) foreach my $line(@tumsatirlar) { print "-->".$line."\n"; } |
Perl de dosya yazma işlemleri
|
1 2 3 4 5 6 7 8 |
#!/usr/bin/perl -w my $filename="dosya.txt"; open(DAT,">",$filename) or die("Dosya acilamadi: $filename \n"); print DAT "birinci satiri yaz\n" print DAT "ikinci satiri yaz\n"; close(DAT); |