#!/usr/bin/perl
use strict;
use warnings;

#Öffnen der Datei status.dat
open(DATEI, '< status1.dat');

#Auslesen des Inhaltes der Datei in den Array @inhalt
my @inhalt = <DATEI>;

#Schliessen der Datei
close(DATEI);

#Beschreibung 1. Zeile einlesen
my $beschreibung = @inhalt[0];

#Oracle 3. Zeile einlesen
my $oracle = @inhalt[2];

#Evi 3. Zeile einlesen
my $evi = @inhalt[2];

#Groupware 13. Zeile einlesen
my $group = @inhalt[12];

#Active Directory 17. Zeile einlesen
my $acdi = @inhalt[16];

#SAP 22. Zeile einlesen
my $sap = @inhalt[21];

#Netzinfo 23. Zeile einlesen
my $isu = @inhalt[22];

#Netzinfo 21. Zeile einlesen
my $netzinfo = @inhalt[20];


#Bei jedem Komma splitten
@satz1=split(/\,/,$beschreibung);
print join("\n",@satz1);

@satz2=split(/\,/,$oracle);
print join("\n",@satz2);

@satz3=split(/\,/,$evi);
print join("\n",@satz3);

@satz4=split(/\,/,$group);
print join("\n",@satz4);

@satz5=split(/\,/,$acdi);
print join("\n",@satz5);

@satz6=split(/\,/,$netzinfo);
print join("\n",@satz6);

@satz7=split(/\,/,$sap);
print join("\n",@satz7);

@satz8=split(/\,/,$isu);
print join("\n",@satz8);


#Ausgabedatei erzeugen und öffnen
open(DATEIA,'>> trend.csv');

#Schreibe der Sammelausgabe in die Datei Ausgabe
print DATEIA 
satz1[0]";"satz1[1]"\n"
satz2[0]";"satz1[1]"\n"
satz3[0]";"satz1[1]"\n"
satz4[0]";"satz1[1]"\n"
satz5[0]";"satz1[1]"\n"
satz6[0]";"satz1[1]"\n"
satz7[0]";"satz1[1]"\n"
satz8[0]";"satz1[1]"\n";

#Schließen der Datei
close (DATEIA);