PERL – oflazoglu.org

Perl: Text Dosyaları İçin Encoding Sorunu

Tarafından caglar Yayınlanan 23 Ağustos 2014 Genel, Konu Dışı, Nasıl ?, PERL, Yazılım de yazılmıştır. Yorum Yok

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)

Tarafından caglar Yayınlanan 16 Temmuz 2014 Genel, PERL de yazılmıştır. Yorum Yok

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) Detaylar »

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

Perl: Diziler

Tarafından caglar Yayınlanan 14 Temmuz 2014 PERL, Yazılım de yazılmıştır. Yorum Yok

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 Detaylar »

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

Perl: Dosya Okuma ve Yazma

Tarafından caglar Yayınlanan 11 Temmuz 2014 PERL, Yazılım de yazılmıştır. Yorum Yok

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

Tarafından caglar Yayınlanan 27 Haziran 2014 PERL, Yazılım de yazılmıştır. Yorum Yok

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