Parent Directory | Revision Log | Patch
revision 21 by dpavlin, Mon Mar 16 10:02:46 2009 UTC | revision 25 by dpavlin, Mon Mar 16 13:54:50 2009 UTC | |
---|---|---|
# | Line 11 use Data::Dump qw/dump/; | Line 11 use Data::Dump qw/dump/; |
11 | use File::Slurp; | use File::Slurp; |
12 | use YAML qw/DumpFile/; | use YAML qw/DumpFile/; |
13 | use Text::CSV; | use Text::CSV; |
14 | use Encode qw/decode/; | use Encode qw/from_to/; |
15 | ||
16 | my $debug = 0; | my $debug = 0; |
17 | ||
18 | my $path = shift @ARGV || die "usage: $0 file.csv\n"; | my $path = shift @ARGV || die "usage: $0 file.csv\n"; |
19 | ||
20 | my $csv = read_file( $path ); | my $csv = read_file( $path ); |
21 | $csv = decode('utf-16', $csv); | from_to($csv, 'utf-16', 'utf-8'); |
22 | ||
23 | my @columns; | my @columns; |
24 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |