Acme::Kensiro - kensiro-sinsu

Acme-Kensiro documentation Contained in the Acme-Kensiro distribution.

Index

Code Index:

NAME

Top

Acme::Kensiro - kensiro-sinsu

SYNOPSIS

Top

    use Acme::Kensiro;
    kensiro(16); # => あたたたた

DESCRIPTION

Top

kensiro-sinsu.

BUGS AND LIMITATIONS

Top

No bugs have been reported.

SEE ALSO

Top

http://www.asahi-net.or.jp/~rc4t-ishr/kensiro.html

AUTHOR

Top

Tokuhiro Matsuno <tokuhiro __at__ mobilefactory.jp>

LICENCE AND COPYRIGHT

Top

Copyright (c) 2007, Tokuhiro Matsuno <tokuhiro __at__ mobilefactory.jp>. All rights reserved.

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.

Acme-Kensiro documentation Contained in the Acme-Kensiro distribution. 
package Acme::Kensiro;
use strict;
use warnings;
use Exporter 'import';
our @EXPORT = 'kensiro';
our $VERSION = '0.06';

sub kensiro {
    my $src = shift;

    my $dst = unpack("B8",  pack("C", $src));
    $dst =~ s/^0*(.+)/$1/;
    $dst =~ s/0/た/g;
    $dst =~ s/1/あ/g;

    return $dst;
}

1;
__END__