Re: [FWP] do... while?

[tomr@aceldama.com]

On Fri, Jul 02, 1999 at 08:21:26PM -0500, Rubinow, Larry wrote:
> Why?  Because it's friggin' immoral.
> 
> while( scalar @ListOfOldAceFiles ) {
> 	$OldAceFile = shift @ListOfOldAceFiles;
> 	if ( CheckIfThisIsAnAceFile( $OldAceFile )) { 
> 		$TransferTags = 1;
> 		last;
> 	}
> }
>
> I'd have shifted the filename directly into the function call, but I
> thought it might be needed later ...

I'll assume that your code duplicates the original extremely ugly
code, at which I don't want to look. I'd probably shorten this to:

while ( defined ($OldAceFile = shift @ListOfOldAceFiles)
    and !CheckIfThisIsAnAceFile($OldAceFile)
     or !($TransferTags = 1) ) {}

> -----Original Message-----

Anyone have a quick script to fix messages from mail clients which
insist on quoting messages like this?

Tom

-- 
--    Tom Rathborne    tomr@aceldama.com
--                     http://www.aceldama.com/~tomr/
--    "I seem to be having tremendous difficulty with my life-style."

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