#!/usr/bin/perl

# use module
use XML::Simple;
use Data::Dumper;
open(FILE,">Asdf.txt") or die "Can't open the file";
open(ASDF,">zxcv.txt");
# create object
$xml = new XML::Simple;

# read XML file
$data = $xml->XMLin("E:\\progs\\my perl scripts\\resources.xml");

# print output
%new = Dumper($data);
print FILE %new;


##</code><code>##

#!/usr/bin/perl

# use module
use XML::Simple;

# create object
$xml = new XML::Simple;

# read XML file
%new = $xml->XMLin("resources.xml");
print "Enter the parameter:";
chomp($name =<stdin>);
$db1='cfi-oracle-jdbc';
$db2='CnetdbProvider';
$a='CFIDS';
$b='WIDDS';
$c='FDRDS';
$d='mssr3';
# access XML data
if ($name eq $a || $name eq $b || $name eq $c)
{
print "jndiName of $name is %new->{resources.jdbc.JDBCProvider}->{cfi-oracle-jdbc}->{factories}->{CFIDS}->{$jndiName}\n";
}
elsif($name eq $d || $name eq $db2)
{
	print "HELLO";
}