{"id":8132,"date":"2022-09-12T02:12:40","date_gmt":"2022-09-11T20:42:40","guid":{"rendered":"https:\/\/jassweb.com\/solved\/solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed\/"},"modified":"2022-09-12T02:12:40","modified_gmt":"2022-09-11T20:42:40","slug":"solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed","status":"publish","type":"post","link":"https:\/\/jassweb.com\/solved\/solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed\/","title":{"rendered":"[Solved] Reading a file and output in a particular format in Perl [closed]"},"content":{"rendered":"

[ad_1]
\n<\/p>\n

\n
\n
<\/div>\n
\n
\n

I think I know what you want:<\/p>\n

perl -F'\\s' -anE'BEGIN{$\/=\"\\n\\n\";}$i=$F[6];say\"$_ - \",$i--for($F[0]..$F[2])'\n<\/code><\/pre>\n
Simple, isn’t it?<\/p>\n
BTW, your example output is wrong. I see the image (copy) mirrored. Left value is bigger than right. So values in second column should go down. If it can vary in your input data you have to use little bit longer solution.<\/p>\n
perl -F'\\s' -anE'BEGIN{$\/=\"\\n\\n\";}$i=$F[6];say\"$_ - \",$i<$F[8]?$i++:$i--for($F[0]..$F[2])'\n<\/code><\/pre>\n
There is normal script version:<\/p>\n
use strict;\nuse warnings;\n\n$\/ = '\\n\\n';\n$\\ = '\\n';\n\nwhile (<>) {\n    my ( $f, $t, $i, $j ) = ( split ' ' )[ 0, 2, 6, 8 ];\n    print \"$_ - \", $i < $j ? $i++ : $i-- for ( $f .. $t );\n}\n<\/code><\/pre>\n
Edit<\/strong>:<\/p>\n
How it works? $\/ = '\\n\\n';<\/code> switches reading into paragraph mode. (“Lines” are separated by two ends of line.) $\\ = '\\n';<\/code> adds end of line after each print<\/code> invocation. Using say<\/code> instead of print<\/code> will do same thing but you have to use use feature 'say';<\/code> or -E<\/code> switch. split ' '<\/code> or -F'\\s'<\/code> splits read paragraph by white chars which includes end of line. (Note ' '<\/code> has special meaning in split<\/code> invocation.) Then it uses 1st, 3rd, 7th and 9th “word” (indexes 0,2,6,8) to determine which coordinates should be printed. $f .. $t<\/code> generates original coordinates and $i<\/code> is starting point for image coordinates. $i < $j<\/code> chooses direction of image coordinates and $i < $j ? $i++ : $i--<\/code> just generates them. Suffix for<\/code> is pretty Perl idiomatic way how to iterate trough the generated original coordinates.<\/p>\n<\/p><\/div>\n
<\/div>\n<\/div>\n
            18<\/span> <\/p><\/div>\n<\/div>\n
[ad_2]<\/p>\n
solved Reading a file and output in a particular format in Perl [closed] <\/p>\n","protected":false},"excerpt":{"rendered":"
[ad_1] I think I know what you want: perl -F’\\s’ -anE’BEGIN{$\/=”\\n\\n”;}$i=$F[6];say”$_ – “,$i–for($F[0]..$F[2])’ Simple, isn’t it? BTW, your example output is wrong. I see the image (copy) mirrored. Left value is bigger than right. So values in second column should go down. If it can vary in your input data you have to use little … Read more<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[320],"tags":[442],"class_list":["post-8132","post","type-post","status-publish","format-standard","hentry","category-solved","tag-perl"],"yoast_head":"\n[Solved] Reading a file and output in a particular format in Perl [closed] - JassWeb<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/jassweb.com\/solved\/solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed\/\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"[Solved] Reading a file and output in a particular format in Perl [closed] - JassWeb\" \/>\n<meta property=\"og:description\" content=\"[ad_1] I think I know what you want: perl -F's' -anE'BEGIN{$\/="nn";}$i=$F[6];say"$_ - ",$i--for($F[0]..$F[2])' Simple, isn’t it? BTW, your example output is wrong. I see the image (copy) mirrored. Left value is bigger than right. So values in second column should go down. If it can vary in your input data you have to use little ... Read more\" \/>\n<meta property=\"og:url\" content=\"https:\/\/jassweb.com\/solved\/solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed\/\" \/>\n<meta property=\"og:site_name\" content=\"JassWeb\" \/>\n<meta property=\"article:published_time\" content=\"2022-09-11T20:42:40+00:00\" \/>\n<meta name=\"author\" content=\"Kirat\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Written by\" \/>\n\t<meta name=\"twitter:data1\" content=\"Kirat\" \/>\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:\/\/jassweb.com\/solved\/solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed\/#article\",\"isPartOf\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed\/\"},\"author\":{\"name\":\"Kirat\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31\"},\"headline\":\"[Solved] Reading a file and output in a particular format in Perl [closed]\",\"datePublished\":\"2022-09-11T20:42:40+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed\/\"},\"wordCount\":192,\"publisher\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\"},\"keywords\":[\"perl\"],\"articleSection\":[\"Solved\"],\"inLanguage\":\"en-US\"},{\"@type\":\"WebPage\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed\/\",\"url\":\"https:\/\/jassweb.com\/solved\/solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed\/\",\"name\":\"[Solved] Reading a file and output in a particular format in Perl [closed] - JassWeb\",\"isPartOf\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#website\"},\"datePublished\":\"2022-09-11T20:42:40+00:00\",\"breadcrumb\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/jassweb.com\/solved\/solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\/\/jassweb.com\/solved\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"[Solved] Reading a file and output in a particular format in Perl [closed]\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/jassweb.com\/solved\/#website\",\"url\":\"https:\/\/jassweb.com\/solved\/\",\"name\":\"JassWeb\",\"description\":\"Build High-quality Websites\",\"publisher\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/jassweb.com\/solved\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"en-US\"},{\"@type\":\"Organization\",\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\",\"name\":\"Jass Web\",\"url\":\"https:\/\/jassweb.com\/solved\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/\",\"url\":\"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png\",\"contentUrl\":\"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png\",\"width\":693,\"height\":132,\"caption\":\"Jass Web\"},\"image\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31\",\"name\":\"Kirat\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/image\/\",\"url\":\"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1776403586\",\"contentUrl\":\"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1776403586\",\"caption\":\"Kirat\"},\"sameAs\":[\"http:\/\/jassweb.com\"],\"url\":\"https:\/\/jassweb.com\/solved\/author\/jaspritsinghghumangmail-com\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"[Solved] Reading a file and output in a particular format in Perl [closed] - JassWeb","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:\/\/jassweb.com\/solved\/solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed\/","og_locale":"en_US","og_type":"article","og_title":"[Solved] Reading a file and output in a particular format in Perl [closed] - JassWeb","og_description":"[ad_1] I think I know what you want: perl -F's' -anE'BEGIN{$\/=\"nn\";}$i=$F[6];say\"$_ - \",$i--for($F[0]..$F[2])' Simple, isn’t it? BTW, your example output is wrong. I see the image (copy) mirrored. Left value is bigger than right. So values in second column should go down. If it can vary in your input data you have to use little ... Read more","og_url":"https:\/\/jassweb.com\/solved\/solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed\/","og_site_name":"JassWeb","article_published_time":"2022-09-11T20:42:40+00:00","author":"Kirat","twitter_card":"summary_large_image","twitter_misc":{"Written by":"Kirat","Est. reading time":"1 minute"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/jassweb.com\/solved\/solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed\/#article","isPartOf":{"@id":"https:\/\/jassweb.com\/solved\/solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed\/"},"author":{"name":"Kirat","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31"},"headline":"[Solved] Reading a file and output in a particular format in Perl [closed]","datePublished":"2022-09-11T20:42:40+00:00","mainEntityOfPage":{"@id":"https:\/\/jassweb.com\/solved\/solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed\/"},"wordCount":192,"publisher":{"@id":"https:\/\/jassweb.com\/solved\/#organization"},"keywords":["perl"],"articleSection":["Solved"],"inLanguage":"en-US"},{"@type":"WebPage","@id":"https:\/\/jassweb.com\/solved\/solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed\/","url":"https:\/\/jassweb.com\/solved\/solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed\/","name":"[Solved] Reading a file and output in a particular format in Perl [closed] - JassWeb","isPartOf":{"@id":"https:\/\/jassweb.com\/solved\/#website"},"datePublished":"2022-09-11T20:42:40+00:00","breadcrumb":{"@id":"https:\/\/jassweb.com\/solved\/solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed\/#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/jassweb.com\/solved\/solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/jassweb.com\/solved\/solved-reading-a-file-and-output-in-a-particular-format-in-perl-closed\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/jassweb.com\/solved\/"},{"@type":"ListItem","position":2,"name":"[Solved] Reading a file and output in a particular format in Perl [closed]"}]},{"@type":"WebSite","@id":"https:\/\/jassweb.com\/solved\/#website","url":"https:\/\/jassweb.com\/solved\/","name":"JassWeb","description":"Build High-quality Websites","publisher":{"@id":"https:\/\/jassweb.com\/solved\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/jassweb.com\/solved\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"en-US"},{"@type":"Organization","@id":"https:\/\/jassweb.com\/solved\/#organization","name":"Jass Web","url":"https:\/\/jassweb.com\/solved\/","logo":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/","url":"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png","contentUrl":"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png","width":693,"height":132,"caption":"Jass Web"},"image":{"@id":"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31","name":"Kirat","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/image\/","url":"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1776403586","contentUrl":"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1776403586","caption":"Kirat"},"sameAs":["http:\/\/jassweb.com"],"url":"https:\/\/jassweb.com\/solved\/author\/jaspritsinghghumangmail-com\/"}]}},"_links":{"self":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts\/8132","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/comments?post=8132"}],"version-history":[{"count":0,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts\/8132\/revisions"}],"wp:attachment":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/media?parent=8132"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/categories?post=8132"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/tags?post=8132"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}