zeilen ignorieren (gelöst) (Allgemeines zu Perl)

[thread]15736[/thread]

zeilen ignorieren [gelöst]

Leser: 46

Articles: hide open all | hide show old branches

Teilbäume:
Frage nach GUI (Entwicklung, Programm) (4 Artikel) 2011-07-18 20:17
zeilen ignorieren (29 Artikel) 2011-11-25 17:50

+30 replies
benji2010

2010-12-22 09:32

User since
2010-12-20
13 Artikel
BenutzerIn

Kann man den Quellcode noch so anpassen, dass er bei einer Zeile die
mit einem "(" beginnt einfach fortfährt( sprich sie einfach ignoriert) ?

Ich hätte das jetzt mit einer If Schleife gelöst, nur weiß ich nicht wie ich den ersten char im String auslese zum vergleichen...

mod-edit pq: teilbaum "zeilen ignorieren"
Last edited: 2011-01-08 17:29:39 +0100 (CET)
- +7 replies
- payx
  
  2010-12-22 09:51
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo benji2010,
  
  vorweg: Mit if wird keine Schleife definiert.
  
  Du kannst innerhalb Deiner while(my $line=<DATA>)-Schleife schreiben:
  
  Code (perl): (dl )
  
  next if $line =~ m/^"\("/;
  
  – falls wirklich die Zeichenfolge "(" gesucht wird, sonst halt die Quotes streichen.
  Wenn zuvor Einrückungen stehen können, müssen diese auch berücksichtigt werden:
  
  Code (perl): (dl )
  
  next if $line =~ m/^\s*\(/;
  
  – hier mal ohne Quotes.
  
  Übrigens oben muss in Zeile 13 der Punkt noch escaped werden, sonst matcht er jedes Zeichen.
  
  HTH
  Grüße
  payx
  - +2 replies
  - Linuxer
    
    2010-12-22 09:55
    User since
    2006-01-27
    3870 Artikel
    HausmeisterIn
    
    2010-12-22T08:51:21 payx
    Übrigens oben muss in Zeile 13 der Punkt noch escaped werden, sonst matcht er jedes Zeichen.
    
    Nein, der Punkt steht in einer Zeichenklasse und steht daher für den Punkt.
    
    Test:
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    $ perl -wle '"abc" =~ m/^[a.c]+$/ && print "ja" ' $ $ perl -wle '"abc" =~ m/^[abc]+$/ && print "ja" ' ja $
    
    Last edited: 2011-11-23 13:31:48 +0100 (CET)
    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!
    - payx
      
      2010-12-22 10:37
      
      User since
      2006-05-04
      564 Artikel
      BenutzerIn
      
      Hoppla, stimmt, danke für die Korrektur.
  - +4 replies
  - benji2010
    
    2010-12-22 09:58
    User since
    2010-12-20
    13 Artikel
    BenutzerIn
    
    ja danke das hilft mir schon...allerdings bezieht sich die Frage auf diesen Quellcode:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
    
    #!/usr/bin/perl -p use strict; use warnings; use vars qw(%var); while ( /([A-Z][0-9]*)=(\S+)/g ) { my( $id, $val, $pos ) = ( $1, $2, pos ); my $len = length $val; (my $tmp_val = $val) =~ s/([A-Z][0-9]*)/$var{$1}||''/ge; if ( $tmp_val =~ /^[\d\*\/\+\-]+$/ ) { $tmp_val = eval $tmp_val; $var{$id} = $val = $tmp_val unless $@; } substr $_, $pos - $len, $len, $val; pos = $pos - $len + length $val; }
    
    beschreibt allerdings dasselbe Problem....
    - +3 replies
    - topeg
      
      2010-12-22 10:11
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Es get um die Prüfung, ob der String berechnet werden soll:
      Zeile 13:
      
      Code (perl): (dl )
      
      if ( $tmp_val =~ /^[\d\*\/\+\-.]+$/ && $tmp_val !~/^$/) {
      
      oder
      Zeile 13:
      
      Code (perl): (dl )
      
      if ( $tmp_val =~ /^[\d\*\/\+\-\($.]+$/ && index($tmp_val,'(')!=0) {
      
      oder
      Zeile 13:
      
      Code (perl): (dl )
      
      if ( $tmp_val =~ /^[\d\*\/\+\-.]+$/ && substr($tmp_val,0,1) ne '(') {
      - benji2010
        
        2010-12-22 10:47
        
        User since
        2010-12-20
        13 Artikel
        BenutzerIn
        
        Vielen Dank...Problem gelöst + verstanden...
      - MatthiasW
        
        2010-12-22 19:45
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        Hier würde jede Zuweisungen wegfallen deren rechte Seite mit einer öffnenden Klammer beginnt.
        
        Um alle Zeilen rauszufiltern, welche mit einer öffnenden Klammer beginnen, kann man unter den use-Statements folgendes einfügen: next if /^\(/; (In der Shebang habe ich -p angegeben.)
        
        Bei der Zeichenklasse war ich mir nicht sicher, deshalb habe ich einfach alles escaped ;) (Und nicht an Dezimalzahlen gedacht..) Man kann sie aber auch so schreiben: $tmp_val =~ m{^[()\d.*/+-]+$} (clms hat diesen regex ja auch schon gepostet msg #143720)
        
        edit: Klammern im regex vergessen...
        
        MfG
        Last edited: 2010-12-23 11:41:12 +0100 (CET)
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
- +13 replies
- Linuxer
  
  2010-12-22 10:04
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  2010-12-22T08:32:46 benji2010
  ...nur weiß ich nicht wie ich den ersten char im String auslese zum vergleichen...
  
  Neben der Regex-Variante, die payx aufgezeigt hat, kannst Du auch substr() verwenden, um einen Teilstring oder ein einzelnes Zeichen herauszuholen.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  while ( /([A-Z][0-9]*)=(\S+)/g ) { # Wenn erstes Zeichen eine '(' ist, if ( substr($_,0,1) eq '(' ) { # springe zur naechsten Zeile next; } # hier folgt dann der andere Code }
  
  http://perldoc.perl.org/functions/substr.html
  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!
  - +12 replies
  - benji2010
    
    2011-01-03 15:44
    User since
    2010-12-20
    13 Artikel
    BenutzerIn
    
    Erstmal ein gesundes neues Jahr allen hier im Forum...
    
    Ich Danke euch für die bis dato tatkräftige Hilfe..
    
    Ein Punkt ist leider noch offen.Hier mal der derzeitige Code:
    
    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
    
    #!/usr/bin/perl -p use strict; use warnings; use vars qw(%var); while ( /([A-Z][0-9]*)=(\S+)/g ) { if ( substr($_,0,1) eq '(' ) { next; my( $id, $val, $pos ) = ( $1, $2, pos ); my $len = length $val; (my $tmp_val = $val) =~ s/([A-Z][0-9]*)/$var{$1}||''/ge; if ( $tmp_val =~ /^[\d\*\/\+\-.]+$/ ) { $tmp_val = eval $tmp_val; $var{$id} = $val = $tmp_val unless $@; } substr $_, $pos - $len, $len, $val; pos = $pos - $len + length $val; }
    
    Während dem Einlesen kommen in manchen Zeilen solche Strings vor:
    
    Quote
    T600250
    T801260
    N230 T306520
    
    Ich möchte gerne bei jedem Vorkommen die fünfte und sechste Stelle des T-Strings, in dem Parameter R10 speichern.
    
    Für die erste Zeile hieße dies:
    
    Quote
    R10=25
    
    zweite:
    
    Quote
    R10=26
    
    und die dritte:
    
    Quote
    R10=52
    
    der R10-Parameter soll immer überschrieben werden...
    
    Falls ein R10 dann in der Berechnung vorkommt, soll der aktuelle Wert eingesetzt werden. Als Beispiel:
    
    Code: (dl )
    
    1 2 3 4 5
    
    N3200 M66 ; T600280 N3220 ROTH(45); N3290 Y=(700/2)+10+R10 N3340 YFREI N3350 ZNOUD
    
    In Zeile N3200 wir R10=28 und in Zeile N3290 soll bei R10 auch 28 verrechnet werden...
    
    Hoffe ich konnte es verständlich erklären, bei Rückfragen bitte Bescheid geben...
    Wie kann man das am Besten in dem bestehenden Programm umsetzen...
    Tut mir leid für die Kopfnuss gleich am Jahresanfang.. :-)
    - +11 replies
    - MatthiasW
      
      2011-01-03 16:03
      
      User since
      2008-01-27
      367 Artikel
      BenutzerIn
      
      benji2010
      Hier mal der derzeitige Code:
      ...
      
      Ich glaube nicht, dass dies dein derzeitiger Code ist ;) Selbst wenn man die fehlende Klammer ergänzt tut er sicherlich nicht das, was du erwartest: Das Überspringen der mit öffnender Klammer beginnenden Zeilen funktioniert so nämlich nicht. (Ist wahrscheinlich untergegangen: msg #143787)
      
      Was die /T\d+/ Ausdrücke anbelangt, könntest du eine Alternative in den regulären Ausdruck einbauen und entsprechend behandeln:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10
      
      while ( /([A-Z][0-9]*)=(\S+)|T\d{3}(\d\d)\d/g ) { my( $id, $val, $t_expr, $pos ) = ( $1, $2, $3, pos ); if ( defined $t_expr ) { $var{'R10'} = $t_expr; next; } # restlicher Code... }
      
      (nicht getestet!)
      
      MfG
      perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
      - +10 replies
      - benji2010
        
        2011-01-04 07:26
        
        User since
        2010-12-20
        13 Artikel
        BenutzerIn
        
        Hallo Matthias,
        
        ja du hast Recht, die Klammer fehlt...aber der Code funktioniert so wie ich es möchte.
        
        Input:
        
        Quote
        R11=50
        (R3=4
        R1=5
        X=R11+R1
        X=R3
        
        Output:
        
        Quote
        R11=50
        (R3=4
        R1=5
        X=55
        X=R3
        
        Und das mit dem folgenden Code:
        
        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
        
        #!/usr/bin/perl -p use strict; use warnings; use vars qw(%var); while ( /([A-Z][0-9]*)=(\S+)/g ) { if ( substr($_,0,1) eq '(' ) { next; } my( $id, $val, $pos ) = ( $1, $2, pos ); my $len = length $val; (my $tmp_val = $val) =~ s/([A-Z][0-9]*)/$var{$1}||''/ge; if ( $tmp_val =~ /^[\d\*\/\+\-.]+$/ ) { $tmp_val = eval $tmp_val; $var{$id} = $val = $tmp_val unless $@; } substr $_, $pos - $len, $len, $val; pos = $pos - $len + length $val; }
        
        Die T-Ausdrücke habe ich auch eingebaut, allerdings bekomme ich hier keine Ausgabe mehr. Der Fehler ist mir aber nicht ersichtlich.
        
        Hier der Code, mit deinem Vorschlag:
        
        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 29 30 31
        
        #!/usr/bin/perl -p use strict; use warnings; use vars qw(%var); while ( /([A-Z][0-9]*)=(\S+)|T\d{3}(\d\d)\d/g ) { my( $id, $val, $t_expr, $pos ) = ( $1, $2, $3, pos ); if ( defined $t_expr ) { $var{'R10'} = $t_expr; next; } while ( /([A-Z][0-9]*)=(\S+)/g ) { if ( substr($_,0,1) eq '(' ) { next; } my( $id, $val, $pos ) = ( $1, $2, pos ); my $len = length $val; (my $tmp_val = $val) =~ s/([A-Z][0-9]*)/$var{$1}||''/ge; if ( $tmp_val =~ /^[\d\*\/\+\-.]+$/ ) { $tmp_val = eval $tmp_val; $var{$id} = $val = $tmp_val unless $@; } substr $_, $pos - $len, $len, $val; pos = $pos - $len + length $val; }
        
        +9 replies
        
        Gast wer
        
        2011-01-04 10:37
        
        Also denken solltest du schon selber:
        
        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 29 30
        
        #!/usr/bin/perl -p use strict; use warnings; use vars qw(%var); while ( /([A-Z][0-9]*)=(\S+)|T\d{3}(\d\d)\d/g ) { my( $id, $val, $t_expr, $pos ) = ( $1, $2, $3, pos ); if ( defined $t_expr ) { $var{'R10'} = $t_expr; next; } if ( substr($_,0,1) eq '(' ) { next; } my $len = length $val; (my $tmp_val = $val) =~ s/([A-Z][0-9]*)/$var{$1}||''/ge; if ( $tmp_val =~ /^[\d\*\/\+\-.]+$/ ) { $tmp_val = eval $tmp_val; $var{$id} = $val = $tmp_val unless $@; } substr $_, $pos - $len, $len, $val; pos = $pos - $len + length $val; }
        
        Zweimal "while" macht doch keinen Sinn...
        Die schleife sollte doch auch geschlossen werden...
        Und es ist UNMÖGLICH dass der der Code ohne saubere Klammerung funktioniert wie er soll!
        Last edited: 2011-01-04 10:41:50 +0100 (CET)
        
        +8 replies
        
        benji2010
        
        2011-01-04 11:55
        
        User since
        2010-12-20
        13 Artikel
        BenutzerIn
        
        du hast Recht...da habe ich nicht überlegt... :-(
        
        Allerdings komme ich auch durch Grübeln und mit meinen geringen Perl-Fähigkeiten nicht zu der Erkenntnis, warum er nur die sechste Stelle (3)wiedergibt und die siebte Stelle (2) nicht.
        
        Input
        
        Code: (dl )
        
        1 2
        
        T7020320 X=R10
        
        Output
        
        Code: (dl )
        
        1 2
        
        T7020320 X=3
        
        +7 replies
        
        Gast wer
        
        2011-01-04 12:17
        
        Du hast vor der gesuchten Zahl vier Zahlen nicht drei. Es sollte wohl so lauten:
        
        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 29 30
        
        #!/usr/bin/perl -p use strict; use warnings; use vars qw(%var); while ( /([A-Z][0-9]*)=(\S+)|T\d{3,4}(\d\d)\d\D/g ) { my( $id, $val, $t_expr, $pos ) = ( $1, $2, $3, pos ); if ( defined $t_expr ) { $var{'R10'} = $t_expr; next; } if ( substr($_,0,1) eq '(' ) { next; } my $len = length $val; (my $tmp_val = $val) =~ s/([A-Z][0-9]*)/$var{$1}||''/ge; if ( $tmp_val =~ /^[\d\*\/\+\-.]+$/ ) { $tmp_val = eval $tmp_val; $var{$id} = $val = $tmp_val unless $@; } substr $_, $pos - $len, $len, $val; pos = $pos - $len + length $val; }
        
        Das nimmt die beiden Zahlen vor der letzten Zahl wenn vier oder mehr Zahlen hinter dem "T" kommen.
        Entspricht das dem was du willst?
        
        p.s: Askimet mag keine allein stehenden regulären Ausdrücke
        Last edited: 2011-01-04 12:19:13 +0100 (CET)
        
        +6 replies
        
        benji2010
        
        2011-01-04 15:10
        
        User since
        2010-12-20
        13 Artikel
        BenutzerIn
        
        ja genau das wars....Danke schön !!!!
        
        +5 replies
        
        MatthiasW
        
        2011-01-04 19:55
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        Ich muss mich korrigieren: Mein Postulat falscher Ergebnisse aufgrund der if-Bedingung zum Überspringen bestimmter Zeilen war Blödsinn. Der Code liefert richtige Ergebnisse, allerdings bin ich trotzdem nicht mit ihm zufrieden und möchte erläutern weshalb.
        
        Obwohl eine Veränderung hinsichtlich der Platzierung der Filterung von mit öffnender Klammer beginnenden Zeilen, die Resultate des Programmes nicht betrifft, schlage ich erneut eine Auswertung vor der while-Schleife vor.
        
        Von der Verwirrung, die ihre übertriebene Validierung - zahlenmäßig entsprechend der auftretenden Zuweisungen - verursacht abgesehen, genügt selbstverständlich die einmalige Eruierung einer öffnenden Klammer am Zeilenanfang dem Anspruch, in einem solchen Falle jegliche Bearbeitung auszulassen.
        Darüber hinaus kann dieser Eingriff als Akkommodation der logischen Bauteile an die semantische Ebene verstanden werden: entfernt man doch die Vorverarbeitung der Zeilen, im Gegensatz zur eigentlichen Verarbeitung, um der Verständlichkeit halber, voneinander; wobei die vertikale wie auch die horizontale Anordnung (Zeilennummern und Einrückungstiefe) den Leser bei der Wahrnehmung beider Vorgänge als zwei unterschiedliche unterstützt.
        
        Allerdings mache ich mir keine Hoffnungen, dass diese Änderung noch einfließt, da du dir auch zuvor anscheinend keine besondere Mühe gegeben hast Änderungen einzubauen. Ich muss gestehen, mir wie eine Witzfigur vorgekommen zu sein, als ich die beiden while-Schleifen sah :-/
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
        
        +4 replies
        
        benji2010
        
        2011-01-05 12:31
        
        User since
        2010-12-20
        13 Artikel
        BenutzerIn
        
        Dies ist/soll natürlich nicht der Fall sein, dass Vorschläge die hier im Forum gegeben werden von mir ignoriert werden. Das ist auch nicht meine Absicht. Da der Code so funktioniert hat wie er sollte, sah ich erstmal keinen Handlungsbedarf.
        
        Aus den von Ihnen genannten Gründen wurde der Code nach dem Vorschlag angepasst. If-Anweisung vor der While Schleife. Danke hierbei für die detailierte Erklärung !
        
        Zu dem Thema mit der Witzfigur...Hier ist leider das altbekannte Problem, dass es schneller ist nachzufragen als mal selber nachzudenken. Hier liegt der Ball ganz klar auf meiner Seite, dieser Vorschlag war sinnlos und kostet den Leuten im Forum nur Zeit und Nerven.
        
        +3 replies
        
        benji2010
        
        2011-01-08 16:30
        
        User since
        2010-12-20
        13 Artikel
        BenutzerIn
        
        Wäre es auch möglich Winkelfunktionen abzufangen? Muss nicht umgesetzt werden, dient nur zum Verständnis für mich.
        
        Beispiel:
        
        Quote
        R53=10
        X=SIN(R53)+R53
        
        Könnte man ggf. so etwas auch im Quellcode abfangen?
        
        MFG Benjamin
        
        +2 replies
        
        topeg
        
        2011-01-08 16:48
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Das geht. Dazu musst du im Regulären Ausdruck der identifiziert ob es sich um einen berechenbaren String handelt die Worte (hier "SIN( ... )"), hinzufügen. Dann musst du im Script Funktionen schreiben, welche die entsprechenden Namen haben (z.B. sub SIN { ... }) und die gewünschte Funktionalität haben.
        Doch Vorsicht! sobald du zu komplex wirst besteht die Gefahr, dass man damit auch Schindluder treiben kann. Immerhin wird der gefundene String als perl (siehe "eval") interpretiert und erlaubt dadurch prinzipiell alles was auch in perl möglich ist.
        Es gibt zwar Module die eval zu beschränken, das ist aber schon etwas komplizierter zu handhaben.
        
        benji2010
        
        2011-01-08 16:55
        
        User since
        2010-12-20
        13 Artikel
        BenutzerIn
        
        Danke..Dies werde ich zum Verständnis mal umsetzen.
- +9 replies
- benji2010
  
  2011-07-15 06:48
  User since
  2010-12-20
  13 Artikel
  BenutzerIn
  Nochmals eine Frage zu dem gestelltem Thema...
  
  Folgende Zeile kommt neuerdings in dem Text-File vor:
  
  Quote
  M977(103,R79,20,300)
  
  Der Parameter in der Klammer wird nicht ersetzt.
  
  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 29 30 31 32
  
  #!/usr/bin/perl -p use strict; use warnings; use vars qw(%var); while ( /([A-Z][0-9]*)=(\S+)|T\d{3,4}(\d\d)\d\D/g ) { my( $id, $val, $t_expr, $pos ) = ( $1, $2, $3, pos ); if ( defined $t_expr ) { $var{'R10'} = $t_expr; next; } if ( substr($_,0,1) eq '(' ) { next; } my $len = length $val; (my $tmp_val = $val) =~ s/([A-Z][0-9]*)/$var{$1}||''/ge; if ( $tmp_val =~ /^[\d\*\/\+$\-\($.]+$/ ) { $tmp_val = eval $tmp_val; $var{$id} = $val = $tmp_val unless $@; } substr $_, $pos - $len, $len, $val; pos = $pos - $len + length $val; }
  
  Ich habe versucht die Klammer zu den erlaubten Zeichen hinzuzufügen (Zeile 25), allerdings ohne Erfolg. Kann mir jemand helfen ?
  - +8 replies
  - topeg
    
    2011-07-18 08:01
    User since
    2006-07-10
    2611 Artikel
    BenutzerIn
    
    Das musst du schon etwas anders machen.
    Bei while wird getestet ob etwas in der Art "A0=..." oder "T23555X" kommt. Wenn auch noch alle variablen, die in einer Klammer vorkommen heraus gefischt werden sollen, musst du den an der Stelle ändern nicht weiter unten.
    Ich fische nun zusätzlich alle Klammern heraus "(...)" und ersetze darin alle "Variablen" die gefunden werden.
    Versuch es mal ist ungetestet:
    
    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 29 30 31 32 33 34 35 36 37 38 39 40
    
    #!/usr/bin/perl -p use strict; use warnings; use vars qw(%var); while ( /([A-Z][0-9]*)=(\S+)|T\d{3,4}(\d\d)\d\D|([A-Z][0-9]*$)([^$]+\))/g ) { my( $id, $val, $t_expr, $kstart, $kbody, $pos ) = ( $1, $2, $3, $4, $5, pos ); if ( defined $t_expr ) { $var{'R10'} = $t_expr; next; } if( defined $kstart ) { my $len=length($kstart.$kbody); $kbody=~s/([A-Z][0-9]*)/$var{$1}||''/ge; substr $_, $pos - $len, $len, $kstart.$kbody; pos = $pos - $len + length $kstart.$kbody; next; } if ( substr($_,0,1) eq '(' ) { next; } my $len = length $val; (my $tmp_val = $val) =~ s/([A-Z][0-9]*)/$var{$1}||''/ge; if ( $tmp_val =~ /^[\d\*\/\+\-.]+$/ ) { $tmp_val = eval $tmp_val; $var{$id} = $val = $tmp_val unless $@; } substr $_, $pos - $len, $len, $val; pos = $pos - $len + length $val; }
    - +7 replies
    - Gast benji2010
      
      2011-07-18 14:36
      
      ahhh danke...das wusste ich nicht...
      
      Danke sehr...Funktioniert wie gewollt !!!!
      Last edited: 2011-07-18 14:39:54 +0200 (CEST)
      - +6 replies
      - Gast benji2010
        
        2011-11-23 10:21
        
        Hallo zusammen,
        
        wie immer muss der Code immer weiter optimiert werden.
        
        Ich habe jetzt innerhalb von Klammern auch noch Rechenoperationen z.B.
        
        Quote
        M13(Z,R90+30+R50,X,R40+500,Y,10)
        M13(Z,R30,X,R400+30,Y,10)
        
        Das der Quellcode die Parameter in den Klammern auflöst, dafür hat topeg zuletzt gesorgt. Jetzt werden aber zudem Rechenoperationen verlangt. Also der Parameter muss wieder gespeichert werden und in der Klammer verrechnet werden. Leider weiß ich nicht wo ich hier ansetzen könnte...
        
        Last edited: 2011-11-23 10:27:06 +0100 (CET)
        
        +5 replies
        
        topeg
        
        2011-11-23 12:33
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Allmählich kommt man an die Grenzen dieses Codes. Wenn es noch komplexer wird, ist es einfacher einen Besseren Parser/Interpreter zu schreiben.
        
        # ungetestet:
        
        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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
        
        #!/usr/bin/perl -p use strict; use warnings; use vars qw(%var); while ( /([A-Z][0-9]*)=(\S+)|T\d{3,4}(\d\d)\d\D|([A-Z][0-9]*$)([^$]+\))/g ) { my( $id, $val, $t_expr, $kstart, $kbody, $pos ) = ( $1, $2, $3, $4, $5, pos ); if ( defined $t_expr ) { $var{'R10'} = $t_expr; next; } if( defined $kstart ) { my $len=length($kstart.$kbody); # ')' am ende entfernen # $kbody an "," splitten # elemente bearbeiten # alles wieder zusammenfügen $kbody=~s/)$//; my @elements=split(/,/,$kbody); for my $elm (@elements); { $elm=~s/([A-Z][0-9]*)/$var{$1}||''/ge; if ( $elm =~ /^[\d\*\/\+\-.]+$/ ) { $elm = eval $elm; } } $kbody=join(',',@elements).")"; substr $_, $pos - $len, $len, $kstart.$kbody; pos = $pos - $len + length $kstart.$kbody; next; } if ( substr($_,0,1) eq '(' ) { next; } my $len = length $val; (my $tmp_val = $val) =~ s/([A-Z][0-9]*)/$var{$1}||''/ge; if ( $tmp_val =~ /^[\d\*\/\+\-.]+$/ ) { $tmp_val = eval $tmp_val; $var{$id} = $val = $tmp_val unless $@; } substr $_, $pos - $len, $len, $val; pos = $pos - $len + length $val; }
        
        +4 replies
        
        Gast benji2010
        
        2011-11-24 06:53
        
        Hallo topeg,
        
        danke für deine schnelle Antwort, habe es gestern Abend mal getestet, leider ohne Erfolg. Leider kommt es zu keiner Ausgabe. Habe aber den Fehler nicht lokalisieren können.
        
        Habe folgende Inputdatei genommen:
        
        Quote
        R1=15
        R4=20
        X=R1+R4
        Y=R1*R4
        M779(R4,R1,20)
        M13(R1+R4,10,R4-R1)
        
        Last edited: 2011-11-24 08:37:04 +0100 (CET)
        
        +3 replies
        
        topeg
        
        2011-11-24 12:57
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Zwei Tippfehler:
        Zeile 23 : statt $kbody=~s/)$//; ist richtig $kbody=~s/\)$//;
        Zeile 25 : for my $elm (@elements); Semikolon zu viel: for my $elm (@elements)
        Die Fehlermeldungen dazu sind aber recht Eindeutig.
        
        Korrigierter Code:more (13.2kb)
        
        +2 replies
        
        Gast benji2010
        
        2011-11-25 07:01
        
        danke topeg !!
        Last edited: 2011-11-25 07:18:41 +0100 (CET)
        
        GUIfreund
        
        2011-11-25 17:47
        
        User since
        2011-08-08
        559 Artikel
        BenutzerIn
        
        Es hat mich gereizt, mich ebenfalls an dem Problem zu versuchen. Allerdings stammt der Hauptteil der Diskussion aus einer Zeit, als ich noch nicht hier im Forum war. Da hatte ich einiges nachzuarbeiten.
        
        Ich habe mich bemüht, meine Regexe möglichst einfach zu halten. Je komplexer eine Regex ist, desto größer ist die Gefahr von falsch positiven oder falsch negativen Treffern. Als Dreingabe habe ich noch den Sinus eingebaut. Und Exponenten bei Gleitkommawerten (habe ich gebraucht für SIN(180)). Hier mein Resultat:more (18.8kb)
        
        Editiert von GUIfreund: More-Tag eingefügt.
        Last edited: 2011-11-25 17:50:41 +0100 (CET)
        Gruß
        GUIfreund

View all threads created 2010-12-13 12:04.