From 5da918119bb2e352f10060a36d9c7e580fa8695e Mon Sep 17 00:00:00 2001
From: Brian Cully <bjc@spork.org>
Date: Wed, 16 Jul 2025 14:29:56 -0400
Subject: prep for js version

---
 pairwise.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'pairwise.pl')

diff --git a/pairwise.pl b/pairwise.pl
index f721575..693b664 100755
--- a/pairwise.pl
+++ b/pairwise.pl
@@ -3,6 +3,8 @@
 use strict;
 use warnings;
 
+use Scalar::Util qw(looks_like_number);
+
 die "usage: $0 threshold file […]\n" unless $#ARGV > 0;
 
 my $threshold = shift;
@@ -14,9 +16,11 @@ while (<>) {
   chomp;
   my @parts = split /,/;
   for (my $i=1; $i <= $#headers; $i++) {
-    if (defined $parts[$i]) {
+    if (defined $parts[$i] && looks_like_number($parts[$i])) {
+      # print STDERR "#h: $#headers #p: $#parts\n";
+      # print STDERR "parts: @parts\n";
       my $similarity = $parts[$i];
-      print "$parts[0],$headers[$i]\n" if $similarity >= $threshold;
+      print "$parts[0],$headers[$i]\n" if $similarity > $threshold;
     }
   }
 }
-- 
cgit v1.3