Blog literacki, portal erotyczny - seks i humor nie z tej ziemi
#! /usr/bin/perl -w
print "Podaj liczbe: ";
$liczba =
chop($liczba);
if ($liczba !~ /^[01]+$/)
{
print "To nie jest liczba binarna!\n";
exit 1;
}
$tmp = $liczba;
$potega = $suma = 0;
while (length($tmp) > 0)
{
$suma += chop($tmp) * 2 ** $potega;
$potega++;
}
print "Podana liczba binarnie $liczba, dziesietnie $suma\n";