bu çizgi ne anlama geliyor?

my $x = shift ;

shift() bir bağımsız değişken bir dizi alır, ve o dizideki ilk öğeyi döndürür siler, sonra da dahili Perl bir yordam. Tüm parametreleri shift çağrıları ile bir alt geçirilen elde etmek için yaygın bir uygulamadır. Örneğin, üç bağımsız değişken götüren bir altyordam foo olduğunu varsayalım. Bu parametreler, yerel değişkenler için atanan bir yolu shift gibi yani

sub foo() {
  my $x = shift;
  my $y = shift;
  my $z = shift;
  # do something
}

Karışıklık burada vardiya bir dizi bağımsız değişken olarak geçirilen olmadığı anlaşılıyor. Aslında, geçirilen o "" dizi örtülü olarak, bir yordam dışında bir yordam içinde @_ @ARGV. varsayılan