tange/tangetools
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

uʍopǝpısdn: almost reverible.

Browse source
This commit is contained in:
Ole Tange 2012-05-20 03:50:03 +02:00
parent 96de2ab7a7
commit 73abbaf6b2
2 changed files with 15 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
histogram/histogram
View file

@ -23,27 +23,27 @@ The list of numbers can be formatted as:
=item *
Line with CSV: B<histogram> -d , 1,1.02,3.1
Line with CSV: B<histogram> -d , 1,1.01,3.1
=item *
Line with white space separated values: B<histogram> 1 1.02 3.1
Line with white space separated values: B<histogram> 1 1.01 3.1
=item *
Line with white space separated headers+values: B<histogram> a 1 b 1.02 c 3.1
Line with white space separated headers+values: B<histogram> a 1 b 1.01 c 3.1
=item *
One value per line: (echo 1; echo 1.02; echo 3.1) | B<histogram>
One value per line: (echo 1; echo 1.01; echo 3.1) | B<histogram>
=item *
One white space separated header+value per line: (echo a 1; echo b 1.02; echo c 3.1) | B<histogram>
One white space separated header+value per line: (echo a 1; echo b 1.01; echo c 3.1) | B<histogram>
=item *
One comma separated header+value per line: (echo a,1; echo b,1.02; echo c,3.1) | B<histogram> -d ,
One comma separated header+value per line: (echo a,1; echo b,1.01; echo c,3.1) | B<histogram> -d ,
=back

13
upsidedown/upsidedown
View file

@ -2,6 +2,8 @@
# Try to flip input upside down with UNICODE
use utf8;
my $down = ' @{}'.
q{ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz.,';0123456789?!"&()[]/\_‾};
my @up = (" ",qw(@ } {),
@ -9,13 +11,16 @@ my @up = (" ",qw(@ } {),
qw{ɯ u o d b ɹ s ʇ n ʌ ʍ x ʎ z ˙ ' , ؛ 0 Ɩ 2 Ɛ ᔭ 5 9 Ɫ 8 6 ¿ ¡ „ ⅋ ) ( ] [ / \ ‾ _});
my %up;
@up{split//,$down}=@up;
my @down = split//,$down;
@up{@up} = @down;
@up{@down} = @up;
binmode STDOUT, ':utf8';
binmode STDIN, ':utf8';
if(@ARGV) {
print @up{split//,reverse("@ARGV")},"\n";
print @up{reverse split//,"@ARGV"},"\n";
} else {
while(<>) {
print @up{split//,reverse($_)},"\n";
print @up{reverse split//,$_},"\n";
}
}