{"id":9196,"date":"2005-07-05T11:33:40","date_gmt":"2005-07-05T08:33:40","guid":{"rendered":"https:\/\/mamchenkov.net\/wordpress\/2005\/07\/05\/profiling-perl\/"},"modified":"2005-10-03T08:45:26","modified_gmt":"2005-10-03T05:45:26","slug":"profiling-perl","status":"publish","type":"post","link":"https:\/\/mamchenkov.net\/wordpress\/2005\/07\/05\/profiling-perl\/","title":{"rendered":"Profiling perl"},"content":{"rendered":"\n

After I’ve complained on #perl channel that dprofpp<\/code> (perl profiler) dies on me, I received a number of suggestions on how to profile the code without using dprofpp<\/code>. Ideas ranged from elemetary insertion of ‘print “Started”, time,”\\n”‘ to all sorts of dynamic subroutine overloading. Here is one elegant solution that was suggested:<\/p>\n

\r\nsub foo { print \"foo (@_)\\n\" }\r\nsub bar { print \"bar (@_)\\n\" }\r\n\r\nfor (qw(foo bar)) {\r\n  my $name = \"main::\" . $_;\r\n  my $old = *$name{CODE};\r\n  *$name = sub {\r\n    print scalar(localtime), \" Started $name\\n\";\r\n    &$old;\r\n    print scalar(localtime), \" Finished $name\\n\";\r\n  };\r\n}\r\n\r\nfoo(qw(one two));\r\nbar(qw(three four));\r\n<\/pre>\n
Oh, and someone also mentioned that dprofpp<\/code> is known to be buggy.  Here is a quote from the “Profiling Perl<\/a>” article at perl.com<\/a>:<\/p>\n
The other problem you might face is that Devel::DProf<\/code>, being somewhat venerable, occasionally has problems keeping up on certain recent Perls, (particularly the 5.6.x series) and may end up segfaulting all over the place<\/strong>.<\/p><\/blockquote>\n\n","protected":false},"excerpt":{"rendered":"\n
After I’ve complained on #perl channel that dprofpp (perl profiler) dies on me, I received a number of suggestions on how to profile the code without using dprofpp. Ideas ranged from elemetary insertion of ‘print “Started”, time,”\\n”‘ to all sorts of dynamic subroutine overloading. Here is one elegant solution that was suggested: sub foo { … Continue reading Profiling perl<\/span><\/a><\/p>\n\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_feature_clip_id":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2},"jetpack_post_was_ever_published":false,"_links_to":"","_links_to_target":""},"categories":[1,18],"tags":[246,36,244,245,248,247,249,74],"keyring_services":[],"class_list":["post-9196","post","type-post","status-publish","format-standard","hentry","category-general","category-programming","tag-optimization","tag-perl","tag-profile","tag-profiling","tag-solutions","tag-suggestions","tag-techniques","tag-tips"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t