{"id":793,"date":"2013-04-04T10:40:30","date_gmt":"2013-04-04T09:40:30","guid":{"rendered":"http:\/\/blogs.silicontechnix.com\/?p=793"},"modified":"2013-04-04T10:40:30","modified_gmt":"2013-04-04T09:40:30","slug":"code-formating-script","status":"publish","type":"post","link":"https:\/\/blogs.silicontechnix.com\/?p=793","title":{"rendered":"Code formating script"},"content":{"rendered":"<pre class=\"brush:perl\">\r\n#!\/usr\/bin\/perl -w\r\n \r\nmy $ifile = shift;\r\nmy $blank = 0;\r\nmy $indent = 2;\r\nopen(IFILE, \"$ifile\") or die \"Cannot open $ifile\\n\";\r\nwhile(my $line = <IFILE>) {\r\n  if($line =~ \/^\\s*else\/i\r\n     or $line =~ \/^\\s*end\/i\r\n    ) {  #reduce indent before xxx\r\n    $blank = $blank - 2;\r\n  }\r\n  if($blank > 0) {\r\n    print \" \" x $blank;  #print several blanks\r\n    print \"$line\";\r\n  } else {\r\n    print \"$line\";\r\n    $blank = 0;\r\n  }\r\n  if($line =~ \/^\\s*if\/i\r\n     or $line =~ \/^\\s*else\/i\r\n     or $line =~ \/^\\s*loop\/i\r\n    ) {  #increase indent after xxx\r\n    $blank = $blank + 2;\r\n  }\r\n}\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>#!\/usr\/bin\/perl -w my $ifile = shift; my $blank = 0; my $indent = 2; open(IFILE, &#8220;$ifile&#8221;) or die &#8220;Cannot open $ifile\\n&#8221;; while(my $line = ) { if($line =~ \/^\\s*else\/i or $line =~ \/^\\s*end\/i ) { #reduce indent before xxx $blank = $blank &#8211; 2; } if($blank > 0) { print &#8221; &#8221; x $blank; #print [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_s2mail":"no","jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","enabled":false},"version":2}},"categories":[12,95,127],"tags":[351,352,13,353],"class_list":["post-793","post","type-post","status-publish","format-standard","hentry","category-programming","category-system-administration","category-tips","tag-code","tag-format","tag-perl","tag-script"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p12j6H-cN","_links":{"self":[{"href":"https:\/\/blogs.silicontechnix.com\/index.php?rest_route=\/wp\/v2\/posts\/793","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blogs.silicontechnix.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blogs.silicontechnix.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blogs.silicontechnix.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blogs.silicontechnix.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=793"}],"version-history":[{"count":1,"href":"https:\/\/blogs.silicontechnix.com\/index.php?rest_route=\/wp\/v2\/posts\/793\/revisions"}],"predecessor-version":[{"id":794,"href":"https:\/\/blogs.silicontechnix.com\/index.php?rest_route=\/wp\/v2\/posts\/793\/revisions\/794"}],"wp:attachment":[{"href":"https:\/\/blogs.silicontechnix.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=793"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blogs.silicontechnix.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=793"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blogs.silicontechnix.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=793"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}