perl-unicode

Re: suggestion for Encode::Guess

2003-05-01 08:30:23
On Wednesday 30 April 2003 10:07 am, Thurn, Martin wrote:
my @asSuspectAlways = qw( shiftjis utf-8 );
my $sSuspectMaybe = $iEuc ? 'euc-jp' : '';
my $oDecoder = guess_encodings($sData, $sSuspectMaybe, @asSuspectAlways);

Why not just:

my @asSuspects = qw( shiftjis utf-8 );
unshift(@asSuspects, 'euc-jp') if $iEuc;
my $oDecoder = guess_encodings($sData, @asSuspects);

-- 
Nathaniel W. Turner
http://www.houseofnate.net/
Tel: +1 508 579 1948 (mobile)

<Prev in Thread] Current Thread [Next in Thread>
  • Re: suggestion for Encode::Guess, Nathaniel W. Turner <=