John W. Krahn [JWK], on Saturday, June 18, 2005 at 12:11 (-0700) typed: JWK> $ perl -le' JWK> my $first = 'B'; JWK> my $second = 'a';
JWK> ( $first, $second ) = map lc eq $_ ? uc : lc, ( $second , $first ); JWK> print for $first, $second; JWK> ' JWK> A JWK> b thanks John, nice solution, but if input is "ab", or "AB", this don't pass. But that I can catch in other test, so it is done without $temp. Nice, that was exactly what I want (Elvis). -- ...m8s, cu l8r, Brano. [I can't beleive that out of 500,000,000 sperm, you were the fastest!] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
