use strict funktioniert nicht bei folgendem Programm (Allgemeines zu Perl)

[thread]15803[/thread]

use strict funktioniert nicht bei folgendem Programm

Leser: 21

Articles: hide open all | hide show old branches

Teilbaum:
& vor subroutinen-Aufruf (10 Artikel) 2011-01-06 15:24

+17 replies
Gast Byonik

2011-01-05 18:03
Hallo
warum funktioniert hier das use strict nicht?
Code (perl): (dl )

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

#!/usr/bin/perl -W use strict my @namen =qw(Fred Dino Sascha Julia Drache Amin); my $ergebnis = &welches_element_ist("Dino", @namen); sub welches_element_ist{ my ($was , @array) =@_;#das @_ kommt aus der Sub foreach (0..$#array){ if ($was eq $array[$_]) { # das $_ kommt aus der schleife return $_; } } -1; } $ergebnis+=1; print "'$ergebnis'\n";
Die Fehlermeldung:
Code: (dl )

1 2

Unknown 'strict' tag(s) 'Fred Dino Sascha Julia Drache Amin' at sub_return_operator.72.pl line 5 BEGIN failed--compilation aborted at sub_return_operator.72.pl line 5.
Kann man das qw bei my nicht anwenden?
Vielen Dank für eure Hilfe

Mit freundlichen Grüßen

Byonik
- Linuxer
  
  2011-01-05 18:04
  
  User since
  2006-01-27
  3875 Artikel
  HausmeisterIn
  
  Hinter strict fehlt ein Semikolon.
  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!
- +3 replies
- GwenDragon
  
  2011-01-05 18:17
  User since
  2005-01-17
  14554 Artikel
  Admin1
  Im Grunde genommen liest Perl das dann so:
  
  Code (perl): (dl )
  
  use strict my @namen =qw(Fred Dino Sascha Julia Drache Amin);
  
  Also kurz gesagt:
  
  Code (perl): (dl )
  
  use strict qw(Fred Dino Sascha Julia Drache Amin);
  
  Und das Modul strict kennt diese Tags nicht wie es ja anmeckert.
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +2 replies
  - Gast Byonik
    
    2011-01-05 18:34
    
    Ah danke
    
    Ist doch immer das gleiche am Ende ist es immer ein Semikolon :-).
    
    Dann kann es ja weiter gehen. Versuche mir gerade richtig perl anzueignen. Mit dem Buch 'Einführung in Perl' von O'reilly. Hatte mich mit der Sache schon vorher beschäftigt aber nie richtig.
    
    Mit freundlichen Grüßen
    Byonik
    Last edited: 2011-01-05 18:39:16 +0100 (CET)
    - bianca
      
      2011-01-05 18:44
      
      User since
      2009-09-13
      6978 Artikel
      BenutzerIn
      
      Damit Du Dich von vornherein nicht gleich wunderst: Unter bestimmten Voraussetzungen braucht man hinter dem letzten Statement innerhalb einer geschweiften Klammer kein Semikolon setzen.
      Falls Du das mal irgendwo siehst.
      Gewöhn es Dir aber am besten an, es trotzdem IMMER zu setzen, das erhöht auch die Wartbarkeit.
      10 print "Hallo"
      20 goto 10
- +12 replies
- pktm
  
  2011-01-05 20:17
  User since
  2003-08-07
  2921 Artikel
  BenutzerIn
  Ja, ganz nette Aufgabe.
  Das -W hat übrigens eine andere Bedeutung als das kleine -w, falls das ein Vertipper ist. Und das & brauchst du da auch nicht vor den Aufruf der Sub zu schreiben.
  
  Meins sieht jetzt so aus:
  
  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 24 25 26 27 28
  
  #!/usr/bin/perl use strict; use warnings; my @namen = qw(Fred Dino Sascha Julia Drache Amin); my $name = "Drache"; my $ergebnis = welches_element_ist($name, @namen); $ergebnis+=1; print "$name ist das $ergebnis-te Element in der Liste.\n"; # ------------------------------------------------------------------- # -- SUBS # ------------------------------------------------------------------- sub welches_element_ist { my ( $was , @array ) = @_; #das @_ kommt aus der Sub foreach( 0 .. $#array ) { if( $was eq $array[$_] ) { # das $_ kommt aus der Schleife return $_; } } return -1; } # /welches_element_ist
  
  http://www.intergastro-service.de (mein erstes CMS :) )
  - bianca
    
    2011-01-06 07:13
    
    Subtree with 11 replies: & vor subroutinen-Aufruf
    User since
    2009-09-13
    6978 Artikel
    BenutzerIn
    
    2011-01-05T19:17:28 pktm
    Und das & brauchst du da auch nicht vor den Aufruf der Sub zu schreiben.
    
    Soweit ich das hier im Forum gelernt habe trifft das nur zu, wenn die sub zum Aufrufzeitpunkt bekannt ist, siehe:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8
    
    #!/usr/bin/perl -w use strict; use warnings; sub testemaldiesub { print "Hallo Welt\n"; } testemaldiesub;
    
    Wenn Du in diesem Beispiel die sub unter den Aufruf setzt bekommst Du einen Fehler.
    Vielleicht liegt es auch an den fehlenden Klammern im Auruf, wollte nur damit sagen, dass das & nicht grundsätzlich immer und unter jedem Umstand weggelassen werden kann.
    
    mod-edit pq: teilbaum, da die diskussion nichts mehr mit der ursprünglichen frage zu tun hat
    Last edited: 2011-01-06 14:33:03 +0100 (CET)
    10 print "Hallo"
    20 goto 10

View all threads created 2011-01-05 18:03.