view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

examples/debug.pl
examples/function_definition.pl
examples/user_data.pl
examples/format.pl
examples/store_on_fetch.pl
examples/delete_function.pl
examples/generated_ss_data.pl
examples/ref.pl
examples/address_manipulation.pl
examples/debug_from_formula.pl
examples/formula_relocating.pl
examples/tie.pl
examples/perl_formula.pl
examples/store_function.pl
examples/perl_formula_args.pl
examples/range_values.pl
examples/prima.pl
examples/ascii_table.pl
examples/query_set.pl
examples/inter_spreadsheet.pl
examples/formula.pl

examples/formula_relocating.pl  view on Meta::CPAN

use warnings ;

use Spreadsheet::Perl ;
use Spreadsheet::Perl::Arithmetic ;

use Data::Dumper ;

tie my %ss, "Spreadsheet::Perl", NAME => 'TEST' ;
my $ss = tied %ss ;

# formula relocating
$ss->{DEBUG}{PRINT_FORMULA}++ ; # the formula is displayed when the formula sub is created

$ss{'A1:A3'} = 1 ;

# example 1
$ss{'C1:C2'} = PerlFormula('$ss->Sum("A1:A2")') ;
print "Example 1 => @{@ss{'C1:C2'}}\n" ;

# example 2
$ss->Reset() ;