lib/shellwords.pl

   1 ;# shellwords.pl
   2 ;#
   3 ;# Usage:
   4 ;#      require 'shellwords.pl';
   5 ;#      @words = &shellwords($line);
   6 ;#      or
   7 ;#      @words = &shellwords(@lines);
   8 ;#      or
   9 ;#      @words = &shellwords;           # defaults to $_ (and clobbers it)
  10
  11 sub shellwords {
  12     package shellwords;
  13     local($_) = join('', @_) if @_;
  14     local(@words,$snippet,$field);
  15
  16     s/^\s+//;
  17     while ($_ ne '') {
  18         $field = '';
  19         for (;;) {
  20             if (s/^"(([^"\\]|\\.)*)"//) {
  21                 ($snippet = $1) =~ s#\\(.)#$1#g;
  22             }
  23             elsif (/^"/) {
  24                 die "Unmatched double quote: $_\n";
  25             }
  26             elsif (s/^'(([^'\\]|\\.)*)'//) {
  27                 ($snippet = $1) =~ s#\\(.)#$1#g;
  28             }
  29             elsif (/^'/) {
  30                 die "Unmatched single quote: $_\n";
  31             }
  32             elsif (s/^\\(.)//) {
  33                 $snippet = $1;
  34             }
  35             elsif (s/^([^\s\\'"]+)//) {
  36                 $snippet = $1;
  37             }
  38             else {
  39                 s/^\s+//;
  40                 last;
  41             }
  42             $field .= $snippet;
  43         }
  44         push(@words, $field);
  45     }
  46     @words;
  47 }
  48 1;