Thread String einlesen und nachfolgendes Wort ausgeben
(20 answers)
Opened by SCORRPiO at 2014-04-15 10:15
Also bei mir kommt da nicht "nichts" raus.
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 my $zeile = 'ioc0 phy 0 scsi_id 1 HITACHI HUS153014VLS300 A598, 136 GB, state ONLINE, flags OUT_OF_SYNC'; if($zeile =~ m/OUT_OF_SYNC/g){ my $ausgabe=$zeile; my ($phy) = $ausgabe =~ /phy\s(\w.+)/; my ($state) = $ausgabe =~ /state\s(\w.+)/; my ($flags) = $ausgabe =~ /flags\s(\w.+)/; printf "phy: $phy, state: $state, flags: $flags"; } Es ist zwar nicht das was rauskommen soll, aber leere Werte hab ich nicht. PS: Es gibt in Perl ein elsif 1 + 1 = 10
|