$rkurs = sprintf ("%.2f",$kurs); (Allgemeines zu Perl)

[thread]5828[/thread]

$rkurs = sprintf ("%.2f",$kurs);

Leser: 2

ak47

2003-10-16 16:52

User since
2003-08-11
24 Artikel
BenutzerIn
[default_avatar]

Hallo, ich weiss es ist eine Schande, aber ich habe ein Problem:
Ich habe einen Preis den ich mit der Menge multipliziere, also etwa 49,90 x 2 (oder x 1). Das ergibt einen Wert der der immer 99 gibt oder 49 also ohne Nachkommastellen. Mit $rkurs = sprintf ("%.2f",$kurs) ; gibt es dann 99.00 oder 49.00

ICH WERDE WAHNSINNIG!!!!! HILFE\n\n

2003-10-16 17:02

User since
2003-08-04
12208 Artikel
Admin1

Code: (dl )

perl -wle'
$kurs = 49.90;
print $kurs*2'
99.8

klappt doch. oder hast du etwa tatsächlich ein komma anstatt eines punktes
als dezimaltrenner? das musst du zuerst in einen punkt umwandeln.

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: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

ak47

2003-10-16 17:07

User since
2003-08-11
24 Artikel
BenutzerIn
[default_avatar]

echt, das ist alles? ich muss mit Punkten rechnen?

havi

2003-10-16 17:28

User since
2003-08-04
2036 Artikel
BenutzerIn

Ja!

Code: (dl )

#!/usr/bin/perl

use warnings;
use strict;

my $kurs1 = 49,90;
print $kurs1 *2, "\n"; # 98 + Fehlermeldung von Perl bei einsetzen von use warnings;

my $kurs2 = 49.90;
print $kurs2 *2, "\n"; # 99.8

my $kurs3 = "49,90";
$kurs3 =~ s%,%.%g;
print $kurs3 *2, "\n"; # 99.8

1;

Gruss\n\n

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

format_c

2003-10-16 17:31

User since
2003-08-04
1706 Artikel
HausmeisterIn

Komma als Dezimaltrenner ist "Deutsch".
In America wird das Komma da zu verwendet um die tausender zu trennen:
1,000,000
Aber 3.56

Gruß Alex

Effizente Linuxshell

Crian

2003-10-16 17:45

User since
2003-08-04
5872 Artikel
ModeratorIn

Nicht wundern - die spinnen, die Amis ;-)

Und wir müssen deren gespaltenes Verhältnis zu Zahlen und deren korrekter Darstellung nun auf den amerikanischen Rechensystemen ausbaden ^^ :-D

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

betterworld

2003-10-17 00:58

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Also ich finde es eigentlich ganz sinnvoll. Jedenfalls waere es beim Programmieren nicht sehr angenehm, wenn man ein Komma als Dezimalzeichen verwendet:

Code: (dl )

print "Das Quadrat von $_ ist ".($_**2) for 42,69

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

Crian

2003-10-17 17:11

User since
2003-08-04
5872 Artikel
ModeratorIn

Interessantes Argument. Aber wären die Sprachen nicht in einem System entstanden, in dem man Zahlen nun einmal so schreibt (mit Punkt als Dezimaltrenner), sähe die Syntax anders aus. D.h. Du wärst nicht daran gewöhnt, dass sie so ist, wie sie ist.

Ich will es ja jetzt auch gar nicht mehr ändern, aber jeder Deutsche oder Europäer (?) muss ersteinmal diesen Bedeutungsdreher verstehen, wenn er das erste Mal mit Zahlen und einem Computer zu tun hat...

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

betterworld

2003-10-17 17:24

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

[quote=Crian,17.10.2003, 15:11]Aber wären die Sprachen nicht in einem System entstanden, in dem man Zahlen nun einmal so schreibt (mit Punkt als Dezimaltrenner), sähe die Syntax anders aus.[/quote]
Darueber habe ich auch nachgedacht. Es ist aber eigentlich gut, dass wir die englisch-amerikanische Version genommen haben statt der deutschen. Denn sonst haetten wir ja gar kein Trennzeichen mehr fuer Listen gehabt. Der Punkt bietet sich da intuitiv ja nicht so wirklich an. Bliebe nur noch das Semikolon. Das gaebe dann aber auch ein Durcheinander.
Es ist nun aber eigentlich sinnlos, dass ueber so etwas philosophiere... ebenso als wenn ich ueberlege, wie Mathematik bei Ausserirdischen aussieht :)

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

Crian

2003-10-17 17:28

User since
2003-08-04
5872 Artikel
ModeratorIn

:-D

Stimmt, genau das hatte ich aber auch gedacht, dann bräuchte man irgend ein intuitives Zeilenendezeichen.
Aber vielleicht hätte man dafür ein anderes - jetzt nicht existentes - Zeichen verwendet, das irgendwo auf der Tastatur liegen würde. Oder vielleicht '#' (und Perl hätte endlich Multilinecomments mit /* ... */ ;-) )

Aber natürlich ist es müßig darüber nachzusinnen, macht aber Spaß :-D

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View all threads created 2003-10-16 16:52.