Parent Directory
|
Revision Log
Conversion to support Postgres for ERDB.
use strict; use Tracer; use ERDBTypeText; my $text = ERDBTypeText->new(); my @strings = ("abcdefg\thijkl\\mn\n\\nfrog\x96minusABCx96y96", "hello\nyoung\nlovers\n", "!@#$%^&*()_-+=[]{}|/.,<>", "THIS IS A TEST\n\n\\frog"); for my $string (@strings) { my $coded = $text->encode($string); print "Coded: $coded\n"; my $decoded = $text->decode($coded); if ($decoded ne $string) { print "Decode failed.\n"; } else { print "Decode worked.\n"; } }
MCS Webmaster | ViewVC Help |
Powered by ViewVC 1.0.3 |