PERL – oflazoglu.org

Kategori: PERL

Perl: Text Dosyaları İçin Encoding Sorunu

caglarPosted on 23 Ağustos 2014 Genel, Konu Dışı, Nasıl ?, PERL, Yazılım kategorisine gönderildi No Comments

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 için çok işe yaradığını söyleyebilirim. Vermiş olduğum linkteki yöntem ile de aynı sorunu çözebilmeniz mümkün.

#!/usr/bin/perl -w
use Encode qw(decode encode);
my $file="dosya.srt";
my $out="son.srt";

open(DAT,$file) or die("$file acma hatasi\n");
my @lines=<DAT>;
close(DAT);
my $lines1=join("",@lines);
 my $data = encode("utf8", decode("windows-1254", $lines1));

open(DAT,">>",$out) or die("$out acma hatasi\n");
print DAT $data;
close(DAT);

#!/usr/bin/perl -w

use Encode qw(decode encode);

my $file="dosya.srt";

my $out="son.srt";

open(DAT,$file) or die("$file acma hatasi\n");

my @lines=<DAT>;

close(DAT);

my $lines1=join("",@lines);

my $data = encode("utf8", decode("windows-1254", $lines1));

open(DAT,">>",$out) or die("$out acma hatasi\n");

print DAT $data;

close(DAT);

Etiketler: altyazı, character problems, encoding, perl, subtitle, türkçe karakter, türkçe karakter sorunu

PERL: MD5 İşlemleri (Bölüm-1)

caglarPosted on 16 Temmuz 2014 Genel, PERL kategorisine gönderildi No Comments

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) Dosyalarımı tekil hale getirir (versiyon) 2) Dosyalarımın sunucu üzerindeki güvenliğini sağlar (dışarıdan deneme yanıma ile indirilmesinin önüne geçer, gereksiz trafiği …

PERL: MD5 İşlemleri (Bölüm-1) Read More »

Etiketler: digest, file md5, md5, md5sum, perl, system

Perl: Diziler

caglarPosted on 14 Temmuz 2014 PERL, Yazılım kategorisine gönderildi No Comments

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 yazılır. C dillerindeki sıradan bir yapı.

#!/usr/bin/perl -w

my @array=("bir","iki", "uc","dort");

# uzunlugu

print scalar(@array)."\n";

# degerleri

foreach my $value(@array)
{
    print $value."\n";
}

# veya

for(my $i=0;$i<scalar(@array);$i++)
{
    print $array[$i]."\n";
}

#!/usr/bin/perl -w

my @array=("bir","iki", "uc","dort");

# uzunlugu

print scalar(@array)."\n";

# degerleri

foreach my $value(@array)

{

print $value."\n";

}

# veya

for(my $i=0;$i<scalar(@array);$i++)

{

print $array[$i]."\n";

}

dizi ile ilgili yapılabilecek diğer işlemler kopya almak

my @array1=@array

1	my @array1=@array

boş dizi oluşturmak

my @empty_array=();

1	my @empty_array=();

…

Perl: Diziler Read More »

Etiketler: add element to array, array, array copy, array size, empty array, foreach, perl, push, remove element, splice

Perl: Dosya Okuma ve Yazma

caglarPosted on 11 Temmuz 2014 PERL, Yazılım kategorisine gönderildi No Comments

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); 

chomp(@tumsatirlar); # \n tum satirlardaki \n karakterlerini siler(remove \n for all lines)

foreach my $line(@tumsatirlar)
{
    print "-->".$line."\n";
}

#!/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

#!/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);

#!/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);

Etiketler: dosya işlemleri, dosya okuma, dosya yazma, perl, read file, write file

Perl: Dosya ve Klasör İşlemleri

caglarPosted on 27 Haziran 2014 PERL, Yazılım kategorisine gönderildi No Comments

#!/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";
	}

}

#!/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";

}

Etiketler: dosya, file, file and folder list, folder, klasör, list, listeleme, perl

Kategori: PERL

Perl: Text Dosyaları İçin Encoding Sorunu

PERL: MD5 İşlemleri (Bölüm-1)

Perl: Diziler

Perl: Dosya Okuma ve Yazma

Perl: Dosya ve Klasör İşlemleri

Perl: Recursive Dosya Listeleme