1 | my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,
|
2 | $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time);
|
3 | my $CTIME_String = localtime(time);
|
4 | $Monat+=1;
|
5 | $Jahrestag+=1;
|
6 | $Monat = $Monat < 10 ? $Monat = "0".$Monat : $Monat;
|
7 | $Monatstag = $Monatstag < 10 ? $Monatstag = "0".$Monatstag : $Monatstag;
|
8 | $Stunden = $Stunden < 10 ? $Stunden = "0".$Stunden : $Stunden;
|
9 | $Minuten = $Minuten < 10 ? $Minuten = "0".$Minuten : $Minuten;
|
10 | $Sekunden = $Sekunden < 10 ? $Sekunden = "0".$Sekunden : $Sekunden;
|
11 | $Jahr+=1900;
|
12 | my @Wochentage = ("Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag");
|
13 | my @Monatsnamen = ("","Januar","Februar","März","April","Mai","Juni",
|
14 | "Juli","August","September","Oktober","November","Dezember");
|
15 |
|
16 |
|
17 | open(CFGDATEI, ">gnuplot.cfg");
|
18 |
|
19 | print CFGDATEI "#do not change next lines
|
20 | set terminal png
|
21 | set xdata time
|
22 | set timefmt \"%Y%m%d%H%M%S\"
|
23 |
|
24 |
|
25 | set yrange [-35:45]
|
26 | set arrow from -15, 00:00 to -15, 08:00
|
27 | set grid
|
28 | set ylabel \"Temperatur °C\"
|
29 | set format x \"%d\/%m\\n%H:%M\"
|
30 |
|
31 | set title \"Temperaturen Hümmling Krankenhaus Sögel - Labor Büro (Tageswerte)\"
|
32 |
|
33 | set out 'gnuplot_tag.png'
|
34 | plot 'data\\display1_$Jahr$Monat$Monatstag.dat' using 1:2 notitle with lines 1,\\
|
35 | 'data\\display2_$Jahr$Monat$Monatstag.dat' using 1:2 notitle with lines 2,\\
|
36 | 'data\\display3_$Jahr$Monat$Monatstag.dat' using 1:2 notitle with lines 3,\\
|
37 | 'data\\display4_$Jahr$Monat$Monatstag.dat' using 1:2 notitle with lines 4,\\
|
38 | 'data\\display5_$Jahr$Monat$Monatstag.dat' using 1:2 notitle with lines 5,\\
|
39 | 'data\\display6_$Jahr$Monat$Monatstag.dat' using 1:2 notitle with lines 6,\\
|
40 | 'data\\display7_$Jahr$Monat$Monatstag.dat' using 1:2 notitle with lines 7,\\
|
41 | 'data\\display8_$Jahr$Monat$Monatstag.dat' using 1:2 notitle with lines 8,\\
|
42 | 'data\\display9_$Jahr$Monat$Monatstag.dat' using 1:2 notitle with lines 9";
|
43 |
|
44 |
|
45 | print CFGDATEI "#do not change next lines
|
46 | set terminal png
|
47 | set xdata time
|
48 | set timefmt \"%Y%m%d%H%M%S\"
|
49 |
|
50 | # any optional parameters
|
51 |
|
52 | set yrange [-35:45]
|
53 | set grid
|
54 | set arrow from 0,0 to 1,1
|
55 | set ylabel \"Temperatur °C\"
|
56 | set format x \"%d\/%m\\n%H:%M\"
|
57 |
|
58 | set title \"Temperaturen Hümmling Krankenhaus Sögel - Labor Büro (Monatswerte)\"
|
59 |
|
60 | set out 'gnuplot_monat.png'
|
61 | plot 'data\\display1_$Jahr$Monat.dat' using 1:2 notitle with lines 1,\\
|
62 | 'data\\display2_$Jahr$Monat.dat' using 1:2 notitle with lines 2,\\
|
63 | 'data\\display3_$Jahr$Monat.dat' using 1:2 notitle with lines 3,\\
|
64 | 'data\\display4_$Jahr$Monat.dat' using 1:2 notitle with lines 4,\\
|
65 | 'data\\display5_$Jahr$Monat.dat' using 1:2 notitle with lines 5,\\
|
66 | 'data\\display6_$Jahr$Monat.dat' using 1:2 notitle with lines 6,\\
|
67 | 'data\\display7_$Jahr$Monat.dat' using 1:2 notitle with lines 7,\\
|
68 | 'data\\display8_$Jahr$Monat.dat' using 1:2 notitle with lines 8,\\
|
69 | 'data\\display9_$Jahr$Monat.dat' using 1:2 notitle with lines 9";
|
70 |
|
71 | print "Konfiguration geschrieben";
|
72 | close CFGDATEI;
|