Subroutine Variablenübergabe (Allgemeines zu Perl)

[thread]18580[/thread]

Subroutine Variablenübergabe

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

Teilbaum:
PAR exe erzeugen mit Modul im eigenen Ordner (4 Artikel) 2013-09-12 18:54

+20 replies
tejste

2013-09-11 11:00
User since
2012-11-15
21 Artikel
BenutzerIn
Hallo Community,

bitte vielleicht kann mir jemand einen Tipp geben. Ich habe eine Subroutine, die einen Zeitstempel errechnet.
Code (perl): (dl )

1 2 3 4 5 6

sub zeit(@_){ my @date = localtime(time); my $jahr = $date[5]+1900; my $monat = $date[4]+1; $zeitstempel = "$jahr$monat$date[3]$date[2]$date[1]$date[0]"; }
Die Subroutine rufe ich so auf
Code (perl): (dl )

1 2 3

sub zeit(@_); zeit(my $zeitstempel);#Prototyp open(SPEICHGANSBUCH,'>',"$directorySpeicherdatei/U20130306G1_$zeitstempel.txt") or die "Speicherdatei BUCH nicht gefunden";
Der Code macht was er soll, er schreibt hinter die zu speichernde Datei einen Zeitstempel, was mich aber stört ist die Meldung:

Prototype after '@' for main::zeit : @_ at I:\BESTAX\Usta\strawberry\files\usta\
Gaenssfuesse_weg.pl line 18

Wofür brauche ich den Prototyp überhaupt, ist das so etwas wie eine Instanz in Java?
Was will mir die Meldung sagen?
Variablenübergabe?: ich schreibe in die Subroutine als Übergabevariable das Array @_ rein, aber ich will nur die Variable $zeitstempel übergeben, wenn ich aber in die Subroutine reinschreibe
Code (perl): (dl )

sub($zeitstempel) {etc}
dann kommt als Fehlermeldung: illegal Arguments. Kann mir jemand in erläutern, was Perl da tut oder will.
Eine Frage noch: die Variablendeklaration mit "my" irritiert mich etwas. Ich verstehe die Subroutinen als eigene abgeschlossene Module, jede Variable, die ich dort definiere bleibt beschränkt auf die Subroutine. Warum möchte Perl das ich die Variable schon bei der Anfrage definiere? Dazu müßte ich jedes Mal in die Subroutine reinschauen, welche Variable schon ein "my" und welche nicht; ich glaub, ich habs noch nicht kapiert mit der Variablenübergabe.
Ich möchte diese Sub gerne in eigene eigene Datei auslagern, aber da sollte die schon fehlerfrei laufen.
Vielen Dank für das durchlesen.
- bianca
  
  2013-09-11 11:04
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  In Perl schreibt man es so:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  sub zeit{ my @date = localtime(time); my $jahr = $date[5]+1900; my $monat = $date[4]+1; "$jahr$monat$date[3]$date[2]$date[1]$date[0]"; }
  
  Code (perl): (dl )
  
  open(SPEICHGANSBUCH,'>',"$directorySpeicherdatei/U20130306G1_".zeit().'.txt') or die "Speicherdatei BUCH nicht gefunden";
  
  Last edited: 2013-09-11 11:06:26 +0200 (CEST)
  10 print "Hallo"
  20 goto 10
- +2 replies
- payx
  
  2013-09-11 11:06
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo tejste,
  
  hier ein lauffähiges Beispiel für Deine Anforderung:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  #!/usr/bin/perl use strict; use warnings; my $zeitstempel = zeit(); print $zeitstempel; sub zeit { my @date = localtime(time); my $jahr = $date[5]+1900; my $monat = $date[4]+1; return "$jahr$monat$date[3]$date[2]$date[1]$date[0]"; }
  
  HTH
  Grüße
  payx
  
  PS: Was mir an Deinem Zeitstempel nicht gefällt, ist das Fehlen führender Nullen. Ich erzeuge meine Zeitstempel so:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  sub zeit { my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time); $mon++; $year += 1900; my $zeitstempel = sprintf("%04d%02d%02d%02d%02d%02d", $year, $mon, $mday, $hour, $min, $sec); return $zeitstempel; }
  
  Editiert von payx: PS
  Last edited: 2013-09-11 11:13:50 +0200 (CEST)
  - Gast wer
    
    2013-09-11 16:36
    
    das formatieren mit sprintf ist nützlich, weil sie dann in der richtigen reihenfolge angezeigt werden.
    Last edited: 2013-09-11 17:10:15 +0200 (CEST)
- bianca
  
  2013-09-11 11:07
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Und bitte benutze als Filehandle normale Variablen, keine Konstanten.
  Also statt SPEICHGANSBUCH besser my $fh
  10 print "Hallo"
  20 goto 10
