#! D:\Perl\bin

use Spreadsheet::WriteExcel::Big; # ben÷tigt IO::Stringy and OLE::Storage_Lite

my $Dateiendung=$ARGV[0];
unless (defined($Dateiendung)){
    print "Bitte Dateiendung angeben: ";
    chop($Dateiendung = <STDIN>);}

unless (defined (my $filename = glob("*.$Dateiendung"))){
    warn "Keine Datei zu verarbeiten!\nScript wird beendet.\n";
    sleep 5;
    die;}
#Ende der &▄berpr³fung

$Dateiendung=~ m/([a-z_0-9]+$)/i;
foreach my $TABDATEI (glob("*.$1")){
    my $SHEETCOUNTER = 1;
    $TABDATEI=~ m/(^[^.]+)/i;
    print "verarbeite $TABDATEI\n";
    open (TABFILE, "<$TABDATEI") or warn "Kann $TABDATEI nicht lesen!\n";
    # Create a new Excel workbook
    my $workbook = Spreadsheet::WriteExcel::Big->new("$1.xls");
    my $worksheet = $workbook->add_worksheet();   # Sheet1

    # Row and column are zero indexed
    my $row = 0;

    while (<TABFILE>) {
        chomp;
        # Split on single tab
        my @Fld = split('\t', $_);

        my $col = 0;
        foreach my $token (@Fld) {
            $worksheet->write_string($row, $col, "$token");
            $col++;
            if ($col > 255) {
                warn ("Fehler! Maximale Spaltenzahl ³berschritten!\nScript wird beendet");
                <>;
                die;}
        }
        print STDOUT ("Arbeitsblatt $SHEETCOUNTER, Zeile $row\n");
        $row++;
        if ($row > 65535) {
            $row = 0;
            $SHEETCOUNTER++;
            $worksheet = $workbook->add_worksheet();
            }
    }
$workbook->close();
close TABFILE;}


exit;