نديم ابن ﺤﻣﻮﺪﺓ الخمير - Nadim Khemir > Spreadsheet-Perl > Spreadsheet::Perl::Function

Download:
Spreadsheet-Perl-0.12.tar.gz

Annotate this POD

CPAN RT

New  1
Open  0
View/Report Bugs
Source  

NAME ^

Spreadsheet::Perl::Function - Function support for Spreadsheet::Perl

SYNOPSIS ^

  sub SumRowsAbove
  {
  my $ss = shift ;
  my $address  = shift ;
  my @arguments = @_ ;
  
  my ($x, $y) = Spreadsheet::Perl::ConvertAdressToNumeric($address) ;
  
  my $sum = 0 ;
  
  for my $current_y (1 .. ($y - 1))
        {
        my $cell_value = $ss->Get("$x,$current_y") ;
        
        $sum += $cell_value if (is_numeric($cell_value)) ;
        }
        
  return($sum) ;
  }

  $ss{A1} = FetchFunction(\&SumRowsAbove, $arg1, $arg2, ...)

DESCRIPTION ^

Part of Spreadsheet::Perl.

AUTHOR ^

Khemir Nadim ibn Hamouda. <nadim@khemir.net>

  Copyright (c) 2004 Nadim Ibn Hamouda el Khemir. All rights
  reserved.  This program is free software; you can redis-
  tribute it and/or modify it under the same terms as Perl
  itself.

If you find any value in this module, mail me! All hints, tips, flames and wishes are welcome at <nadim@khemir.net>.

syntax highlighting: