Perl Skript als Bash?

Guten Morgen zusammen,



ich habe ein kleines Problem, leider bin ich in Perl noch nicht soweit fortgeschritten, deswegen ersuche ich hier um Hilfe.



Ich habe folgendes Perl-Skript:

sub deaggregate

{

my $start = shift;

my $end = shift;

my $base = $start;

my $step;

while ($base <= $end)

{

$step = 0;

while (($base | (1 << $step)) != $base) {

if (($base | (((~0) & $thirtytwobits) >> (31-$step))) > $end) {

last;

}

$step++;

}

print ntoa($base)."/" .(32-$step);

print "\n";

$base += 1 << $step;

#und: THIRTYTWOBITS=4294967295



Kann mir da jemand helfen?



Beste Grüße

Bennymon