Vergleich grosser Zahlen (Allgemeines zu Perl)

[thread]13991[/thread]

Vergleich grosser Zahlen

Leser: 24

Articles: hide open all | hide show old branches

+4 replies
Gast Brummbaer

2009-09-08 13:03

Hallo,
ich habe ein Problem mit dem Vergleich von grossen Zahlen....
In zwei Variablen wird jeweils ein 8-Stelliges Datum und eine 6-Stellige Kennziffer
hinterlegt z.b. $X1 = 20090729000005
$X2 = 20090729000106
sind die ersten acht Stellen (Datum) gleich bekomme ich bei einem Vergleich
if ($X1 == $X2) {
immer true egal welche Kennziffer das Datum hat.

teile ich die Abfrage in zwei Teile
$X11 = substr($X1,0,8);
$X12 = substr($X1,8);
$X21 = substr($X2,0,8);
$X22 = substr($X2,8);
if (($X11 == $X21) and $X12 == $X22)) {

bekomme ich das richtige Ergebnis (false)

Gibt es eine Beschraenkung fuer numerische Vergleiche? oder mache ich einem Fehler?

Danke im voraus sagt der Brummbaer
- Taulmarill
  
  2009-09-08 13:31
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  Das Problem kann ich hier leider nicht nachvollziehen. Habe es mit folgendem Programm versucht:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  use strict; use warnings; my $X1 = 20090729000005; my $X2 = 20090729000106; if ( $X1 == $X2 ) { print "$X1 und $X2 sind gleich\n"; } else { print "$X1 und $X2 sind verschieden\n"; }
  
  Bekomme dabei die Aussage "20090729000005 und 20090729000106 sind verschieden".
  
  Teste doch mal mein Programm. Wenn du die richtige Antwort erhältst, ist wahrscheinlich was anderes in deinem Programm das Problem. Bekommst du auch bei oben gepostetem Programm die falsche Ausgabe, gib uns am besten mal deine genaue Perl-Version mit perl -V
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
- pq
  
  2009-09-08 13:49
  User since
  2003-08-04
  12209 Artikel
  Admin1
  und für alle fälle ein tip, der dir generell beim debuggen hilft: wann immer du nicht sicher bist, was für daten du in deinen variablen hast:
  
  Code (perl): (dl )
  
  1 2 3
  
  use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper $var;
  
  und schon weisst du bescheid, inklusive nicht druckbaren sonderzeichen.
  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
- Dubu
  
  2009-09-08 16:19
  User since
  2003-08-04
  2145 Artikel
  ModeratorIn + EditorIn
  Numerische Vergleich gehen mit beliebigen Zahlen, aber nicht unbedingt so, wie man sich das vorstellt. Deine Zahlen sind z.B. mit dezimal 14 Stellen im Bereich von 2**44, das kann also nicht mehr in einem 32-Bit Integer dargestellt werden, sondern wird für einen numerischen Vergleich in eine Fließkommazahl umgewandelt. In dieser Form sollten aber die signifikanten Stellen durchaus ausreichen, die beiden Zahlen zu unterscheiden (weshalb ich dein Problem auch nicht nachvollziehen kann). Auf einem 64-Bit-System mit 64-Bit-Perl sollte es auch als Integer funktionieren.
  (Siehe dazu auch perlnumber.)
  
  Wenn es nur um Gleichheit geht: Wie wäre es alternativ mit einem Stringvergleich?
  
  Code (perl): (dl )
  
  if ($X1 eq $X2) ...
  
  Abgesehen davon vermute ich aber, dass das Problem woanders liegt, und die Variablen nicht das enthalten, was du meinst. Siehe auch pqs Posting.

View all threads created 2009-09-08 13:03.