-F

[ocehb]

Есть файл типа

ERD_Sovetsk_22 Power: OK
ERD_Lenina_31 Power: PROBLEM
ERD_Svobody_1 Power: OK
Kommynist_33 is access: PROBLEM
ERD_Sovetsk_100 Power: PROBLEM
ERD_Partizan_98 Power: PROBLEM
Marksa_4 is access: PROBLEM
Revolucii_67 is access: PROBLEM
Marksa_4 is access: PROBLEM
Revolucii_67 is access: OK

Раскидать значения по статусу.


однострочник:

# perl -aF":\\s+" -lne 'push @{$a{$F[1]}}, $F[0];
  END{ print STDERR "PROBLEM: ", join ",", @{$a{PROBLEM}};
       print "OK: ", join ",", @{$a{OK}}; }' file

основную работу делает -aF":\\s+" и push, которые делят входящие строки и распихивают их по статусу в %a.


:)