/ 
Text-Fy-Utils-0.05
River stage zero No dependents
/ Text::Fy::Utils

NAME

Text::Fy::Utils - Some text based utility functions

SYNOPSIS

use Text::Fy::Utils qw(
  set_amode asciify commify
  cv_from_win cv_to_win
);

my $t1 =
  "\x{041}\x{062}\x{043} => ".
  "\x{08a}\x{08c}\x{08e} => ".
  "\x{091}\x{092}\x{093} => ".
  "\x{0a1}\x{0a2}\x{0bf} => ".
  "\x{0bc}\x{0bd}\x{0be} => ".
  "\x{0c6}\x{0c7}\x{0c8} => ";

my $t2 =
  "\x{172}\x{173}\x{174} => ".
  "\x{388}\x{389}\x{38a} => ".
  "\x{3b1}\x{3b2}\x{3b3} => ";

my $asc1 = asciify($t1.$t2, [ 'pure' ]);
my $asc2 = asciify($t1.$t2, [ 'pure', 'win' ]);
my $asc3 = asciify($t1.$t2, [ 'brutal' ]);
my $asc4 = asciify($t1.$t2, [ 'brutal', 'win' ]);
my $asc5 = asciify($t1.$t2, [ 'iso' ]);
my $asc6 = asciify($t1.$t2, [ 'iso', 'win' ]);

set_amode([ 'brutal', 'win' ]);
my $asc7 = asciify($t1.$t2);

my $out1 = commify('12345678.1234');
my $out2 = commify('12345678.1234', '~');

my $out3 = cv_from_win($t1.$t2);
my $out4 = cv_to_win($t1.$t2);

OTHER REFERENCES

There is a list of all unicode names in ...\perl\lib\unicore\Name.pl

AUTHOR

Klaus Eichner <klaus03@gmail.com>

COPYRIGHT AND LICENSE

Copyright (C) 2014 by Klaus Eichner

All rights reserved. This program is free software; you can redistribute it and/or modify it under the terms of the artistic license 2.0, see http://www.opensource.org/licenses/artistic-license-2.0.php