I just cant find what's wrong with this code

[sabie]

Hi,
i am a beginner in Perl. All I want to do is a simple operation of saving the reminders of a continuous division of same number until the quotient becomes 1.

I hope the code is logically correct but nothing is showing in the output.

here is the code:

#!usr/bin/perl
#scrap.pl
use warnings;
use strict;

my $test=27;
my @arr1;

for(my $i=0;$test<=1;$i++)
{
	print "entered loop !!! \n";
	print $test,"\n";
	$arr1[$i]=$test%2;
	$test/=2;
	print $test,"\n";
}
print @arr1;

Thanks for the help.

[sabie]

I think I've got it !!! a very small logical mistake!!

[sabie]

I've actually trying to convert decimal to binary and I did it now !!!

the code:

#!usr/bin/perl
#scrap.pl
use warnings;
use strict;

my $test;
THERE: print "Enter a decimal number less than 256: ";
my $deca=<STDIN>;

if($deca>=256)
{
	print "number entered is greater than or equal to 256. please enter again!\n";
	goto THERE;
}

print "\n\n";
my @arr1;

for(my $i=0;$deca>1;$i++)
{
	$arr1[$i]=$deca%2;
	$deca/=2;
	if($deca==1)
	{
		$i++;
		$arr1[$i]=$deca;
		last;
	}
	
}

print "The binary equalent is: ";
for(my $j=$#arr1;$j>=0;$j--)
{
	print $arr1[$j];
}
print "\n\n\n";

[numberwhun]

Glad you solved it. :)

Regards,

Jeff