Fehlermeldung wegen if Schleife (Allgemeines zu Perl)

[thread]20022[/thread]

Fehlermeldung wegen if Schleife

Tags: perl5 Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+9 replies
samuelk

2016-03-18 14:07
User since
2016-03-16
9 Artikel
BenutzerIn
Hallo

ich hab folgendes Problem:

ich habe ein Array @lines in welchem alle relevanten Lines einer xml Datei bereits gefiltert sind.

Nun komm öfters eine Syscondition vor, diese soll aber dann ignoeriert werden, wenn sie nicht nach einem DSM_MODIFY_FID oder DSM_FID_ADD kommt...
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13

for($i = 0; $i < @lines; $i++){ if($lines[$i+1] =~ /<SW-SYSCOND>/gi) { #if($lines[$i] =~ ! /DSM_MODIFY_FID/gi || $lines[$i] =~ ! /DSM_FID_ADD/gi) { #splice (@lines, $i,1,""); #} if($lines[$i] =~ /DSM_MODIFY_FID/gi) { print OUTPUT2 "$i DSM_MODIFY_FID\n";} elsif($lines[$i] =~ /DSM_FID_ADD/gi) { print OUTPUT2 "$i DSM_FID_ADD\n";} else {print OUTPUT2 "NICHTS VON ALLEM!!!!\n";} } }
Der auskommentierte Teil ist eigentlich mein Ansatz, ich habe dann aber versuch wenigstens die Abfrage zu testen.
Dabei printet er aber nur DSM_MODIFY_FID, was ich aber nicht verstehe, warum springt er nichteinmal in den else Zweig...?

Fehlermeldung in der Konsole:
Use of uninitialized value in pattern match (m//) at line 811
(diese hier:)for($i = 0; $i < @lines; $i++){

Ich weiß, wahrscheinlich ist es ein dummmmer fehler, aber ich hänge echt gerade -.-

Vielen Dank :)
- +3 replies
- MarkusH
  
  2016-03-18 14:20
  User since
  2012-04-08
  162 Artikel
  BenutzerIn
  Hi,
  
  welcher Zeile in dem Schnipsel entspricht denn Zeile 811 in der Fehlermeldung?
  
  Probier mal anstatt
  
  Code (perl): (dl )
  
  if($lines[$i] =~ ! /DSM_MODIFY_FID/gi || $lines[$i] =~ ! /DSM_FID_ADD/gi) {
  
  das
  
  Code (perl): (dl )
  
  if($lines[$i] !~ /DSM_MODIFY_FID/gi || $lines[$i] !~ /DSM_FID_ADD/gi) {
  
  $q =~ /(bb|[^b]{2})/
  - +2 replies
  - samuelk
    
    2016-03-18 14:22
    
    User since
    2016-03-16
    9 Artikel
    BenutzerIn
    
    die, die direkt darunter steht
    for($i = 0; $i < @lines; $i++){
    
    Das habe ich auch schon versucht, aber das ändert nicht.
    momentan versuche ich ja die normale if-Abfrage, weil ich da (eigentlich) sicher bin, dass da nichts schief gehen kann ^^
    - samuelk
      
      2016-03-18 14:37
      
      User since
      2016-03-16
      9 Artikel
      BenutzerIn
      
      Ah nee sorry.... Mein fehler...
      
      Es wurde eins verschoben.
      Es ist die nächste Zeile:
      
      Code: (dl )
      
      if($lines[$i+1] =~ /<SW-SYSCOND>/gi) {
- +4 replies
- samuelk
  
  2016-03-18 14:49
  
  User since
  2016-03-16
  9 Artikel
  BenutzerIn
  
  OK, ich hab den Fehler eingegrenzt....
  Er springt garnicht immer in die if Schleife: if($lines[$i+1] =~ /<SW-SYSCOND>/gi) {
  
  Gibt es probleme, wie ich $i+1 nutze?
  ich benutze so etwas schon mehrmals vorher, deshalb wundert es mich...
  - +2 replies
  - samuelk
    
    2016-03-18 15:00
    User since
    2016-03-16
    9 Artikel
    BenutzerIn
    
    ich verstehe garnichts mehr.... :/
    
    Ich habe den Code so verändert:
    
    Code: (dl )
    
    1 2 3 4
    
    for($i = 0; $i < @lines; $i++){ print"$lines[$i]"; if($lines[$i] =~ /(<SW-SYSCOND>.*<\/SW-SYSCOND>)/gi) { print"geklappt";
    
    $lines[1] ist:
    
    Code: (dl )
    
    <SW-SYSCOND>((<SW-SYSTEMCONST-CODED-REF>S1B1_SY</SW-SYSTEMCONST-CODED-REF> == 2) || (<SW-SYSTEMCONST-CODED-REF>S1B2_SY</SW-SYSTEMCONST-CODED-REF> == 2) || (<SW-SYSTEMCONST-CODED-REF>S2B1_SY</SW-SYSTEMCONST-CODED-REF> == 2) || (<SW-SYSTEMCONST-CODED-REF>S3B1_SY</SW-SYSTEMCONST-CODED-REF> == 2) ||<SW-SYSTEMCONST-CODED-REF>K1_SC</SW-SYSTEMCONST-CODED-REF>)</SW-SYSCOND>
    
    Aber trotzdem springt er nicht in die if Schleife...?!
    - Linuxer
      
      2016-03-18 15:52
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Hier klappt es...
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
      
      $ perl -Mstrict -w my @arr = ( 'bla', '<SW-SYSCOND>((<SW-SYSTEMCONST-CODED-REF>S1B1_SY</SW-SYSTEMCONST-CODED-REF> == 2) || (<SW-SYSTEMCONST-CODED-REF>S1B2_SY</SW-SYSTEMCONST-CODED-REF> == 2) || (<SW-SYSTEMCONST-CODED-REF>S2B1_SY</SW-SYSTEMCONST-CODED-REF> == 2) || (<SW-SYSTEMCONST-CODED-REF>S3B1_SY</SW-SYSTEMCONST-CODED-REF> == 2) ||<SW-SYSTEMCONST-CODED-REF>K1_SC</SW-SYSTEMCONST-CODED-REF>)</SW-SYSCOND>', ); for ( @arr ) { if ( m/(<SW-SYSCOND>.*<\/SW-SYSCOND>)/gi ) { print "yes\n"; } else { print "no\n"; } } ^D no yes
      
      Fehlen evtl. Zeilenumbrüche in Deiner Ausgabe, sodass Du Ausgaben übersehen hast?
      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!
  - Linuxer
    
    2016-03-18 15:46
    User since
    2006-01-27
    3891 Artikel
    HausmeisterIn
    
    2016-03-18T13:49:58 samuelk
    OK, ich hab den Fehler eingegrenzt....
    Er springt garnicht immer in die if Schleife: if($lines[$i+1] =~ /<SW-SYSCOND>/gi) {
    
    Gibt es probleme, wie ich $i+1 nutze?
    ich benutze so etwas schon mehrmals vorher, deshalb wundert es mich...
    
    $i soll gemäß Schleifenkopf < @liste sein.
    Damit ist $i beim letzten Schleifendurchlauf auf dem Wert des letzten Index deines Array @liste.
    
    Wenn Du dann auf $liste[$i+1] zugreifst, greifst Du auf einen nicht definierten Wert (letzter Index ist $i) zu und es kommt zur entsprechenden Warnung.
    
    Schema an einem Array mit 4 Elementen:
    
    Code: (dl )
    
    1 2 3 4
    
    array: ( a, b, c, d ) undef ^ ^ ^ ^ ^ index: 0 1 2 3 3+1 $i+1
    
    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!
- Muffi
  
  2016-03-18 15:47
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  In der Zeile, die du schreibst ist kein Pattern match.
  Aber eine darunter.
  Und da klingeln auch schon die Alarmglocken, wenn ich $i+1 seh.
  Guck, du rennst mit $i ALLE! Indexe des Arrays durch. Und zum Schluss hast du natürlich den Letzten! Und zu dem zählst du eins dazu und versuchst auf das Element zuzugreifen.
  Und dann greifst du ins Leere. Was bei Perl nicht so tragisch ist erstmal, denn Perl liefert dann einfach undef. Und in diesem undef versuchst du einen string zu finden. Und da kommt dann die warning
  Last edited: 2016-03-18 15:49:16 +0100 (CET)
  1 + 1 = 10

View all threads created 2016-03-18 14:07.