Aus einer CSV eine neue CSV erstellen (Allgemeines zu Perl)

Annka

2006-07-18 12:35

User since
2006-07-18
43 Artikel
BenutzerIn
[default_avatar]

Hallo,
ich habe folgendes Problem. Ich möchte aus einer csv mit mehreren spalten eine neue csv erstellen. diese neue csv soll aus der alten csv minimum,maximum und mittelwert berechen. darin liegt aber nicht das problem.

ich weiß nicht wie ich mit perl in die einzelnen spalten zugreifen kann .....
beispiel: ich möchte jetzt in spalte 3 auf das z zugreifen wie mache ich das?
----------------------------
1|2|3|4|5|6|7|8|9|10|
x|y|z|u |v|b|n|g|h|d|
-------------------------

ich hoffe es kann mir jemand helfen bin nämclih am verzweifeln...

Ronnie

2006-07-18 13:35

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

Ich empfehle auf jeden Fall ein cpan-Modul wie CPAN:

Text::CSV_XS zu verwenden.

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

use List::Util qw/max min sum/;
use Perl6::Junction qw /all/;

while (<DATA>) {
    chomp;
    my @row = split /\|/, $_;
    print $row[2], "\n";        # Ausgabe der dritten Spalte
    
    if (all(@row) == qr/^\d+$/) { # Ausgabe von max, min, avg
        print join '|', max(@row), min(@row), sum(@row)/@row . "\n";
    }
}

__DATA__
1|2|3|4|5|6|7|8|9|10|
x|y|z|u|v|b|n|g|h|d|

\n\n

renee

2006-07-18 14:14

User since
2003-08-04
14371 Artikel
ModeratorIn

Ich empfehle da CPAN:

DBI im Zusammenspiel mit CPAN:

DBD::CSV. Damit kann man ganz normale SQL-Abfragen auf die CSV-Datei machen.

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

GwenDragon

2006-07-18 18:47

User since
2005-01-17
14544 Artikel
Admin1

Nur die DBD-CSV kann nicht mit dem Wert NULL umgehen. Das läßt sich bei CSV nicht so richtig darstellen.
http://cpan.uwinnipeg.ca/htdocs....ictions\n\n

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

renee

2006-07-18 20:09

User since
2003-08-04
14371 Artikel
ModeratorIn

Macht nix, In CSV-Dateien kann ja auch kein NULL-Wert stehen!

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/