问使用perl对两个csv文件匹配和合并的比较

EN

sed "1d;s/ //g" alexa_products.csv | sort > a
sed "1d;s/ //g" data.csv | sort > b
join -t, -1 1 -2 2 a b > newfile.csv

awk -F, 'FNR==NR && NR!=1 && FNR!=1
        {
        a[$1]=$0;next
        }{if($2 in a)
           {
            split(a[$2],b," ");
            print $0,b[3],b[4],b[5]
           }
         }' alexa_products.csv data.csv

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my %alexa;
my ($name,$sku,$urle,$product,$data);

# Parse first file
my $line=1;
open(my $fh,"<","alexa_products.csv")|| die "ERROR: Could not open alexa_products.csv";
while (<$fh>)
{
   next if $line++==1;  # Ignore header
   chomp;       # Remove LF
   s/ //g;      # Remove spaces
   ($name,$sku,$urle,$product,$data) = split(',');  # Split line on commas
   $alexa{$name}{'sku'}=$sku;
   $alexa{$name}{'urle'}=$urle;
   $alexa{$name}{'product'}=$product;
   $alexa{$name}{'data'}=$data;
}
close($fh);

# Next line for debugging, comment out if necessary
print Dumper \%alexa;

# Now read data file 
$line=1;
open($fh,"<","Data.csv")|| die "ERROR: Could not open Data.csv";
while(<$fh>)
{
   next if $line++==1;      # Ignore header line
   chomp;           # Remove LF
   s/ //g;          # Remove spaces

   my ($name,$sku,$urle,$product,$data) = split(',');   # Split line on commas
   if(defined $alexa{$sku}){
      print "$alexa{$sku}{'sku'},$alexa{$sku}{'data'},$alexa{$sku}{'product'}\n";   # You may want different fields
   }
}