Форум программистов [Powered by Invision Power Board]

Код

#!/usr/bin/perl -w

use strict;
use Data::Dumper;

use Encode;
use Spreadsheet::ParseExcel::SaveParser::Workbook;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::SaveParser;
use Spreadsheet::ParseExcel::FmtUnicode;
use Spreadsheet::WriteExcel;


#читаем файлы из директории raw разбираем данные из них, составляем структуру данных
#полученные данные использую имеющийся файл шаблона xls сохраним в файлы xls в директории xls/

my $raw_dir = "./dlink_raw/";

#получим первичные данные по свичам
my $switch_db  = 'list_dlink_xls';
my $sw_port_db = 'dl2port_name';
my $sw_addr_db = 'dl2router_addr';

my %sw_db;
    #создадим сначала хеш соответвия свитч->[ip, mark]
my ($l, $d, $k);
my @row;
open(F, '<', $switch_db);
while ($l = <F>) {
    chomp $l;
    @row = split(/:/, $l);
    $sw_db{$row[0]} = [$row[1], $row[2]];
}
close(F);
#print "Rezult hash:\n", Dumper(\%sw_db);

    #Теперь загрузим данные по портам для каждого свича
my %sw2port;

open(F, '<', $sw_port_db);
while ($l = <F>) {
    chomp $l;
    @row = split(/:/, $l);
    if(exists $sw2port{$row[0]}) { #свитч уже есть в хеше
        push @{$sw2port{$row[0]}}, [$row[1], $row[2], $row[3], $row[4], $row[5], $row[6]];
    } else {
        $sw2port{$row[0]} = [ [$row[1], $row[2], $row[3], $row[4], $row[5], $row[6]] ]; #иницилизируем ссылку на массив содержащий ссылки на массивы
    }
}
close(F);
#print "Rezult hash:\n", Dumper(\%sw2port);

    #теперь загрузим данные соответвия switch->[улица, дом]
my %sw2addr;
open(F, '<', $sw_addr_db);
while ($l = <F>) {
    chomp $l;
    @row = split(/:/, $l);
    $sw2addr{$row[0]} = [$row[2], $row[3]];
}
close(F);
#print "Rezult hash:\n", Dumper(\%sw2addr);

#теперь для каждого свича заполняем отчет в XLS файл по шаблону
#данные о том что заполнять берем из
foreach my $sw (keys %sw_db) {
    makeXLS($sw, $sw2addr{$sw}, $sw_db{$sw}, $sw2port{$sw});
}

exit(0);


sub get_filelist {
    my $dir = shift;
    opendir(Z, $dir);
    my @listf = grep {-f $dir.$_ } readdir(Z);
    return @listf;
}

sub trim {
    my $str = shift;
    $str =~ s/^\s+//;
    $str =~ s/\s+$//;
    return $str;
}


sub SaveMy {
    my ($oExcel, $oBook, $o_file) = @_;
    my $wBook = $oExcel->SaveAs($oBook, $o_file);
    my @w_sheets=$wBook->sheets();
        #теперь сохраним данные об объединенных ячейках
    for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++) {
        my $oWkS = $oBook->{Worksheet}[$iSheet];
        my $wWkS = $w_sheets[$iSheet];
            #для каждой WoorkSheet выясняем есть ли у нее объединенные области и сохраняем информацию о них
        #print "Save Merged area sheet[$iSheet]:\n";
        foreach my $merg (@{$oWkS->{MergedArea}}) {
                #print "Save: StartRow: $merg->[0], StartColumn: $merg->[1], EndRow: $merg->[2], EndColumn: $merg->[3]\n";
                $wWkS->merge_cells(@$merg);
        }
    }
    $wBook->set_codepage(1251);
    #open(T, '>', 'debug2.txt');
    #print T "wBook: \n", Dumper($wBook),"\n";
    #close(T);
    return $wBook;
}

sub ru {
    return Encode::decode('koi8r', shift);
}

sub makeXLS {
    my $rez_dir = "./xls_rezDlink/";
    my $ext_xls = ".xls";
    my $shabl_file = './xls_test/shabl1.xls';

    my ($name, $addr, $ip_type, $ports) = @_;
    #начинаем заполнять

    my $oExcel = Spreadsheet::ParseExcel::SaveParser->new();
    my $oBook = $oExcel->Parse($shabl_file);
    my $i_sheet = 0;

    my $sheet = $oBook->{Worksheet}->[$i_sheet];
    binmode(STDOUT=>':encoding(koi8r)');
    
    #Название улицы
    my ($r_i, $c_i) = (1, 3);
    my $l = ru($addr->[0]);
    $oBook->AddCell($i_sheet, $r_i, $c_i, $l, $oBook->{Worksheet}[$i_sheet]->{Cells}[$r_i][$c_i]);
    #Номер дома
    ($r_i, $c_i) = (2, 3);
    $l = ru($addr->[1]);
    $oBook->AddCell($i_sheet, $r_i, $c_i, $l, $oBook->{Worksheet}[$i_sheet]->{Cells}[$r_i][$c_i]);
    #модель оборудования
    ($r_i, $c_i) = (6, 3);
    $l = ru($ip_type->[1]);
    $oBook->AddCell($i_sheet, $r_i, $c_i, $l, $oBook->{Worksheet}[$i_sheet]->{Cells}[$r_i][$c_i]);
    #IP адрес
    ($r_i, $c_i) = (7, 3);
    $l = ru($ip_type->[0]);
    $oBook->AddCell($i_sheet, $r_i, $c_i, $l, $oBook->{Worksheet}[$i_sheet]->{Cells}[$r_i][$c_i]);
    #Пытаемся заполнить табличную часть
    #сохраним форматирование ячеек табличной части
    my (@up_row, @center_row, @down_row); #3 набора форматирований для верхней строки, центральных строк, и нижней строки
    my ($irow_up, $irow_center, $irow_down) = (11, 12, 13); #индексы строк
    my @icol = (0..5);
    #формат массива- номер порта:тип:вилан:тип порта:имя: лицевой счет
    #[$row[1], $row[2], $row[3], $row[4], $row[5], $row[6]]
    my @transl = (0, 1, 4, 5, 2, 3);
    #my ($icol_num, $icol_type, $icol_abon, $icol_lc, $icol_vlan, $col_stype) = @icol;

    foreach my $i (@icol) {
        #форматы верхней строки
    push @up_row,  $oBook->{Worksheet}[$i_sheet]->{Cells}[$irow_up][$i]->{FormatNo};
         #форматы средней строки
    push @center_row, $oBook->{Worksheet}[$i_sheet]->{Cells}[$irow_center][$i]->{FormatNo};
         #форматы нижней строки
    push @down_row, $oBook->{Worksheet}[$i_sheet]->{Cells}[$irow_down][$i]->{FormatNo};
    }
    my $cnt = 0;
    my $fmt;

    foreach my $row_save (@$ports) {
    foreach my $i (@icol) {
             #выберем формат для ячейки в зависимости от того первая она средняя или последняя
         if($cnt == 0) {
         $fmt = $up_row[$i];
         } elsif ($cnt < $#$ports) {
         $fmt = $center_row[$i];
         } else { #последняя строка
         $fmt = $down_row[$i];
         }
         #добавим ячейку
         $oBook->AddCell($i_sheet, $irow_up+$cnt, $i, ru($row_save->[ $transl[$i] ]), $fmt);
    }
    $cnt++;
    }

    SaveMy($oExcel, $oBook, $rez_dir.$name.$ext_xls)->close();

}