From 6e2e57d60b545d6ccc4ea77774f17c578e22ebb0 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Wed, 24 Jan 2001 03:28:59 +0000
Subject: Initial revision

---
 regress/base/string.pl | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100755 regress/base/string.pl

(limited to 'regress/base/string.pl')

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";
+}
-- 
cgit v1.2.1