Zahl mit Nachkommastelle zuverlässig zerlegen (Allgemeines zu Perl)

[thread]13935[/thread]

Zahl mit Nachkommastelle zuverlässig zerlegen

Leser: 23

Articles: hide open all | hide show old branches

+12 replies
pktm

2009-08-26 22:35

User since
2003-08-07
2921 Artikel
BenutzerIn

Hallo!

Mal was einfaches: Wenn ich Zahle der Form \d+\.\d{2} habe, wie kann ich 100% zuverlässig den ersten und den zweiten Teil identifizieren, außer mit einem regulären Ausdruck?

Mein Ansatz war sowas wie int() zu verwenden:
my $x = 5.75;
my $y = int($x); # = 5
my $z = $x - $y; # = 0.75

Aber funktioniert das auch wirklich immer? Ich weis es nicht, in der perldoch steht was zu int, was mich verunsichert:

Quote
int EXPR
int

Returns the integer portion of EXPR. If EXPR is omitted, uses $_. You should not use this function for rounding: one because it truncates towards 0, and two because machine representations of floating point numbers can sometimes produce counterintuitive results. For example, int(-6.725/0.025) produces -268 rather than the correct -269; that's because it's really more like -268.99999999999994315658 instead. Usually, the sprintf, printf, or the POSIX::floor and POSIX::ceil functions will serve you better than will int().

Grüße, pktm
http://www.intergastro-service.de (mein erstes CMS :) )
- +2 replies
- topeg
  
  2009-08-26 23:15
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  es kann unter Umständen zu Problemen mit der internen FließkommaDarstellung kommen.
  Beispiele:
  
  Code (perl): (dl )
  
  $i=10.9999999999999; print "$i - ".($i-int($i))
  
  Code: (dl )
  
  10.9999999999999 - 0.999999999999901
  
  oder
  
  Code (perl): (dl )
  
  $i=1000.9999999999999; print "$i - ".($i-int($i))."\n"
  
  Code: (dl )
  
  1001 - 0.999999999999886
  
  Wie man sieht schießt hier die Interne Darstellung der Zahl quer.
  Bei endlichen Brüchen sollte es aber kaum zu Problemen kommen.
  
  Grundsätzlich können halt die selben Probleme auftauchen, wie sie auch beim Runden passieren können.
  - murphy
    
    2009-08-27 05:27
    
    User since
    2004-07-19
    1776 Artikel
    HausmeisterIn
    
    2009-08-26T21:15:03 topeg
    [...]
    Bei endlichen Brüchen sollte es aber kaum zu Problemen kommen.
    [...]
    
    ... wobei der Witz natürlich ist, dass nur endliche Binärbrüche ohne Probleme dargestellt werden können.
    
    Eine unschuldig wirkende Zahl wie 0.1 hat zum Beispiel keine endliche Binärdarstellung.
    When C++ is your hammer, every problem looks like your thumb.
- +2 replies
- Taulmarill
  
  2009-08-27 09:31
  
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  
  Da gab es vor einiger Zeit schon mal eine Diskussion drüber. So weit ich weiß ist die einzige wirklich saubere Lösung, die Zahl erst mal als String zu behandeln und in Integer zu zerlegen. Alle Module, die da vernünftig mit umgehen können machen das auch so oder ähnlich.
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - LanX-
    
    2009-08-27 14:58
    
    User since
    2008-07-15
    1000 Artikel
    BenutzerIn
    
    2009-08-27T07:31:56 Taulmarill
    Da gab es vor einiger Zeit schon mal eine Diskussion drüber.
    
    Kaufm. Runden ?
    
    siehe auch perl floating number addition
    Last edited: 2009-08-27 15:03:02 +0200 (CEST)
    me and my writeups
