view release on metacpan or  search on metacpan

benchmark/benchmark.pl  view on Meta::CPAN

          <th colspan="2">Keys/s<super>[<a href="#keys">2</a>]</super></th>
          <th colspan="2">Encrypt</th>
          <th colspan="2">Decrypt</th>
        </tr>
        <tr>
          <th>
            <a href="benchmark_by_ekeys.html">encrypt</a>
          </th>
          <th>
            <a href="benchmark_by_dkeys.html">decrypt</a>
          </th>
          <th>
            <a href="benchmark_by_ebytes.html">bytes/s</a>
          </th>
          <th>
            <a href="benchmark_by_eblocks.html">blocks/s</a>
          </th>
          <th>
            <a href="benchmark_by_dbytes.html">bytes/s</a>
          </th>
          <th>
            <a href="benchmark_by_dblocks.html">blocks/s</a>
          </th>
        </tr>
EOF

	my $count = 0;
    foreach my $test (sort $sort @tests) {
		next unless $test->{block};
		++$count;

		my $name_class = 'Twofish_PP' eq $test->{name} ?
			'twofish_name' : 'name';
		my $class = 'Twofish_PP' eq $test->{name} ? 
			'twofish' : 'other';
		$html .= <<EOF;
        <tr>
            <td class="$class">$count</td>
			<td class="$name_class">$test->{name} v$test->{version}</td>
            <td class="$class">$test->{language}</td>
			<td class="$class">$test->{blocksize}</td>
			<td class="$class">$test->{keysize}</td>
			<td class="$class">$test->{count_ekeys}</td>
			<td class="$class">$test->{count_dkeys}</td>
			<td class="$class">$test->{bytes_encrypt}</td>
			<td class="$class">$test->{count_encrypt}</td>
			<td class="$class">$test->{bytes_decrypt}</td>
			<td class="$class">$test->{count_decrypt}</td>
        </tr>
EOF
    }

    $html .= <<EOF;
      </tbody>
    </table>
    <hr />
<p>
Remarks:<br />
<dl>
<dt><a name="lang">[1]</a></dt>
<dd>Some modules, like Crypt::DES_EEE3 or Crypt::DES_EDE3 are actually
pure Perl modules but are implemented as a wrapper around XS modules.
These are still listed here as implemented in C.
<a href="#top">back</a></dd>

<dt><a name="keys">[2]</a></dt>
<dd>One test cycle for key generation actually consists of a constructor
call followed by one encryption resp. decryption operation, since a module
may decide to postpone the key scheduling until the direction is fixed.
The number is therefore an indicator for the encryption/decryption 
performance for small chunks of data.
<a href="#top">back</a></dd>
</p>
  </body>
</html>
EOF

	local *HANDLE;
    open HANDLE, ">benchmark$suffix.html" or
	die "cannot open 'benchmark$suffix.html' for writing: $!";
    print HANDLE $html or
	    die "cannot write to 'benchmark$suffix.html': $!";
    close HANDLE or
	    die "cannot close 'benchmark$suffix.html': $!";
    print "wrote 'benchmark$suffix.html'\n";
}

=cut
Local Variables:
mode: perl
perl-indent-level: 4
perl-continued-statement-offset: 4
perl-continued-brace-offset: 0
perl-brace-offset: -4
perl-brace-imaginary-offset: 0
perl-label-offset: -4
cperl-indent-level: 4
cperl-continued-statement-offset: 2
tab-width: 4
End:
=cut