"We are back" « oc.at

Perl -> dynamic variable buidling?

Murph 10.01.2002 - 16:51 1574 19
Posts

Murph

Nerd
Avatar
Registered: Dec 2001
Location: Vienna
Posts: 9236
Zitat von rettich
allgemein gefragt: wie unterscheidet man in perl semantisch eine unterroutine, die einen wert zurückgibt, bzw eine, die keinen wert zurückgibt!?

Das is doch egal obs ne Subroutine oder Funktion ist.
auch eine Subroutine kann einen rückgabewert haben.
Wenn ja, liegt der im array @_[0] , also an der ersten position.
Wenn eine subroutine 2 werte zurückliefert, dann is es eben in @_[1] :)

Warum sollte man zwischen Subroutine und Funktion unterscheiden, wenn beide eh Rückgabewerte haben...

das is ja das schöne an perl - there are many ways to do everything.

Guest

Deleted User
Registered: n/a
Location:
Posts: n/a
und warum verwendest du den rückgabewert (den es ja bei subs gibt), nicht für dein beispiel?

ich improvisiere jetzt mal ein kleines beispiel - ich hoffe, der code passt

Code: PHP
#!/usr/bin/perl

lame = readin_var(); 
lame2 = readin_var(); 

print "$lame $lame2";

sub readin_var
{
        chomp ( $tempvar = <stdin> );
        return $tempvar;   //wie auch immer der rückgabe-befehl heißen mag
}

Murph

Nerd
Avatar
Registered: Dec 2001
Location: Vienna
Posts: 9236
bis auf die $-zeichen stimmt der code (und comments in perl sind mit # zu machen, net mit // )


dein beispiel funkt
das von derelict auch



ich hab definitiv zu lang nicht gecodet... good times gone :(

=> thx 4 answers & close

Guest

Deleted User
Registered: n/a
Location:
Posts: n/a
*freu*

ich lass es trotzdem offen - vielleicht hat ja wer noch sinnvolle comments zum thema :)

Murph

Nerd
Avatar
Registered: Dec 2001
Location: Vienna
Posts: 9236
Ja, lass ihn offen damit noch bissi geflamed werden kann für meine "eigene" Logik....

DARN das hass ich an perl, wenn du irgendein kompliziertes Problem hast, baust dir einfach ne Step-by-Step Lösung (bei mir war's ne komplexe String-bearbeitungssache die leider nicht per RegExes machbar war),
aber wennst irgendein ****** prob hast was eigentlich ganz simpel ist, stehst NUR an....

:(

"Perl doesn't care about syntax. Bless or Curse ?"
Kontakt | Unser Forum | Über overclockers.at | Impressum | Datenschutz