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

Gast Gast

2008-11-18 15:46

also:

my $SP = $ARGV[6];
my $PORT = $ARGV[8];

Code (perl): (dl )

my $file = "/home/neu.txt";
  
open my $NAVI, "<", $file;
{       
    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: (\w+)/;
        print "Link status for SP $SP (Port $PORT): $status\n";
        print "blub\n";
    }
  }
  close ($NAVI);

ich habe zu testen mal ein

Code (perl): (dl )

print "blub";

gemacht.
Wird auch nicht ausgegeben.

Eine Frage zum index(), zwischen dem "SP Name: SP $SP" sind mehrere Leerzeichen nicht nur eins. Muss man diese berücksichtigen??

Danke und Grüße