{"id":18,"date":"2004-03-12T19:28:24","date_gmt":"2004-03-12T17:28:24","guid":{"rendered":"http:\/\/frenchfragfactory.net\/ozh\/archives\/2004\/03\/12\/fake-perl-shell\/"},"modified":"2007-04-22T11:28:33","modified_gmt":"2007-04-22T09:28:33","slug":"fake-perl-shell","status":"publish","type":"post","link":"https:\/\/planetozh.com\/blog\/2004\/03\/fake-perl-shell\/","title":{"rendered":"Fake perl shell"},"content":{"rendered":"

This script emulates a (really ugly) perl shell within your bash (or wathever) session. I like it to quickly test a few regexps or a function.
\n<\/p>\n

\n\n\t\t
\n\n\t\t
\n\t\t\t\t\t\t< View plain text<\/span> ><\/a>\n\t\t\t\t\t<\/div>\n\n\t\t
perl<\/div>\n\n\t\t\n\t\t
\n\n\t<\/div>\n\t\n\t
\n\t\t
  1. #!\/usr\/bin\/perl -wn<\/span><\/div><\/li>\n
  2.  <\/div><\/li>\n
  3. # the -n switch gives us a loop around the script. the BEGIN block is<\/span><\/div><\/li>\n
  4. # only executed once. it sets up our prompt and turns off the signals<\/span><\/div><\/li>\n
  5. # that could interrupt the script<\/span><\/div><\/li>\n
  6.  <\/div><\/li>\n
  7. BEGIN<\/span> {<\/span><\/div><\/li>\n
  8. # turn off control keys<\/span><\/div><\/li>\n
  9.     $SIG<\/span>{<\/span>$_<\/span>}<\/span> =<\/span> 'IGNORE'<\/span> for<\/span> keys<\/span> %SIG<\/span>;<\/span>   <\/div><\/li>\n
  10. # let the user know how to get off this crazy thing.<\/span><\/div><\/li>\n
  11.     print<\/span> "\\n<\/span>\\t<\/span>Type\\e<\/span>[1m exit\\e<\/span>[0m when you are ready to stop.\\n<\/span>"<\/span>;<\/span><\/div><\/li>\n
  12.  <\/div><\/li>\n
  13.     $history<\/span> =<\/span> 1<\/span>;<\/span><\/div><\/li>\n
  14.     sub<\/span> prompt {<\/span><\/div><\/li>\n
  15.         print<\/span> "\\n<\/span>"<\/span>,<\/span> $ENV<\/span>{<\/span>USER}<\/span>,<\/span> '@perl-shell['<\/span>,<\/span> $history<\/span>++,<\/span> ']>'<\/span>;<\/span><\/div><\/li>\n
  16.     }<\/span><\/div><\/li>\n
  17.     prompt;<\/span><\/div><\/li>\n
  18. }<\/span><\/div><\/li>\n
  19. # the body is executed over and over (each time <> is given). all we<\/span><\/div><\/li>\n
  20. # do is eval the body, and voila, perl-shell behavior<\/span><\/div><\/li>\n
  21.  <\/div><\/li>\n
  22. eval<\/span>;<\/span><\/div><\/li>\n
  23. $@<\/span> and<\/span> warn<\/span> $@<\/span>;<\/span>  # give perl errors back to the user<\/span><\/div><\/li>\n
  24.  <\/div><\/li>\n
  25. prompt;<\/span>                # print a fresh prompt with updated history<\/span><\/div><\/li>\n
  26.  <\/div><\/li>\n
  27. END {<\/span> print<\/span> "\\n<\/span>\\t<\/span>\\t<\/span>Bye!\\n<\/span>\\n<\/span>"<\/span> }<\/span><\/div><\/li>\n<\/ol>\t<\/div>\n\n<\/div>\n\n","protected":false},"excerpt":{"rendered":"

    Light (and ugly) perl shell<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[2,3,9],"class_list":["post-18","post","type-post","status-publish","format-standard","hentry","tag-code","tag-linux","tag-perl"],"_links":{"self":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts\/18","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/comments?post=18"}],"version-history":[{"count":0,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts\/18\/revisions"}],"wp:attachment":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/media?parent=18"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/categories?post=18"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/tags?post=18"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}