Cara mengonversi antara bilangan biner dan desimal menggunakan perl

Artikel ini akan mencantumkan beberapa contoh tentang cara mengonversi antara nomor biner dan desimal dengan Perl.

Biner ke desimal

Pertama mari kita tunjukkan contoh mendasarkan cara mengonversi dari biner ke desimal:

#!/usr/bin/perl $ decimal_number = 0B1000; cetak $ decimal_number; 

Eksekusi:

# ./mengubah.PL 8 

Berikut adalah metode alternatif lain. Dalam hal ini kami akan mengonversi nomor biner 1000 untuk desimal:

#!/usr/bin/perl $ Binary_number = 1010; $ decimal_number = oct ("0b".$ Binary_number); cetak $ decimal_number; 

Eksekusi:

# ./mengubah.PL 10 

Desimal ke biner

Di bawah ini adalah contoh tentang cara mengonversi nomor desimal menjadi biner dalam hal ini skrip perl akan dikonversi nomor desimal 16:

#!/usr/bin/perl $ decimal_number = 16; $ binere_number = sprintf ("%b", $ decimal_number); Cetak $ Binary_number; 

Eksekusi:

# ./mengubah.PL 10000 

Tutorial Linux Terkait:

• Dasar -dasar matematika komputer: biner, desimal, heksadesimal, oktal
• Pengantar Otomatisasi Linux, Alat dan Teknik
• Cara melepaskan dan mendaftar konten initramfs di linux
• Menguasai loop skrip bash
• Mint 20: Lebih baik dari Ubuntu dan Microsoft Windows?
• Manajemen proses latar belakang bash
• Sistem Linux Hung? Cara melarikan diri ke baris perintah dan…
• Loop bersarang dalam skrip bash
• Hal -hal yang harus diinstal pada ubuntu 20.04
• Tutorial debugging GDB untuk pemula