perl-unicode
|
Re: suggestion for Encode::Guess2003-05-01 08:30:23On 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)
|
|