in reply to Flag variables
Flag variables are often a warning of using the wrong program structure.
On the other hand, I came across some convulted printing code :
It took some effort to reverse engineer the original specs, but I was able to simplify it to:if ( ..A... ) { if ( ..B.. ) { if ( ..C.. ) { if ( ..D.. ) { print ..... } else { print ... } } else { if ( .. D2.. ) { ... you get the idea ...
While things are spread out in the sense that things are detected and saved in flags in one spot, and used later, it avoids dealign with a highly nested conditional ( especially since some possible states were ignored.my $flag1 = cond1; my $prefix = (( cond2 ) ? "strting1" : "strring2"; ... print "$prefixA$suffixB" if ( condC );
Of course, there are other solutions to the problem I encountered, but that's not relevant tothe topic of flag variables.
In Section
Seekers of Perl Wisdom