Parent Directory | Revision Log | Patch
revision 1348 by dpavlin, Sat Oct 16 17:51:00 2010 UTC | revision 1349 by dpavlin, Sat Oct 16 18:25:59 2010 UTC | |
---|---|---|
# | Line 50 sub new { | Line 50 sub new { |
50 | ||
51 | my $col = 'A'; | my $col = 'A'; |
52 | foreach my $v ( split(/\t/,$line) ) { | foreach my $v ( split(/\t/,$line) ) { |
53 | next if $v eq '\N'; | $rec->{ $col } = Encode::decode_utf8( $v ) if $v ne '\N'; |
54 | $rec->{ $col++ } = Encode::decode_utf8( $v ); | $col++; |
55 | } | } |
56 | ||
57 | push @{ $self->{_rec} }, $rec; | push @{ $self->{_rec} }, $rec; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |