Perl - как создать функцию, которая принимает различные типы данных

Question

В некоторых функциях perl я хочу иметь возможность работать с различными типами аргументов и, конечно, относиться к ним по-разному. Теперь я использую для этой функции ref и выполняю соответствующую часть кода на основании результата ref, например.

sub method_that_accept_various_data_types(){ 
    if (ref $_[0] eq "ARRAY"){ 
    # ... 
    } 
    elsif (ref $_[0] eq "SCALAR"){ 
    # ... 
    } 
    elsif (ref $_[0] eq "HASH"){ 
    # ... 
    } 
} 

Есть некоторые элегантный способ, с помощью которого я могу сказать, что все мои функции должны следовать этому образцу, или я должен использовать указанный код в начале всех моих подпрограмм? Я пишу процедурный код, и я думаю, что что-то похожее - это полиморфизм и наследование в ООП, но я новичок в этой области.

Редактировать Все ответы должны добавить код ко всей вновь созданной функции. Я спрашиваю, есть ли какой-то общий способ сделать это для каждой функции, определенной с этого момента, без необходимости добавления кода в новую функцию.

Answer 1

Вы также можете использовать хэш функций/отправка таблицы, но это в основном тот же подход,

sub method_that_accept_various_data_types { 

    my $ref = ref($_[0]); 

    my $func = { 
    ARRAY => sub { 
     print "$ref\n"; 
    }, 
    SCALAR => sub { 
     print "$ref\n"; 
    }, 
    HASH => sub { 
     print "$ref\n"; 
    }, 
    }->{$ref} or return; 

    $func->(@_); 
} 

Answer 2

Вы можете использовать switch заявление от Switch module

use Switch; 

sub polymorph_function { 
    my ($arg1, $arg2, ...) = @_; 

    switch (ref $arg1) { 
     case 'ARRAY' { ... } 
     case 'HASH' { ... } 
     ... 
    } 
} 

Answer 3

Я добавляю это на примере Сухой27 как дополнительный ответ, потому что я лично считаю его плохим кодом. Но если вы предпочитаете короткий код, который вы хотели бы его:

sub polymorph_function { 
    ({ 
     ARRAY => sub { ... }, 
     HASH => sub { ... }, 
     ... 
    }->{ref $_[0]} || return)->(@_); 
} 

Это в основном те же, за исключением того, что не существует никаких временных переменных. Он создает анонимный хеш, и его ссылка непосредственно разыменовывается, и соответствующий ключ выбирается на основе ref $_[0] (тип 1-го аргумента). Затем полученный coderef к одному из подсетей вызывается сразу со всеми аргументами в исходное под.

Answer 4

Я просто подумал о способах перемещения большей части кода в центральное место.

sub polymorph_function { 
    poly \@_, (
     ARRAY => sub { ... }, 
     HASH => sub { ... }, 
     ... 
    ); 
} 

sub poly { 
    my ($args, %subs) = @_; 

    my $sub = $subs{ref $args->[0]} or return; 
    $sub->(@$args); 
}