Program to compare two RangeMessage.xml files to see if the ranges ar…

…e different
briandfoy · Mar 16, 2023 · 7f4b7e8 · 7f4b7e8
1 parent 03a4bd2
commit 7f4b7e8
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/range_messages_differ.pl b/range_messages_differ.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+my @xml =
+	map {
+		s|<MessageDate>.*</MessageDate>||;
+		s|<MessageSerialNumber>.*</MessageSerialNumber>||;
+		$_;
+		}
+	map { local(@ARGV, $/) = $_; scalar <> }
+	@ARGV;
+
+exit $xml[0] eq $xml[1];  # 0 means they differ (aren't the same) - unix success
+                          # 1 means they don't differ (are the same) - unix failure