regulärer ausdruck will nicht - #65924 (Allgemeines zu Perl)

betterworld

2006-05-10 16:26

User since
2003-08-21
2613 Artikel
ModeratorIn

user image

[quote=shaihulud,10.05.2006, 14:13]kann mir jemand sagen wie ich variablen von einem unterprogramm an ein hauptprogramm übergeben kann?
bisher hab ich das einfach per referenz vom hauptprogramm ans unterprogramm gegeben und dort dann gefüllt.
Würd aber gern wissen ob es auch anders geht. würde gern ne Möglichkeit haben im unterprogramm variablen zu definieren und zu füllen, auf die ich im hauptprogramm zugreifen kann.

kann mir da jemand weiterhelfen?

P.S.: hab mal n Stichwort "var" gehört..[/quote]
"var" gibt es in Pascal, nicht in Perl. Etwas aehnliches kannst Du in Perl tun:

Code: (dl )

sub foo {
   my ($a, undef, $b) = @_;
   $_[1] = $a * $b;
}

my $c;
foo(7,$c,8);
print $c, "\n"; # 56

Das sieht nur etwas unschoen aus. Mit Prototypen kann man das so schreiben:

Code: (dl )

sub foo ($\$$) {
   my ($a, $b, $c) = @_;
   $$b = $a * $c;
}
foo(7,$b,8);
print $b, "\n";

Ich nehme an, dass du "return" schon kennst? Damit kannst Du eine beliebig lange Liste von Variablen oder/incl. eine Referenz auf z. B. einen Hash zurueckgeben. Ansonsten gibt es noch "globale Variablen", aber das ist schlecht und man sollte es nicht tun.\n\n

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class