in reply to Comparing string hex / korean
use strict; use warnings; my %cfg = ( 'default.player', "\xeb\xa6\xac\xec\x9e\x91", ); my $name = '\\xeb\\xa6\\xac\\xec\\x9e\\x91'; my $a = $cfg{'default.player'}; my $b = eval q(") . $name . q("); if ($a eq $b) { print "indahouse\n"; }
|
|---|