Next Trivial Utilities 56

mark

        my $seq = seq_read($seqname);
        if ($op eq 'show') {            # special case
          print join "\n", $seq->elements, '';
          exit 0;
        } elsif ($op eq 'delete') {     # another
          seq_delete($seqname);
          exit 0;
        }
        $seq = $seq->$op(\@ARGV);
        seq_write($seqname, $seq);


Next Menu Copyright © 2012 M. J. Dominus