Public Scratchpad

Select Code to Download

perl -e'map{($a=substr(sprintf("%b",$n+++2),1))=~tr/01/.-/;print"$_= $
+a\n"}split(//, "etianmsurwdkgohvfüläpjbxcyzqöch",30)'

Select or download this

perl -e'map{$pos=/W/?39:ord()-65-/[X-Z]/;($z=join "",reverse split //,
+sprintf "%.6b",@{[0,16,48,32]}[int $pos/10]+hex(@{[split(//,"153B97FD
+6E")]}[$pos%10]))=~ s/(..)/\n$1/g;$z=~tr/01/.O/;printf "%s\n%s\n\n",$
+_,$z}@{[A..Z]}'

Select or download this
```
A

...
O.
.O
OO
```

Select or download this

#!/usr/bin/python20
''' Braille-Applikation '''
...
            print i
                        # insert linebreak after every 2nd sign
                print re.sub("(..)","\g<1>\n", self.sgn[i])+"\n",

Select or download this

#!C:/python20/bin/python.exe
class Morse:
...
                ''' Wandle Text in Morsezeichen um '''
                for i in txt.lower():
                        print self.sgn[i],

Select or download this

Ausgabe:

...
q= --.-
ö= ---.
ch= ----

Select or download this

perl -e'map{($a=substr(sprintf("%b",$n+++2),1))=~tr/01/.-/;push @ar,"$
+_= $a\n"}split(//, "etianmsurwdkgohvfüläpjbxcyzqöch",30);map {print} 
+sort @ar'

Select or download this

a= .-
b= -...
...
ä= .-.-
ö= ---.
ü= ..--

Select or download this

perl -e'map{($a=substr(sprintf("%b",$n+++2),1))=~tr/01/.-/;$h{$_}=$a}s
+plit(//,"etianmsurwdkgohvfüläpjbxcyzqöch",30);map {print $h{lc $_}." 
+"} split //,$ARGV[0];print "\n"' Hallo Du  da

Select or download this
```
.... .- .-.. .-.. ---
```

Select or download this

perl -e"map {print;select undef,undef,undef,0.25} (qq(\a\a), qq(\a), q
+q(\a\a))"