added automatic caturing and manual invert

[svn42.git] / rf433rcv / pc / swap.pl

diff --git a/rf433rcv/pc/swap.pl b/rf433rcv/pc/swap.pl
new file mode 100755 (executable)
index 0000000..804ea6e
--- /dev/null
+++ b/rf433rcv/pc/swap.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+
+while(<>)
+{
+  s/1/x/g;
+  s/0/1/g;
+  s/x/0/g;
+  print;
+}