Probleme mit int ? (gelöst) (Allgemeines zu Perl)

[thread]17074[/thread]

Probleme mit int ? [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+5 replies

hugenyn

2012-01-16 21:11

User since
2010-10-05
65 Artikel
BenutzerIn

user image

Diese Routine zum Runden habe ich mir geschrieben ( ich weiß, daß es ein Modul gibt ).

Code (perl): (dl )

#!/usr/bin/perl -w
use 5.010;
use strict;

print "\n";

my $zahl    = -3.9983629;
my $stellen = 3;

my $rnd = &roundmy ( $zahl, $stellen );
print "Ergebnis $rnd\n";

sub roundmy {

  my $za = shift;

  my $st = shift;

  $za = abs($za);

  my $rest = ( $za =~ /.(\d+)$/ );

  if ( $1 ) {

    my $mult = '1';

    if ( length($1) > $st ) {

      for ( 1..$st ) {

        $mult .= '0'

      }

      my $erg  = int (($za * $mult) + .5) / $mult;

    }

  }

}

print "\n";

Irgendwo habe ich etwas über Probleme mi der int-Funktion gelesen, weiß aber nicht mehr was und wie.

Kann ich also

1. diese Sub für einfache kaufmännische Berechnungen verwenden und

2. kann ich Probleme mit der Verwendung von $mult als Faktor/Divisor bekommen?

PS: Natürlich müssen negative Zahlen wieder zurückgewandelt werden!

modedit Editiert von pq: perl- statt quote-tags
Last edited: 2012-01-16 22:02:08 +0100 (CET)

+3 replies

hlubenow

2012-01-16 22:22

User since
2009-02-22
885 Artikel
BenutzerIn
[default_avatar]

Für kaufmännisches Runden sollte eigentlich

Code (perl): (dl )

1
2
3

my $a = 0.255;
$a = sprintf("%.2f", $a);
print "$a\n";

ausreichen. Oder siehst Du einen besonderen Grund, das nicht so zu machen?

hugenyn

2012-01-16 22:32

User since
2010-10-05
65 Artikel
BenutzerIn

Ich hatte printf immer für eine Ausgabeformatierung gehalten.

Nun weiß ich, daß ich diese Ausgabe wieder in einer Variablen festhalten kann.

Danke.

bianca

2012-01-17 03:14

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

2012-01-16T21:22:02 hlubenow
Oder siehst Du einen besonderen Grund, das nicht so zu machen?

Ja, ich sehe mehrere. Mit sprintf allein kann man nicht zuverlässig runden.
Wir haben das in diesem Thread erarbeitet: Kaufmännisch korrekt runden

Am Ende war die Lösung von topeg die zuverlässigste und gegenüber Math::BigFloat auch noch erheblich schneller.

Am Ende kam das hier dabei raus:

Code (perl): (dl )

sub kfmrunden {
    my $zahl=shift;
    return undef unless(defined($zahl));
    my $stelle=shift || 0;

    # prepare for Xe[+-]Y Notation
    # handle big float
    my ($pre,$number,$exponent)=$zahl=~/^([-+]?)([\d.]+)(?:e([+-]?\d+))?$/;
    $exponent=0 unless defined($exponent);
    $pre='' if(!$pre || $pre ne '-');

    # full integer number with exponent
    my ($l)=$number=~/\.(.+)$/;
    $exponent-=$l?length($l):0;
    $number=~y/.//d;

    # correct position for round
    my $stellen=$stelle+$exponent;
    if($stellen<0)
    {
    $exponent=-$stelle;
    my $add=substr(('0'x abs($stellen)).$number,$stellen,-$stellen);

    # round...
    $number+=$add;

    $number=('0'x abs($stellen)).sprintf("%.0f",$number);
    substr($number,$stellen,-$stellen,'');
    }

    # reconstruct number
    $zahl="$pre${number}e$exponent";

    # format number
    if($zahl==0)
    { $zahl='0'; }
    else
    {
    $zahl=sprintf("%.${stelle}f",$zahl);
    $zahl=~s/\.?0+$// if(index($zahl,'.')>0)
    }
    return $zahl;
}

Editiert von bianca: Code ergänzt
Last edited: 2012-01-17 03:54:24 +0100 (CET)

10 print "Hallo"
20 goto 10

bianca

2012-01-17 08:00

User since
2009-09-13
7016 Artikel
BenutzerIn

2012-01-16T20:11:45 hugenyn
Irgendwo habe ich etwas über Probleme mi der int-Funktion gelesen, weiß aber nicht mehr was und wie.

Schau mal hier, ich hab es wiedergefunden: Richtig INTen
int() arbeitet leider auch nicht wie erwartet.
10 print "Hallo"
20 goto 10

View all threads created 2012-01-16 21:11.