File Coverage

blib/lib/OpenOffice/OOSheets.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

package OpenOffice::OOSheets;

use strict;
use XML::Parser;
#use Data::Dumper;
#use utf8;
our $VERSION = '0.70';
#=========
#use:
#GetData( text=><>,ref=>[
#	{
#	table=>'sheet1',
#	cells=>['B2','AA2','A1','E6','B4','C10','C11']
#	}
#	]
#	)
#==========

sub GetData {
my (%arg)=@_;
our ($ref,$text)=@arg{qw/ref text/};
#Levels,Flags,Variabels
our $number;
our $curr_rec;
our %sonar_cells;
our ($c_row,$c_cell);
our %current;
our $par_text=0;
our %res;
our $n=0;
our %map;
map {$map{$_}=++$n} ('A'..'Z');
our %enumeration_map;

sub A1_2_11 {
my $addr=shift;
my ($X,$Y)=$addr=~m/(\D+)(\d+)/;
my @sym=split("",$X);
my $cell;
 while(my $symbol = shift(@sym)){
	 my $sym_cod = $map{$symbol};
	 $cell += $sym_cod * (26 ** scalar(@sym));
	}
my $res="$Y:$cell";
$enumeration_map{$res}=$addr;
return $res;
}

sub _11_2_A1 {
my $addr=shift;
return $enumeration_map{$addr};
}

sub handle_start {


	my ($ref_Ex,$name,%attr)=@_;
	next unless $name;
	for ($name) {
	/table:table$/  && (
			    ($curr_rec=(grep {

#				my $conv=new Text::Iconv ("utf-8","koi8-r");
#				my $koi_curr=$conv->convert($attr{'table:name'});
#				my $koi_need=$conv->convert($_->{table});
				my $koi_curr=$attr{'table:name'};
				my $koi_need=$_->{table};
				$koi_need =~/$koi_curr$/ ;
				} @$ref )[0])
				&&
			do {
			$c_row=0;
			@sonar_cells{map {A1_2_11($_)} @{$curr_rec->{cells}}}=();
			1;
			}
			)
		||
	!(ref $curr_rec)  && do {return}
			||
	/table:table-row$/ &&  do {
				$c_row++;$c_cell=0;
				%current=("$c_row:$c_cell",1);
				}
			||
	/table:table-cell$/ && do {

			$c_cell++;
			%current=("$c_row:$c_cell",1);
			my $repeat=$attr{'table:number-columns-repeated'};
			if ($repeat){
			map {$current{$_}=1}
				map {"$c_row:".++$c_cell} @{[1..$repeat-1]};
			}
			$c_cell += $attr{'table:number-columns-spanned'}-1 if $attr{'table:number-columns-spanned'};
			}
			||
	/text:p$/ && do {$par_text=1}
	}
}

sub handle_end {
	my ($ref_Ex,$name)=@_;
	$_=$name;
	$curr_rec=undef if /table:table$/;
	$par_text=0 if /text:p$/;
}

sub handle_char {
	my ($ref_Ex,$data)=@_;
	 if ($par_text) {
	 	@{$res{$curr_rec->{table}}}{ map {_11_2_A1($_)} grep {exists $sonar_cells{$_}} keys %current}.=$data ;
	}
}

my $parser=new XML::Parser(Handlers => {
    			Start => sub {&handle_start(@_)},
			End   => sub {&handle_end(@_)},
			Char  => sub {&handle_char(@_)}
			});
$parser->parse ($text);
return \%res;
}

# Preloaded methods go here.

1;
__END__