Die höchste Zahl ermitteln (Allgemeines zu Perl)

[thread]14855[/thread]

Die höchste Zahl ermitteln

Leser: 26

Articles: hide open all | hide show old branches

Teilbäume:
Fortbildungen (2 Artikel) 2010-03-24 15:51
"Infinity" (21 Artikel) 2010-03-25 14:28

+33 replies
PETER_PAN2009

2010-03-24 09:59
User since
2009-08-24
111 Artikel
BenutzerIn
Guten Morgen!

Ich spiele zur Zeit mit DBI rum. Die ABfrage funktioniert, jetzt bin ich am Auslesen der Datensätze.
Code: (dl )

1 2

while (my @row=$tmp_id->fetchrow_array){ print Dumper(@row);
In $row[2] bekomme ich Integerwerte! Wie kann ich in der while-Schleife die höchste Zahl abfangen(Abfrage--> absteigend sortiert, also ist der erste Wert auch die höchste Zahl) und die anderen Zahlen einfach ignorieren?

Danke sehr!
Gruß
Peter
- +2 replies
- GwenDragon
  
  2010-03-24 10:10
  
  User since
  2005-01-17
  14542 Artikel
  Admin1
  
  Du kannst auch mit SQL ein Maximum abfragen. Dazu gibt es in jeder Datenbank Funktionen.
  SELECT MAX(Spalte) FROM tabelle ...
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - PETER_PAN2009
    
    2010-03-24 10:13
    
    User since
    2009-08-24
    111 Artikel
    BenutzerIn
    
    Vielen Dank für deine Antwort, aber ich würde es ganz gerne in Perl lösen und nicht per SQL-Abfrage!
    
    Gruß
    Peter
- +30 replies
- renee
  
  2010-03-24 10:20
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Wenn Du es wirklich in Perl machen willst:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  my $max; while (my @row=$tmp_id->fetchrow_array){ $max = $row[2] if( not defined $max or $row[2] > $max ); }
  
  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/
  - +29 replies
  - pq
    
    2010-03-24 10:23
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    und wenn es sich um zahlen >= 0 handelt, kann man das etwas abkürzen:
    
    Code (perl): (dl )
    
    1 2 3 4
    
    my $max = 0; while (my @row = $tmp_id->fetchrow_array){ $max = $row[2] if $row[2] > $max; }
    
    edit: nachtrag: auch bei zahlen kleiner 0 sollte das gehn:
    
    Code (perl): (dl )
    
    1 2
    
    my $max = "-Infinity"; ...
    
    ;-)
    Last edited: 2010-03-24 11:03:23 +0100 (CET)
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - nepos
      
      2010-03-24 10:40
      
      User since
      2005-08-17
      1420 Artikel
      BenutzerIn
      
      Oder mit Hilfe des netten Moduls List::MoreUtils. Da gibts ein eingebautes max().
      Wobei es IMHO auf jeden Fall sinnvoller ist, die Berechnung des Maximums durch die Datenbank erledigen zu lassen, statt viele Daten von dort zu lesen und nur den grössten Wert zu behalten.
    - +5 replies
    - PETER_PAN2009
      
      2010-03-24 10:40
      
      User since
      2009-08-24
      111 Artikel
      BenutzerIn
      
      Ohhh mein Gott, ich versuche das Problem mit Hashes, zusätzlichen Modulen zu lösen und in Wirklichkeit geht das soooo einfach!
      
      Vielen Dank
      Gruß
      Peter
      - +4 replies
      - GwenDragon
        
        2010-03-24 10:43
        
        User since
        2005-01-17
        14542 Artikel
        Admin1
        
        Na, die Berechnung eines Maximums von Werten gehört doch zu den ersten Lernaufgaben beim Programmieren, so war das jedenfalls oft in Fortbildungen und Unis.
        Wundert mich, dass du nicht darauf kamst.
        Aber manchmal verstellt so manches kompliziert den Blick. ;)
        
        //EDIT: Typos
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        topeg
        
        2010-03-24 14:13
        
        Subtree with 3 replies: Fortbildungen
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        2010-03-24T09:43:28 GwenDragon
        Na, die Berechnung eines Maximums von Werten gehört doch zu den ersten Lernaufgaben beim Programmieren, so war das jedenfalls oft in Fortbildungen und Unis.
        
        Nun ja meine erste Aufgabe war "Hello Word"
        und meine Lösung:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        #!/usr/bin/perl use strict; use warnings ; ; seek ( DATA, 0, 0 ); <DATA>; # ein kleines Script, das nicht viel macht while( <DATA> ) { chomp ; last()if(eof(DATA)); $_ =~ s/ \S+/1/g ; $_ = substr($_.(' 'x8),0,8); $_=~y/ /0/; print pack ( 'B8', $_); print "" ; } print "\n" ;# von ToPeG __DATA__
        
        Waren sechs entspannte Wochen. :-)
    - renee
      
      2010-03-24 14:19
      
      Subtree with 22 replies: "Infinity"
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      2010-03-24T09:23:33 pq
      edit: nachtrag: auch bei zahlen kleiner 0 sollte das gehn:
      
      Code (perl): (dl )
      
      1 2
      
      my $max = "-Infinity"; ...
      
      ;-)
      
      Nö
      
      Code: (dl )
      
      1 2
      
      D:\>perl -wle "my $max = '-Infinity'; for (-10,-20,-1) { $max = $_ if $_ > $max } print $max" -Infinity
      
      Last edited: 2010-03-24 18:57:50 +0100 (CET)
      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/

View all threads created 2010-03-24 09:59.