3番目のPerl変数を使用せずに2つのPerl変数を交換するにはどうすればよいですか？

Question

私はPerlで3番目の変数を使わずに2つの変数の値を交換したいとします。 g：

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

簡単な方法でこれを行う方法を教えてください。

Answer 1

のみご提供する最良の方法は、あなたが値を交換することができます1行で、このようなものです：

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

Answer 2

あなたは書くことができます。

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

（§3.4 "List Assignment" in Learning Perl, Third Editionを参照してください。）

Answer 3

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

を。これは、2つの整数の変数をスワップします より良い解決策は、あなたがこれを行うことができ

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

Answer 4

かもしれません単純な数学を使って比較的簡単です。

わかりました。

First = 10 
Second = 20 

我々はFirst = First + Second

を言うなら私たちは今、次のを持っています。

First = 30 
Second = 20 

今、あなたは我々が今持っているSecond = First - Second (Second = 30 - 20)

を言うことができます。

今

First = 30 
Second = 10 

マイナスまずから第二に、あなたはFirst = 20、およびSecond = 10を取得します。

Answer 5

すでに記載されているPerlの固有の方法がある

firstValue = firstValue + secondValue; 

secondValue = firstValue - secondValue; 

firstValue = firstValue - secondValue; 

Answer 6

このロジックを使用することができます最高ですが、ここではPerlを含む多くの言語で動作するXORを使用するテクニックがあります：

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";