2002-03-02 10:44:57 +00:00
|
|
|
|
<?php
|
|
|
|
|
|
// TODO: Add more encodings
|
|
|
|
|
|
|
|
|
|
|
|
//$debug=true;
|
|
|
|
|
|
ini_set('include_path','.');
|
2002-03-18 06:03:53 +00:00
|
|
|
|
include_once('common.inc');
|
2002-03-02 10:44:57 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// Test string
|
|
|
|
|
|
$euc_jp = '0123<32><33><EFBFBD><EFBFBD>ʸ<EFBFBD><CAB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8>Ǥ<EFBFBD><C7A4><EFBFBD>EUC-JP<4A><50><EFBFBD>ȤäƤ<C3A4><C6A4>ޤ<EFBFBD><DEA4><EFBFBD>0123<32><33><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݽ<EFBFBD><DDBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
|
|
|
|
|
|
// EUC-JP - With encoding parameter
|
|
|
|
|
|
mb_internal_encoding('UTF-8') or print("mb_internal_encoding() failed\n");
|
|
|
|
|
|
|
|
|
|
|
|
echo "== WITH ENCODING PARAMETER ==\n";
|
|
|
|
|
|
|
|
|
|
|
|
print mb_strrpos($euc_jp,'<27><><EFBFBD>ܸ<EFBFBD>', 'EUC-JP') . "\n";
|
|
|
|
|
|
print mb_strrpos($euc_jp, '0', 'EUC-JP') . "\n";
|
|
|
|
|
|
print mb_strrpos($euc_jp, 3, 'EUC-JP') . "\n";
|
|
|
|
|
|
print mb_strrpos($euc_jp, 0, 'EUC-JP') . "\n";
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$r = mb_strrpos($euc_jp, '<27>ڹ<EFBFBD><DAB9><EFBFBD>', 'EUC-JP');
|
|
|
|
|
|
($r === FALSE) ? print "OK_STR\n" : print "NG_STR\n";
|
|
|
|
|
|
$r = mb_strrpos($euc_jp, "\n", 'EUC-JP');
|
|
|
|
|
|
($r === FALSE) ? print "OK_NEWLINE\n" : print "NG_NEWLINE\n";
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// EUC-JP - No encoding parameter
|
|
|
|
|
|
echo "== NO ENCODING PARAMETER ==\n";
|
|
|
|
|
|
mb_internal_encoding('EUC-JP') or print("mb_internal_encoding() failed\n");
|
|
|
|
|
|
|
|
|
|
|
|
print mb_strrpos($euc_jp,'<27><><EFBFBD>ܸ<EFBFBD>') . "\n";
|
|
|
|
|
|
print mb_strrpos($euc_jp, '0') . "\n";
|
|
|
|
|
|
print mb_strrpos($euc_jp, 3) . "\n";
|
|
|
|
|
|
print mb_strrpos($euc_jp, 0) . "\n";
|
|
|
|
|
|
|
|
|
|
|
|
$r = mb_strrpos($euc_jp,'<27>ڹ<EFBFBD><DAB9><EFBFBD>');
|
|
|
|
|
|
($r === FALSE) ? print "OK_STR\n" : print "NG_STR\n";
|
|
|
|
|
|
$r = mb_strrpos($euc_jp,"\n");
|
|
|
|
|
|
($r === FALSE) ? print "OK_NEWLINE\n" : print "NG_NEWLINE\n";
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// Invalid Parameters
|
|
|
|
|
|
echo "== INVALID PARAMETER TEST ==\n";
|
|
|
|
|
|
|
|
|
|
|
|
$r = mb_strrpos($euc_jp,'','EUC-JP');
|
|
|
|
|
|
($r === FALSE) ? print("OK_NULL\n") : print("NG_NULL\n");
|
|
|
|
|
|
$r = mb_strrpos($euc_jp, $t_ary, 'EUC-JP');
|
|
|
|
|
|
($r === FALSE) ? print("OK_ARRAY\n") : print("NG_ARRAY\n");
|
|
|
|
|
|
$r = mb_strrpos($euc_jp, $t_obj, 'EUC-JP');
|
|
|
|
|
|
($r === FALSE) ? print("OK_OBJECT\n") : print("NG_OBJECT\n");
|
|
|
|
|
|
|
|
|
|
|
|
//Note: Notice msg for NULL string might be better.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
?>
|
