regress/base/string.pl


1
2
3
4
5
6
7

use lib qw(./lib/fml5 ./lib/CPAN ./lib/3RDPARTY ./lib);
use FML::String qw(STR2EUC);

for (@ARGV) {
    my $x = &STR2EUC($_);
    print "<$_> -> <$x>\n";
}