libexec/perlshell

   1 #!/usr/bin/perl
   2
   3 # See also -> irc://irc.freenode.net/query:buubot3
   4
   5 use strict;
   6 no strict 'vars';
   7 no strict 'refs';
   8 use warnings;
   9
  10 use Data::Dumper;
  11 $Data::Dumper::Indent--;
  12
  13 $| = 1;
  14
  15 # an alias for exit()
  16 sub quit { exit; }
  17
  18 my ($ver,$maj,$min) = ($] =~ /(\d+)\.(\d{3})(\d{3})/);
  19 $maj += 0;
  20 $min += 0;
  21 print +(split '/', $^X)[-1], " $ver.$maj.$min\n";
  22
  23 $, = ',';
  24 $THE_PROMPT = '% ';
  25 print $THE_PROMPT;
  26 while (<>) { print eval; print +($@ || "\n") . $THE_PROMPT };
  27