たとえば、こんな感じのcgiを計測しようと思った時に
#!/usr/bin/perl
use strict;
use warnings;
use Time::HiRes qw(usleep ualarm gettimeofday tv_interval);
my $a = 'あいうえお';
my $t = [gettimeofday];
if (!$a) {
use Jcode;
}
jcode($a, 'utf8')->sjis;
print "Content-type:text/html\n\n";
print tv_interval($t);
print "\n";
exit;
と、
#!/usr/bin/perl
use strict;
use warnings;
use Time::HiRes qw(usleep ualarm gettimeofday tv_interval);
my $a = 'あいうえお';
my $t = [gettimeofday];
my $jcode;
# if (!$a) {
if ($a) {
require "/usr/lib/perl5/site_perl/5.8.8/Jcode.pm";
$jcode = Jcode->new();
}
$jcode->set($a, 'utf8')->sjis;
print "Content-type:text/html\n\n";
print tv_interval($t);
print "\n";
exit;
は、全く結果が違っちゃいます

コメントする