#! /usr/bin/perl use strict; use warnings; use Path::Class; #Path::Class zur lokalisierung und Ordnerinitialisierung use FindBin qw ($Bin); #Lokalisierung des Originalscripts, zu Testzwecken! use Spreadsheet::ParseExcel; #Modul zum Einlesen von Excel Tabellen my $i = 0; #Zählvariablen my $tabelle; #FileHandle Variable my $parser = Spreadsheet::ParseExcel->new(); #Initialisierung des Excel Tabellenblatt Parseres my $path_in = dir($Bin, 'input'); #Herausfinden wo das Script, und damit auch der "input" Ordner liegt und in Variable schreiben my $file_in = $path_in->file('ALL_ATM.xls'); #Die Input Datei my $path_out = dir($Bin, 'output'); #Herausfinden wo das Script, und damit auch der "output" Ordner liegt und in Variable schreiben my $file_out = $path_out->file('PSAX_CLOCK_CURRENT.csv'); #Die Output Datei my $path_out_off = dir($Bin, 'output'); #Herausfinden wo das Script, und damit auch der "output" Ordner liegt und in Variable schreiben my $file_out_off = $path_out_off->file('PSAX_OFFLINE.csv'); #Die Output Datei für nicht erreichbare PSAX'e my ($temp,$test); #temporäre übergabe Variable #///////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ $tabelle = $parser->parse($file_in); if (!defined $tabelle) { die $parser->error(),".\n"; }