From 4291d0ca2a7461a76821537b514bc419db7ee0be Mon Sep 17 00:00:00 2001
From: Tim White <walton.timothy.james.white@gmail.com>
Date: Wed, 3 Jul 2024 14:46:13 +1200
Subject: [PATCH] Perl script to generate Table 4
 (cves-detected-by-sca-tools-in-tpovs.tex) from output.csv (which is produced
 by run-summary.sh)

---
 create-table-4.pl | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100755 create-table-4.pl

diff --git a/create-table-4.pl b/create-table-4.pl
new file mode 100755
index 0000000..6740f24
--- /dev/null
+++ b/create-table-4.pl
@@ -0,0 +1,36 @@
+#!/bin/perl
+
+print <<'THE_END';
+\begin{table}[H]
+	\footnotesize
+	\begin{tabular}{|lllllll|}
+		 \hline
+		cve              & grype & owasp & snyk & steady & any & all \\ \hline
+THE_END
+
+my @sums = (0, 0, 0, 0, 0, 0);
+while (<>) {
+	next if $. == 1;
+	chomp;
+	my ($cve, $lib, @tools) = split /\t/;		# We don't actually use $lib
+	my ($steady, $snyk, $owasp, $grype) = @tools;
+	@tools = ($grype, $owasp, $snyk, $steady);	# Reorder @tools
+	my $any = grep { $_ } @tools ? 1 : 0;
+	my $all = !(grep { $_ == 0 } @tools) ? 1 : 0;
+	push @tools, $any, $all;
+	#print "\t\t", join(" & ", map { $_ == 1 ? '$\checkmark $' : '$\times $' } $cve, $grype, $owasp, $snyk, $steady, $any, $all), " \\\\\n";
+	print "\t\t", join(" & ", $cve, map { $_ == 1 ? '$\checkmark $' : '$\times $' } @tools), " \\\\\n";
+	for (my $i = 0; $i < @tools; ++$i) {
+		$sums[$i] += $tools[$i];
+	}
+}
+
+print "\t\t\\hline\n";
+print "\t\t", join(" & ", "sum", @sums), " \\\\ \\hline\n";
+
+print <<'THE_END';
+	\end{tabular}
+    \caption{CVEs detected by various SCA tools in the original artifact associated with the CVE (as of \scatimestamp)}
+    \label{tab:sca:originals}
+\end{table}
+THE_END