sprintfは速い
#!/usr/bin/perl
use utf8;
binmode STDIN => ":raw";
binmode STDOUT => ":raw";
binmode STDERR => ":raw";use Benchmark;
Benchmark::timethese(300000, {
's_original' =>\&s_original,
's_new' => \&s_new,
});sub s_original{
my $a = 'あれ';
my $b = '声が';
my $c = '遅れて';
my $d = '聞こえるよ';
my $e = 'という';
my $f = 'モノマネを';
my $g = 'やってみる。';$result .= sprintf(
"%s\t%s\t%s\t%s\t%s\t%s\t%s\n",$a,$b,$c,$d,$e,$f,$g);
}sub s_new{
my $a = 'あれ';
my $b = '声が';
my $c = '遅れて';
my $d = '聞こえるよ';
my $e = 'という';
my $f = 'モノマネを';
my $g = 'やってみる。';$result .= "$a\t$b\t$c\t$d\t$e\t$f\t$g\n";
}
s_originalの勝ち。