Next Trivial Utilities 53

MH mark

        use Set::IntSpan;
        use Tie::File;
        sub mhc;
        20 22-25 30 40-44 55-56 59 62-64 66-73 75-77 79-81 106 108-109
        sub mhc {
          my $cmd = shift;
          my $result = qx{$cmd};
          exit 1 unless defined $result;
          chomp $result;
          $result;
        }
        # Figure out the name of the current folder
        $folder = mhc "folder -fast";


Next Menu Copyright © 2012 M. J. Dominus