Performanceunterschied oder nur Schreibersparnis?

[Beat]

Hi Nickel!

sind folgende Statements gleichwertig?
Das zweite ist schneller. Aber wofür brauchst du sowas? Wären Arrays nicht vorteilhafter?

Auf meinem System ist Variante 1 schneller als variante 2. Beide aber sind langsamer als Variante 3.

  
#!C:/Programme/Perl/bin/perl.exe -w  
#  
use strict;  
  
BEGIN {  
 use CGI::Carp qw(carpout);  
 open(LOG, ">>error.txt")  or  die "Unable to append to error.txt: $!\n";  
 carpout(*LOG);  
}  
use Benchmark;  
print "benchmark\n";  
  
my($v,$w,$x,$y,$z);  
  
timethese( 5000000, { one => 'mysub1', two => 'mysub2', three => 'mysub3', } );  
print "\n";  
sleep(20);  
sub mysub1{  
 $v=""; $w=""; $x=""; $y=""; $z="";  
}  
  
sub mysub2{  
 $v = $w = $x = $y = $z = "";  
}  
  
sub mysub3{  
 ( $v, $w, $x, $y, $z ) = ("", "", "", "", "" );  
}  
  
exit 0;  

mfg Beat;