From 617127ac85d678c9b4da90d386558823214f03dc Mon Sep 17 00:00:00 2001
From: Piotr Roszatycki <piotr.roszatycki@gmail.com>
Date: Mon, 22 Oct 2012 22:08:39 +0200
Subject: [PATCH] New tool which splits EMI-UCP message without decoding fields

---
 examples/ucpsplit.pl | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100755 examples/ucpsplit.pl

diff --git a/examples/ucpsplit.pl b/examples/ucpsplit.pl
new file mode 100755
index 0000000..426e8a8
--- /dev/null
+++ b/examples/ucpsplit.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+# Split EMI-UCP message fields without decoding
+#
+# Example:
+#     ucpsplit.pl 00/00070/O/51/507998000/123/////////////////3//54455354/////////////19
+
+use lib 'lib', '../lib';
+
+use Protocol::EMIUCP;
+use Data::Dumper ();
+
+my $str = $ARGV[0] || die "Usage: $0 ucp_string\n";
+
+my $fields = Protocol::EMIUCP->parse_message_from_string($str);
+
+my $dump = Data::Dumper->new([ $fields ])
+    ->Indent(1)
+    ->Pair('=')
+    ->Quotekeys(0)
+    ->Sortkeys(1)
+    ->Useqq(1)
+    ->Terse(1)
+    ->Dump;
+$dump =~ s/^{\n(.*)\n}$/$1/s;
+$dump =~ s/^\s\s(.*?),?$/$1/mg;
+print $dump;