#!/usr/bin/perl use strict; use warnings; use Data::Dumper; use SQLValidation; use XML::Simple; my $xml_obj1 = XML::Simple->new(); #my $file_path = 'C:\Users\Desktop\sql_test.xml' ; my $file_path = 'C:\Users\Desktop\derived_tif_cd.XML' ; my $xmlfile = $xml_obj1->XMLin($file_path) or die "Failed for $file_path: $!"; #print Dumper $xmlfile; =c my $val = $xmlfile->{queries}->{query}->[2]->{content}; print "$val"; =cut foreach my $queries ($xmlfile->{queries}){ if($xmlfile->{queries} eq 'query') { foreach my $query (@{$queries->{query}}) { foreach my $sql ($query->{content}) { print "$sql\n"; } } } else { foreach my $query (@{$queries->{query}}) { print "---->$query\n"; } } } #### This xml includes validations for order event types (Checks for Others). ORDER_TYPE_CODE and expiration date for TIF code derivation: INSERT INTO table_name (column1, column2, column3,...) select (value1, value2, value3,...); order_nw_stgng order_or_stgng order_oe_stgng order_cr_stgng BATCH_ID GENERATE EXPRESS STATISTICS ON drvd_tif_order_stgng; ORDER_TYPE_CODE and expiration date for TIF code derivation: INSERT INTO table_name (column1, column2, column3,...) select (value1, value2, value3,...); order_nw_stgng order_or_stgng order_oe_stgng order_cr_stgng BATCH_ID GENERATE EXPRESS STATISTICS ON drvd_tif_order_stgng;