#!/usr/bin/perl -w
use strict;
use XML::Twig;
use Spreadsheet::XLSX;

my $twig = XML::Twig->new;
$twig->parsefile('ue_profile.xml');

my $workbook        = Spreadsheet::XLSX->new('FSL_XML.xlsx');
for my $worksheet ( $workbook->worksheets() )
{
    my $worksheet_name = $worksheet->{Name};
    my ( $row_min, $row_max ) = $worksheet->row_range();
    my ( $col_min, $col_max ) = $worksheet->col_range();
    
    for my $row ( $row_min + 1 .. $row_max ) {
        my @para_array;
        for my $col ( $col_min .. $col_max ) {
            my $cell      = $worksheet->{Cells}[$row][$col];
            my $cellValue = $cell->{Val};
            if ($cellValue !~ /NA/i) {
                push (@para_array, $cellValue);
            }
        }
        my $value = pop(@para_array);
        my $Search_Key = join('/', @para_array);
        $Search_Key = "/".$Search_Key."/";
        if ($Search_Key =~ m/cqiformatIndPeriodicSubbandK/i) {
            print "Hello";
        }
        my (@model) = $twig->findnodes($Search_Key);
        foreach (@model) {
            $_->set_text($value);
        }
    }
}


##</code><code>##

                    <createUe>
                        <!-- 0 = None , 1 = phyCqiReportingPeriodic , 2 = phyCqiReportingAperiodic, 3= Both -->
                        <cqiReportingMode>0</cqiReportingMode>
                        <!-- 0 to 4 -->
                        <phyCqiReportingAperiodic>1</phyCqiReportingAperiodic>
                        <!-- -1 to 6 -->
                        <nomPdschRsEpreOffset>0 </nomPdschRsEpreOffset>
                        <phyCqiReportingPeriodic>
                            <!-- 0 = release , 1 = setup -->
                            <cqiReportingPeriodicMode>0</cqiReportingPeriodicMode>
                            <!-- 0 to 1185 -->
                            <cqiPucchResourceIndex>0 </cqiPucchResourceIndex>
                            <!-- 0 to 1023 -->
                            <cqiPmiConfigIndex> 25 </cqiPmiConfigIndex>
                            <!-- 0 = wideBand 1 = subBand -->
                            <cqiSubBandWideBandChoice>1</cqiSubBandWideBandChoice>
                            <!-- Optional -->
                            <!-- 1 to 4 -->
                            <cqiformatIndPeriodicSubbandK>3</cqiformatIndPeriodicSubbandK>
                            <!-- Optional -->
                            <!-- 0 to 1023 -->
                            <riConfigIndex>483 </riConfigIndex>
                            <!-- 0 or 1 -->
                            <simultaneousAckNackAndCQI>0 </simultaneousAckNackAndCQI>
                        </phyCqiReportingPeriodic>
                    </createUe>

##</code><code>##

     <createUe>
        <!-- 0 = None , 1 = phyCqiReportingPeriodic , 2 = phyCqiReportingAperiodic, 3= Both -->
        <cqiReportingMode>1187</cqiReportingMode>
        <!-- 0 to 4 -->
        <phyCqiReportingAperiodic>1189</phyCqiReportingAperiodic>
        <!-- -1 to 6 -->
        <nomPdschRsEpreOffset>1188</nomPdschRsEpreOffset>
        <phyCqiReportingPeriodic>1196</phyCqiReportingPeriodic>
      </createUe>