--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/example/regex_mas/time.pl	Wed Aug 07 02:27:44 2013 +0900
@@ -0,0 +1,40 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+my $loop_count = 0;
+my $exec_result = 0;
+my $time_result = 0;
+my $total_time = 0;
+my $min_time = 0;
+my $max_time = 0;
+my $ave_time = 0; #average_time
+
+print "------setting------\n";
+print "    cpu_num    = $ARGV[0]\n";
+print "regex_exec_num = $ARGV[1]\n";
+print "------result(ms)---\n";
+
+while ($loop_count < $ARGV[1]){
+
+    $exec_result = `./regex -file c.txt -cpu $ARGV[0]`;
+
+    if($exec_result =~ /(\d+\.\d+)/ ){
+        $time_result = $1 * 1000; #元の単位がsなので、ここでmsに変換
+
+        if($min_time == 0) {$min_time = $time_result};
+        if($time_result < $min_time) {$min_time = $time_result};
+        if($time_result > $max_time) {$max_time = $time_result};
+
+        $total_time += $time_result;
+    }
+
+    #print "time:$time_result\n";
+    ++$loop_count;
+}
+
+$ave_time = $total_time / $ARGV[1];
+
+print "max:$max_time\n";
+print "min:$min_time\n";
+print "ave:$ave_time\n"; #有効数字3桁なので、平均も有効数字3桁にする???