Opened by Gast at 2008-11-18 14:19
Hi zusammen,
ich würde gerne eine Ausgabe durchsuchen und wenn erfolgreich direkt in in die nächste Zeile springen.
z.B.
jetzt gebe ich die Parameter $SP und $PORT beim Aufruf des Scriptes mit.
Jetzt werden mir aber alle Werte die in $status_link drin stehen angezeigt und nicht nur diese bei welden die Bedingungen
übereinstimmen. Oder muss mann das andres lösen?
Gruß und danke
ich würde gerne eine Ausgabe durchsuchen und wenn erfolgreich direkt in in die nächste Zeile springen.
z.B.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
open (NAVI ,"$Ausgabe ");
while (my $line = <NAVI>) {
if ($line =~ m/SPPORT/ ) {
$port_section = 1;
}
if($port_section == 1) {
next if($line =~ m/^SP\sName:\s+SP+\s+($SP)/);
next if($line =~ m/^SP\sPort\sID:\s+($PORT)/);
if($line =~ m/^Link\sStatus:\s+(\w+)/){
$status_link = $1; print"$status_link\n";
}
}
close (NAVICLIOUT);
jetzt gebe ich die Parameter $SP und $PORT beim Aufruf des Scriptes mit.
Jetzt werden mir aber alle Werte die in $status_link drin stehen angezeigt und nicht nur diese bei welden die Bedingungen
Code: (dl
)
1
2
next if($line =~ m/^SP\sName:\s+SP+\s+($SP)/);
next if($line =~ m/^SP\sPort\sID:\s+($PORT)/);
übereinstimmen. Oder muss mann das andres lösen?
Gruß und danke