beschreibung,prozent ok,prozent warning, prozent critical, total avail
Test,90%,5%,5%
Test1,90%,5%,5%
Test2,90%,5%,5%

#!/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);

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";

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";

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";

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

use Data::Dumper;

my %rows;
my @wanted = (1, 3, 13 ,17, 22, 23, 21);

#open(FILE, '<', 'status1.dat') or die $!;
while (my $line = <DATA>) {
    chomp $line;
    $rows{$.} = [split /\,/, $line] if (grep {$_ == $.} @wanted);
}
#close(FILE) or die $!;

warn Dumper \%rows;

#open(OUT, '>>', 'trend.csv') or die $!;
#print OUT join "\n", map {join ';', @{$rows{$_}}[0,1]} @wanted; 
print join "\n", map {join ';', @{$rows{$_}}[0,1]} @wanted; 
#close(OUT) or die $!;

__DATA__
1,A,C
2,B
3,C,DELTA
4,D
5,E
6,F
7,G
8,H
9,I
10,AJ
11,AA
12,AB
13,AC
14,AD
15,AE
16,AF
17,AG
18,AH
19,AI
20,BJ
21,BA
22,BB
23,BC
24,BD