{"id":2311,"date":"2013-06-10T20:12:07","date_gmt":"2013-06-11T03:12:07","guid":{"rendered":"http:\/\/www.sheer.us\/weblogs\/?p=2311"},"modified":"2013-06-10T20:12:49","modified_gmt":"2013-06-11T03:12:49","slug":"perl-arg-parser","status":"publish","type":"post","link":"https:\/\/www.sheer.us\/weblogs\/programming\/perl-arg-parser","title":{"rendered":"Perl arg parser"},"content":{"rendered":"


\nI use this a lot when writing a simple perl script that I want to take args like –flag and –database=this and –comment=”This is a comment with spaces”<\/p>\n
while($arg = shift) { <\/p>\n
        if(($s1,$s2) = $arg =~ \/–(.*)=(.*)\/) {
\n                $l1 = lc $s1;
\n                $s2 = $a if(($a) = $s2 =~ \/^\\”(.*)\\”$\/);
\n                $arg{$l1} = $s2;
\n        } elsif(($s1) = $arg =~ \/–(.*)\/) {
\n                $l1 = lc $s1;
\n                $arg{$l1} = 1;
\n        }
\n}
\n<\/PRE><\/p>\n
Stick it in the top of the script, and you can then just use <\/p>\n
if($arg{‘flag’}) {<\/p>\n
}<\/p>\n
$comment = $arg{‘comment’};<\/p>\n
and so on and so forth.<\/p>\n","protected":false},"excerpt":{"rendered":"
I use this a lot when writing a simple perl script that I want to take args like –flag and –database=this and –comment=”This is a comment with spaces” while($arg = shift) { if(($s1,$s2) = $arg =~ \/–(.*)=(.*)\/) { $l1 = lc $s1; $s2 = $a if(($a) = $s2 =~ \/^\\”(.*)\\”$\/); $arg{$l1} = $s2; } elsif(($s1) […]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[4,3],"tags":[],"_links":{"self":[{"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/posts\/2311"}],"collection":[{"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/comments?post=2311"}],"version-history":[{"count":2,"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/posts\/2311\/revisions"}],"predecessor-version":[{"id":2313,"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/posts\/2311\/revisions\/2313"}],"wp:attachment":[{"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/media?parent=2311"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/categories?post=2311"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/tags?post=2311"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}