uʍopǝpısdn added

This commit is contained in:
Ole Tange 2012-05-18 23:15:44 +02:00
parent 273c2a93d7
commit c84d811f66
2 changed files with 22 additions and 1 deletions

View file

@ -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
View 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";
}
}