view release on metacpan or  search on metacpan

script/diff-xls-text  view on Meta::CPAN

                    warn "diff-xls-text: xlsx2csv in PATH doesn't seem to be the one from Spreadsheet::Read, please make sure we have the correct xlsx2csv\n";
                    $fail++;
                    return;
                }
            }

            mkdir "$tempdir/$basename";
            system "xlsx2csv", "-A", "-o", "$tempdir/$basename/workbook", $filename;
            push @CLI::MetaUtil::Getopt::Long::cli_argv, "$tempdir/$basename";

            if ($opt_transpose_csv) {
                log_trace "Transposing CSV files in $tempdir/$basename ...";
                local $CWD = "$tempdir/$basename";
                for my $file (glob "*.csv") {
                    (my $newfile = $file) =~ s/\.csv$/.transpose.csv/;
                    system({shell=>1}, "csv-transpose", $file, \">", $newfile);
                    unlink $file;
                }
            }
        },
    },
);

exit 1 if $fail;

require File::Which;
my $diff_cmd =
    $ENV{DIFF_XLS_TEXT_DIFF_CMD} //
    $ENV{DIFF_CMD} //
    (File::Which::which("diffwc") ? "diffwc" : undef) // "diff";

require IPC::System::Options;
IPC::System::Options::system(
    {log=>1},
    $diff_cmd, "-ruN", @ARGV,
);

# ABSTRACT: Diff the text of two Office spreadsheets (.ods, .xls, .xlsx) as two directories of CSV files
# PODNAME: diff-xls-text

__END__

=pod

=encoding UTF-8

=head1 NAME

diff-xls-text - Diff the text of two Office spreadsheets (.ods, .xls, .xlsx) as two directories of CSV files

=head1 VERSION

This document describes version 0.012 of diff-xls-text (from Perl distribution App-DiffXlsText), released on 2022-11-26.

=head1 SYNOPSIS

Use like you would use the Unix command B<diff>:

 % diff-xls-text [options] <FILE>...

Sample F<old.xlsx> (C<*foo*> marks bolded text):

 # sheet 1: en_id
 |  english  |  indonesian    |
 |-----------+----------------|
 | boy       | anak laki-laki |
 | girl      | anak wanita    |
 | man       | Laki-laki      |
 | lad       | pemuda         |

 # sheet 2: id_en
 |  indonesian  |  english    |
 |--------------+-------------|
 | pemuda       | young man   |
 | pemudi       | young woman |

Sample F<new.xlsx>:

 # sheet 1: en_id
 | *English*  | *Indonesian*   |
 |------------+----------------|
 | boy        | anak laki-laki |
 | girl       | anak perempuan |
 | man        | laki-laki      |
 | woman      | perempuan      |

 # sheet 2: en_su
 |  English   |  Sundanese     |
 |------------+----------------|
 | man        | lalaki         |

Sample session:

 % diff-xls-text old.xlsx new.xlsx
 Saving sheet to /tmp/IZxMSeSyr_/old.xlsx/workbook-en_id.csv ...
 Saving sheet to /tmp/IZxMSeSyr_/old.xlsx/workbook-id_en.csv ...
 Saving sheet to /tmp/IZxMSeSyr_/new.xlsx/workbook-en_id.csv ...
 Saving sheet to /tmp/IZxMSeSyr_/new.xlsx/workbook-en_su.csv ...
 diff -ruN /tmp/IZxMSeSyr_/old.xlsx/workbook-en_id.csv /tmp/IZxMSeSyr_/new.xlsx/workbook-en_id.csv
 --- /tmp/IZxMSeSyr_/old.xlsx/workbook-en_id.csv 2022-11-26 07:43:56.293111001 +0700
 +++ /tmp/IZxMSeSyr_/new.xlsx/workbook-en_id.csv 2022-11-26 07:43:56.661107387 +0700
 @@ -1,5 +1,5 @@
 -english,indonesian
 +English,Indonesian
  boy,"anak laki-laki"
 -girl,"anak wanita"
 -man,Laki-laki
 -lad,pemuda
 +girl,"anak perempuan"
 +man,laki-laki
 +woman,perempuan
 diff -ruN /tmp/IZxMSeSyr_/old.xlsx/workbook-en_su.csv /tmp/IZxMSeSyr_/new.xlsx/workbook-en_su.csv
 --- /tmp/IZxMSeSyr_/old.xlsx/workbook-en_su.csv 1970-01-01 07:00:00.000000000 +0700
 +++ /tmp/IZxMSeSyr_/new.xlsx/workbook-en_su.csv 2022-11-26 07:43:56.661107387 +0700
 @@ -0,0 +1,2 @@
 +English,Sundanese
 +man,lalaki
 diff -ruN /tmp/IZxMSeSyr_/old.xlsx/workbook-id_en.csv /tmp/IZxMSeSyr_/new.xlsx/workbook-id_en.csv
 --- /tmp/IZxMSeSyr_/old.xlsx/workbook-id_en.csv 2022-11-26 07:43:56.293111001 +0700
 +++ /tmp/IZxMSeSyr_/new.xlsx/workbook-id_en.csv 1970-01-01 07:00:00.000000000 +0700
 @@ -1,3 +0,0 @@