W
Size: a a a
W
CK
CK
CK
VG
W
АГ
АГ
CK
CK
W
eval{ sub qwe{ };
eval{ print("qwe\n"); };
eval{ } };
Я взоржал!АГ
VG
АГ
% perl -E 'eval{ bad code }; eval{ sub main{ print "Hello!" }; main() }'
Hello!W
eval { sub qwe { print "qwe\n"; } };
eval { qwe() };a
my $code = q{
может_быть_перловый_код;
а может какая-то белиберда dasds#$@!$@!@#;
};
eval $code;
if ( $@ ) {
print "Ошибка: $@\n";
}W
АГ
W
VG