Format CRC

gistfile1.pl

warn $self->_format_crc(join('', 'a'..'z'), 17, '...', 4);

sub _format_crc {
	my $self  = shift;
	my $crc   = shift;
	
	my $size  = shift || 15;
	my $miss  = shift || '...';
	my $end   = shift || 4;
	
	my $start = $size - $end - length $miss;
	
	$crc =~ s/^(.{$start}).*(.{$end})$/$1$miss$2/;
	return $crc;
}