#!/usr/bin/perl

use strict;
my %opts;

#
# Command line options processing
#
sub init()
{
 use Getopt::Std;
 my $opt_string = 'gSs:L:hfC:c:m:';
 getopts( "$opt_string", \%opts ) or usage();
 usage() if $opts{h};
 if(!$ARGV[0]){
  usage();
  die();
 }
}

 

   use Spreadsheet::ParseExcel;
    use Spreadsheet::ParseExcel::FmtUnicode;
    my $oExcel = new Spreadsheet::ParseExcel;
    my $unicode_map = "EUC-KR";
    my $oFmtJ = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map => $unicode_map);
    my $oBook = $oExcel->Parse($ARGV[0], $oFmtJ);

    my($iR, $iC, $oWkS, $oWkC);
    #print "=========================================\n";
    #print "FILE  :", $oBook->{File} , "<br>";
    #print $oBook->{SheetCount} , "\a\a\b\b\a\a";
    #print "AUTHOR:", $oBook->{Author} , "\n";

    my $table = [];

   

for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++) {
    $oWkS = $oBook->{Worksheet}[$iSheet];
    for(my $iR = $oWkS->{MinRow} ;
         defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++) {
#       print "ROW HEIGHT:", $oWkS->{RowHeight}[$iR], "\n";
        for(my $iC = $oWkS->{MinCol} ;
            defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; $iC++) {
            $oWkC = $oWkS->{Cells}[$iR][$iC];
           print $oWkC->Value, "[#행구분#]" if ($oWkC);
  print " ", "[#행구분#]" if (!$oWkC);
       }
  print "[#열구분#]";
    }
}
sub usage()
{
print STDERR << "EOF";

unexcel is an Excel to HTML converter.

Usage: $0 excel_file_name [-hgS] [-c codepage] [-m maximum_columns] [-s sheet number] [-L header level] [-C gridline color]

 -h Prints out (this) help screen.
 -m [maximum_columns]
  Maximum number of columns. In some cases, the
  Spreadsheet::ParseExcel library has difficulty
  determining the right number of columns. This
  limits the processing, supressing the output
  of extra columns.
 -c [codepage]
  Sets the codepage, e.g. CP932, CP1251, ...
  Just like Unicode::Map. The default is CP1250,
  which is for Central Europe.
 -s [number]
  Process only sheet specified by [number]
 -S Suppress sheet headers.
 -L [header level]
  Set header level (1 for H1, 2 for H2) for sheet headers.
 -g Suppress gridlines.
 -C [gridline color]
  Sets the gridline color. Default is D0D0D0.

This script depends on Spreadsheet::ParseExcel and Unicode::Map
EOF
exit;
}