perl taschenrechner scientific dec zu bin (Allgemeines zu Perl)

[thread]8752[/thread]

perl taschenrechner scientific dec zu bin

fraggs

2007-02-12 13:38

User since
2006-09-11
179 Artikel
BenutzerIn

halloechen gibt es in perl eine funktion um von decimal in binary zu rechen ? ich will ein kleines programm schreiben um etwas leichter für mich zu machen.

ich sehe es gibt module allerdings will ich soweit es geht arbeiten ohne diese zuverwenden.

gruß

-fraggs

mmm twix

renee

2007-02-12 13:42

User since
2003-08-04
14371 Artikel
ModeratorIn

Aus dem Perl Cookbook:

Code: (dl )

sub dec2bin {
    my $str = unpack("B32", pack("N", shift));
    $str =~ s/^0+(?=\d)//;   # otherwise you'll get leading zeros
    return $str;
}

sub bin2dec {
    return unpack("N", pack("B32", substr("0" x 32 . shift, -32)));
}

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/

2007-02-12 13:42

User since
2003-08-04
12208 Artikel
Admin1

my $bin = sprintf "%b", $dec;

wohl bekomm's.

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

fraggs

2007-02-12 13:52

User since
2006-09-11
179 Artikel
BenutzerIn

danke !

mmm twix

View all threads created 2007-02-12 13:38.