Bonnie++ V1.03e Benchmark results

#!/usr/bin/perl { header(); my $line; while($line = ) { while($line =~ /^name,/) { $line = ; } process($line); } footer(); } sub header { print < Bonnie++ V1.03e Benchmark results END print ""; print ""; heading("Per Char"); heading("Block"); heading("Rewrite"); heading("Per Char"); heading("Block"); print ""; heading("Create"); heading("Read"); heading("Delete"); heading("Create"); heading("Read"); heading("Delete"); print ""; print ""; my $i; for($i = 0; $i < 5; $i++) { print '' . ''; } print '' . ''; print ""; for($i = 0; $i < 6; $i++) { print '' . ''; } print "\n"; } sub heading { my($item) = @_; print ""; } sub footer { print < END } sub process { my($line) = @_; chop($line); my $name = $line; $name =~ s/,.*$//; $line =~ s/$name,//; my $size = $line; $size =~ s/,.*$//; $line =~ s/$size,//; print '"; print '"; $line =~ s/,/<\/TD>\n"; }

Size:Chunk Size

Num Files

K/sec

% CPU

/ sec

% CPU

/ sec

% CPU

" . $item . "

' . $name . "

' . $size . "

/g; print "

" . $line . "