X-Git-Url: http://v3vee.org/palacios/gitweb/gitweb.cgi?p=palacios.git;a=blobdiff_plain;f=palacios%2Fscripts%2Fhexify.pl;fp=palacios%2Fscripts%2Fhexify.pl;h=9a03bf3f3c9728b7b840789278fccee1a064af58;hp=0000000000000000000000000000000000000000;hb=ddc16b0737cf58f7aa90a69c6652cdf4090aec51;hpb=626595465a2c6987606a6bc697df65130ad8c2d3

diff --git a/palacios/scripts/hexify.pl b/palacios/scripts/hexify.pl
new file mode 100755
index 0000000..9a03bf3
--- /dev/null
+++ b/palacios/scripts/hexify.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+$file = $ARGV[0];
+
+while(1) { 
+	open (FILE,">>$file");
+	$foo = <STDIN>; 
+	chomp $foo; 
+	print FILE pack("C", hex("0x$foo")); 
+	close FILE;
+}
+