1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
use strict;
use utf8;
use Text::CSV::Encoded coder_class => 'Text::CSV::Encoded::Coder::EncodeGuess';
my $csv = Text::CSV::Encoded->new;
$csv->encoding( ['shiftjis', 'euc-jp'] ); # guessing euc-jp or shiftjis?
$csv->encoding_out('shiftjis');
my @fields = ( Encode::encode('euc-jp', 'これはEUC-JP'), Encode::encode('shiftjis', 'これはShift_JIS') );
ok( $csv->combine( @fields ) );
is( $csv->string, Encode::encode( 'shiftjis', '"これはEUC-JP","これはShift_JIS"' ) );
$csv->encoding_to_parse( ['shiftjis', 'euc-jp'] ); # guessing euc-jp or shiftjis?
$csv->encoding( undef );
ok( $csv->parse( Encode::encode('euc-jp', 'これはEUC-JP') ) );
is( join('', $csv->fields), 'これはEUC-JP' );
ok( $csv->parse( Encode::encode('shiftjis', 'これはShift_JIS') ) );
is( join('', $csv->fields), 'これはShift_JIS' );
1;
|
