Muunnetaan 32-bittinen kokonaisluku IP: ksi

Perl-kielen ohjelmalla voidaan muuntaa 32-bittinen kokonaisluku IP-osoitteeksi . Jotkin ohjelmointikäsitteet ja skriptikielet, kuten Perl, edellyttävät ohjelmakoodin kirjoittamista Perliin. Ohjelmien kirjoittamiseen tarvitaan binääritoimintojen ja säännöllisten lausekkeiden peruskäsitteet ja tietämys. Ohjelman, joka muuntaa 32-bittisen kokonaisluvun IP-osoitteeksi Perl: ssä, voidaan kirjoittaa käyttämällä binäärioperaatioita. Binääritoiminnoilla ja Perl: llä ohjelmakoodi 32-bittisen kokonaisluvun muuntamiseksi kelvolliseksi IP-osoitteeksi voidaan toteuttaa muutamassa rivissä.

Tässä esimerkissä muunnettava numero on: 3265917058

Binäärinen esitys

 11000010 10101001 11110000 10000010 - 3265917058 00000000 00000000 00000000 11000010 - 3265917058 >> 24 (194) 11000010 10101001 11110000 10000010 - 3265917058 10101001 11110000 10000010 00000000 - 3265917058 << 8 00000000 00000000 00000000 10101001 - (3265917058 <> 24 (169) 11000010 10101001 - 3265917058 11110000 10000010 00000000 00000000 - 3265917058 << 16 00000000 00000000 00000000 11110000 - (3265917058 <> 24 (240) 11000010 10101001 11110000 10000010 - 3265917058 10000010 00000000 00000000 00000000 - 3265917058 << 24 00000000 00000000 00000000 10000010 - (3265917058 <> 24 130) 

Komennon käyttö muuntamista varten

 $ echo 3265917058 | perl -ne 'print $ _ >> 24, ".", $ _ <> 24, ".", $ _ <> 24, ".", $ _ <> 24, "n"' 194.169.240.130