john,r2,testdomain1,john.r2@hex.com,DOMAINADMIN,testdomain1.dom
maxwell,b2, testdomain1,maxwell.b2@hex.com,DOMAINADMIN,testdomain1.dom

<Users>
        <DomainName>testdomain1</DomainName>
        <User>
            <UserName>john.r2.testdomain1.digitalsafe.net</UserName>
                <Password>
                <Value>Skyline@123</Value>
                </Password>
            <BillingGroupName>testdomain1</BillingGroupName>
            <DataSource>sa</DataSource>
            <UserProfile>
                <LastName>r2</LastName>
                <FirstName>john</FirstName>
                <ContactEmail>john.r2@hex.com</ContactEmail>
                <SendItToMe>nobody@zantaz.com</SendItToMe>
            </UserProfile>
        </User>
        <User>
            <UserName>maxwell.b2.testdomain1.digitalsafe.net</UserName>
                <Password>
                <Value>Skyline@123</Value>
                </Password>
            <BillingGroupName>testdomain1</BillingGroupName>
            <DataSource>sa</DataSource>
            <UserProfile>
                <LastName>b2</LastName>
                <FirstName>maxwell</FirstName>
                <ContactEmail>maxwell.b2@hex.com</ContactEmail>
                <SendItToMe>nobody@zantaz.com</SendItToMe>
            </UserProfile>
        </User>

</users>

<UserRoleAssignments>
<UserRoleAssignment>
            <UserName>john.r2.testdomain1.digitalsafe.net</UserName>
            <RoleName>EntityAccess</RoleName>
            <Entities>
                <Entity ns1:type="Applications">
                    <EntityName>ac</EntityName>
                </Entity>
            </Entities>
        </UserRoleAssignment>
        <UserRoleAssignment>
            <UserName>john.r2.testdomain1.digitalsafe.net</UserName>
            <RoleName>DomainAdmin</RoleName>
            <Entities>
                <Entity ns1:type="Applications">
                    <EntityName>adm</EntityName>
                </Entity>
            </Entities>
        </UserRoleAssignment>
<UserRoleAssignment>
            <UserName>john.r2.testdomain1.digitalsafe.net</UserName>
            <RoleName>DomainAdmin</RoleName>
            <Entities>
                <Entity ns1:type="Applications">
                    <EntityName>adm</EntityName>
                </Entity>
            </Entities>
        </UserRoleAssignment>
    </UserRoleAssignments>
</ZantazAccountManagement>

use strict;

  # Open the ch2_xml_users.csv file for input
  open(CSV_FILE, "ch2_xmlusers.csv") ||
   die "Can't open file: $!";

  # Open the ch2_xmlusers.xml file for output
  open(XML_FILE, ">ch2_xmlusers.xml") ||
   die "Can't open file: $!";

 # Print the initial XML header and the root element
 print XML_FILE "<ZantazAccountManagement xmlns\=\"http\:\/\/www\.zantaz\.com\/\" xmlns\:xsi\=\"http\:\/\/www\.w3\.org\/2001\/XMLSchema\-instance\" xmlns\:ns1\=\"http\:\/\/www\.zantaz\.com\/\" xsi\:schemaLocation\=\"http\:\/\/www\.zantaz\.com\/ schema\.xsd\" ns1\:action\=\"UPDATE\">
";
print XML_FILE " <BillingGroups>
        <BillingGroup>
            <Name>testdomain1</Name>
            <Type>-</Type>
            <CustomerName>testdomain1</CustomerName>
        </BillingGroup>
    </BillingGroups>";

 # The while loop to traverse through each line in users.csv
 while(<CSV_FILE>) {
   chomp; # Delete the new line char for each line

   # Split each field, on the comma delimiter, into an array
   my @fields = split(/,/, $_);

 print XML_FILE<<"EOF";
 <DomainName>testdomain1</DomainName>
        <User>
            <UserName>$fields[0].$fields[1].$fields[3].$fields[4]</UserName>
                <Password>
                <Value>Skyline\@123</Value>
                </Password>
            <BillingGroupName>$fields[4]</BillingGroupName>
            <DataSource>sa</DataSource>
            <UserProfile>
                <LastName>$fields[1]</LastName>
                <FirstName>$fields[0]</FirstName>
                <ContactEmail>$fields[2]</ContactEmail>
                <SendItToMe>nobody\@zantaz.com</SendItToMe>
            </UserProfile>
        </User>
    <UserRoleAssignment>
            <UserName>$fields[0].$fields[1].$fields[3].$fields[4]</UserName>
            <RoleName>DomainAdmin</RoleName>
            <Entities>
                <Entity ns1:type="Applications">
                    <EntityName>adm</EntityName>
                </Entity>
            </Entities>
        </UserRoleAssignment>
        <UserRoleAssignment>
            <UserName>$fields[0].$fields[1].$fields[3].$fields[4]</UserName>
            <RoleName>Researcher</RoleName>
            <Entities>
                <Entity ns1:type="Applications">
                    <EntityName>ds</EntityName>
                </Entity>
            </Entities>
        </UserRoleAssignment>


EOF
 }

 # Close the root element

print XML_FILE "</ZantazAccountManagement>";

 # Close all open files
close CSV_FILE;
 close XML_FILE;