Next Trivial Utilities 61

sortby

        my $FIELD = 'subject';
        my $REVERSE = 1;  # -1 means reverse, 1 means forward

        while (@ARGV) {
          local $_ = shift;
          if (/^\+(.*)/) {
            $FOLDER = $1;
          } elsif (/^(-f|-fi|-fie|-fiel|-field)$/) {
            $FIELD = shift;
          } elsif (/^(?:-v|-ve|-ver|-verb|-verbo|-verbos|-verbose)$/) {
            $VERBOSE = 1;
          } elsif (/^(?:-r|-re|-rev|-reve|-rever|-revers|-reverse)$/) {
            $REVERSE = -1;
          } elsif (/^-/) {
            warn "Unrecognized option '$_'\n";
            $BAD=1;
          } else {
            $BAD=1;
          }
        }



Next Menu Copyright © 2012 M. J. Dominus