Leser: 1
6 Einträge, 1 Seite |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
#!perl use strict; use warnings; #use Chart::Points; use Chart::Lines; use Chart::Bars; #use Chart::StackedBars; use Chart::Composite; my $im = new Chart::Composite 600, 400; $im->set ( # Hier dürfen keine " benutzt werden, wegen Backslash n # oder es müssen 2 Backslash benutzt werden. title => 'Rechnertemperatur und Datenbankbelastung(Backslash)(n)' .'in Abhängigkeit von der Tageszeit', #sub_title => 'kleinerer Text darunter, nur einzeilig', legend_labels => ['Temperatur', 'SQL-Abfragen'], x_label => 'Zeit', #x_ticks => 'vertical', min_val => 0, precision => 0, # das war das Problem ); $im->set ( composite_info => [ [ 'Lines', [1] ], [ 'Bars', [2] ], ] ); $im->add_pt(split) while <DATA>; close DATA; $im->png(*STDOUT); _ _ E N D _ _ 0 32.2 23.6 1 32.3 28.1 2 32.7 31.7 3 32.0 32.2 4 31.7 27.8 5 32.2 35.1 6 32.5 29.0 7 33.0 24.5 8 32.6 27.7 9 32.2 18.1 10 30.7 10.2 11 29.2 9.1 12 30.4 6.4 13 32.2 10.3 14 32.8 6.9 15 32.5 8.1 16 32.9 10.1 17 32.6 10.0 18 32.7 12.8 19 32.7 14.1 20 32.7 17.0 21 32.5 21.4 22 32.5 23.7 23 32.5 23.3
6 Einträge, 1 Seite |