hueg.pl: fix warning, syntax

This commit is contained in:
wowaname 2016-11-11 10:17:01 +00:00
parent 5042035721
commit a73335f169

View File

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