- LanX-
  
  2009-08-27 14:51
  
  User since
  2008-07-15
  1000 Artikel
  BenutzerIn
  
  ohne regex?
  
  Klassisch halt mit index() den '.' suchen und mit substr() zerlegen!
  
  Wie mehrmals erwähnt du musst mit Strings arbeiten.
  
  (da lohnt sich selfhtml, ich wusste dass es sowas wie "instr" in perl gibt konnte es aber nicht googlen ...http://de.selfhtml.org/perl/funktionen/zeichenkett...)
  me and my writeups
- +5 replies
- Linuxer
  
  2009-08-27 16:43
  User since
  2006-01-27
  3875 Artikel
  HausmeisterIn
  Man könnte doch auch split() benutzen, um die Zahl in die zwei Komponenten zu teilen ...
  
  Code (perl): (dl )
  
  1 2 3
  
  my ( $int, $rest ) = split /\./, $number, 2; $int = 0 if !defined $int || length $int == 0; $rest = 0 if !defined $rest || length $rest == 0;
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +4 replies
  - LanX-
    
    2009-08-27 18:23
    
    User since
    2008-07-15
    1000 Artikel
    BenutzerIn
    
    Schön! 8)
    
    ... aber der erste Parameter von split ist ja ne RegEx ...
    
    Ich verstehe das Limit 2 nicht, wenn man auf Fehler prüfen will wäre 3 besser, um zu testen ob zu viele "." vorkommen. Wenn man nicht auf Fehler prüfen will kann man das Limit auch weglassen, oder???
    Last edited: 2009-08-27 18:26:08 +0200 (CEST)
    me and my writeups
    - +3 replies
    - Linuxer
      
      2009-08-27 19:23
      
      User since
      2006-01-27
      3875 Artikel
      HausmeisterIn
      
      Hi,
      
      stimmt schon, aber ich versteh das "Aber" (edit: im Zusammenhang
      mit dem Regex beim split()) nicht ...
      
      Auch wenn der erste Parameter des split() ein Pattern ist, bevorzuge ich
      split() für solch eine (simple) Anforderung. Vor Jahren hab ich mal in
      einem ähnlichen Fall einen Vergleich zwischen einer Regex- und einer
      split()-Lösung gemacht und da gewann split() gegenüber dem Regex.
      Da das aber Ewigkeiten her ist, kann ich leider nicht mehr den Vergleich
      an sich vorlegen oder erklären, um was es genau ging.
      
      Ich denke, das Pattern im split() ist einfacher als das Pattern des
      Regex... Wenn man auch beim split() komplexe Pattern einsetzt, mag das
      alles wieder anders aussehen.
      
      Das Limit von 2 hatte ich gewählt, damit nicht noch gross versucht wird,
      den String in mehr als 2 Elemente zu splitten.
      Um eine Fehlerabfrage einzubauen, wäre ein Limit von 3 tatsächlich
      interessant. Wenn das dritte Element eben definiert ist, dann war der
      originale String fehlerhaft/nicht wie erwartet.
      
      Linuxer
      
      PS: hm, mit "w3m" ist es "interessant" eine Antwort zu schreiben ;o)
      Man darf seine Antwort in $EDITOR verfassen und sieht leider den Beitrag
      nicht mehr, auf den man antwortet. Wenn meine Antwort also nicht 100%
      passt, sieh's mir nach ;o)
      Last edited: 2009-08-27 23:05:44 +0200 (CEST)
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - +2 replies
      - pq
        
        2009-08-27 19:38
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2009-08-27T17:23:58 Linuxer
        PS: hm, mit "w3m" ist es "interessant" eine Antwort zu schreiben ;o)
        Man darf seine Antwort in $EDITOR verfassen und sieht leider den
        Beitrag nicht mehr, auf den man antwortet. Wenn meine Antwort also
        nicht 100% passt, sieh's mir nach ;o)
        
        klick doch einfach auf antwort mit zitat =)
        kannste ja am ende wieder rauslöschen und dir sogar ein makro dafür schreiben
        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
        
        Linuxer
        
        2009-08-27 19:45
        
        User since
        2006-01-27
        3875 Artikel
        HausmeisterIn
        
        Hm, das ist eine gute Idee...
        Daran hatt ich nicht gedacht ;) Zumal ich ja nicht zitieren wollte ;)
        
        Aber ich kann auch normal antworten, Text schreiben, speichern/schliessen, nachlesen und dann weiterschreiben...
        
        Mach das grad eh nur mit w3m während mein Sysbackup läuft und ich das System
        vom Live-Linux aus beharke ...
        
        Also nicht ganz so tragisch.
        Last edited: 2009-08-27 23:01:38 +0200 (CEST)
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- Gast Coder
  
  2009-08-27 18:59
  
  Wurde zwar schon alles soweit gesagt aber von mir trotzdem nochmal der Hinweis: Verwende niemals int(), um gemischt mit Strings und Zahlen umzugehen! Das gibt das reinste Fiasko!
  
  Auch sämtliche anderen Module kommen nicht klar!
  Soetwas kannst Du ganz sicher nur mir Regex (scheidet bei Dir anscheinend aus) oder Zeichenzerlegung index() oder substr() machen!

View all threads created 2009-08-26 22:35.