PERL – oflazoglu.org

Kategori: PERL

Perl: Text Dosyaları İçin Encoding Sorunu

Posted on 23 Ağustos 2014 by

caglar Genel, Konu Dışı, Nasıl ?, PERL, Yazılım kategorisine gönderildi — Henüz Yorum Yapılmadı ↓

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)

Posted on 16 Temmuz 2014 by

caglar Genel, PERL kategorisine gönderildi — Henüz Yorum Yapılmadı ↓

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

Posted on 14 Temmuz 2014 by

caglar PERL, Yazılım kategorisine gönderildi — Henüz Yorum Yapılmadı ↓

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

Posted on 11 Temmuz 2014 by

caglar PERL, Yazılım kategorisine gönderildi — Henüz Yorum Yapılmadı ↓

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