Die Verwendung von Perl wie kann ich Diagramme erstellen mithilfe von Werten in eine CSV-Datei?

Ich bin neu hier und brauche einen Hinweis, wie diese Aufgabe. Ich habe eine csv-Datei mit den folgenden Beispieldaten:

site,type,2009-01-01,2009-01-02,....
X,A,12,10,...
X,B,10,23,...
Y,A,20,33,...
Y,B,3,12,...

and so on....

Erstellen Sie ein perl-Skript zum Lesen von Daten aus der csv-Datei (gemäß der Benutzer-Eingabe), und erstellen Sie Punkt(XY) - Diagramme. Sagen wir mal so, ich möchte ein Diagramm erstellen für Datum 2009-01-01-und Typ B. der Benutzer sollte Die Eingabe so etwas wie "2009-01-01 B", und das Diagramm erstellt werden soll mit den Werten aus CSV-Datei.

Kann jemand bitte empfehlen Sie mir einige code, um mit zu beginnen?

InformationsquelleAutor Space | 2009-08-27
  1. 1

    Ich brauche, um einige streudiagramme, die meine eigene, so habe ich mich mit dem Modul vorgeschlagen, in den anderen Antworten. Für meinen Geschmack, die Datenpunkte produziert von GD::Graph::Kartesisches sind viel zu groß, und das Modul stellt keine Methoden zur Kontrolle dieses Parameters, so dass ich gehackt meine Kopie von Cartesian.pm (Suche nach iconsize wenn Sie möchten, das gleiche zu tun).

    use strict;
use warnings;
use Text::CSV;
use GD::Graph::Cartesian;

# Parse CSV file and convert the data for the
# requested $type and $date into a list of [X,Y] pairs.
my ($csv_file, $type, $date) = @ARGV;
my @xy_points;
my %i = ( X => -1, Y => -1 );
open(my $csv_fh, '<', $csv_file) or die $!;
my $parser = Text::CSV->new();
$parser->column_names( $parser->getline($csv_fh) );
while ( defined( my $hr = $parser->getline_hr($csv_fh) ) ){
    next unless $hr->{type} eq $type;
    my $xy = $hr->{site};
    $xy_points[++ $i{$xy}][$xy eq 'X' ? 0 : 1] = $hr->{$date};
}

# Make a graph.
my $graph = GD::Graph::Cartesian->new(
    width   => 400, # Image size (in pixels, not X-Y coordinates).
    height  => 400,
    borderx => 20,  # Margins (also pixels).
    bordery => 20,
    strings => [[ 20, 50, 'Graph title' ]],
    lines => [
        [ 0,0, 50,0 ], # Draw an X axis.
        [ 0,0,  0,50], # Draw a Y axis.
    ],
    points => \@xy_points, # The data.
);
open(my $png_file, '>', 'some_data.png') or die $!;
binmode $png_file;
print $png_file $graph->draw;
    • Können Sie bitte erklären, es kürzer (so dass ich gehackt meine Kopie von kartesischen.pm (Suche nach iconsize, wenn Sie möchten, das gleiche zu tun).). Danke.
    • Nach der Installation GD::Graph::Cartesian finden Sie die module (auf meinem system war es in perl/site/lib/GD/Graph/Cartesian.pm) und Suche für iconsize. Sie werden sehen, dass die Standard-Größe ist 7. Sie können einfach die Standardeinstellung ändern, also einen anderen Wert. Noch besser wäre eine änderung der initialize() Methode zu ermöglichen, unterschiedliche Größen angegeben werden, wenn Sie rufen new().
    • Dank UKW, können Sie auch bitte erklären Sie mir diesen code "$xy_points[++ $i{$xy}][$xy-eq 'X' ? 0 : 1] = $hr->{$Datum};"
    • Die @xy_points array ist eine Liste von Punkten graphisch dargestellt, wobei jeder Punkt gespeichert, die eine array-Referenz: [X, Y] (die X-Koordinate für den 1. Punkt würde gespeichert werden in $xy_points[0][0] - und die Y-Koordinate in $xy_points[0][1]). Wenn Sie immer noch Schwierigkeiten haben, Schritt für Schritt durch den code mit Perl-debugger. Sie können auch drucken Sie die @xy_points Datenstruktur mithilfe der Data::Dumper Modul. Wenn Sie nicht verstehen, wie die Arbeit mit komplexen Datenstrukturen in Perl, schau mal hier: perldoc.perl.org/index-tutorials.html (vor allem perlreftut, perldsc, und perllol).
    InformationsquelleAutor FMc
  2. 6

    Nicht mit code. Beginnen Sie mit CPAN.

    CSV und Scatter

    InformationsquelleAutor Quentin
  3. 3

    Hier gehen Sie, einige code, um mit zu beginnen:

    #!/usr/bin/perl -w
use strict;

use Text::CSV;
use GD;
use Getopt::Long;

    Anstelle von GD kann man, natürlich, mit welchem Modul Sie möchten.

    InformationsquelleAutor
  4. 2

    OK, zum Zwecke der Unterhaltung nur:

    #!/usr/bin/perl

use strict;
use warnings;

use DBI;
use List::AllUtils qw( each_array );

my $dbh = DBI->connect("DBI:CSV:f_dir=.", undef, undef, {
        RaiseError => 1, AutoCommit => 1,
    }
);

my $sth = $dbh->prepare(qq{
    SELECT d20090101 FROM test.csv WHERE type = ? and site = ?
});

$sth->execute('B', 'X');
my @x = map { $_->[0] } @{ $sth->fetchall_arrayref };

$sth->execute('B', 'Y');
my @y = map { $_->[0] } @{ $sth->fetchall_arrayref };

my @xy;

my $ea = each_array(@x, @y);
while ( my @vals = $ea->() ) {
    push @xy, \@vals;
}

my @canvas;
push @canvas, [ '|', (' ') x 40 ] for 1 .. 40;
push @canvas, [ '+', ('-') x 40 ];

for my $coord ( @xy ) {
    warn "coords=@$coord\n";
    my ($x, $y) = @$coord;
    $canvas[40 - $y]->[$x + 1] = '*';
}

print join "\n", map { join '', @$_ } @canvas;

    Hinzufügen von Achsen und allgemein Verbesserung in Streudiagramm — eine wirklich enttäuschende Modul — Links als eine übung für den Leser.

    Bitte beachten Sie, dass ich immer zu betrügen, wenn es um SQL. Ich würde mich über eine richtige JOIN, die entfällt die Notwendigkeit für @x, @y und each_array.

    Ausgabe:

    | 
| 
| 
| * 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| * 
| 
| 
+----------------------------------------
    InformationsquelleAutor Sinan Ünür
Schreibe einen Kommentar