Perl Arrays Unique Duplicates

Perl’de Bir Diziden Çift Kayıtları Nasıl Kaldırılır

Programlamada dizilerle çalışmak genellikle size ortak bir zorluk sunar: çift değerleri nasıl işleyeceğiniz. Eğer bu sorunla karşılaşan bir Perl programcısıysanız, bir diziden çift kayıtları etkili bir şekilde nasıl kaldıracağınızdan emin olmayabilirsiniz.

Bu blog yazısında, Perl’de bir diziden çift kayıtları kaldırmak için özel bir teknik üzerinden geçeceğiz ve size hem özel bir çözüm hem de daha yeni Perl sürümlerinde bulunan yerleşik işlevlere göz atacağız.

Problemin Anlaşılması

Aşağıdaki diziyi göz önünde bulundurun:

my @my_array = ("bir", "iki", "üç", "iki", "üç");

Bu dizide, “iki” ve “üç” değerleri birden fazla kez ortaya çıkmakta, bu da onu tekrar temizleme için bir aday haline getirmektedir. Buradaki amaç, bu diziyi benzersiz bir listeye dönüştürmek; kısacası bu çift kayıtları ortadan kaldırarak aşağıdaki sonuca ulaşmak:

bir iki üç

Çözüm: Özel Yaklaşım

Benzersiz Bir İşlev Oluşturma

Çift kayıtları kaldırmanın basit ve etkili bir yolu, özel bir işlev oluşturmaktır. Aşağıda kullanabileceğiniz uniq adında bir işlev bulunmaktadır:

sub uniq {
    my %seen;
    grep !$seen{$_}++, @_;
}

İşlevin Ayrıntıları

  1. %seen: Bu, öğeleri anahtarlar olarak saklayacak bir hash’dir. Perl’de hash’ler yalnızca benzersiz anahtarlara izin verir, bu da çift kayıtları takip etmek için mükemmel hale getirir.

  2. grep: Bu işlev, listeyi iterasyondan geçirir ve koşulu değerlendirir. Burada, !$seen{$_}++ mevcut öğenin ($_) daha önce görünüp görünmediğini kontrol eder (yani, %seen içerisinde var olup olmadığını). Eğer daha önce görünmemişse, hash’e ekler ve doğru döner; böylece grep bu öğeyi çıktıda saklar.

İşlevin Uygulanması

İşlevi dizinize aşağıdaki gibi uygulayabilirsiniz:

my @array = qw(bir iki üç iki üç);
my @filtered = uniq(@array);

print "@filtered\n"; # Bu çıktı verir: bir iki üç

Çıktının Test Edilmesi

Bu kodu çalıştırdıktan sonra, çıktınız filtrelenmiş diziyi gösterecektir:

bir iki üç

Bu, çift kayıtların başarıyla kaldırıldığını göstermektedir!

Yerleşik İşlevlerin Kullanımı

Eğer Perl sürümünüz 5.26.0 veya daha yeniyse, daha evrensel bir çözüm için yerleşik modüllerden yararlanabilirsiniz:

List::Util Modülü

List::Util modülündeki uniq işlevi çift kayıtları verimli bir şekilde yönetir. Kullanmak için:

  1. Perl sürümünüzün güncel olduğundan emin olun.
  2. Modülü kurun (gerekirse).
  3. Diziniz üzerinde doğrudan uniq kullanın.

Örnek:

use List::Util 'uniq';
my @array = qw(bir iki üç iki üç);
my @filtered = uniq(@array);

print "@filtered\n"; # Bu çıktı verir: bir iki üç

Yerleşik Uniq Neden Daha İyi?

  • Verimlilik: Yerleşik işlevler genellikle performans için optimize edilmiştir.
  • Tanımsız değerlerin işlenmesi: List::Util::uniq undef değerini ayrı bir değer olarak ele alır.
  • Uyarı verilmemesi: Bu yöntem, çift kayıtlarla ilgili uyarı vermeyecektir.

Sonuç

Perl’de bir diziden çift kayıtları kaldırmak, bir özel işlev aracılığıyla veya yerleşik yeteneklerden yararlanarak, özellikle de List::Util ile etkili bir şekilde yapılabilir. Hangi yöntemi seçerseniz seçin, dizilerinizi temizlemenin basit ve verimli olduğunu garanti edebilirsiniz. Artık dizilerle güvenle başa çıkabilirsiniz!

Bu teknikleri Perl projelerinizde pratiğe dökerek becerilerinizi geliştirin!