Làm thế nào tôi có thể trao đổi hai biến Perl mà không sử dụng thứ ba?

Question

Tôi muốn trao đổi hai giá trị biến mà không sử dụng biến thứ ba trong Perl, e. g .:

my $first = 10; 
my $second = 20; 

Hãy giới thiệu cho tôi cách chúng tôi có thể thực hiện điều này trong Perl một cách đơn giản.

Answer 1

Cách tốt nhất mà chỉ cung cấp cho chúng là như thế này trong một dòng, bạn có thể trao đổi các giá trị:

($first, $second) = ($second, $first); 

Answer 2

Bạn có thể viết:

($first, $second) = ($second, $first); 

(Xem §3.4 "List Assignment" in Learning Perl, Third Edition.)

Answer 3

$first = $first + $second; 
$second = $first - $second; 
$first = $first-$second; 

này sẽ trao đổi hai biến số nguyên Một giải pháp tốt hơn có thể là

$first = $first xor $second; 
$second = $first xor $second; 
$first = $first xor $second; 

Answer 4

Bạn có thể làm điều này tương đối dễ sử dụng toán học đơn giản.

Chúng tôi biết;

First = 10 
Second = 20 

Nếu chúng ta nói First = First + Second

Bây giờ chúng ta có như sau;

First = 30 
Second = 20 

Bây giờ bạn có thể nói Second = First - Second (Second = 30 - 20)

Bây giờ chúng ta có;

First = 30 
Second = 10 

Bây giờ trừ thứ hai từ đầu tiên, và bạn sẽ có được First = 20, và Second = 10.

Answer 5

bạn có thể sử dụng logic này

firstValue = firstValue + secondValue; 

secondValue = firstValue - secondValue; 

firstValue = firstValue - secondValue; 

phương pháp

Answer 6

Các Perl cụ thể đã được liệt kê là tốt nhất, nhưng đây là kỹ thuật sử dụng XOR hoạt động ở nhiều ngôn ngữ, bao gồm Perl:

use strict; 

my $x = 4; 
my $y = 8; 

print "X: $x Y: $y\n"; 

$x ^= $y; 
$y ^= $x; 
$x ^= $y; 

print "X: $x Y: $y\n"; 

X: 4 Y: 8 
X: 8 Y: 4 

Answer 7

#!/usr/bin/perl 

$a=5; 
$b=6; 

print "\n The value of a and b before swap is --> $a,$b \n"; 

$a=$a+$b; 
$b=$a-$b; 
$a=$a-$b; 

print "\n The value of a and b after swap is as follows:"; 
print "\n The value of a is ---->$a \n"; 
print "\n The value of b is----->$b \n";