diff options
| author | fukachan <fukachan> | 2001-01-24 03:28:59 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-01-24 03:28:59 +0000 |
| commit | 6e2e57d60b545d6ccc4ea77774f17c578e22ebb0 (patch) | |
| tree | d34fe856d040f21d835bbb6c3f2df82fd8a0d994 /regress/base/string.pl | |
| parent | ed6ebe83368f7e1be41ceb3855af3cc0064c87d5 (diff) | |
| download | fml8-6e2e57d60b545d6ccc4ea77774f17c578e22ebb0.tar.gz fml8-6e2e57d60b545d6ccc4ea77774f17c578e22ebb0.tar.bz2 fml8-6e2e57d60b545d6ccc4ea77774f17c578e22ebb0.zip | |
Initial revision
Diffstat (limited to 'regress/base/string.pl')
| -rwxr-xr-x | regress/base/string.pl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/regress/base/string.pl b/regress/base/string.pl new file mode 100755 index 00000000..733ac426 --- /dev/null +++ b/regress/base/string.pl @@ -0,0 +1,7 @@ +use lib qw(./lib/fml5 ./lib/CPAN ./lib/3RDPARTY ./lib); +use FML::String qw(STR2EUC); + +for (@ARGV) { + my $x = &STR2EUC($_); + print "<$_> -> <$x>\n"; +} |