Perl: Text Dosyaları İçin Encoding Sorunu
Daha önce şu yazıda durumu açıklamıştık. Pratik olması açısından kodu bir de perl dilinde yazmaya çalıştım. Kod aşağıda. Özellikle altyazılar
Okumaya devam etDaha önce şu yazıda durumu açıklamıştık. Pratik olması açısından kodu bir de perl dilinde yazmaya çalıştım. Kod aşağıda. Özellikle altyazılar
Okumaya devam etYapmak istediğim şey arşiv dosyalarımın md5 karşılıklarının ilk 6 hanesini zip dosyasının sonuna eklemek! Ne işe yarayacak diye sorabilirsiniz: 1)
Okumaya devam etPerl için diziler @ işareti ile başlar. Veri okumak için ise $ ile başlayan değişkenin sonuna [] eklenerek içerisine indis
Okumaya devam etPerl 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); |
Okumaya devam et
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
#!/usr/bin/perl -w my $mfolder="./mainfolder/"; opendir(DIR, $mfolder) or die("Error_m1: $mfolder not opened!\n"); my @sub_folder_list=grep((!/^\./) && (-d "$mfolder/$_") ,readdir(DIR)); closedir(DIR); foreach my $fold(@sub_folder_list) { my $deepfold=$mfolder.$fold; opendir(DIR, $deepfold) or die("Error_m2: $deepfold not opened!\n"); my @txt_files=grep(/.txt$/,readdir(DIR)); closedir(DIR); foreach my $file(@txt_files) { print $deepfold."/".$file."\n"; } } |
1 2 3 4 5 6 7 8 9 10 11 |
#!/usr/bin/perl my $main_folder="./folder/"; my @folds=readpipe("tree -if --noreport ".$main_folder); foreach my $fold(@folds) { $fold=~s/\r//g; $fold=~s/\n//g; print $fold."\n"; } |
Son Yorumlar