Hallo community,
ich arbeite mich gerade in Perl ein - und habe gleich ein Problem wo ich nicht weiterkomme vielleicht fällt euch was ein

es geht um eine Text-Datei mit folgendem Inhalt

------------------Status-------------------
info
 {
 created=1168583588
 version=2.4
 }
host
 {
 host_name=GATEWAY
 modified_attributes=0
 check_command=check-host-alive
 event_handler=
 has_been_checked=1
 should_be_scheduled=0
 check_execution_time=0.000
 check_latency=24.021
 check_type=1
 current_state=0
 last_hard_state=0
 plugin_output=OK - 10.1.0.1: rta 1.050ms, lost 0%
performance_data=rta=1.050ms;200.000;500.000;0;l=0%;40;80;;
 last_check=1168563486
 next_check=0
 current_attempt=1
 max_attempts=3
 state_type=1
 last_state_change=1165021008
 last_hard_state_change=1165021008
 last_time_up=1168563781
 last_time_down=1165073680
 last_time_unreachable=0
 last_notification=1165021008
 next_notification=1165049808
 no_more_notifications=0
 current_notification_number=0
 notifications_enabled=1
 problem_has_been_acknowledged=0
 acknowledgement_type=0
 active_checks_enabled=0
 passive_checks_enabled=1
 event_handler_enabled=1
 flap_detection_enabled=1
 failure_prediction_enabled=1
 process_performance_data=1
 obsess_over_host=0
 last_update=1168583588
 is_flapping=0
 percent_state_change=0.00
 scheduled_downtime_depth=0
 }
 
 service
 {
 host_name=GATEWAY
 service_description=PING
 modified_attributes=0
 check_command=check_ping!100.0,20%!500.0,60%
 event_handler=0
 has_been_checked=1
 should_be_scheduled=0
 check_execution_time=0.000
 check_latency=191.106
 check_type=1
 current_state=0
 last_hard_state=0
 current_attempt=1
 max_attempts=3
 state_type=1
 last_state_change=1165342089
 last_hard_state_change=1165020998
 last_time_ok=1168583465
 last_time_warning=1158388412
 last_time_unknown=0
 last_time_critical=1165392011
 plugin_output=OK - 10.1.0.1: rta 1.175ms, lost 0%
performance_data=rta=1.175ms;100.000;500.000;0;pl=0%;20;60;;
 last_check=1168583465
 next_check=0
 current_notification_number=0
 last_notification=0
 next_notification=0
 no_more_notifications=0
 notifications_enabled=1
 active_checks_enabled=0
 passive_checks_enabled=1
 event_handler_enabled=1
 problem_has_been_acknowledged=0
 acknowledgement_type=0
 flap_detection_enabled=1
 failure_prediction_enabled=1
 process_performance_data=1
 obsess_over_service=0
 last_update=1168583588
 is_flapping=0
 percent_state_change=0.00
 scheduled_downtime_depth=0
 }

...
-------------ENDE------------------

Nun geht es darum diese Datei auszulesen und die Daten zu bearbeiten das sie in folgen Format in eine neue Datei zu schreiben.

created;SERVICETYP;service_description;current_state;performance_data;host_name

created resultiert aus info created Sekunden seit 1970 diese müßte in das Format Tag/Monat/Jahr hh:min:sec

SERVICETYP ist eine Konstante

bei den anderen muß nur der Wert oder die Bezeichnung hinter dem "=" eingetragen werden

Viele viele Fragen aufeinmal.

Ich hoffe Ihr könnt mir helfen und/oder ein paar Ideen zur besten Umsetzung verraten

MfG

perl-anfaenger