| File | /home/koumei2/tmp/ddd2.pl |
| Statements Executed | 1393 |
| Statement Execution Time | 102ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 2 | 44µs | 44µs | main::CORE:prtf (opcode) |
| 0 | 0 | 0 | 0s | 0s | main::BEGIN |
| 0 | 0 | 0 | 0s | 0s | main::RUNTIME |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | 1 | 5.74ms | #!/usr/local/bin/perl -w | ||
| 2 | |||||
| 3 | |||||
| 4 | 3 | 26.7ms | 1 | 143µs | use Wiki::DB::Wiki; # spent 143µs making 1 call to Exporter::import |
| 5 | 3 | 18.8ms | 1 | 141µs | use WWW::Google::PageRank; # spent 141µs making 1 call to Exporter::import |
| 6 | 1 | 27µs | 1 | 455µs | my $pr = WWW::Google::PageRank->new; # spent 455µs making 1 call to WWW::Google::PageRank::new |
| 7 | 1 | 80µs | 1 | 868ms | for my $i (Wiki::DB::Wiki->retrieve_all) { # spent 868ms making 1 call to Class::DBI::Plugin::RetrieveAll::__ANON__[Class/DBI/Plugin/RetrieveAll.pm:93] |
| 8 | 1383 | 26.1ms | 461 | 220ms | my $url = "http://fujisawa.homedns.org/wiki/index.pl?id=" . $i->id; # spent 220ms making 461 calls to Class::Accessor::__ANON__[Class/Accessor.pm:395], avg 477µs/call |
| 9 | 1 | 24.8ms | 461 | 153s | my $rank = scalar($pr->get($url)); # spent 153s making 461 calls to WWW::Google::PageRank::get, avg 331ms/call |
| 10 | printf "%s,%s,%s\n", $i->title, $url, $rank if $rank; # spent 11.3ms making 1 call to Class::Accessor::__ANON__[Class/Accessor.pm:395]
# spent 44µs making 1 call to main::CORE:prtf | ||||
| 11 | } | ||||
# spent 44µs within main::CORE:prtf which was called
# once (44µs+0s) by main::RUNTIME at line 10 of ddd2.pl |