uʍopǝpısdn added
This commit is contained in:
parent
273c2a93d7
commit
c84d811f66
2
Makefile
2
Makefile
|
@ -4,5 +4,5 @@ blink/blink.1: blink/blink
|
|||
pod2man blink/blink > blink/blink.1
|
||||
|
||||
install:
|
||||
parallel ln -sf `pwd`/{}/{} /usr/local/bin/{} ::: blink reniced em field forever neno rn stdout tracefile w4it-for-port-open
|
||||
parallel ln -sf `pwd`/{}/{} /usr/local/bin/{} ::: blink reniced em field forever neno rn stdout tracefile w4it-for-port-open upsidedown
|
||||
parallel ln -sf `pwd`/{}/{}.1 /usr/local/share/man/man1/{}.1 ::: blink
|
||||
|
|
21
upsidedown/upsidedown
Executable file
21
upsidedown/upsidedown
Executable file
|
@ -0,0 +1,21 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
# Try to flip input upside down with UNICODE
|
||||
|
||||
my $down = ' @{}'.
|
||||
q{ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz.,';0123456789?!"&()[]/\_‾};
|
||||
my @up = (" ",qw(@ } {),
|
||||
qw{∀ q Ɔ p Ǝ Ⅎ ⅁ H I ſ ʞ ⅂ W N O Ԁ Ό ᴚ S ⊥ ∩ Ʌ M X ⅄ Z ɐ q ɔ p ǝ ɟ 6 ɥ ı ſ ʞ l},
|
||||
qw{ɯ u o d b ɹ s ʇ n ʌ ʍ x ʎ z ˙ ' , ؛ 0 Ɩ 2 Ɛ ᔭ 5 9 Ɫ 8 6 ¿ ¡ „ ⅋ ) ( ] [ / \ ‾ _});
|
||||
|
||||
my %up;
|
||||
@up{split//,$down}=@up;
|
||||
|
||||
if(@ARGV) {
|
||||
print @up{split//,reverse("@ARGV")},"\n";
|
||||
} else {
|
||||
while(<>) {
|
||||
print @up{split//,reverse($_)},"\n";
|
||||
}
|
||||
}
|
||||
|
Loading…
Reference in a new issue