puntoblogspot: ǝʌısuǝɟɟo ʇsod sıɥʇ puıɟ I

jueves, 10 de diciembre de 2009

ǝʌısuǝɟɟo ʇsod sıɥʇ puıɟ I

Once upon a time, not in the west but in a far far not-very-reputable-site that I visit (too) often, I saw a few comments with letters flipped upside down.

After doing some copypastes, I decided to write a 10 line script to translate normal text to flipped text.

I had to deal with unicode chars (I never had to do this before), and I came with this little script, that isn't awesome nor cool, but it can make some friends happy (Txor), and adds -Ofun to programming.

	#!/usr/bin/perl
	binmode STDOUT, ":utf8";
	use Encode;

	my @rev = split '' ,decode_utf8(q\|zʎxʍʌnʇsɹbdouɯןʞɾıɥƃɟǝpɔqɐ()'{}\|);
	my @norm = split '', 'zyxwvutsrqponmlkjihgfedcba)(,}{';
	my %h = map {$norm[$_] => $rev[$_]} 0..$#rev;

	local $/=undef; #slurp the whole stdin. you have to quit with ctrl-d or ctrl-c
	$_ = <STDIN>;

	s/(.)/$h{$1} ? $h{$1} : $1/gex;
	print scalar reverse "\n", decode_utf8($_) ,"\n";