open(my $var,... vs open(IN,... (gelöst) (Allgemeines zu Perl)

[thread]17897[/thread]

open(my $var,... vs open(IN,... [gelöst]

Tags: perl5 open Ähnliche Threads

Leser: 25

Articles: hide open all | hide show old branches

+14 replies
Student87

2012-11-09 17:11

User since
2012-11-08
73 Artikel
BenutzerIn

In diesen beiden Links:

1) http://www.hidemail.de/blog/open-perl.shtml

2) http://perltraining.com.au/tips/2005-10-03.html

wird gesagt, dass mit <my> geoeffnete Dateien den Vorteil haben, dass sie beim Verlassen vom Block/Scope geschlossen werden. Aber welcher Block denn ?? Beim ersten Link ist das Beispiel:

'open (my $IN,'<'.$datei);'

Wo ist denn da ein Block? Wenn etwas mit Semi-colons abschliesst, dann gehoert der Befehl doch zum gesamten Perl-Skript und nicht zu einem Block? Bzw. der 'Scope' ist doch das gesamte Perlskript. Also wo ist jetzt der Vorteil vonwegen 'Schliesst automatisch bei Verlassen des Blocks' ? Es wuerde doch erst bei Beenden des Perlskriptes schliessen ?

modedit Editiert von GwenDragon: Titel gekürzt
Last edited: 2012-11-09 17:24:34 +0100 (CET)
- +8 replies
- pq
  
  2012-11-09 17:48
  User since
  2003-08-04
  12208 Artikel
  Admin1
  z.b. in einer subroutine.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  sub foo { ... open my $fh, '<', $path or die $!; ... # hier am ende wird $fh automatisch geschlossen }
  
  es ist einfach sauberer, lexikalische filehandles zu benutzen, auch wegen der üblichen vorteile von my-variablen. es hat auch keine nachteile.
  und das heisst nicht, dass man das close imer weglassen sollte. in den meisten fällen erübrigt sich das, aber ggfs. ist es doch nützlich, um anzuzeigen, dass der filehandle danach nicht mehr benutzt wird. (*)
  
  edit: und als lesestoff: http://perl-tutorial.org/
  da wird einem das von anfang an beigebracht.
  vieles, was du im netz so findest, ist nicht unbedingt das aktuellste und beste. lieber mal ein aktuelles tutorial komplett durcharbeiten.
  
  edit2: (*) das funktioniert so, weil die garbage collection von perl so arbeitet momentan. es wird erkannt, dass die variable nach abschluss der subroutine nicht mehr benutzt wird (es existiert dann keine referenz mehr darauf), und daher wird sie beim verlassen des blocks aufgeräumt.
  würde man die garbage collection umstellen, so dass nicht mehr garantiert ist, wann genau die variable aufgeräumt wird, müsste man selber besser darauf achten.
  Last edited: 2012-11-09 17:56:55 +0100 (CET)
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +7 replies
  - Student87
    
    2012-11-09 18:26
    
    User since
    2012-11-08
    73 Artikel
    BenutzerIn
    
    Jetzt sprichst du auch wieder vom Verlassen eines Blocks: Aber welcher Block denn ? Ich sehe da im Beispielcode keinen Block. Ein Block ist doch {} , oder versteh ich das falsch??
    
    Wenn ich einfach nur sage
    Open ();
    dann ist da doch kein Block, oder seh ich das falsch und Perl interpretiert irgendwas als Block?
    - Raubtier
      
      2012-11-09 18:31
      
      User since
      2012-05-04
      1076 Artikel
      BenutzerIn
      
      2012-11-09T17:26:33 Student87
      Jetzt sprichst du auch wieder vom Verlassen eines Blocks: Aber welcher Block denn ? Ich sehe da im Beispielcode keinen Block.
      
      Der Block beginnt in pqs Beispiel bei sub foo { und endet bei }. Ein Block ist von { bis }, das siehst du richtig. Der Block endet eben da, wo die nächste } kommt (sofern nicht irgendwo dazwischen wieder ein { war).
    - +5 replies
    - pq
      
      2012-11-09 18:32
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      eine subroutine ist ein block, eine schleife, ein do, oder ein ganz einfacher block:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
      
      sub foo { # block startet hier ... } # block endet hier for my $elem (@array) { # block startet hier ... } # block endet hier do { # block startet hier ... }; # block endet hier { # block startet hier ... } # block endet hier
      
      das ist jeweils ein gültigkeitsbereich für my-variablen, die dann ausserhalb der klammern {} nicht gültig sind.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +4 replies
      - Student87
        
        2012-11-09 19:18
        
        User since
        2012-11-08
        73 Artikel
        BenutzerIn
        
        Okay, ich glaube ich hatte es doch von Anfang an richtig verstanden. Nur gibt es in dem Beispiel-Code von Link 1 einfach keinen Block, obwohl er von einem spricht ...
        
        Noch was anderes, womit ich mich seit ner halben Stunde rumplage:
        
        Ich bekomme fuer
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        #!/usr/bin/perl open (IN, "<testfile"); @array = <IN>; close IN if ($array[0] == 23) { print "true\n" } else { print "not true\n" }
        
        und den testfile-Inhalt
        
        23
        3
        4
        67
        
        die Fehlermeldung
        
        syntax error at ./testing line 7, near ") {"
        
        Ich hab mir schon super viele Beispiel angeguckt und bin einfach total ratlos, was an dieser einfachen Syntax falsch sein soll ?
        
        GwenDragon
        
        2012-11-09 19:22
        
        User since
        2005-01-17
        14757 Artikel
        Admin1
        
        Das ; fehlt in der Zeile beim close.
        
        Aber es ist sinnvoller etwas aktuell zu programmieren und sich nicht so eine alte Perl-Syntax anzueignen.
        
        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 $in; open($in, "<", "testfile") or die "$in kann nicht geoeffnet werden: $!"; my @array = <$in>; close($in) or die "$in kann nicht geschlossen werden: $!";; if ($array[0] == 23) { print "Is 23\n" } else { print "Is nich 23\n" }
        
        Last edited: 2012-11-09 19:23:16 +0100 (CET)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        bianca
        
        2012-11-09 19:26
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2012-11-09T18:18:19 Student87
        Okay, ich glaube ich hatte es doch von Anfang an richtig verstanden. Nur gibt es in dem Beispiel-Code von Link 1 einfach keinen Block, obwohl er von einem spricht ...
        
        Er spricht ganz am Ende von Block und danach folgen keine Beispiele mehr. Der Code darüber hat mit Thema Block nichts zu tun. Er schreibt ja auch erst ganz unten als Zusatz, dass man mit my definieren kann. Das ist eigentlich kein Zusatz sondern sehr wichtig. Ansonsten ist strict kaum nutzbar würde ich sagen. Und ohne ist Perl wirklich nur halb genutzt.
        Bitte nimm dir nicht solche alten Seiten heran als Lernstoff.
        10 print "Hallo"
        20 goto 10
        
        GUIfreund
        
        2012-11-10 14:35
        
        User since
        2011-08-08
        559 Artikel
        BenutzerIn
        
        2012-11-09T18:18:19 Student87
        Nur gibt es in dem Beispiel-Code von Link 1 einfach keinen Block, obwohl er von einem spricht ...
        
        Das liegt daran, dass es bei mit my deklarierten Variablen nicht um Blöcke geht, sondern um einen Geltungsbereich. Der Geltungsbereich einer solchen Variablen ~~ist der innerste~~ endet mit dem innersten Block, in dem ihre Deklaration steht. Steht die Deklaration in keinem Block, so ~~ist~~ endet der Geltungsbereich mit der Datei.
        
        Nur der Vollständigkeit halber: Es gibt noch einen weiteren Geltungsbereich.
        Last edited: 2012-11-10 14:39:28 +0100 (CET)
        Gruß
        GUIfreund
- +5 replies
- Student87
  
  2012-11-10 15:18
  User since
  2012-11-08
  73 Artikel
  BenutzerIn
  Okay danke für den Hinweis - ich wußte nicht, dass ich da aufpassen muss, welches Tutorial ich mir raussuche. Ich dachte die haben sowieso alle den gleichen Inhalt. Dann werd ich mich mal an die Seite halten, die pq empfohlen hat!
  
  Ja Gwen, stimmt, das ; fehlte, allerdings war das nur ein repräsentativer Code, weil ich euch den richtigen Code nicht antun wollte (Ich find das immer schwer und lästig, anderer Leute Codes zu lesen). Das Problem ist, dass beim richtigen Code die Semi-Colons NICHT fehlen und ich trotzdem Fehlermeldungen bekomme. Ich habe alle Commands auf Semi-Colons überprüft, außer bei der If-Syntax - da brauch man keine, ODER? Ich hab die If's mal im Code (weiter unten) drin gelassen, falls da der Fehler liegt und ihr mir sagen könnt, dass das falsch ist.
  
  Ich hab den Code abgespeckt, so dass man das Grundgerüst erkennt, denn da müsste glaub ich mein Fehler liegen, den ich beim besten Willen nicht erkenne:
  
  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
  
  #!/usr/bin/perl command; while ($end_mb < 50000001) { commands; while (<PILEUP>) { commands; if ($start_kb <= $line_array[1] <= $end_kb) { commands; if ($line_array[2] eq "G" || $line_array[2] eq "C") {$gc_content++} } else { commands; if ($line_array[2] eq "G" || $line_array[2] eq "C") {$gc_content++} commands; } } commands; }
  
  Die Fehlermeldungen lauten ("line"-Werte angepasst an die abgespeckte Version des Codes):
  
  syntax error at ./1kb_intervals line 12, near "] <="
  syntax error at ./1kb_intervals line 15, near "] <="
  syntax error at ./1kb_intervals line 20, near "}"
  syntax error at ./1kb_intervals line 22, near "}"
  - +3 replies
  - FIFO
    
    2012-11-10 15:42
    User since
    2005-06-01
    469 Artikel
    BenutzerIn
    
    Zeile 12:
    
    Code: (dl )
    
    1 2
    
    if ($start_kb <= $line_array[1] and $line_array[1] <= $end_kb) { ^^^
    
    (Verkettete Vergleichsoperationen als Intervall-Test funktionieren nicht)
    Last edited: 2012-11-10 15:45:03 +0100 (CET)
    Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
    - +2 replies
    - Student87
      
      2012-11-10 16:25
      
      User since
      2012-11-08
      73 Artikel
      BenutzerIn
      
      Ahhhh okay DANKE!
      
      Gwen meinte ja, ich solle mir nicht so eine alte Syntax aneignen. Er hat das Filehandle VOR dem open-command als Variable beim System angemeldet:
      {my $in; open($in, ...}
      
      Aber geht auch:
      {open (my $in, ...} ?
      
      Wäre das jetzt alte Syntax oder ist das reine Geschmackssache?
      - pq
        
        2012-11-10 18:01
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        man kann nicht immer sagen, was ältere syntax ist oder neuere. vieles ist auch geschmackssache.
        den filehandle vor dem open zu deklarieren, kann in wenigen fällen vielleicht nützlich sein, aber normalerweise ist es unnötig und IMHO nur mehr code.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - pq
    
    2012-11-10 18:04
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    2012-11-10T14:18:50 Student87
    Okay danke für den Hinweis - ich wußte nicht, dass ich da aufpassen muss, welches Tutorial ich mir raussuche. Ich dachte die haben sowieso alle den gleichen Inhalt.
    
    naja, es kommt ja immer drauf an, wer das tutorial geschrieben hat. ausserdem hat sich bei perl viel getan und seit einigen jahren wird sehr viel auf lesbarkeit geachtet. vieles im netz stammt aber noch von viel früher.
    daher gibts diese seite mit den tutorials. diese liste wird gepflegt und drauf geachtet, dass die enthaltenen tutorials bestimmte standards einhalten.
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2012-11-09 17:11.