Parameter in Loop übergeben (Allgemeines zu Perl)

[thread]19225[/thread]

Parameter in Loop übergeben

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+9 replies
cohama

2014-08-06 09:47
User since
2011-08-16
102 Artikel
BenutzerIn
Hallo zusammen,

ich habe im Moment das kleine Verständnisproblem, wie man einen Variable sauber in eine Schleife übergeben kann.
Wenn ich das Beispiel mittels "perl -wc script.pl" teste, erhalte ich stets die Informationen, dass die Variable $InputParamter mit my deklariert werden muss.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#!/usr/bin/perl -w ######################## # Modul Definition ######################### use strict; ########################## # Parameter Definition ######################### my($data,$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst); ########################## system("clear"); ########################## # Time-Calculation ########################## ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); $date =sprintf("%04d-%02d-%02d",$year+1900,$mon+1,$mday); ############################### my $InputParameter = 100; my $LoopParameter = "false"; while($LoopParameter =~ "false"){ $InputParameter--; if ($InputParameter <= 50){$LoopParameter = "true";} }
Last edited: 2014-08-06 11:50:15 +0200 (CEST)
- bianca
  
  2014-08-06 09:55
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Du hast einen Schreibfehler, unten hast du $InputParamter getippt, da fehlt ein e. Dass das viel kürzer ginge ist dir bewußt?
  10 print "Hallo"
  20 goto 10
- Raubtier
  
  2014-08-06 11:15
  User since
  2012-05-04
  1083 Artikel
  BenutzerIn
  2014-08-06T07:47:01 cohama
  
  Code (perl): (dl )
  
  1 2
  
  my $LoopParameter = "false"; while($LoopParamter =~ "false"){
  
  Zusätzlich zum Schreibfehler: was soll das? Strings sind immer sehr anfällig gegen Falschschreibung! Außerden ist ein Vergleich mit einem String ein erst zur Laufzeit interpretiertes Pattern. Aus perlop: "If the right argument is an expression rather than a search pattern, substitution, or transliteration, it is interpreted as a search pattern at run time. Note that this means that its contents will be interpolated twice".
  
  Wenn schon, dann vergleiche Strings mit "eq". Ansonsten schlage ich vor, einfach direkt die Bedingung mit dem $InputParameter in das while zu schreiben oder zumindest eine Variable mit den Werten 1/0 zu verwenden, sodass du while ($loopParameter) { ... } schreiben kannst.
- +6 replies
- cohama
  
  2014-08-06 11:51
  
  User since
  2011-08-16
  102 Artikel
  BenutzerIn
  
  Hallo,
  
  ich habe jetzt kurz meinen Übertragungsfehler bereinigt.
  Die Frage ist, wie bekommt man sauber einen Variable außerhalb einer Schleife auch in die Schleife?
  
  Bye
  - +3 replies
  - Raubtier
    
    2014-08-06 11:59
    User since
    2012-05-04
    1083 Artikel
    BenutzerIn
    
    Du sprichst in Rätseln. Was genau willst du wissen? Du benutzt doch schon eine Variable von außerhalb in der Loop.
    
    Code (perl): (dl )
    
    1 2 3 4
    
    my $variableVonAusserhalb = "was auch immer"; while (irgendeine Bedingung) { machWasMit($variableVonAusserhalb); }
    - +2 replies
    - cohama
      
      2014-08-06 12:02
      
      User since
      2011-08-16
      102 Artikel
      BenutzerIn
      
      Hallo Raubtier,
      
      ich erhalte stets vom "Debugger" die Informationen, dass die
      
      Code: (dl )
      
      $variableVonAusserhalb
      
      mit
      
      Code: (dl )
      
      my
      
      in der Loop deklariert werden muss.
      - Linuxer
        
        2014-08-06 12:03
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Mehr Details bitte.
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - Linuxer
    
    2014-08-06 12:03
    User since
    2006-01-27
    3891 Artikel
    HausmeisterIn
    
    Hast Du Deinen korrigierten Code mal ausprobiert?
    Der schaut doch gut aus?
    
    Ansonsten werde bitte konkreter. Es ist nicht wirklich nachvollziehbar, was Du meinst.
    
    Eine Alternative ohne diese $LoopParameter:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13
    
    #!/usr/bin/perl use strict; use warnings; my $InputParameter = 100; while( 1 ){ $InputParameter--; last if $InputParameter <= 50; } print "InputParameter: $InputParameter\n";
    
    EDIT: Überflüssigen Code aus Beispiel entfernt.
    Last edited: 2014-08-06 12:07:22 +0200 (CEST)
    meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
    Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - payx
    
    2014-08-06 12:08
    
    User since
    2006-05-04
    564 Artikel
    BenutzerIn
    
    Hallo cohama,
    
    eine außerhalb einer Schleife definierte Variable ist innerhalb der Schleife sichtbar und kann dort auch verändert werden. Die Stichwörter, anhand derer Du Dich weiterbilden solltest, sind "Scope" (oder "Scoping") und "Namensraum". Die Suchmaschinen bringen schöne Tutorials.
    
    Von den erheblichen Schwächen Deines Programms abgesehen, auf die Raubtier und bianca schon hingewiesen haben und einem weiteren Tippfehler bei $data vs. $date, funktioniert es prinzipiell.
    
    Wenn Du innerhalb der while-Schleife etwas wie print $InputParameter . ", "; einfügst, kannst Du dabei zusehen.
    
    Mehr als eine Fingerübung ist das Programm aber hoffentlich nicht.
    
    Ich finde es auch sehr merkwürdig, eine Variable "LoopParameter" zu nennen, und solange zu loopen, solange sie "false" ist und den loop abzubrechen, wenn sie "true" ist. Das grenzt schon an obfuscation :-)
    
    Grüße
    payx

View all threads created 2014-08-06 09:47.