Arrayvariable explizit initialisieren? (Allgemeines zu Perl)

[thread]19231[/thread]

Arrayvariable explizit initialisieren?

Tags: perl5 Subroutinen Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+6 replies
amos

2014-08-07 14:54
User since
2014-08-07
9 Artikel
BenutzerIn
Kann mir jemand sagen warum folgende Funktion nur dann zuverlässig funktioniert wenn ich statt my @hiera; my @hiera=(); verwende?
Ich dachte, man muss mit perl-5.16 eine Arrayvariable nicht bei jedem Aufruf explizit initialisieren, wenn man die Arrayvariable am Programmanfang deklariert.
Es sieht so aus, dass der Wert dieser lokalen Variable bis zum nächsten Aufruf erhalten bleibt.
Code (perl): (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

#!/opt/third-party-apps/perl-5.16/bin/perl sub get_hier { my $node_file = $_[0]; my $search = $_[1]; my $path; my $subpath; my $gid; my @s; @ps; @hiera=(); open(F,"$node_file"); my @nodes = <F>; close F; foreach(@nodes) { chomp; @s = split("\\^"); $gid = @s[0]; if ( /$search/ ){ $path = @s[1]; } } @ps=split("~",$path); shift @ps; foreach (@ps) { $subpath = $subpath . "~$_"; foreach(@nodes) { chomp; @s = split("\\^"); if ( $subpath eq @s[1] ) {$s[0] =~ m/GID_(.+)_/; $gid = $1;} } push(@hiera,$gid); } return \@hiera; }
modedit Editiert von GwenDragon: Code bitte in zuküftig [Perl] Tags!
Siehe auch /bat/poard/markup_help/
Last edited: 2014-08-07 15:08:55 +0200 (CEST)
- +3 replies
- murphy
  
  2014-08-07 15:01
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  2014-08-07T12:54:31 amos
  Kann mir jemand sagen warum folgende Funktion nur dann zuverlässig funktioniert wenn ich statt my @hiera; my @hiera=(); verwende?
  [...]
  
  Code (perl): (dl )
  
  my @s; @ps; @hiera=();
  
  [...]
  
  Die Antwort ist ganz einfach, weil die Variable überhaupt nicht my my deklariert, sondern im globalen Namensraum angelegt wurde, wie man an der relevanten Codezeile sieht. ; schließt ein Statement ab, wenn danach ein weiterer Variablenname steht, hat der mit dem my im Statement davor nichts mehr zu tun.
  
  An dieser Stelle ist dann wohl der obligatorische Hinweis angebracht, dass das mit use strict nicht passiert wäre :-)
  
  Übrigens: Man kann hier im Forum Code in Codetags setzen, dann wird er nicht von der Fließtextanzeige des Browsers zu Spaghetti verarbeitet ;-)
  When C++ is your hammer, every problem looks like your thumb.
  - +2 replies
  - amos
    
    2014-08-07 15:14
    
    User since
    2014-08-07
    9 Artikel
    BenutzerIn
    
    Vielen Dank murphy!
    Du siehst das nach einer Minute
    ...und ich Knallkopf habe 4 Stunden den Fehler gesucht :-(
    lg amos
    - Muffi
      
      2014-08-07 15:33
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Setz "use strict;" und "use warnings;" drüber, dann schlägst du die Minute ;)
      1 + 1 = 10
- GwenDragon
  
  2014-08-07 15:32
  
  User since
  2005-01-17
  14533 Artikel
  Admin1
  
  use strict; use warnings; hätte dir Suchen erspart ;)
  
  Oder mal zum Testen deines Codes:
  T:\>perl -cw t.pl Scalar value @s[0] better written as $s[0] at t.pl line 14. Scalar value @s[1] better written as $s[1] at t.pl line 15. Scalar value @s[1] better written as $s[1] at t.pl line 24. Global symbol "@ps" requires explicit package name at t.pl line 8. Global symbol "@hiera" requires explicit package name at t.pl line 8. Global symbol "@ps" requires explicit package name at t.pl line 17. Global symbol "@ps" requires explicit package name at t.pl line 18. Global symbol "@ps" requires explicit package name at t.pl line 19. Global symbol "@hiera" requires explicit package name at t.pl line 26. Global symbol "@hiera" requires explicit package name at t.pl line 28. t.pl had compilation errors. T:\>
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- Raubtier
  
  2014-08-07 15:34
  
  User since
  2012-05-04
  1054 Artikel
  BenutzerIn
  
  Die Lösung hast du ja schon.
  
  Ich möchte dich aber auch noch darauf hinweisen, dass du "use warnings" benutzten solltest (use strict sowieso).
  
  Dann wäre dir auch noch aufgefallen:
  - dass bei my @s; @ps; @hiera=(); das Kommando @ps nutzlos ist
  - dass eine Zuweisung $gid = @s[0]; besser als $gid = $s[0]; geschrieben werden sollte (an mehreren Stellen verwendest du ein Array-Slice statt ein Array-Element!)
  - und vermutlich noch mehr
  
  Des weiteren: warum deklarierst du das @s nicht jeweils direkt in den for-loops? Das @s in der ersten Loop hat mit dem aus der zweiten ja mal rein gar nichts zu tun, es sollte also eine andere Variable sein (sie darf ruhig denselben Namen haben).

View all threads created 2014-08-07 14:54.