Check in the pristine copy of ICU 4.6...

icu46/source/test/perf/strsrchperf/StrSrchPerf_r.pl

+#!/usr/bin/perl
+#  ********************************************************************
+#  * COPYRIGHT:
+#  * Copyright (c) 2008, International Business Machines
+#  * Corporation and others. All Rights Reserved.
+#  ********************************************************************
+
+#use strict;
+
+require "../perldriver/Common.pl";
+
+use lib '../perldriver';
+
+use PerfFramework;
+
+my $options = {
+    "title" => "String search performance regression: ICU ("
+      . $ICUPreviousVersion . " and "
+      . $ICULatestVersion . ")",
+    "headers"     => "ICU" . $ICUPreviousVersion . " ICU" . $ICULatestVersion,
+    "operationIs" => "code point",
+    "timePerOperationIs" => "Time per code point",
+    "passes"             => "10",
+    "time"               => "5",
+
+    #"outputType"=>"HTML",
+    "dataDir"   => $UDHRDataPath,
+    "outputDir" => "../results"
+};
+
+# programs
+
+my $p1;    # Previous
+my $p2;    # Latest
+
+if ($OnWindows) {
+    $p1 = $ICUPathPrevious . "/strsrchperf/$WindowsPlatform/Release/strsrchperf.exe -b";
+    $p2 = $ICUPathLatest . "/strsrchperf/$WindowsPlatform/Release/strsrchperf.exe -b";
+}
+else {
+    $p1 = $ICUPathPrevious . "/strsrchperf/strsrchperf -b";
+    $p2 = $ICUPathLatest . "/strsrchperf/strsrchperf -b";
+}
+
+my $dataFiles = {
+    "en" => ["udhr_eng.txt"],
+    "de" => ["udhr_deu_1996.txt"],
+    "fr" => ["udhr_fra.txt"],
+    "ru" => ["udhr_rus.txt"],
+    "th" => ["udhr_tha.txt"],
+    "ja" => ["udhr_jpn.txt"],
+    "zh" => ["udhr_cmn_hans.txt"],
+};
+
+my $tests = {
+    "ICU Forward Search", [ "$p1 Test_ICU_Forward_Search", "$p2 Test_ICU_Forward_Search" ],
+    "ICU Backward Search",[ "$p1 Test_ICU_Backward_Search", "$p2 Test_ICU_Backward_Search" ],
+};
+
+runTests( $options, $tests, $dataFiles );
+
+