Überflüssige Nullen hinterm Komma (Allgemeines zu Perl)

[thread]13054[/thread]

Überflüssige Nullen hinterm Komma

Gast Gast

2009-01-26 14:56

hallo an alle,

ich würde gerne die überflüssigen Nullen hinterm komma einer zahl wegbekommen

v1=0.0001000; => v1=0.0001

hat jemand ne ahnung wie das geht?!

mfg

gast

Crian

2009-01-26 15:03

User since
2003-08-04
5872 Artikel
ModeratorIn

Mit sprintf ginge es, mit einem regulären Ausdruck ginge es, aber deine Informationen sind etwas mager.

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

renee

2009-01-26 15:04

User since
2003-08-04
14371 Artikel
ModeratorIn

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

while( my $nr = <DATA> ){
    chomp $nr;
    my $new = $nr;
    
    if( int($nr) == $nr ){
        $new = int($nr);
    }
    else{
        $new =~ s/(\.\d*?)?0+$/$1/;
    }
    print "$nr -> $new\n";
}

__DATA__
1.234000
2.01
9.00000
8.0
0.2340000
0.0
6.000001

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/

Struppi

2009-01-26 15:38

User since
2006-02-17
628 Artikel
BenutzerIn

Oder einfach den String in eine Zahl umwandeln:

Code (perl): (dl )

my $new = 1 * $nr;

Gast Gast

2009-01-26 15:49

Bis 5 Stellen nach dem Komma geht auch:

Code (perl): (dl )

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

while (<DATA>) {
  printf('%00g', $number);
  print "\n";
}

__DATA__
1.234000
2.01 
9.00000 
8.0 
0.2340000 
0.0 
6.000001

Gast Gast

2009-01-26 15:50

$number = $_

View all threads created 2009-01-26 14:56.