Говорят, что хороший программист может писать Fortran на любом языке. =)» Мы не часто замечаем простые и очевидные вещи, потому что привыкли к многолетнему опыту написания кода на другом языке. Еще одна небольшая зарисовка на тему того, как писать Perl.

Дано: программа и командный интерфейс: создать, удалить, отредактировать. Пользователь пишет команду — программа делает то, что надо.

    my $action = shift;

    if ( $action eq 'create_node' ) {
        # do some...
    }
    elsif ( $action eq 'edit_node' ) {
        # do some more
    }
    elsif ( $action eq 'delete_node' ) {
        # delete some
    }

Довольно стандартная ситуация и стандартное решение.

А интрига в том, что на Perl можно написать совсем по-другому:

    my $action = shift;

    my $do = {
        create_node => \&create_node,
        edit_node   => \&edit_node,
        delete_node => \&delete_node,
    };

    $do->{$action}->();

Вот такое простое решение, которое на 100% Perl-style =)». Ссылки на функции + хеш. В итоге получаем элегантное и расширяемое решение. Ну а у кого фантазия позволяет, может развить мысль дальше ;-)»