#!/usr/bin/perl -w

use Getopt::Std;


open(MAP, "./vuln_cve_map.csv") or die("cant open mapping file</body></html>");
open(SUMMARY, "./CVE_summary.csv") or die("cant open CVE Summary file</body></html>");

if ($#ARGV  == 0) {

        my @desc = ();
        my $desc = [];
        my $summ = [];


        while (<MAP>) { 
                /^(\d+),(.*)/;
                if ($1 == $ARGV[0]) {
                        foreach (<SUMMARY>){
                                if ($_=~ m/"$2"/) {
                                my @vuln= split(/,/, $desc);
                                print $vuln[1];
                                }
                        }
                };
        };
                
}
close (SUMMARY);
close (MAP);