Question

我有两个名为

的csv文件

alexa_products.csv

name,         sku,      urle,     product,  data

amazon,   amazon.com,   current,  mobile,   seller

vinnes,   vinnes.com,   current,  cellular, Aircel_Indore

Data.csv

name,          sku,      urle,    product,   data

linkedin.com, linkeidn,  current, local,     blah

airtel.com,    airtel,   current, sim,       Airtel

amazon.com,    amazon,   face, network,    buyier

vinnes.com,    vinnes,   look, hands,      ddde

现在我必须匹配来自alexa_products.csv的名称和来自data.csv的sku，如果有任何匹配，我必须打印出从两个csv文件到另一个csv文件的特定列的所有数据？

预期输出

amazon.com,    amazon,   face, network,    buyier, current,  mobile,   seller

vinnes.com,    vinnes,   look, hands,      ddde,  current,  cellular, Aircel_Indore

Answer 1

由于您没有提及您感兴趣的列，我只是说当第一个文件与第一个文件匹配时，此命令将打印第二个文件的所有列。

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

Answer 2

你可以尝试这些方法：

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

是的，我知道它不是很好的Perl; - ）

“sed”命令删除标题行（第1行）和alexa_products.csv中的所有空格。然后使用“sort”对文件的其余部分进行排序，并保存为文件“a”。

同样，文件“data_products”的标题和空格被删除，排序并存储在文件“b”中。

然后“join”使用文件“a”的字段1并将其与文件b中的字段“2”匹配，并打印它们匹配的位置。

您可以使用命令“man sed”或“man join”来阅读有关命令的手册 - 按空格键进入下一页，按“q”退出阅读。

Answer 3

这是一些让你入门的Perl，只是为了踢！

#!/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
   }
}

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

3 个答案: