#!/usr/bin/perl

use Jcode;
use Jtext;

#$line = jcode("これはsjisテキストです。sjisです。eucではありません。")->sjis;
$line = jcode("これはeucテキストです。eucです。sjisではありません。")->euc;

print "-------------------\n";
print "Text: $line"."\n";
print "-------------------\n";
print "[ length_euc(\$line) ]\n";
print "Length: ".length_euc($line)."\n";
print "-------------------\n";
print "[ substr_euc(\$line,13,6) ]\n";
print substr_euc($line,13,6)."\n";
print "-------------------\n";
print "[ substr_euc(\$line,6,4,\"文字\") ]\n";
print substr_euc($line,6,4,"文字")."\n";
print "-------------------\n";
print "[ substr_euc(\$line,-1,5,\"ない\") ]\n";
print substr_euc($line,-1,5,"ない")."\n";
print "-------------------\n";
print "[ index(\$line,\"テキスト\") ]\n";
print "result is [ ".index_euc($line,jcode("テキスト")->euc)." ]\n";
print "-------------------\n";
print "[ index(\$line,\"テキスト\",9) ]\n";
print "result is [ ".index_euc($line,jcode("テキスト")->euc,9)." ]\n";
print "-------------------\n";
print "[ rindex_euc(\$line,\"euc\") ]\n";
print "result is [ ".rindex_euc($line,jcode("euc")->euc)." ]\n";
print "-------------------\n";
print "[ rindex_euc(\$line,\"euc\",30) ]\n";
print "result is [ ".rindex_euc($line,jcode("euc")->euc,30)." ]\n";
print "-------------------\n";
print "Jtext ver." . $Jtext::VERSION . "\n\n";

exit;