Говорят, что хороший программист может писать 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 =)». Ссылки на функции + хеш. В итоге получаем элегантное и расширяемое решение. Ну а у кого фантазия позволяет, может развить мысль дальше ;-)»