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 * =item *
Line with CSV: B<histogram> -d , 1,1.02,3.1 Line with CSV: B<histogram> -d , 1,1.01,3.1
=item * =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 * =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 * =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 * =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 * =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 =back

13
upsidedown/upsidedown
View file

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