array.pm

普通的ETL工具

# vim:ts=4 sw=4
# ----------------------------------------------------------------------------------------------------
#  Name		: ETL::Pequel3::Type::Macros::Array.pm
#  Created	: 8 May 2006
#  Author	: Mario Gaffiero (gaffie)
#
# Copyright 1999-2007 Mario Gaffiero.
# 
# This file is part of Pequel(TM).
# 
# Pequel is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; version 2 of the License.
# 
# Pequel is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with Pequel; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
# ----------------------------------------------------------------------------------------------------
# Modification History
# When          Version     Who     What
# ----------------------------------------------------------------------------------------------------
require 5.005_62;
use strict;
use warnings;
use vars qw($VERSION $BUILD);
$VERSION = 0.01;
$BUILD = 'Friday September 22 21:19:58 BST 2006';
use ETL::Pequel3::Type::Macros;
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Macros::Array::Abstract;
	use base qw(ETL::Pequel3::Type::Macros::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'category', default => 'array');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Macros::ToArray;
	use base qw(ETL::Pequel3::Type::Macros::Array::Abstract);
	use Class::STL::ClassMembers 
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Uses the I<default_list_delimiter> property to split the I<expr> and returns the array of elements.'),
		Class::STL::ClassMembers::DataMember->new(name => 'usage', default => '&to_array(E<lt> I<expr> E<gt>)'),
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'to_array');
	use Class::STL::ClassMembers::Constructor;
	sub translate
	{
		my $self = shift;
		my $c = $self->SUPER::translate(@_);
		$c->code("split(\/\\s*@{[ $self->configuration()->default_list_delimiter() ]}\\s*\/,$_[0],-1)");
		return $c;
	}
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Macros::ArrSize;
	use base qw(ETL::Pequel3::Type::Macros::Array::Abstract);
	use Class::STL::ClassMembers 
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Returns the number of elements in the I<expr> array.'),
		Class::STL::ClassMembers::DataMember->new(name => 'usage', default => '&arr_size(E<lt> I<expr> E<gt>)'),
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'arr_size');
	use Class::STL::ClassMembers::Constructor;
	sub translate
	{
		my $self = shift;
		my $c = $self->SUPER::translate(@_);
		$c->code(join(' + ', map("($_ eq '' ? 0 : 1 + $_ =~ tr/@{[ $self->configuration()->default_list_delimiter() ]}//)", @_)));
		return $c;
	}
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Macros::ArrSortNumeric;
	use base qw(ETL::Pequel3::Type::Macros::Array::Abstract);
	use Class::STL::ClassMembers 
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Sorts the array in I<expr> numerically.'),
		Class::STL::ClassMembers::DataMember->new(name => 'usage', default => '&arr_sort_numeric(E<lt> I<expr> E<gt>)'),
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'arr_sort_numeric');
	use Class::STL::ClassMembers::Constructor;
	sub translate
	{
		my $self = shift;
		my $c = $self->SUPER::translate(@_);
		foreach (@_) { $_ = "&to_array($_)" unless (/^@/); }
		$c->code("join('@{[ $self->configuration()->default_list_delimiter() ]}', sort{\$a <=> \$b}(grep(/^[\\d|\\.|\\-]+\$/, @{[ join(',', @_) ]})))");
		return $c;
	}
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Macros::ArrSort;
	use base qw(ETL::Pequel3::Type::Macros::Array::Abstract);
	use Class::STL::ClassMembers 
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Sorts the array in I<expr>.'),
		Class::STL::ClassMembers::DataMember->new(name => 'usage', default => '&arr_sort(E<lt> I<expr> E<gt>)'),
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'arr_sort');
	use Class::STL::ClassMembers::Constructor;
	sub translate
	{
		my $self = shift;
		my $c = $self->SUPER::translate(@_);
		foreach (@_) { $_ = "&to_array($_)" unless (/^@/); }
		$c->code("join('@{[ $self->configuration()->default_list_delimiter() ]}', sort(@{[ join(',', @_) ]}))");
		return $c;
	}
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Macros::ArrReverse;
	use base qw(ETL::Pequel3::Type::Macros::Array::Abstract);
	use Class::STL::ClassMembers 
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Reverses the elements in the array in I<expr>.'),
		Class::STL::ClassMembers::DataMember->new(name => 'usage', default => '&arr_reverse(E<lt> I<expr> E<gt>)'),
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'arr_reverse');
	use Class::STL::ClassMembers::Constructor;
	sub translate
	{
		my $self = shift;
		my $c = $self->SUPER::translate(@_);
		foreach (@_) { $_ = "&to_array($_)" unless (/^@/); }
		$c->code("join('@{[ $self->configuration()->default_list_delimiter() ]}', reverse(@{[ join(',', @_) ]}))");
		return $c;
	}
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Macros::ArrValuesUniq;
	use base qw(ETL::Pequel3::Type::Macros::Array::Abstract);
	use Class::STL::ClassMembers 
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Returns all unique values in the array in I<expr>.'),
		Class::STL::ClassMembers::DataMember->new(name => 'usage', default => '&arr_values_uniq(E<lt> I<expr> E<gt>)'),
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'arr_values_uniq');
	use Class::STL::ClassMembers::Constructor;
	sub translate
	{
		my $self = shift;
		my $c = $self->SUPER::translate(@_);
		foreach (@_) { $_ = "&to_array($_)" unless (/^@/); }
		$c->code("&{sub { my \%uniq; foreach (@{[ join(',', @_) ]}) { \$uniq{\$_}++; } return join('@{[ $self->configuration()->default_list_delimiter() ]}', keys \%uniq); }}");
		return $c;
	}
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Macros::ArrSum;
	use base qw(ETL::Pequel3::Type::Macros::Array::Abstract);
	use Class::STL::ClassMembers 
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Returns the sum of all values in the array I<expr>.'),
		Class::STL::ClassMembers::DataMember->new(name => 'usage', default => '&arr_sum(E<lt> I<expr> E<gt>)'),
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'arr_sum');
	use Class::STL::ClassMembers::Constructor;
	sub translate
	{
		my $self = shift;
		my $c = $self->SUPER::translate(@_);
		foreach (@_) { $_ = "&to_array($_)" unless (/^@/); }
		$c->code("do { my \$sum=0; foreach (grep(/^[\\d|\\.|\\-]+\$/, @{[ join(',', @_) ]})) { \$sum += \$_; } \$sum; }");
		return $c;
	}
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Macros::ArrAvg;
	use base qw(ETL::Pequel3::Type::Macros::Array::Abstract);
	use Class::STL::ClassMembers 
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Returns the average of all values in the array I<expr>.'),
		Class::STL::ClassMembers::DataMember->new(name => 'usage', default => '&arr_avg(E<lt> I<expr> E<gt>)'),
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'arr_avg');
	use Class::STL::ClassMembers::Constructor;
	sub translate
	{
		my $self = shift;
		my $c = $self->SUPER::translate(@_);
		foreach (@_) { $_ = "&to_array($_)" unless (/^@/); }
		$c->code("do { my \$sum; my \$count; foreach (grep(/^[\\d|\\.|\\-]+\$/, @{[ join(',', @_) ]})) { \$count++; \$sum += \$_; } \$count ? \$sum / \$count : 0; }");
		return $c;
	}
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Macros::ArrMean;
	use base qw(ETL::Pequel3::Type::Macros::ArrAvg);
	use Class::STL::ClassMembers 
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Returns the average of all values in the array I<expr>.'),
		Class::STL::ClassMembers::DataMember->new(name => 'usage', default => '&arr_mean(E<lt> I<expr> E<gt>)'),
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'arr_mean');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Macros::ArrFront;
	use base qw(ETL::Pequel3::Type::Macros::Array::Abstract);
	use Class::STL::ClassMembers 
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Returns the element value at the front of the array I<expr> -- ie: the first element.'),
		Class::STL::ClassMembers::DataMember->new(name => 'usage', default => '&arr_front(E<lt> I<expr> E<gt>)'),
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'arr_front');
	use Class::STL::ClassMembers::Constructor;
	sub translate
	{
		my $self = shift;
		my $c = $self->SUPER::translate(@_);
		foreach (@_) { $_ = "&to_array($_)" unless (/^@/); }
		$c->code("(@{[ join(',', @_) ]})[0] || ''");
		return $c;
	}
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Macros::ArrBack;
	use base qw(ETL::Pequel3::Type::Macros::Array::Abstract);
	use Class::STL::ClassMembers 
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Returns the element value at the back of the array I<expr> -- ie: the last element.'),
		Class::STL::ClassMembers::DataMember->new(name => 'usage', default => '&arr_back(E<lt> I<expr> E<gt>)'),
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'arr_back');
	use Class::STL::ClassMembers::Constructor;
	sub translate
	{
		my $self = shift;
		my $c = $self->SUPER::translate(@_);
		foreach (@_) { $_ = "&to_array($_)" unless (/^@/); }
		$c->code("(@{[ join(',', @_) ]})[-1] || ''");
		return $c;
	}
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Macros::ArrFirst;
	use base qw(ETL::Pequel3::Type::Macros::ArrFront);
	use Class::STL::ClassMembers 
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Returns the element value at the front of the array I<expr> -- ie: the first element.'),
		Class::STL::ClassMembers::DataMember->new(name => 'usage', default => '&arr_first(E<lt> I<expr> E<gt>)'),
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'arr_first');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Macros::ArrLast;
	use base qw(ETL::Pequel3::Type::Macros::ArrBack);
	use Class::STL::ClassMembers 
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Returns the element value at the back of the array I<expr> -- ie: the last element.'),
		Class::STL::ClassMembers::DataMember->new(name => 'usage', default => '&arr_last(E<lt> I<expr> E<gt>)'),
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'arr_last');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Macros::ArrMinNumeric;
	use base qw(ETL::Pequel3::Type::Macros::Array::Abstract);
	use Class::STL::ClassMembers 
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Returns the element value in array I<expr> with the lowest numeric value.'),
		Class::STL::ClassMembers::DataMember->new(name => 'usage', default => '&arr_min_numeric(E<lt> I<expr> E<gt>)'),
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'arr_min_numeric');