{"id":1326,"date":"2011-06-10T15:17:44","date_gmt":"2011-06-10T15:17:44","guid":{"rendered":"https:\/\/supportex.net\/?p=1326"},"modified":"2019-05-10T21:13:56","modified_gmt":"2019-05-10T19:13:56","slug":"idle-processes-pid-perl","status":"publish","type":"post","link":"https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/","title":{"rendered":"Getting idle processes PID from Perl"},"content":{"rendered":"<p>There is a nice <a href=\"http:\/\/search.cpan.org\/~durist\/Proc-ProcessTable-0.40\/ProcessTable.pm\">lib<\/a> for Perl for working with processes in Linux. And it could be used to get PIDs of processes that have been working more than some amount of time.<\/p>\n<pre class=\"EnlighterJSRAW\" data-enlighter-language=\"shell\">#!\/usr\/bin\/perl -w\nuse strict;\nuse Proc::ProcessTable;\nmy $period = time-(2*60*60);\n# in this case it's two  hours\nmy $t = new Proc::ProcessTable;\nforeach my $p ( @{$t-&amp;amp;gt;table} ) {\nif (  ($p-&amp;amp;gt;start() &amp;amp;lt; $period) and ($p-&amp;amp;gt;cmndline() =~ \/your_process_name\/) ) {\nprint $p-&amp;amp;gt;pid, \"n\";\n}\n}\n<\/pre>\n<p>Now you can use simple wrapper to kill them gracefully.<\/p>\n<p><strong>Didn&#8217;t find the answer to your question? <a href=\"\/contacts\/\">Ask it<\/a> our administrators to reply we will publish on website.<\/strong><\/p>\n","protected":false},"excerpt":{"rendered":"<p>There is a nice lib for Perl for working with processes in Linux. And it could be used to get PIDs of processes that have been working more than some amount of time. #!\/usr\/bin\/perl -w use strict; use Proc::ProcessTable; my $period = time-(2*60*60); # in this case it&#8217;s two hours my $t = new Proc::ProcessTable;&hellip; <\/p>\n<div class=\"readmore-wrapper\"><a href=\"https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/\" class=\"more-link\">Read <\/a><\/div>\n","protected":false},"author":4,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[152],"tags":[275,208],"class_list":["post-1326","post","type-post","status-publish","format-standard","hentry","category-linux","tag-linux","tag-perl-en"],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v26.8 - https:\/\/yoast.com\/product\/yoast-seo-wordpress\/ -->\n<title>Getting idle processes PID from Perl &#8211; Supportex.NET blog<\/title>\n<meta name=\"description\" content=\"How to get idle processes PID from Perl\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Getting idle processes PID from Perl &#8211; Supportex.NET blog\" \/>\n<meta property=\"og:description\" content=\"How to get idle processes PID from Perl\" \/>\n<meta property=\"og:url\" content=\"https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/\" \/>\n<meta property=\"og:site_name\" content=\"Supportex.NET blog\" \/>\n<meta property=\"article:published_time\" content=\"2011-06-10T15:17:44+00:00\" \/>\n<meta property=\"article:modified_time\" content=\"2019-05-10T19:13:56+00:00\" \/>\n<meta name=\"author\" content=\"Oleksii Tykhonov\" \/>\n<meta name=\"twitter:label1\" content=\"Written by\" \/>\n\t<meta name=\"twitter:data1\" content=\"Oleksii Tykhonov\" \/>\n\t<meta name=\"twitter:label2\" content=\"Est. reading time\" \/>\n\t<meta name=\"twitter:data2\" content=\"1 minute\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/#article\",\"isPartOf\":{\"@id\":\"https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/\"},\"author\":{\"name\":\"Oleksii Tykhonov\",\"@id\":\"https:\/\/supportex.net\/blog\/en\/#\/schema\/person\/0690c26a0266603129fc15eae6243251\"},\"headline\":\"Getting idle processes PID from Perl\",\"datePublished\":\"2011-06-10T15:17:44+00:00\",\"dateModified\":\"2019-05-10T19:13:56+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/\"},\"wordCount\":68,\"commentCount\":0,\"keywords\":[\"linux\",\"perl\"],\"articleSection\":[\"linux\"],\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/\",\"url\":\"https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/\",\"name\":\"Getting idle processes PID from Perl &#8211; Supportex.NET blog\",\"isPartOf\":{\"@id\":\"https:\/\/supportex.net\/blog\/en\/#website\"},\"datePublished\":\"2011-06-10T15:17:44+00:00\",\"dateModified\":\"2019-05-10T19:13:56+00:00\",\"author\":{\"@id\":\"https:\/\/supportex.net\/blog\/en\/#\/schema\/person\/0690c26a0266603129fc15eae6243251\"},\"description\":\"How to get idle processes PID from Perl\",\"breadcrumb\":{\"@id\":\"https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\/\/supportex.net\/blog\/en\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Getting idle processes PID from Perl\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/supportex.net\/blog\/en\/#website\",\"url\":\"https:\/\/supportex.net\/blog\/en\/\",\"name\":\"Supportex.NET blog\",\"description\":\"Server and network management company\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/supportex.net\/blog\/en\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"en-US\"},{\"@type\":\"Person\",\"@id\":\"https:\/\/supportex.net\/blog\/en\/#\/schema\/person\/0690c26a0266603129fc15eae6243251\",\"name\":\"Oleksii Tykhonov\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/supportex.net\/blog\/en\/#\/schema\/person\/image\/\",\"url\":\"https:\/\/secure.gravatar.com\/avatar\/4fd5f58002717075c88963469b9babef?s=96&d=mm&r=g\",\"contentUrl\":\"https:\/\/secure.gravatar.com\/avatar\/4fd5f58002717075c88963469b9babef?s=96&d=mm&r=g\",\"caption\":\"Oleksii Tykhonov\"},\"url\":\"https:\/\/supportex.net\/blog\/author\/oleksiitykhonov\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"Getting idle processes PID from Perl &#8211; Supportex.NET blog","description":"How to get idle processes PID from Perl","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/","og_locale":"en_US","og_type":"article","og_title":"Getting idle processes PID from Perl &#8211; Supportex.NET blog","og_description":"How to get idle processes PID from Perl","og_url":"https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/","og_site_name":"Supportex.NET blog","article_published_time":"2011-06-10T15:17:44+00:00","article_modified_time":"2019-05-10T19:13:56+00:00","author":"Oleksii Tykhonov","twitter_misc":{"Written by":"Oleksii Tykhonov","Est. reading time":"1 minute"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/#article","isPartOf":{"@id":"https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/"},"author":{"name":"Oleksii Tykhonov","@id":"https:\/\/supportex.net\/blog\/en\/#\/schema\/person\/0690c26a0266603129fc15eae6243251"},"headline":"Getting idle processes PID from Perl","datePublished":"2011-06-10T15:17:44+00:00","dateModified":"2019-05-10T19:13:56+00:00","mainEntityOfPage":{"@id":"https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/"},"wordCount":68,"commentCount":0,"keywords":["linux","perl"],"articleSection":["linux"],"inLanguage":"en-US","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/","url":"https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/","name":"Getting idle processes PID from Perl &#8211; Supportex.NET blog","isPartOf":{"@id":"https:\/\/supportex.net\/blog\/en\/#website"},"datePublished":"2011-06-10T15:17:44+00:00","dateModified":"2019-05-10T19:13:56+00:00","author":{"@id":"https:\/\/supportex.net\/blog\/en\/#\/schema\/person\/0690c26a0266603129fc15eae6243251"},"description":"How to get idle processes PID from Perl","breadcrumb":{"@id":"https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/supportex.net\/blog\/2011\/06\/idle-processes-pid-perl\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/supportex.net\/blog\/en\/"},{"@type":"ListItem","position":2,"name":"Getting idle processes PID from Perl"}]},{"@type":"WebSite","@id":"https:\/\/supportex.net\/blog\/en\/#website","url":"https:\/\/supportex.net\/blog\/en\/","name":"Supportex.NET blog","description":"Server and network management company","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/supportex.net\/blog\/en\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"en-US"},{"@type":"Person","@id":"https:\/\/supportex.net\/blog\/en\/#\/schema\/person\/0690c26a0266603129fc15eae6243251","name":"Oleksii Tykhonov","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/supportex.net\/blog\/en\/#\/schema\/person\/image\/","url":"https:\/\/secure.gravatar.com\/avatar\/4fd5f58002717075c88963469b9babef?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/4fd5f58002717075c88963469b9babef?s=96&d=mm&r=g","caption":"Oleksii Tykhonov"},"url":"https:\/\/supportex.net\/blog\/author\/oleksiitykhonov\/"}]}},"_links":{"self":[{"href":"https:\/\/supportex.net\/blog\/wp-json\/wp\/v2\/posts\/1326","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/supportex.net\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/supportex.net\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/supportex.net\/blog\/wp-json\/wp\/v2\/users\/4"}],"replies":[{"embeddable":true,"href":"https:\/\/supportex.net\/blog\/wp-json\/wp\/v2\/comments?post=1326"}],"version-history":[{"count":2,"href":"https:\/\/supportex.net\/blog\/wp-json\/wp\/v2\/posts\/1326\/revisions"}],"predecessor-version":[{"id":3242,"href":"https:\/\/supportex.net\/blog\/wp-json\/wp\/v2\/posts\/1326\/revisions\/3242"}],"wp:attachment":[{"href":"https:\/\/supportex.net\/blog\/wp-json\/wp\/v2\/media?parent=1326"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/supportex.net\/blog\/wp-json\/wp\/v2\/categories?post=1326"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/supportex.net\/blog\/wp-json\/wp\/v2\/tags?post=1326"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}