time elapsed (wall): 27.9298 time running program: 27.9106 (99.93%) time profiling (est.): 0.0192 (0.07%) number of calls: 4170 %Time Sec. #calls sec/call F name 73.95 20.6410 7 2.948712 CGI::AUTOLOAD 25.48 7.1128 3626 0.001962 :...Perl/5.10.0/File/Find.pm:717 0.27 0.0746 1 0.074612 File::Find::_find_dir 0.08 0.0216 1 0.021615 :...bles/mytestsearch2011.cgi:25 0.05 0.0142 7 0.002028 CGI::_compile 0.05 0.0131 0 0.013137 * 0.04 0.0113 1 0.011286 :...y/Perl/5.10.0/CGI/Fast.pm:18 0.01 0.0029 1 0.002868 :...ibrary/Perl/5.10.0/CGI.pm:27 0.01 0.0025 71 0.000035 main::dependency_checks #### /System/Library/Perl/5.10.0/CGI.pm:867 22.53873 1: [at line 10 inside eval] ??? /Library/WebServer/CGI-Executables/mytestsearch2011.cgi:139 7.02436 117492: next unless ($sentblock =~ /\b$verbform\b/i); ##Ensure the sentence contains the searchkey /Library/WebServer/CGI-Executables/mytestsearch2011.cgi:123 0.86092 519: while (my $sentblock = ) /System/Library/Perl/5.10.0/File/Find.pm:895 0.61021 150: @filenames = readdir DIR; /Library/WebServer/CGI-Executables/mytestsearch2011.cgi:134 0.22259 29373: $sentence =~ s/, / /g; /Library/WebServer/CGI-Executables/mytestsearch2011.cgi:131 0.08909 30413: next unless ($sentblock =~ /\[sent. (\d+) len. \d+\]: \[(.+)\]/); ##Remember, talking about the whole block here /Library/WebServer/CGI-Executables/mytestsearch2011.cgi:126 0.05230 30413: if ( $sentblock =~ /file:\s(\S+)\.txt/) ##Could change to get just chpt number/word /System/Library/Perl/5.10.0/File/Find.pm:940 0.03863 3625: $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3]; /Library/WebServer/CGI-Executables/mytestsearch2011.cgi:27 0.03166 1: require '/Users/jon/Desktop/stanford-postagger-full-2011-04-20/verbTenseChanger.pl'; /Library/WebServer/CGI-Executables/mytestsearch2011.cgi:132 0.03129 29373: $sentencenumber = $1; ## $1 refers to first set of paranthesis in the last match