hi!
Just a little JAPH for convert decimal to binary.... Feel free to comment it ;) ---------------------------------------------------------------- #!/usr/bin/perl use strict; use warnings; eval {@ARGV} or die("No args") ; foreach my $arg(@ARGV) { my $convert = unpack("B*",pack("N", $arg)); my @convertsp = split("", $convert); my $count = 0; foreach (@convertsp) { unless ($convertsp[$count] == 1) { $convertsp[$count] = "" ; $count++; } } print("$arg: @convertsp \n"); } exit 0;