String einlesen und nachfolgendes Wort ausgeben (gelöst) - #174776 (Allgemeines zu Perl)

FIFO

2014-04-15 11:05

User since
2005-06-01
469 Artikel
BenutzerIn

user image

Du musst den Punkt hinter \w weglassen, er matcht (fast) jedes Zeichen:

Code (perl): (dl )

use strict;
use warnings;

while ( my $zeile = <DATA> ) {
    if ( $zeile =~ /OUT_OF_SYNC/ ) {
        my $ausgabe = $zeile;                 # <--- Unnötig, verwende $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\n";
    }
}

__DATA__
ioc0 phy 0 scsi_id 1 HITACHI  HUS153014VLS300  A598, 136 GB, state ONLINE, flags OUT_OF_SYNC
ioc0 phy 2 scsi_id 1 HITACHI ST3300657SS-H A598, 136 GB, state ONLINE, flags OUT_OF_SYNC

Ausgabe:

Code: (dl )

1
2

phy: 0, state: ONLINE, flags: OUT_OF_SYNC
phy: 2, state: ONLINE, flags: OUT_OF_SYNC

Edit: Sinnfreien /g-Modifier entfernt.
Last edited: 2014-04-15 11:18:52 +0200 (CEST)

Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"