view release on metacpan or  search on metacpan

lib/Acme/Text/Viceversa.pm  view on Meta::CPAN

package Acme::Text::Viceversa;

use 5.008001;
use strict;
use warnings;
use Carp;
use utf8;

our $VERSION = "0.07";

sub new {
    my $class = shift;
    return bless {}, $class;
}

my %ascii = (
    q' ' => ' ',    # same!
    q'!' => '¡',
    q'"' => '„',
    q'#' => '#',    # same!
    q'$' => '$',    # same!
    q'%' => '%',    # same!
    q'&' => 'â…‹',
    q|'| => '͵',
    q|(| => ')',
    q|)| => '(',
    q|*| => '*',    # same!
    q|+| => '+',    # same!
    q|,| => '‘',
    q|-| => '-',    # same!
    q|.| => 'Ë™',
    q|/| => '/',    # same!

    q|0| => '0',    # same!
    q|1| => '⇂',
    q|2| => 'ᘔ',
    q|3| => 'ε',
    q|4| => '⇁⃓',
    q|5| => 'ᔕ',
    q|6| => '9',
    q|7| => 'L',
    q|8| => '8',    # same!
    q|9| => '6',
    q|:| => ':',    # same!
    q|;| => 'â‹…Ì•',
    q|<| => '>',
    q|=| => '=',    # same!
    q|>| => '<',
    q|?| => '¿',

    q|@| => '@',    # Can't be rotate
    q|A| => '∀',
    q|B| => 'á—º',
    q|C| => 'Ↄ',
    q|D| => 'p',
    q|E| => 'ÆŽ',
    q|F| => 'Ⅎ',
    q|G| => '⅁',
    q|H| => 'H',    # same!
    q|I| => 'I',    # same!
    q|J| => 'á’‹',
    q|K| => '丬',
    q|L| => 'á’£',
    q|M| => 'W',
    q|N| => 'N',    # same!
    q|O| => 'O',    # same!

lib/Acme/Text/Viceversa.pm  view on Meta::CPAN

    q|d| => 'p',
    q|e| => 'ǝ',
    q|f| => 'ÉŸ',
    q|g| => 'É“',
    q|h| => 'É¥',
    q|i| => 'á´‰',
    q|j| => 'Å¿Ì£',
    q|k| => 'Êž',
    q|l| => 'ꞁ',
    q|m| => 'ɯ',
    q|n| => 'u',
    q|o| => 'o',    # same!

    q|p| => 'd',
    q|q| => 'b',
    q|r| => 'ɹ',
    q|s| => 's',    # same!
    q|t| => 'ʇ',
    q|u| => 'n',
    q|v| => 'ʌ',
    q|w| => 'ʍ',
    q|x| => 'x',    # same!
    q|y| => 'ÊŽ',
    q|z| => 'z',    # same!
    q|{| => '}',
    q{|} => '|',    # same!
    q|}| => '{',
    q|~| => '∼',    # same!
);

my %rot180 = %ascii;
my $list = '';
while( my( $from, $to ) = each %ascii ){    # to make reversed list
    next if $to =~ /^[ -~]$/;               # skip if it was an ascii
    $rot180{$to} = $from;                   # add reversed key
    $list .= $to;                           # add the charactors to the list
}
$list = "\Q" . $list;

sub ɐsɹǝʌǝɔᴉʌ {
    my $self = shift;
    my $str = shift;
    $str =~ s/\r\n/\n/g;
    my @results = ();
    foreach ( split "\n", $str ) {
        my @result = reverse map{ $self->ǝʇɐʇoɹ($_) } split /\s/, $_;
        unshift @results, join " ", @result;
    }
    return join "\n", @results;
}

sub ǝʇɐʇoɹ {
    my $self = shift;
    my $str = shift;
     croak $self->ǝʇɐʇoɹ( __PACKAGE__ . " accepts only ascii and their upset." )
    unless $str =~ /^(:?[ -~$list]+)$/o;
    my @results = ();
    my $string = '';
    my $buffer = '';
    while ( $string = substr( $str, 0, 1, '' ) or $string eq '0' ){
        # some charactors have length 2 even if they were under utf8
        if( exists $rot180{$string} ) {
            unshift @results, $rot180{$string};
            $buffer = '';
        }else{
            $buffer .= $string;
            next unless exists $rot180{$buffer};
            unshift @results, $rot180{$buffer};
            $buffer = '';
        }
    }
    return join "", @results;
}

1;
__END__

=encoding utf-8

=head1 ATENTION
 
You have to twist your neck to read this document.
Don't turn your display, it is the sliest way for me.
 
 
=head1 NAME
 
ʇxǝʇ ǝɥʇ ʇǝsdn ʇsnᒋ - ɐsɹǝʌǝɔᴉΛ::ʇxǝ⊥::ǝɯɔ∀
 
=head1 SYNOPSIS
 
 text that you want to make upset #
 ⋅̕(͵ʇǝsdn ǝʞɐɯ oʇ ʇuɐʍ noʎ ʇɐɥʇ ʇxǝʇ͵)viceversa<-ʌ$ = ʇǝsdn$ ʎɯ
 ⋅̕()ʍǝu<-ɐsɹǝʌǝɔᴉΛ::ʇxǝ⊥::ǝɯɔ∀ = ʌ$ ʎɯ
 
 ⋅̕ɐsɹǝʌǝɔᴉΛ::ʇxǝ⊥::ǝɯɔ∀ ǝsn

=head1 DESCRIPTION
 
=head2 ɹoʇɔnɹʇsuoɔ
 
=head3 ()ʍǝu

˙pǝɹᴉnbǝɹ sᴉ ɓuᴉɥʇou ˙ɹoʇɔnɹʇsuoɔ ɐ ʇsnſ̣
 
=head2 spoɥʇǝɯ

=head3 (ɥdɐɹɓɐɹɐd$)viceversa

sǝpᴉʌoɹd ǝꞁnpoɯ sᴉɥʇ ʇɐɥʇ uoᴉʇɔunɟ ʎꞁuo ǝɥʇ sᴉ sᴉɥʇ ˙ᴉᴉɔsɐ uᴉ ɥdɐɹɓɐɹɐd ʎuɐ ʇǝsdn ʎꞁʇɔǝɹɹoɔ
 
=head1 AUTHOR
 
E<lt>ɯoɔ˙ꞁᴉɐɯɓ@ǝuᴉɯɥʇɹoʍE<gt> (ǝuᴉɯɥʇɹoʍ)ɐpᴉɥso⅄ ᴉʞn⅄
 
=head1 LICENSE
 
˙ɟꞁǝsʇᴉ ꞁɹǝԀ sɐ sɯɹǝʇ ǝɯɐs ǝɥʇ ɹǝpun ʇᴉ ʎɟᴉpoɯ ɹo/puɐ ʇᴉ ǝʇnqᴉɹʇsᴉpǝɹ uɐɔ noʎ E<039>ǝɹɐʍʇɟos ǝǝɹɟ sᴉ ʎɹɐɹqᴉꞁ sᴉɥ⊥
 
˙ɐpᴉɥso⅄ ᴉʞn⅄ (Ↄ) ʇɥɓᴉɹʎdoↃ