Perl

From ThorstensHome
Jump to: navigation, search

Here is a mini benchmark for perl:

$a=<STDIN>;
print time();
for ($i; $i<100000000; $i++) {};
print "\n";
print time();