www.Litecode.ru – Сборник рецептов для создания сайтов

Работа с excel в perl

ГлавнаяPerl → Работа с excel в perl

Для работы с файлами excel в perl, существует отличный модуль Spreadsheet::ParseExcel. Скачать актуальную версию можно с CPAN. Используется очень просто, вот пример:

    use Spreadsheet::ParseExcel;

    my $xls   = Spreadsheet::ParseExcel->new();
    my $wb = $xls->parse('file.xls');

    if ( defined $wb ) {
        
        for my $wsheet ( $wb->wheets() ) {

            my ( $row_start, $row_end ) = $wsheet->row_range();
            my ( $col_start, $col_end ) = $wsheet->col_range();
    
            for my $row ( $row_start .. $row_end ) {
                for my $col ( $col_start .. $col_end ) {
    
                    my $cell = $wsheet->get_cell( $row, $col );
                    next unless $cell;
    
                    print "Row, Col    = ($row, $col)\n";
                    print "Value       = ", $cell->value(),       "\n";
                    print "Unformatted = ", $cell->unformatted(), "\n";
                    print "\n";
                }
            }
        }
        
    } else {
    
        die $xls->error();
    
    }