Difference between revisions of "Xls2csv"
From Christoph's Personal Wiki
| Line 32: | Line 32: | ||
-w : specify the worksheet name to convert (defaults to the first worksheet) | -w : specify the worksheet name to convert (defaults to the first worksheet) | ||
| − | == | + | ==Transpose csv files== |
| − | + | If you need to transpose your csv matrix before using it (i.e., rows->columns and columns->rows), try the following little [[Perl]] script: | |
| + | # Example CSV file | ||
| + | # FROM: | ||
| + | # a1,a2,a3 | ||
| + | # b1,b2,b3 | ||
| + | # TO: | ||
| + | # a1,b1 | ||
| + | # a2,b2 | ||
| + | # a3,b3 | ||
| − | == External links == | + | perl -e '$unequal=0;$_=<>;s/\r?\n//;@out_rows=split(/\,/, $_);\ |
| − | * [http://search.cpan.org/~ken/xls2csv-1.06/script/xls2csv CPAN.org - xls2csv] | + | $num_out_rows=$#out_rows+1;while(<>){s/\r?\n//;@F=split(/\,/,$_);\ |
| + | foreach $i (0 .. $#F){$out_rows[$i] .="\,$F[$i]";}if($num_out_rows !=$#F+1){\ | ||
| + | $unequal=1;}}END{foreach $row (@out_rows){print"$row\n"}\ | ||
| + | warn "\nWARNING! Rows in input had different numbers of columns\n" if $unequal;\ | ||
| + | warn "\nTransposed table: result has $. columns and $num_out_rows rows\n\n" }' $1 | ||
| + | |||
| + | ==See also== | ||
| + | *[[CPAN]] | ||
| + | |||
| + | ==External links== | ||
| + | *[http://search.cpan.org/~ken/xls2csv-1.06/script/xls2csv CPAN.org - xls2csv] | ||
[[Category:Linux Command Line Tools]] | [[Category:Linux Command Line Tools]] | ||
Revision as of 01:42, 17 May 2007
- The correct title of this article is xls2csv. The initial letter is capitalized due to technical restrictions.
xls2csv is a command line script that recodes a spreadsheet's charset and saves as CSV. It was written by Ken Prows.
Install
perl -MCPAN -e "install Locale::Recode" perl -MCPAN -e "install Unicode::Map" perl -MCPAN -e "install Spreadsheet::ParseExcel" perl -MCPAN -e "install Spreadsheet::ParseExcel::FmtUnicode" (should be included with Spreadsheet::ParseExcel) perl -MCPAN -e "install Text::CSV_XS"
wget http://search.cpan.org/CPAN/authors/id/K/KE/KEN/xls2csv-1.06.tar.gz
Basic usage
The following example will convert a spreadsheet that is in the WINDOWS-1252 character set (WinLatin1) and save it as a csv file in the UTF-8 character set.
xls2csv -x "1252spreadsheet.xls" -b WINDOWS-1252 -c "ut8csvfile.csv" -a UTF-8
This example with convert the worksheet named "Users" in the given spreadsheet.
xls2csv -x "multi_worksheet_spreadsheet.xls" -w "Users" -c "users.csv"
Options
-x : filename of the source spreadsheet -b : the character set the source spreadsheet is in (before) -c : the filename to save the generated csv file as -a : the character set the csv file should be converted to (after) -q : quiet mode -s : print a list of supported character sets -h : print help message -v : get version information -W : list worksheets in the spreadsheet specified by -x -w : specify the worksheet name to convert (defaults to the first worksheet)
Transpose csv files
If you need to transpose your csv matrix before using it (i.e., rows->columns and columns->rows), try the following little Perl script:
# Example CSV file # FROM: # a1,a2,a3 # b1,b2,b3 # TO: # a1,b1 # a2,b2 # a3,b3
perl -e '$unequal=0;$_=<>;s/\r?\n//;@out_rows=split(/\,/, $_);\
$num_out_rows=$#out_rows+1;while(<>){s/\r?\n//;@F=split(/\,/,$_);\
foreach $i (0 .. $#F){$out_rows[$i] .="\,$F[$i]";}if($num_out_rows !=$#F+1){\
$unequal=1;}}END{foreach $row (@out_rows){print"$row\n"}\
warn "\nWARNING! Rows in input had different numbers of columns\n" if $unequal;\
warn "\nTransposed table: result has $. columns and $num_out_rows rows\n\n" }' $1
