my $ret = &datasync(
  $rs,
  {
    'field_user' => 'script',
    'field_title' => {'ref'=>'src_name'},
    'field_type' => sub {my $row = shift; return $dict->{$row->{'type_id'}};}
  },
  [$dbh, $table]
);
...
sub datasync($$$)
{
  my $rs = shift;
  my $ds = shift;
  my ($dbh,$tbl) = [shift];
  my $fld = $dbh->column_info(undef,undef,$tbl,undef)->fetchall_hashref('COLUMN_NAME');
  foreach my $row ((values(%$rs)))
  {
    foreach my $fld (sort {$a->{'ORDINAL_POSITION'}<=>$b->{'ORDINAL_POSITION'}} values(%$fld))
    {
      if (!ref($ds->{$fld->{'NAME'}})) {$data->{$fld->{'NAME'}} = $ds->{$fld->{'NAME'}}}
      elsif (ref($ds->{$fld->{'NAME'}}) eq 'CODE') {$data->{$fld->{'NAME'}} = &{$ds->{$fld->{'NAME'}}}($row)}
      elsif (ref($ds->{$fld->{'NAME'}}) eq 'HASH')
      {
        if (exists($ds->{$fld->{'NAME'}}->{'ref'})) {$data->{$fld->{'NAME'}} = $row->{$ds->{$fld->{'NAME'}}->{'field'}}}
      }
...
    }
...
  }

	my $sync = &sync_prepare(<dbi::sth>,<table>,{'CODE' => sub {my $row = shift; return $dict->{$row->{'TYPE_ID'}};}});
	while (my $res = &sync_process($sync))
	{
		print Dumper($res);
	}
...
sub sync_prepare($$$)
{
	my $src = shift;
	my $dst = shift;
	my $map = shift;
	my $sync = {};
	return unless ($src && $dst);
	$sync->{'src'} = $src;
	$sync->{'fld'} = $dbh->column_info(undef,undef,$dst,undef)->fetchall_hashref('COLUMN_NAME');
	$sync->{'map'} = $map;
	return $sync;
}

sub sync_process($)
{
	my $sync = shift;
	my $row = $sync->{'src'}->fetchrow_hashref();
	return unless ($row);
	my $data = {};
	foreach my $fld (sort {$a->{'ORDINAL_POSITION'}<=>$b->{'ORDINAL_POSITION'}} values %{$sync->{'fld'}})
	{
		if (exists $sync->{'map'}->{$fld->{'COLUMN_NAME'}})
		{
			my $f = $sync->{'map'}->{$fld->{'COLUMN_NAME'}};
			$data->{$fld->{'COLUMN_NAME'}} = undef;
			if (!ref($f)) # константа
			{
				$data->{$fld->{'COLUMN_NAME'}} = $f;
			}
			elsif (ref($f) eq 'CODE') # функция
			{
				$data->{$fld->{'COLUMN_NAME'}} = &$f($row);
			}
			elsif (ref($f) eq 'HASH')
			{
				if (exists $f->{'type'})
				{
					if ($f->{'type'} eq 'value') # значение константы
					{
						$data->{$fld->{'COLUMN_NAME'}} = $f->{'value'};
					}
					elsif ($f->{'type'} eq 'field') # значение поля-источника
					{
						$data->{$fld->{'COLUMN_NAME'}} = $row->{$f->{'field'}};
					}
				}
				else
				{
					$data->{$fld->{'COLUMN_NAME'}} = $row->{$f->{'field'}} if ($f->{'field'});
					$data->{$fld->{'COLUMN_NAME'}} = $f->{'value'} if ($f->{'value'});
				}
			}
		}
	}
	return $data;
}