Есть ли в Perl какая-либо разница между следующими двумя конструкциями: *main::foo = *main::bar и $main::{foo} = $main::{bar} Похоже, что у них одна и та же функция (создание всех слотов в *main::foo с теми, которые определены в...

Этот пример отлично работает: use File::Slurp qw(read_file); local *File::Slurp::read_file = sub { return 'test'; }; warn File::Slurp::read_file('/root/test.txt'); # return 'test' это тоже: use File::Slurp qw(read_file); local...