addieren - #68261 (Allgemeines zu Perl)

renee

2006-07-19 22:03

User since
2003-08-04
14371 Artikel
ModeratorIn

Ich plädiere mal wieder für CPAN:

DBI mit

DBD::CSV! Damit lässt sich sehr einfach der niedriegste Wert einer Spalte herausfinden:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $dbh = DBI->connect("DBI:CSV:f_dir=.;csv_sep_char=\\;") or die $DBI::errstr;
my $select = q~SELECT min(Spalte1) FROM csvfile~;
my $sth = $dbh->prepare($select) or die $dbh->errstr();
$sth->execute() or die $dbh->errstr();

my ($min) = $sth->fetchrow_array();
print $min;

csvfile

Code: (dl )

Spalte1;Spalte2;Spalte3
12;hallo;3
10;test;muster
19;mann;frau

Ausgabe:

Code: (dl )

1
2

C:\>perl csv.pl
10

Unter Linux muss man noch csv_eol ändern...

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/