Cevap.

Soru tarihi:

Perl'de alt programlar baştan beri oldukça esnek bir şekilde uygulanmıştır: herhangi bir alt program çağrısı, sınırsız sayıda parametre alabilir ve bu parametreler @_ dizisine yerleştirilir. Bu yaklaşım, farklı karmaşıklık seviyelerindeki görevler için uygundur ve Perl'in dinamik yapısını destekler.

Sorun:

Birçok geliştirici, özellikle acemiler, @_ ile çalışırken karışıklık yaşayabiliyorlar - parametrelerin yanlış yapısının çözülmesi, giriş verilerinin rastgele değiştirilmesi (çünkü değişkenler değer olarak, karmaşık yapılar ise referans olarak geçer), argümanların sayısı ve türleri ile ilgili uyumsuzluk. Farklı veri türlerini dönerken ve fonksiyon prototiplerini uygulamaya çalışırken problemler ortaya çıkıyor.

Çözüm:

Alt program, argümanları @_ dizisinden açıkça yapısının çözülmesiyle elde etmelidir. Değerlerin döndürülmesi return operatörü ile gerçekleştirilir, davranış bağlama bağlıdır (skalar veya liste). Yan etkileri önlemek için, parametreler genellikle kopya veya içlerinde değişiklik gerekiyorsa referans ile alınır. Karmaşık yapılar için referans ile geçiş kullanılır.

Kod örneği:

sub add {
    my ($a, $b) = @_;
    return $a + $b;
}

sub change_array {
    my ($arr_ref) = @_;
    push @$arr_ref, 100;
}

my @nums = (1, 2, 3);
my $sum = add(5, 10);
change_array(\@nums);
print join(", ", @nums); # 1, 2, 3, 100

Anahtar özellikler:

Tip belirtilmeden argüman geçişi, @_ dizisi aracılığıyla
Çağrı bağlamına bağlı olarak farklı türlerin geri dönüşü
Orijinal verilerin değiştirilmesi için referans ile geçiş

Sormaca Sorular.

Fonksiyona iletilen parametreleri değiştirir mi, basit skalarlerle çalışırken?

Hayır, skalarlar geçişte kopyalanır, değişiklikleri orijinal verileri etkilemez. Ancak argüman bir referans ise, orijinal veriler değişebilir.

Alt programlarda varsayılan argüman değerleri atamak diğer dillerdeki gibi mümkün mü?

Doğrudan hayır. Perl'de varsayılan değerlerin işlenmesini fonksiyonun içinde defined kontrolü veya argüman sayısını kullanarak kendiniz gerçekleştirmelisiniz.

Kod örneği:

sub foo {
    my ($arg1, $arg2) = @_;
    $arg2 //= 10;
    print "$arg1 $arg2
";
}
foo(5);    # 5 10

Kopyalama yapmadan doğrudan @_ erişimi yapıldığında ne olur - örneğin, $a = $_[0]?

Bu tür bir atama bir alias oluşturur: $a'daki değişiklik $_[0]'ı değiştirir ve vice versa. Beklenmedik değişiklikleri önlemek için my ($a) = @_ kullanarak kopya oluşturulması önerilir.

Tipik hatalar ve anti-patentler

Fonksiyon içinde doğrudan @_ ile manipülasyon
return sırasında skalar veya liste bağlamına dikkat edilmemesi
Verilerin referansla geçilmeden değiştirilmesi

Gerçek Hayat Örneği

** Olumsuz durum

Bir dizi işlemi için fonksiyonda, parametreleri @_'dan yerel değişkenlere kopyalamayı unuttuk. Sonuç olarak, yerel değişkenin değiştirilmesi orijinal dizinin değişmesine sebep oldu ve programın diğer bölümlerinde hatalara yol açtı.

Artılar:

Kompakt kod

Eksiler:

Yan etkileri takip etmek zor
Kodun okunması daha zor hale geliyor

** Pozitif durum

Takımda her alt programın başında @_'nın zorunlu yapısının çözülmesi uygulması başlatıldı ve büyük nesneler yalnızca referansla geçirilmektedir.