uʍopǝpısdn: almost reverible.
This commit is contained in:
parent
96de2ab7a7
commit
73abbaf6b2
|
@ -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
|
||||||
|
|
||||||
|
|
|
@ -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";
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue