Re: [FWP] do... while?

[Peter Scott <Peter@PSDT.com>]

At 02:33 PM 7/2/99 -0700, Vicki Brown wrote:
>You can tell from the prefixes where this code comes from :-)
>
>                 my $bContinueLooking = 1;
>                 do {
>                     if ( $#aListOfOldAceFiles == -1 ) {
>                       $bTransferTags = 0;
>                       $bContinueLooking = 0;
>                     }
>                     else {
>                       $szOldAceFile = shift @aListOfOldAceFiles;
>                       $bIsAnAceFile = &bCheckIfThisIsAnAceFile( 
> $szOldAceFile );
>                       if ( $bIsAnAceFile ) {
>                         $bTransferTags = 1;
>                         $bContinueLooking = 0;
>                       }
>                     }
>                   } while( $bContinueLooking );
>                 }
>     }

This reminds me of some code that some people at my previous employer 
produced (if anyone from that institution is watching, it's probably not 
who you're thinking of).  I "encouraged" them to sign up for my 
Introductory Perl Class.  "No, no, I already know Perl... let me know when 
you have an advanced class..."  "Well, it doesn't hurt to review the 
basics... and you can help out anyone in the class who has trouble."  "Oh, 
okay."

Halfway through the class they are sitting there with stunned looks on 
their faces.  There are moments that make being a teacher all worthwhile :-)




--
Peter Scott
Pacific Systems Design Technologies


==== Want to unsubscribe from Fun With Perl?
==== Well, if you insist... Send mail with body "unsubscribe" to
==== fwp-request@technofile.org