Inneres Konstrukt sinnlos? (Allgemeines zu Perl)

[thread]14811[/thread]

Inneres Konstrukt sinnlos?

Leser: 28

Articles: hide open all | hide show old branches

+11 replies
Corvin

2010-03-14 12:52
User since
2008-01-25
4 Artikel
BenutzerIn
Hallo,

ich arbeite gerade an einem Projekt und soll alten Perl-Code warten, was aber diese Routine macht ist mir nicht ganz klar, bzw. ich halte die zweite innere Schleife für sinnlos, da sie nichts ändert außer Zeit kostet:
Code: (dl )

1 2 3 4

foreach $token (@newtokens) { $token =~ s/\@\@\@\@ ~~~~/ /sig; foreach $tag (@tags) { $token =~ s/~~~~(\/*.*?)\@\@\@\@/<$1>/sig; } }
Nur zur Vollständigkeit: @tags ist ein Array mit HTML-Tags.

Oder sehe ich gerade den Wald vor lauter Bäumen nicht?

Gruß, Corvin
- bianca
  
  2010-03-14 13:33
  
  User since
  2009-09-13
  6979 Artikel
  BenutzerIn
  
  Ich find es gerade auch etwas merkwürdig.
  
  Wenn in der inneren Schleife wenigstens $tag verwendet würde, vielleicht. Aber so?
  
  Funktioniert denn alles wie gewünscht?
  Watt soll datt Dingens denn machen?
  10 print "Hallo"
  20 goto 10
- +6 replies
- lichtkind
  
  2010-03-14 14:22
  
  User since
  2004-03-22
  5681 Artikel
  ModeratorIn + EditorIn
  
  meinst du statt $1 nicht $_?
  
  da $1 ein gefundenes subpattern der anderen regex wäre schaute ich da nach und fand keine runde klammern? du willst ja in der innderen schleife nachsehen ob einer der tags da ist. und da kommt man halt auf den gedanken wie mein vorposter.
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - +2 replies
  - pq
    
    2010-03-14 15:38
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    also ich seh da runde klammern =)
    
    @Corvin: aber mit ein paar beispiel-daten wäre uns allen sicher geholfen, dann muss man nicht so im trüben fischen.
    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
    - lichtkind
      
      2010-03-14 16:05
      
      User since
      2004-03-22
      5681 Artikel
      ModeratorIn + EditorIn
      
      stimmt, in der eignen regex sind runde klammern, das meinte ich aber nicht. sieht so aus , als hat jemand versucht aus 2 scripten die er nicht versteht, eins zu machen.
      Tutorien in der Wiki, mein zeug:
      kephra, baumhaus, garten, gezwitscher
      
      Es beginnt immer mit einer Entscheidung.
  - +3 replies
  - Corvin
    
    2010-03-14 15:42
    User since
    2008-01-25
    4 Artikel
    BenutzerIn
    
    2010-03-14T12:33:39 bianca
    Ich find es gerade auch etwas merkwürdig.
    
    Wenn in der inneren Schleife wenigstens $tag verwendet würde, vielleicht. Aber so?
    
    Funktioniert denn alles wie gewünscht?
    Watt soll datt Dingens denn machen?
    
    Ja, es funktioniert, ist ein Script um Änderungen in HTML-Dateien anzuzeigen. Meine Vermutung ist, dass der Programmierer zuerst das über eine Schleife über das Array @tags probiert hat, dann den besseren regulären Ausdruck gefunden/implementiert hat, aber die innere Schleife nicht entfernt hat.
    
    2010-03-14T13:22:49 lichtkind
    meinst du statt $1 nicht $_?
    
    da $1 ein gefundenes subpattern der anderen regex wäre schaute ich da nach und fand keine runde klammern? du willst ja in der innderen schleife nachsehen ob einer der tags da ist. und da kommt man halt auf den gedanken wie mein vorposter.
    
    stimmt, ich habe testweise mal '$_' genommen, aber das gab wie zu erwarten nichts sinnvolles.
    
    Habe den Code jetzt so umgeschrieben und funktioniert weiterhin, nur schneller. :)
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
    
    ## ## 'Globale' Variablen ## 'cre': 'compiled regular expression' with qr//; our $nbsp = ' '; our $creUnmangleNbsp = qr#\@\@\@\@ ~~~~#sio; our $creMangledBrackets = qr#~~~~(\/*.*?)\@\@\@\@#sio; ## # in Funktion: foreach my $token ( @$refNewtokens ) { ## WAS: $token =~ s/\@\@\@\@ ~~~~/ /sig; $token =~ s/$creUnmangleNbsp/$nbsp/go; $token =~ s/$creMangledBrackets/<$1>/go; } ## end foreach
    - pq
      
      2010-03-14 15:52
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2010-03-14T14:42:28 Corvin
      stimmt, ich habe testweise mal '$_' genommen, aber das gab wie zu erwarten nichts sinnvolles.
      
      lichtkind hat ja auch die runden klammern übersehen =)
      die $1 hat da schon ihren sinn.
      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
    - bianca
      
      2010-03-14 16:21
      
      User since
      2009-09-13
      6979 Artikel
      BenutzerIn
      
      2010-03-14T14:42:28 Corvin
      Meine Vermutung ist, dass der Programmierer zuerst das über eine Schleife über das Array @tags probiert hat, dann den besseren regulären Ausdruck gefunden/implementiert hat, aber die innere Schleife nicht entfernt hat.
      
      Das war ganz exakt genau meine allererste Vermutung, als ich vorhin das erste mal drauf schaute.
      Bist also nicht allein mit dem Gedanken und wenn nach Deinem Umbau alles so läuft wie vorher dürfte das wirklich so gewesen sein.
      10 print "Hallo"
      20 goto 10
- +2 replies
- bianca
  
  2010-03-14 16:33
  User since
  2009-09-13
  6979 Artikel
  BenutzerIn
  Ich darf auch mal vermuten, dass in dem Script weder use strict; noch use warnings; zum Einsatz kommen.
  Und ein -w am Ende der Shebang-Zeile vollbringt auch schon erhellende Infos.
  
  Dann würdest Du nämlich schon etliches sehen, was nicht passt, was ich an dieser Stelle beim Aufarbeiten von Code GANZ DRINGEND empfehle!
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  #!/usr/bin/perl -w use strict; use warnings; my @newtokens; push @newtokens,'foo'; my @tags; push @tags,'bar'; foreach $token (@newtokens) { $token =~ s/\@\@\@\@ ~~~~/ /sig; foreach $tag (@tags) { $token =~ s/~~~~(\/*.*?)\@\@\@\@/<$1>/sig; } }
  
  Code: (dl )
  
  1 2 3 4 5
  
  Global symbol "$token" requires explicit package name at test14.pl line 8. Global symbol "$token" requires explicit package name at test14.pl line 9. Global symbol "$tag" requires explicit package name at test14.pl line 10. Global symbol "$token" requires explicit package name at test14.pl line 11. Execution of test14.pl aborted due to compilation errors.
  
  10 print "Hallo"
  20 goto 10
  - pq
    
    2010-03-14 19:15
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    der code in msg #134805 sieht mir so aus, als würde da strict verwendet, aber ist natürlich immer ein guter hinweis, daher noch der obligatorische link:
    use strict
    =)
    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
  
  2010-04-04 00:10
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  crosspost:
  http://www.perlunity.de/cgi-bin/forum/forum_thread...
  
  bitte lies unsere FAQ diesbezüglich.
  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-14 12:52.