- +7 replies
- Muffi
  
  2013-09-11 11:16
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Hallo,
  von payx gabs ja schon einen schönen Lösungsvorschlag.
  Es ist in Perl so:
  Du kannst Parameter so übergeben wie in anderen Sprachen auch.
  foo($Parameter)
  In der Sub dann kriegst du alles was übergeben wurde "automagisch" in einem Array Namens @_. Dazu musst (und solltest) du nichts weiter scheiben.
  also:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  sub foo # hier kommt wirklich nix mehr { # jetzt müssen wir uns unseren Parameter wieder holen. Der steht an erster Stelle in @_ my $parameter = $_[0]; # oder my $Parameter = shift(@_); # oder kürzer my $Parameter = shift @_; # oder kürzer my $Parameter = shift;
  
  Die Geschichte mit den Prototypen: Lass die erstmal sein! Die tun nicht das was du hier meinst, dass sie tun, also lass sie weg bis dus verstanden hast.
  1 + 1 = 10
  - +6 replies
  - bianca
    
    2013-09-11 11:29
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2013-09-11T09:16:51 Muffi
    von payx gabs ja schon einen schönen Lösungsvorschlag.
    
    Ist meiner nicht schön?
    10 print "Hallo"
    20 goto 10
    - +5 replies
    - Muffi
      
      2013-09-11 12:51
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Mit explizitem return ja :)
      1 + 1 = 10
      - +4 replies
      - bianca
        
        2013-09-11 17:14
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2013-09-11T10:51:24 Muffi
        Mit explizitem return ja :)
        
        OK, einverstanden.
        Allerdings habe ich mir return - wenn es eh am Ende steht - komplett abgewöhnt. Macht den Code irgendwie schöner.
        10 print "Hallo"
        20 goto 10
        
        Muffi
        
        2013-09-12 09:06
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Ich benutz das auch mal für 1-zeiler-subs. Ansonsten nicht.
        Ich mag Dinge nicht so wirklich, wo man durch kleine Änderungen plötzlich böse auf die Nase fällt.
        
        Hättest du gewusst, wo 3 rauskommt?
        
        Hier?
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        sub foo { if (1) { $x = 3; } } say foo();
        
        und/oder hier?
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        sub foo { for (1..10) { $x = 3; } } say foo();
        
        Last edited: 2013-09-12 09:14:45 +0200 (CEST)
        1 + 1 = 10
        
        GwenDragon
        
        2013-09-12 09:54
        
        User since
        2005-01-17
        14762 Artikel
        Admin1
        
        Wenn du die Fallen kannst, kannst dus ja machen.
        
        Aber ein echtes return tut niemand weh und lässt später auch andere den Code besser lesen.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        bianca
        
        2013-09-12 10:10
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Muss dazu sagen, dass ich die Rückgabe nie unspezifiziert lasse.
        Soll heißen, ich lasse return nur dann weg, wenn am Ende der sub z.B. ein String wie "foo bar" steht, wenn ich also sicher bin, was zurück kommt.
        
        Beim Code von muffi ist die Rückgabe ja nicht durch den Code spezifiziert sondern höchstens durch interne Perl Regeln oder durch Väterchen Zufall :)
        
        Ihr habt aber Recht, return zu schreiben tut keinem weh.
        10 print "Hallo"
        20 goto 10
- GwenDragon
  
  2013-09-11 11:41
  User since
  2005-01-17
  14762 Artikel
  Admin1
  Prototypen sind nur dazu da, bestimmte Übergaben zu erzwingen.
  
  Code (perl): (dl )
  
  sub zeit(@_){
  
  ist aber falsch als Prototyp!
  Wenn du als Parameter ein Liste (wird dann als @ in die Klammer geschrieben) übergeben willst, muss das
  
  Code (perl): (dl )
  
  sub zeit(@){
  
  lauten.
  
  Wenn zum Beispiel der erste Parameter ein Skalar sein muss, weitere folgen dürfen und der zweite ein Skalar, der dritte ein Hash, lautet das dann so:
  
  Code (perl): (dl )
  
  sub zeit($;$%){
  
  Empfehlenswert dazu:
  $foo Magazin Winter 2012
  Perldoc prototypes
  http://perl-begin.org/tutorials/bad-elements/#prototypes
  Wofür sind Prototypen in Perl dann da?
  prototypen und objekte in perl: verständnisfrage
  Last edited: 2013-09-11 11:49:40 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +7 replies
- tejste
  
  2013-09-11 11:52
  
  User since
  2012-11-15
  21 Artikel
  BenutzerIn
  
  Was für ein tolles Forum. Sorry wegen meiner Fragen; ich will es halt verstehen und nicht nur fertigen Code irgendwo reinpasten.
  
  Klappt wunderbar und auch für die sonstigen Tipps vielen Dank.
  - +6 replies
  - GwenDragon
    
    2013-09-11 12:13
    
    User since
    2005-01-17
    14762 Artikel
    Admin1
    
    2013-09-11T09:52:03 tejste
    Was für ein tolles Forum. Sorry wegen meiner Fragen; ich will es halt verstehen und nicht nur fertigen Code irgendwo reinpasten.
    Wies entschuldigst du dich denn? Musst du nicht.
    Das Forum ist dazu da zu helfen udn damit Leute Perl besser (kennen) lernen.
    
    Nur zu frag, wenn du was nicht weißt.
    
    Ich denke manchmal, meine Erklrärungen sind nicht so ganz verständlich. Ich bin pädagogisch nicht so fit. ;)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - tejste
      
      2013-09-12 15:02
      
      Subtree with 5 replies: PAR exe erzeugen mit Modul im eigenen Ordner
      
      User since
      2012-11-15
      21 Artikel
      BenutzerIn
      
      Alles klar vielen Dank.
      
      Ich habe die Subroutinen nun in ein eigenes Modul ausgelagert.
      
      Anschliesend habe ich mit PAR noch eine Exe Datei generiert. Dabei ist mir noch folgendes aufgefallen: wenn man das Modul in einen eigenen Folder auslagert und diesen aufruft, funktionert das Perl Skript an sich ohne Probleme. Wenn man ein Exe mit PAR baut mach der eigene Ordner Probleme. Man kann das Exe zwar bauen (sogar ohne Fehler) aber es läuft nicht(läuft an und beendet sich ohne Rückmeldung). Wenn man das Modul aber in die @INC Ordner packt, und dann eine Exe generiert, dann läuft auch die generierte Exe Datei fehlerfrei durch. Scheinbar nimmt das PAR nur die @INC Ordner zum Exe generieren her.
      
      modedit Editiert von GwenDragon: Subthread
      Last edited: 2013-09-12 16:25:06 +0200 (CEST)

View all threads created 2013-09-11 11:00.