Mercurial > hg > Game > Cerium

annotate example/regex_mas/time.pl @ 1681:7bc7780e8ece draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add time.pl
author Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
date Wed, 07 Aug 2013 02:27:44 +0900
parents
children 0b38dd5439d5
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1681
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 #!/usr/bin/perl
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 use strict;
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 use warnings;
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
4
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 my $loop_count = 0;
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 my $exec_result = 0;
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 my $time_result = 0;
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 my $total_time = 0;
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 my $min_time = 0;
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 my $max_time = 0;
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 my $ave_time = 0; #average_time
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
12
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 print "------setting------\n";
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 print " cpu_num = $ARGV[0]\n";
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 print "regex_exec_num = $ARGV[1]\n";
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 print "------result(ms)---\n";
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
17
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 while ($loop_count < $ARGV[1]){
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
19
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 $exec_result = `./regex -file c.txt -cpu $ARGV[0]`;
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
21
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 if($exec_result =~ /(\d+\.\d+)/ ){
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 $time_result = $1 * 1000; #元の単位がsなので、ここでmsに変換
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
24
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 if($min_time == 0) {$min_time = $time_result};
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
26 if($time_result < $min_time) {$min_time = $time_result};
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
27 if($time_result > $max_time) {$max_time = $time_result};
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
28
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
29 $total_time += $time_result;
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
30 }
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
31
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
32 #print "time:$time_result\n";
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
33 ++$loop_count;
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
34 }
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
35
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
36 $ave_time = $total_time / $ARGV[1];
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
37
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
38 print "max:$max_time\n";
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
39 print "min:$min_time\n";
7bc7780e8ece add time.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
40 print "ave:$ave_time\n"; #有効数字3桁なので、平均も有効数字3桁にする???