From 75e24000c67d1974d540ec88feb6c5b883e77f52 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sun, 14 Dec 2014 13:31:00 +0100 Subject: [PATCH] decode bytes --- dialog.pl | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/dialog.pl b/dialog.pl index 006eded..6d1a29a 100755 --- a/dialog.pl +++ b/dialog.pl @@ -81,6 +81,12 @@ retry: $o += 2; } + while ( $o < length($data) - 1 ) { + my $n = unpack('c', substr($data,$o,1)); + warn "## $o = ", $n, "\n"; + $o += 1; + } + return $data; } -- 2.20.1