Wie man mit Perl zwischen binären und Dezimalzahlen umgewandelt wird

In diesem Artikel werden nur wenige Beispiele aufgeführt, wie man zwischen binären und Dezimalzahlen mit Perl konvertiert wird.

Binär bis dezimal

Lassen Sie uns zunächst ein Basisbeispiel für die Konvertierung von Binary in Dezimal zeigen:

#!/usr/bin/perl $ decimal_number = 0b1000; drucken $ decimal_number; 

Ausführung:

# ./Konvertieren.PL 8 

Hier ist eine andere alternative Methode. In diesem Fall werden wir die Binärnummer konvertieren 1000 zu dezimal:

#!/usr/bin/perl $ binary_number = 1010; $ decimal_number = oct ("0b".$ BINARY_NUMBER); drucken $ decimal_number; 

Ausführung:

# ./Konvertieren.PL 10 

Dezimal zu binär

Im Folgenden finden Sie ein Beispiel, wie Sie eine Dezimalzahl in Binärum umwandeln können. In diesem Fall konvertiert das Perl -Skript eine Dezimalzahl 16:

#!/usr/bin/perl $ decimal_number = 16; $ binary_number = Sprintf ("%b", $ decimal_number); drucken $ binary_number; 

Ausführung:

# ./Konvertieren.PL 10000