Pastable version of A Dvorak keyboard layout cypher

<pre class='prettyprint' language='perl'>#!/usr/bin/perl

use warnings;
use strict;

my $correct_usage = $ARGV[1];

my $option = $ARGV[0];
my $message = $ARGV[1];

$correct_usage &amp;&amp;= ($option eq &quot;-d&quot; || $option eq &quot;-q&quot;);

if (!$correct_usage) {
    print(
&quot;Usage: dvorak_cypher.pl &lt;option&gt; &lt;message&gt;\n&quot;.
&quot;Options:\n&quot;.
&quot;      -d        Converts &lt;message&gt; from a QWERTY layout to a Dvorak layout\n&quot;.
&quot;      -q        Converts &lt;message&gt;  from a Dvorak layout to a QWERTY layout\n&quot;;
    );
    exit(0);
}

my $qwerty = quotemeta(
'~!@#$%^&amp;*()_+`1234567890-='.
'QWERTYUIOP{}|qwertyuiop[]\\'.
'ASDFGHJKL:&quot;asdfghjkl;\''.
'ZXCVBNM&lt;&gt;?zxcvbnm,./'
);

my $dvorak = quotemeta(
'~!@#$%^&amp;*(){}`1234567890[]'.
'&quot;&lt;&gt;PYFGCRL?+|\',.pyfgcrl/=\\'.
'AOEUIDHTNS_aoeuidhtns-'.
':QJKXBMWVZ;qjkxbmwvz'
);

if ($option eq &quot;-d&quot;) {
   $message =~ tr/$qwerty/$dvorak/;
} elsif ($option eq &quot;-d&quot;) {
   $message =~ tr/$dvorak/$qwerty/;
}

print $message.&quot;\n&quot;;</pre>
<a href="http://www.refactormycode.com/codes/986-a-dvorak-keyboard-layout-cypher" style="color:#fff" title="As seen on RefactorMyCode.com"><img alt="Small_logo" src="http://www.refactormycode.com/images/small_logo.gif" style="border:0" /></a>

Refactor :my => 'code'

Recent

Popular

Pastable version of A Dvorak keyboard layout cypher