strukturierung perl code (Allgemeines zu Perl)

[thread]14760[/thread]

strukturierung perl code

Readers: 20

Articles: hide open all | hide show old branches

+8 replies
cirruswolke

2010-03-03 11:43

User since
2010-03-01
5 articles
BenutzerIn

Hallo,

ich rufe in einem Perlcode mehrere verschiedene Teilaufgaben auf. Gibt es die Möglichkeit, diese Teilaufgaben aus zu lagern. Ich habs mit subroutinen versucht. Aber das funktioniert irgendwie nicht so gut.
Gibt es weitere Möglichkeiten?
- +7 replies
- pq
  
  2010-03-03 11:52
  
  User since
  2003-08-04
  12209 articles
  Admin1
  
  dass die subroutinen nicht funktionieren, liegt an dem fehler in zeile 42!
  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
  - +6 replies
  - guest wer
    
    2010-03-03 12:00
    
    Ich bin sicher es liegt am use strict; use warnings; Ohne das kann es ja nicht funktionieren.
    
    Was pq wohl meint:
    Mehr Informationen was mit subs nicht funktioniert!
    - pq
      
      2010-03-03 12:05
      
      User since
      2003-08-04
      12209 articles
      Admin1
      
      ganz genau. in unserer FAQ AllgemeinesWieFrageIchbeiPerlCommunity, die auch vor jedem Schreiben verlinkt ist, steht ein bisschen Info drin, was man bei einer Frage beachten sollte. "Funktioniert (irgendwie) nicht (so gut)" ist keine Fehlerbeschreibung, mit der hier irgendwer was anfangen kann.
      Ohne Code oder mehr Info kann da wirklich keiner helfen.
      
      Auch hilfreich ist es, zu sagen, an welche Doku man sich denn gehalten hat, z.b. perlsub
      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
    - cirruswolke
      
      2010-03-03 12:10
      
      User since
      2010-03-01
      5 articles
      BenutzerIn
      
      ich habe eine sub in der ich ein bissl parse:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8
      
      my $y; sub x{ open( IN, "<$file" ) or die "Konnte Input nicht oeffnen!\n"; while (<IN>) { if ($y=......)...... close(IN); } &x;
      
      dann gebe ich die einzelnen Parameter in Html aus:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7
      
      print '<html>'; print '<head>'; print '</head>'; print '<body>'; print '$y'; print '</body>'; print '</html>';
      
      Problem ist, dass $y nicht ausgeben wird, obwohl da was drin steht.
      ??
      
      Edit betterworld: Perl-Tags eingefügt
      Last edited: 2010-03-03 12:24:54 +0100 (CET)
      - guest wer
        
        2010-03-03 12:25
        
        Der Code ist ja geschrieben wie für perl2 wir sind mittlerweile bei perl5
        
        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 28
        
        use strict; use warnings; #... sub x{ my $file=shift; my $y=''; open( my $in, '<', $file ) or die "Konnte $file nicht oeffnen! ($!)\n"; while (<$in>) { if (......){ $y=.... } close($in); return $y; } #... my $y=x($file); print '<html>'; print '<head>'; print '</head>'; print '<body>'; print $y; #< nicht '$y' print '</body>'; print '</html>';
      - +2 replies
      - betterworld
        
        2010-03-03 12:32
        
        User since
        2003-08-21
        2614 articles
        ModeratorIn
        
        2010-03-03T11:10:01 cirruswolke
        
        Code (perl): (dl )
        
        1 2 3 4
        
        while (<IN>) { if ($y=......)...... close(IN); }
        
        Der Code ist ja ziemlich verstümmelt. Aber falls Du vorhast, $y mit etwas zu vergleichen, musst du "==" verwenden für numerische Vergleiche oder "eq" für String-Vergleiche. Ein einzelnes Gleichheitszeichen ändert den Inhalt von $y.
        
        Quote
        
        Code (perl): (dl )
        
        &x;
        
        Schreib lieber x();. So sollten Subroutinen immer aufgerufen werden. Ohne "&".
        
        Quote
        
        Code (perl): (dl )
        
        print '$y';
        
        Möchtest Du wirklich "$y", also in Worten, ein Dollarzeichen und ein Ypsilon ausgeben? Das passiert naemlich, wenn du '$y' in Quotes schreibst.
        
        Du könntest Dir mal überlegen, ob Du nicht ein Template-System benutzen möchtest.
        Lieblingsmodule: IPC::System::Simple, Path::Class
        
        pq
        
        2010-03-03 12:37
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        2010-03-03T11:32:29 betterworld
        Du könntest Dir mal überlegen, ob Du nicht ein Template-System benutzen möchtest.
        
        vielleicht aber auch einfach erstmal einen schwung perldocs lesen.
        
        ob er perlsub gelesen hat, möchte er ja offensichtlich nicht verraten.
        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 2010-03-03 11:43.