src/parser.pm

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 package parser;
   6 use Data::Dumper;
   7
   8 print "> ";
   9 my $raw_input = <STDIN>;
  10 chomp $raw_input;
  11 my @split_input = split(/\s+/,$raw_input);
  12 #print $split_input[1];
  13 #print scalar @split_input
  14 #print "Okay, you said: @split_input\n";
  15 print Dumper \@split_input;
  16
  17 1;