X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=xls2tab;h=3b8dbcd852a10e24f6e52e567f938a0762a7ba1e;hp=8ddc19fbf149d94f496a6f28f6aea6dbb9e682c5;hb=caa2dabe300a6799ff9060e30bf1afab2d2c1daa;hpb=c921e409f5ff2555ef1ae33f6c9cc14c5c33f0ae

diff --git a/xls2tab b/xls2tab
index 8ddc19f..3b8dbcd 100755
--- a/xls2tab
+++ b/xls2tab
@@ -11,6 +11,7 @@ use warnings;
 
 use Spreadsheet::ParseExcel::Simple;
 use File::Spec;
+use Data::Dumper;
 
 for (@ARGV) {
     for (glob $_) {
@@ -33,7 +34,8 @@ sub dump_books {
         next unless $sheet[$_]->has_data();
         my $sfn = $file;
         $sfn =~ s?\.xls$??i;
-        $sfn.= ((@sheet > 1) ? sprintf(".%02i",$_) : "").'.tab';
+        $sfn .= '_' . $sheet[$_]->sheet->get_name() . '.tsv';
+        $sfn =~ s/ /_/g;
         open TAB, '>', $sfn or do {
             warn "Unable to write to $sfn";
             next;