in reply to Re: Re: Save all but line 32!
in thread Save all but line 32!
In Abigail-II's code, 32..32 is syntactic sugar for $.==32 .. $.==32. So when $. is equal to 32, the expression becomes true, and then becomes false for all subsequent evaluations. The unless reverses the logic so that each line of input is printed only if it's not #32. I like it!
use strict; for my $i (0 .. 20) { if (first_condition($i) .. second_condition($i)) { print "true for $i\n"; } else { print "false for $i\n"; } } sub first_condition { return $_[0] == 5; } sub second_condition { return $_[0] % 10 == 3; } __END__ false for 0 false for 1 false for 2 false for 3 false for 4 true for 5 true for 6 true for 7 true for 8 true for 9 true for 10 true for 11 true for 12 true for 13 false for 14 false for 15 false for 16 false for 17 false for 18 false for 19 false for 20
blokhead
|
|---|