Subroutine in Subroutine?

[Darthshoot]

Hallo!

Ich habe ein Problem... und zwar muss ich in einer Subroutine eine andere Subroutine aufrufen. Aber wie geht das? Sieht ungefähr so aus:

sub eins
{
print "hallo!";
sub zwei();
}
sub zwei
{
print "du!";
}

Kann mir da einer weiterhelfen? Danke schonmal.

MfG Darthshoot

[mnemonic]

Versuchs mal so:

// Prototype
sub zwei();

sub eins
{
print "hallo!";
zwei();
}

sub zwei
{
print "du!";
};)

[kill4h`]

sub eins
{
print "hallo!";
zwei();
}

sub zwei
{
print "du!";
}

[Darthshoot]

Super, das klappt schonmal! Danke!

Jetzt habe ich noch ein Problem: sowohl eins(); und zwei(); müssen auf die selbe Variable zugreifen und sie ändern / lesen können. Das Problem ist, dass es diese Variable nur in diesen Subroutinen gibt. Wie kann ich es irgendwie hinkriegen, dass die beiden irgendwie.. global diese Variable ändern? Return klappt irgendwie nicht..

Das wäre toll wenn ihr mir da eine Möglichkeit oder einen Tipp geben könntet.

[Alamar]

Die Variable im globalen Kontext definieren.


$foo = 1;

bla();

sub bla()
{
$foo=2;
blubb();
}

sub blubb()
{
$foo=3;
}

[butterkeks]

etwas Haarspalterei:
wirklich globale Variablen sollte man natürlich vermeiden... dazu muss man nciht direkt mit packages anrücken, sondern es reicht schon folgendes:

{
my $foo = 1;

sub bla {
$foo=2;
blubb();
}

sub blubb {
$foo=3;
}
}

bla(); # &bla vor dem Block aufzurufen ist keine so gute Idee

von außen kommt man an &bla und &blubb, aber nicht an $foo.

Dartshoot: als Anfänger kannst du das (erst mal) getrost vergessen

[Darthshoot]

Jo vielen Dank für die Antworten! Ihr habt mir echt geholfen :D danke!!