Hallo.
Ich habe mir das Buch "Jetzt lerne ich Perl" zugelgt.
Die Investition hat sich gelohnt, so wie ich das beurteilen kann.
Jetzt ist da ein schönes Script, das ich auch für Arbeit gebrauchen kann.
Natürlich muss es etwas angepasst werden.
Aber als ersten will ich es einmal abtippen und dann nach und nach an meine Bedürfnisse anpassen.
Also einfach mal abgetippt und das sch***** Ding funtzt nicht.
Lt. Buch kann ich keinen Fehler feststellen.
Vielleicht kann einer von euch mir etwas unter die Arme greifen.
Hier mal das Script:
Code:
#!/usr/bin/perl -w
use strict;
use Chart::Lines;
my $diagr = Chart::Lines->new(400,1000);
my @legende;
my %farben;
my $titel;
# Titel
chomp($titel = <>);
$_ = <>; $_ = <>;
# x-Achsenticks
$_ = <>;
chomp;
my @achse = split(/\s*;\s*/);
shift(@achse);
$diagr->add_dataset(@achse);
# Datensätze
my $zaehler = 0;
while (<>) {
chomp;
next if $_ eq '';
my @felder = split(/\s*;\s*/);
push(@legende, shift(@felder));
$farben{"dataset$zaehler"} = [int(rand(255)),
int(rand(255)),
int(rand(255))];
$diagr->add_dataset(@felder);
$zaehler++;
}
$diagr->set('title' => $titel);
$diagr->set('x_label' => "Zeit");
$diagr->set('y_label' => "Auslastung in %");
$diagr->set('colors' => \%farben);
$diagr->set('legend_labels' => \@legende);
$diagr->png("Auswertung.png");
Und hier noch die Fehlermeldung:
Code:
netmaster@linux:~/bin/Perl-Scripte> ./auswertung.pl auswertung.txt
Can't locate Chart/Lines.pm in @INC (@INC contains: /usr/lib/perl5/5.8.3/i586-linux-thread-multi /usr/lib/perl5/5.8.3 /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.3/i586-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl .) at ./auswertung.pl line 4.
BEGIN failed--compilation aborted at ./auswertung.pl line 4.
netmaster@linux:~/bin/Perl-Scripte>
Danke schon mal im Voraus.
Lesezeichen