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
Etiket: perl
PERL: MD5 İşlemleri (Bölüm-1)
Yapmak 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)
Perl: Diziler
Perl için diziler @ işareti ile başlar. Veri okumak için ise $ ile başlayan değişkenin sonuna [] eklenerek içerisine indis
Perl: Dosya Okuma ve Yazma
Perl de dosya okuma işlemi oldukça basit #!/usr/bin/perl -w my $filename=”dosya.txt”; open(DAT,$filename) or die(“Dosya acilamadi: $filename \n”); my @tumsatirlar=<DAT>; close(DAT);
Perl: Dosya ve Klasör İşlemleri
#!/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
Perl: Recursive Dosya Listeleme
#!/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