From bf222c8ad51f344569dabbae1c7f62246f23e801 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sun, 10 Jul 2011 13:41:39 +0100
Subject: some tools

---
 do-ctrl.pl | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 do-ctrl.pl

(limited to 'do-ctrl.pl')

diff --git a/do-ctrl.pl b/do-ctrl.pl
new file mode 100644
index 0000000..8f3d92c
--- /dev/null
+++ b/do-ctrl.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use 5.012;
+use File::Slurp 'edit_file';
+
+edit_file {
+    s{
+(?<pre> key \s+ (?<key> [A-Z] ) \s+ \{
+.*?)
+^\s+ alt,\ ctrl,\ meta:\s+none$
+(?<post> .*? \})
+}{
+"$+{pre}    ctrl:                               '\\x".sprintf('%02x',ord($+{key})-ord('@'))."'
+    alt, meta:                          none$+{post}"
+}smxge;
+} shift;
-- 
cgit v1.2.3