pp2xls

pp -e 'use Encode; use Spreadsheet::WriteExcel; Spreadsheet::WriteExcel->new(q(test.xls))->add_worksheet()->write(q(A1),decode(q(utf8),join qq(\n), map {/(.*)/m && $1} <>))' -o bin/pp2xls

echo 汉字 | bin/pp2xls

# 目前还不能在参数中自定义文件名，改进中。
# standard output will be put inside cell A1