File Coverage

blib/lib/SerialNumber/Sequence.pm

Criterion	Covered	Total	%
statement	68	68	100.0
branch	18	20	90.0
condition			n/a
subroutine	9	9	100.0
pod	5	5	100.0
total	100	102	98.0

package SerialNumber::Sequence;
use Carp;
use strict;
our $VERSION = sprintf "%d.%02d", q$Revision: 1.1.1.1 $ =~ /: (\d+)\.(\d+)/;

sub new {
	my $class = shift;
	my %opt = @_;
	my $self = bless {}, $class;
	$self->prefix('#');
	$self->number_length(1);
	return $self;
}

sub prefix {
	my $self = shift;
	my $prefix = shift;
	if ( defined $prefix ){
		$self->{_PREFIX} = $prefix;
	}
	return $self->{_PREFIX};
}

sub number_length {
	my $self = shift;
	my $length = shift;
	if ( defined $length ){
		$self->{_NUMBER_LENGTH} = int $length;
	}
	return $self->{_NUMBER_LENGTH};
}

sub from_string {
	my $self = shift;
	my $string  = shift;
	my @items = split( /\,/, $string );

	my @data;
	foreach my $item ( @items )	{
		if ( $item =~ /\-/ ){
			my ( $from, $to ) = split( /\-/, $item );
#			push @data, [ $self->_string2number($from), $self->_string2number($to) ];
			foreach ( $self->_string2number($from) .. $self->_string2number($to) ){
				push @data, $_ ;
			}
		}else{
			push @data, $self->_string2number($item);
		}
	}
	return ( wantarray ) ? @data : \@data;
}

sub from_list {
	my $self = shift;
	my $array_ref = ( ref $_[0] eq 'ARRAY' ) ? $_[0] : [@_] ;

	my @ln = sort { $a <=> $b } @$array_ref;
	my @scope;
	my $start = undef;
	my $end = undef;
	foreach (0..$#ln){
		if ( not defined $start ){
			$start = $_;
			$end = $_;
		}else{
			# Êý×Ö²»Á¬Ðø£¬Ôò±íÃ÷µ±Ç°Î»ÖÃΪжεĿªÊ¼£¬
			# ËùÒÔ½«Ö®Ç°½áÊøµÄ¶Î±£´æµ½»º´æÖÐ
			# ²¢µ±Ç°Î»Öñ£ÁôΪжÎÊý¾Ý
			if ( $ln[$_] != $ln[$_-1] + 1 ){
				$end = $_ - 1;
				push @scope, [$start,$end];
				$start = $_;
				$end = $_;
			}
			# Èç¹ûÕâ´ÎÒѾ­ÊÇ×îºóÒ»¸ö £¨Á¬ÐøÊý×ֶεÄ×îºóÒ»¸ö£¬»òÕßжεĵÚÒ»¸ö£©
			# ¶¼Ö»Òª°ÑËûÃDZ£´æµ½»º´æ¼´¿É
			if ( $_ == $#ln ){
				$end = $_;
				push @scope, [$start,$end];
			}
		}
	}

	my $string = join( ',',
		map {
			( $$_[0] == $$_[1] )
				? $self->_number2string($ln[$$_[0]])
				: join( '-', ( $self->_number2string($ln[$$_[0]]),
							   $self->_number2string($ln[$$_[1]], without_prefix => 1 ) )
					   );
		} @scope
	);

	return $string;
}

sub _string2number {
	my $self = shift;
	my $string = shift;

	my $prefix = $self->prefix;
	$string =~ s/^$prefix//e;
	my $number = int( $string + 0 );

	return $number;
}

sub _number2string {
	my $self = shift;
	my $number = shift;
	my %opt = @_;

	my $prefix = $self->prefix;
	my $length = $self->number_length;
	my $string = join ('',
							( $opt{'without_prefix'} ) ? '' : $prefix,
							sprintf("%0".$length."d", $number)
						);
	return $string;
}

1;

__END__