hueg.pl: fix warning, syntax
This commit is contained in:
wowaname
parent
5042035721
commit
a73335f169
166
scripts/hueg.pl
166
scripts/hueg.pl
@ -145,8 +145,8 @@ sub process {
|
||||
for $l (@s2) { #each letter
|
||||
$all .= "$c3 \cO";
|
||||
|
||||
if($flip) { $cur = "$db{$l}[(9-$f)/$scale]"; } #line of letter
|
||||
else { $cur = "$db{$l}[$f/$scale]"; }
|
||||
if($flip) { $cur = $db{$l}[(9-$f)/$scale] // $db{'?'}[(9-$f)/$scale]; } #line of letter
|
||||
else { $cur = $db{$l}[$f/$scale] // $db{'?'}[$f/$scale]; }
|
||||
|
||||
$whitespace = " " x $scale;
|
||||
$cur =~ s/ /$whitespace/g;
|
||||
@ -323,7 +323,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"A" => [
|
||||
A => [
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 $c1 $c2 $c1 $c2 $c3 ",
|
||||
@ -334,7 +334,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"a" => [
|
||||
a => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -345,7 +345,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"B" => [
|
||||
B => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
@ -356,7 +356,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"b" => [
|
||||
b => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c1 $c2 $c3 ",
|
||||
@ -367,7 +367,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"C" => [
|
||||
C => [
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
@ -378,7 +378,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"c" => [
|
||||
c => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -389,7 +389,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"D" => [
|
||||
D => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3 ",
|
||||
@ -400,7 +400,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"d" => [
|
||||
d => [
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 $c3",
|
||||
"$c3 $c1 $c2 $c3",
|
||||
@ -411,7 +411,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"E" => [
|
||||
E => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3",
|
||||
"$c1 $c2 $c3 ",
|
||||
@ -422,7 +422,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"e" => [
|
||||
e => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -433,7 +433,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"F" => [
|
||||
F => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 ",
|
||||
"$c1 $c2 $c3 ",
|
||||
@ -444,7 +444,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"f" => [
|
||||
f => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 ",
|
||||
@ -455,7 +455,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"G" => [
|
||||
G => [
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 $c1 $c2 $c3 $c1 $c2 $c3",
|
||||
@ -466,7 +466,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"g" => [
|
||||
g => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -477,7 +477,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
],
|
||||
"H" => [
|
||||
H => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
@ -488,7 +488,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"h" => [
|
||||
h => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c1 $c2 $c3 ",
|
||||
@ -499,7 +499,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"I" => [
|
||||
I => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
@ -510,7 +510,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"i" => [
|
||||
i => [
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
@ -521,7 +521,7 @@ sub db1 {
|
||||
"$c1 $c2 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"J" => [
|
||||
J => [
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
@ -532,7 +532,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"j" => [
|
||||
j => [
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 ",
|
||||
"$c3 ",
|
||||
@ -543,7 +543,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 $c1 $c2 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
],
|
||||
"K" => [
|
||||
K => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3 ",
|
||||
@ -554,7 +554,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"k" => [
|
||||
k => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c1 $c2 $c3 ",
|
||||
@ -565,7 +565,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 $c1 $c2 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"L" => [
|
||||
L => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c1 $c2 $c3 ",
|
||||
@ -576,7 +576,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"l" => [
|
||||
l => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
@ -587,7 +587,7 @@ sub db1 {
|
||||
"$c1 $c2 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"M" => [
|
||||
M => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
@ -598,7 +598,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"m" => [
|
||||
m => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -609,7 +609,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"N" => [
|
||||
N => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 $c1 $c2 ",
|
||||
"$c1 $c2 $c3 $c1 $c2 ",
|
||||
@ -620,7 +620,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 $c1 $c2 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"n" => [
|
||||
n => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -631,7 +631,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"O" => [
|
||||
O => [
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 $c1 $c2 $c3 $c1 $c2 $c3 ",
|
||||
@ -642,7 +642,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"o" => [
|
||||
o => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -653,7 +653,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"P" => [
|
||||
P => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
@ -664,7 +664,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"p" => [
|
||||
p => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -675,7 +675,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c1 $c2 $c3 ",
|
||||
],
|
||||
"Q" => [
|
||||
Q => [
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 $c1 $c2 $c3 $c1 $c2 $c3 ",
|
||||
@ -686,7 +686,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
],
|
||||
"q" => [
|
||||
q => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -697,7 +697,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3",
|
||||
"$c3 $c1 $c2 $c3",
|
||||
],
|
||||
"R" => [
|
||||
R => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3 ",
|
||||
@ -708,7 +708,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 $c1 $c2 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"r" => [
|
||||
r => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -719,7 +719,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"S" => [
|
||||
S => [
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
@ -730,7 +730,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"s" => [
|
||||
s => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -741,7 +741,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"T" => [
|
||||
T => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
@ -752,7 +752,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"t" => [
|
||||
t => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
@ -763,7 +763,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"U" => [
|
||||
U => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
@ -774,7 +774,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"u" => [
|
||||
u => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -785,7 +785,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"V" => [
|
||||
V => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 $c1 $c2 ",
|
||||
"$c1 $c2 $c3 $c1 $c2 ",
|
||||
@ -796,7 +796,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"v" => [
|
||||
v => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -807,7 +807,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"W" => [
|
||||
W => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 $c1 $c2 ",
|
||||
"$c1 $c2 $c3 $c1 $c2 ",
|
||||
@ -818,7 +818,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 $c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"w" => [
|
||||
w => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -829,7 +829,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 $c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"X" => [
|
||||
X => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
"$c3 $c1 $c2 $c3 $c1 $c2 $c3 ",
|
||||
@ -840,7 +840,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"x" => [
|
||||
x => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -851,7 +851,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"Y" => [
|
||||
Y => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
"$c3 $c1 $c2 $c3 $c1 $c2 $c3 ",
|
||||
@ -862,7 +862,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"y" => [
|
||||
y => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -873,7 +873,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
],
|
||||
"Z" => [
|
||||
Z => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
@ -884,7 +884,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"z" => [
|
||||
z => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -895,7 +895,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"\~" => [
|
||||
'~' => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -906,7 +906,7 @@ sub db1 {
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"\`" => [
|
||||
'`' => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c3 $c1 $c2 ",
|
||||
@ -917,7 +917,7 @@ sub db1 {
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"\!" => [
|
||||
'!' => [
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 $c3",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
@ -928,7 +928,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"\@" => [
|
||||
'@' => [
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 $c1 $c2 $c3 $c1 $c2 $c3 ",
|
||||
@ -939,7 +939,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"\#" => [
|
||||
'#' => [
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 $c3 $c1 $c2 $c3 ",
|
||||
"$c3 $c1 $c2 $c3 $c1 $c2 $c3 ",
|
||||
@ -950,7 +950,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 $c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"\$" => [
|
||||
'$' => [
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3 $c1 $c2 $c3",
|
||||
@ -961,7 +961,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
],
|
||||
"\%" => [
|
||||
'%' => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 $c1 $c2 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
@ -972,7 +972,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 $c1 $c2 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"\^" => [
|
||||
'^' => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
@ -983,7 +983,7 @@ sub db1 {
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"\&" => [
|
||||
'&' => [
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 $c1 $c2 $c3 $c1 $c2 $c3 ",
|
||||
@ -994,7 +994,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"\*" => [
|
||||
'*' => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 $c1 $c2 ",
|
||||
@ -1005,7 +1005,7 @@ sub db1 {
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"\(" => [
|
||||
'(' => [
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 $c3",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
@ -1016,7 +1016,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"\)" => [
|
||||
')' => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
@ -1027,7 +1027,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"_" => [
|
||||
'_' => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -1038,7 +1038,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"\-" => [
|
||||
'-' => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -1049,7 +1049,7 @@ sub db1 {
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"\+" => [
|
||||
'+' => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
@ -1060,7 +1060,7 @@ sub db1 {
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"\=" => [
|
||||
'=' => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -1071,7 +1071,7 @@ sub db1 {
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"\|" => [
|
||||
'|' => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3",
|
||||
"$c1 $c2 $c3",
|
||||
@ -1082,7 +1082,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"\\" => [
|
||||
'\\' => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
@ -1093,7 +1093,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"\[" => [
|
||||
'[' => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3",
|
||||
"$c1 $c2 $c3 ",
|
||||
@ -1104,7 +1104,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"\]" => [
|
||||
']' => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3",
|
||||
"$c3 $c1 $c2 $c3",
|
||||
@ -1115,7 +1115,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"\{" => [
|
||||
'{' => [
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 $c3",
|
||||
"$c1 $c2 $c3 ",
|
||||
@ -1126,7 +1126,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3",
|
||||
"$c3 ",
|
||||
],
|
||||
"\}" => [
|
||||
'}' => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c3 $c1 $c2 $c3",
|
||||
@ -1137,7 +1137,7 @@ sub db1 {
|
||||
"$c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"\:" => [
|
||||
':' => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -1148,7 +1148,7 @@ sub db1 {
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"\;" => [
|
||||
';' => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
@ -1159,7 +1159,7 @@ sub db1 {
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"\'" => [
|
||||
'\'' => [
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 ",
|
||||
"$c1 $c2 $c3 ",
|
||||
@ -1170,7 +1170,7 @@ sub db1 {
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"\"" => [
|
||||
'"' => [
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
"$c1 $c2 $c3 $c1 $c2 $c3",
|
||||
@ -1181,7 +1181,7 @@ sub db1 {
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"\<" => [
|
||||
'<' => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 $c3",
|
||||
@ -1192,7 +1192,7 @@ sub db1 {
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"\>" => [
|
||||
'>' => [
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
"$c1 $c2 $c3 ",
|
||||
@ -1203,7 +1203,7 @@ sub db1 {
|
||||
"$c3 ",
|
||||
"$c3 ",
|
||||
],
|
||||
"\?" => [
|
||||
'?' => [
|
||||
"$c3 ",
|
||||
"$c3 $c1 $c2 $c3 ",
|
||||
"$c3 $c1 $c2 $c3 $c1 $c2 ",
|
||||
|
||||
Loading…
Reference in New Issue
Block a user