EDLIB_TASK_PATH/;
our %EXPORT_TAGS =
- (all => [ @constants, qw/align distance/ ], constants => \@constants);
+ (all => [ @constants, qw/align distance to_cigar/ ], constants => \@constants);
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = ( @{ $EXPORT_TAGS{'constants'} } );
our $VERSION = '0.001';
align($q, $t, $k)->{editDistance}
}
+sub to_cigar {
+ my ($align, $format) = @_;
+ $align = pack 'C*', @$align;
+ $format //= EDLIB_CIGAR_STANDARD();
+ edlibAlignmentToCigar($align, $format);
+}
+
1;
__END__
say "Start locations are: @{$align->{startLocations}}";
say "End locations are: @{$align->{endLocations}}";
say "Alignment path is: @{$align->{alignment}}";
-
+ say "Alignment path (in CIGAR format): ", to_cigar $align->{alignment};
+ say "Alignment path (in extended CIGAR format): ",
+ to_cigar $align->{alignment}, EDLIB_CIGAR_EXTENDED;
=head1 DESCRIPTION