Perl - Quicktip: Elemente vertauschen

Ein doch oft vergessenes Feature von Perl ist, das die Linke Seite einer Zuweisung aus einer Liste bestehen kann. Über diesen Weg kann man sehr simpel die Werte zweier Variablen vertauschen.

Als Beispiel der Zuweisung dient folgender Codeschnippsel:

($var1, $var2) = (1,2);
 
print "var1=$var1, var2=$var2\n";

ergibt somit die Ausgabe "var1=1, var2=2". Wenn man sich nun zunutze macht, das die rechte Seite einer Zuweisung zuerst ausgewertet wird, ergibt folgender Code

($var1, $var2) = (1,2);
 
($var1,$var2) = ($var2, $var1);
 
print "var1=$var1, var2=$var2\n"

die Ausgabe "var1=2, var2=1". Über die Zuweisung lassen sich somit die Werte der beiden Variablen einfach vertauschen.

Trackback URL for this post:

http://www.rdoering.net/trackback/32