Re^7: Preprocessing print statements

> Customer: "I don't know!"

Look, I'm not "support" or a "code writing service".

And "I don't know" any better strategy to teach Perl, than asking and stimulating efforts.

If you think you can do better, you are welcome to demonstrate your understanding of "support" ...

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

Comment on Re^7: Preprocessing print statements

Replies are listed 'Best First'.
Re^8: Preprocessing print statements by karlgoethebier (Abbot) on Nov 14, 2020 at 10:12 UTC
"...better strategy..." Tja, I'm not sure. Consider use of last: `# Some possible answers #1: The solution is obvious. #2: Use a block. #3 Make it so: KARL: { if ($x) { $y or last; print "Continue with the if clause\n"; } }` [download] 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] [select]

Replies are listed 'Best First'.

Re^8: Preprocessing print statements
by karlgoethebier (Abbot) on Nov 14, 2020 at 10:12 UTC

"...better strategy..."

Tja, I'm not sure.

Consider use of last:

# Some possible answers
#1: The solution is obvious.
#2: Use a block.
#3  Make it so:
KARL: {
    if ($x) {
        $y or last;
        print "Continue with the if clause\n";
    }
}
[download]

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]
[select]