in reply to Re: "Try join say" or why is this exception not caught?
in thread "Try join say" or why is this exception not caught? [Solved]

Hi haukex, unfortunately this isn't the case... Best regards, Karl

«The Crux of the Biscuit is the Apostrophe»

perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help

Replies are listed 'Best First'.
Re^3: "Try join say" or why is this exception not caught?
by haukex (Archbishop) on Jul 30, 2017 at 10:56 UTC

    When I make the above modification, and change the two calls of nose() to nose($array) (to see it get called), I get this output:

    $ perl 1196297.pl 
1|2|3|4|5|6|7|8|9|10
0|1|2|3|4|5|6|7|8|9
Caught: Jackass! at 1196297.pl line 32.
$ perl 1196297.pl --flag
1|2|3|4|5|6|7|8|9|10
0|1|2|3|4|5|6|7|8|9
-1|0|1|2|3|4|5|6|7|8

    [download]

    Are you expecting something else, or are you getting different output?

[reply]
[d/l]
[select]

      Ouch! I got it. But it's a bit embarrassing. Mea Culpa. Thank you very much. Best regards, Karl

      «The Crux of the Biscuit is the Apostrophe»

      perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help

[reply]
[d/l]

In Section Seekers of Perl Wisdom