Variablenübernahme in Subroutine (gelöst) - #139578 (Allgemeines zu Perl)

Sven_123

2010-07-06 14:32

User since
2010-06-01
120 Artikel
BenutzerIn
[default_avatar]

Hmm...die Lösung für das obige funktioniert, nur hat sich dadurch ein neues Problem ergeben: Ich will eigentlich auch die innere Subroutine sich selbst aufrufen lassen, nun beschwert er sich aber, dass diese an der Stelle nicht deklariert ist.

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;

bla(1);

sub bla{
  my $x=$_[0];
  print "bla: $x\n";
  my $blubb = sub{
        my $i=$x**$_[0];
        print "  blubb: $x\n";
        if ($i <= 25){$blubb->(($_[0]+1))}
  };
  $blubb->(1);
  if ($x <= 5){bla(($x+1))}
}

"Global symbol "$blubb" requires explicit package name at ./test line 13."

Gibt's da wieder eine simple Abhilfe, wie oben, oder muss ich es dann komplett anders aufbauen?