I have 2 .csv files as below:

# cat vm.csv 
vm_name,vm_cluster
vm1,fd1
vm2,fd2
vm3,fd3
vm4,fd4
[download]

and

# cat vfiler_fd.csv 
vm_name,vFiler_IP,vFiler_cluster
vm3,1.1.1.3,fd2
vm4,1.1.1.4,fd1
vm1,1.1.1.1,fd4
vm2,1.1.1.2,fd3
[download]

Goal:

Compare the 1st field of (vm_name) the two files and if they match then write it to a 3rd CSV file with the column headings as mentioned below (Each row of this 3rd CSV should conain all information about a given vm from both the CSVs files. Basically, I am trying to merge two files lokking at the 1st field.)

vm_name,vm_cluster,vFiler_IP,vFiler_cluster
vm1,fd1,1.1.1.1,fd4
vm2,fd2,1.1.1.2,fd3
.
.
....etc.
[download]

Here is my code which not correct But you will get the idea what I am trying to do:

use strict;
use Text::CSV;
use Class::CSV;

my $report_csv = Class::CSV->new (
                               filename    => "final.csv",
                               fields      =>  [qw/VM_Name VM_Cluster 
+vFiler_IP vFiler_Cluster MisMatch/],
                                );    

my $vm_mapping = Text::CSV->new ({ binary => 1});
my $vfiler_mapping = Text::CSV->new ({ binary => 1 }); 

open my $vm, "<:encoding(utf8)", "vm.csv" ;
open my $vfiler, "<:encoding(utf8)", "vfiler_fd.csv";

while (my $vm_row = $vm_mapping->getline ($vm))
{
     while (my $vfiler_row = $vfiler_mapping->getline ($vfiler) )
     {   
          if ( $vm_row->[0] eq $vfiler_row->[0] )
    
                $report_csv->add_line( {
                                          VM_Name       =>      $vm_ro
+w->[0],
                                          VM_Cluster    =>      $vm_ro
+w->[1],
                                          vFiler_IP     =>      $vfile
+r_row->[1],
                                          vFiler_Cluster=>      $vfile
+r_row->[2],
                                          MisMatch      =>      "huhuh
+huhuhu",
                                        } );
 
                next;
      }    
      next;
}
[download]

The logic I used:

retrieve the 1st element of the vm.csv and comapre it with the 1st elements of all the rows of the vFiler.csv. if there is match, then write a new line whihc contains repsective elememnts to a new file called new.csv.

Issues:

this is not working.

I think nested while loop is a horrible practice. anyway, it is not working either.

I am not able to find a way to write "Column_names" with Text::CSV hence using Class:CSV and still it is not working.

I am pretty sure there is a better apporach to do this. Could you help. thanks.