Next Trivial Utilities 55

mark overengineering

        sub usage {
          warn "Usage: $0 [+folder] [sequence [OP [msglist]]]
          OPs are:\n";
          my %syn;
          for my $k (keys %canonical) {
            push @{$syn{$canonical{$k}}}, $k;
          }
          for my $op (sort keys %syn) {
            warn join " ", "", "", sort(@{$syn{$op}}), "\n";
          }
          exit 1;
        }
        Usage: /home/mjd/bin/mark [+folder] [sequence [OP [msglist]]]
          OPs are:
          = assign c copy set 
          0 del delete x 
          - d diff difference w without 
          * a and i intersect intersection 
           ? p print s show 
          + add o or u union 


Next Menu Copyright © 2012 M. J. Dominus