Zeilensprung in einer Ausgabe - #116372 (Allgemeines zu Perl)

Gast Gast

2008-11-18 18:23

so habe jetzt mein Script aufgeräumt, mache jetzt alles über GetOptions.

Leider bekomme ich mit deinem Quelltext keine Ausgabe.

Die Ausgabe sieht folgendermaßen aus:

SP Name: SP A
SP Port ID: 4
SP UID: 50:06:01:60:C1:E0:2B:7A:50:06:01:60:41:E0:2B:7A
Link Status: Up

Mein Quelltext:

Code (perl): (dl )

open (NAVI ,"$Ausgabe ");
  {     
    local $/ = "\n\n";  
          while(my $block = <NAVI> ){                     
                    next unless index($block,"SP Name:             SP". $SP) != -1  and
                    index($block,"SP Port ID:          ". $PORT) != -1;        
        my ($status) = $block =~ /^Link Status:\s+(\w+)/;
        print "Link status for SP $SP (Port $PORT): $status\n";        
    }
  }
  close(NAVI);

Die $Ausgabe ist vorhanden.
Der Fehler liegt irgendwo zeichen dem

Code (perl): (dl )

1
2
3

next unless index($block,"SP Name:             SP". $SP) != -1  and
index($block,"SP Port ID:          ". $PORT) != -1;        
my ($status) = $block =~ /^Link Status:\s+(\w+)/;

Wenn ich eine print "TEST" davor und danach mache bekomme ich das auch angezeigt, zwichen dem index nicht.

Liegt es an der Syntax bzw. an den Leerzeichen in der Ausgabe?
Gibt es eine andere Möglichkeit?

Gruß