in reply to my $x = <expr>; vs my $x; $x = <expr>;
#!/usr/bin/perl use strict; use warnings; no warnings qw /syntax/; use Benchmark qw /cmpthese/; cmpthese -1 => { single => 'my $x = "foo"', double => 'my $x; $x = "foo"', }; __END__ Rate double single double 2710223/s -- -14% single 3143931/s 16% --
Abigail
|
|---|