Hallo,

I habe 2 Fragen, welche sich auf das Arbeiten mit Arrays beziehen.

1) Ich lese eine kleine Datei in ein Perl-Array ein. Anschliessend prüfe ich mit Hilfe einer for Schleife ob  bestimmte Zeilen die richtigen Werte enthalten.
Sollten Dabei Fehler in den entsprechenden Werten festgestellt werden, so werden diese Fehler in ein Array namens @error geschrieben. Angenommen Zeile 3 und 7 enthielten falsche Werte, so sieht das Errorarray folgendermassen aus:

Array
(
    [3] => Wert1
    [7] => Wert2
)

Jetzt will ich nachdem die Ueberprüfung komplet durchgeführt wurde folgendes: Sollten Fehler festgestellt werden so sollen diese in ein Logfile geschrieben werden und mein Perl-Skript soll keine weiteren Tätigkeiten ausführen. (also mit die() Enden)

Wie kann ich das mit dem "falls Fehler gefunden werden" realisieren? In PHP gibt es Funktionen wie is_array(). Somit kann ich dort abfragen, ob das Array @errors existiert, diese dann ausgeben und mit die() enden. In Perl kann ich eine solche funktion nicht finden.

2)Bei der Ausgabe des oben beschriebenen Error-Arrays mit den Einträgen 3 und 7 taucht beim Schreiben in das Logfile für die anderen Elemente immer ein Zeilenumbruch auf. Das Array durchlaufe ich mit einer foreach-Schleife. Also Elemnt 3 steht z.B in der 3ten Zeile des Logfiles. Vorher sind 2 leerzeilen.

Kann mir dabei jemand helfen?

Danke für Tipps\n\n

<!--EDIT|galaxy|1144916909-->

[quote=galaxy,13.04.2006, 10:27]Kann mir dabei jemand helfen?[/quote]
Zeig mal ein wenig Quellcode!

Ansonsten kannst du feststellen ob ein Array 'Inhalt' hat, mit if (@array), vielleicht hilft dir das ja schon bei deinem Teilproblem?!

1) eine abfrage darauf, ob fehler gefunden wurden, kannst du einfach mit if ( @error ) { ... machen. ich würde aber erlich gesagt eher dazu raten, eine datenstruktur wie arrays of arrays zu benutzen, da du sonst immer ein wenig arbeit investieren musst, um die arrayfelder zu finden, in denen fehler sind. damit würde sich auch frage 2) erledigen.

perldoc -f ref

Danke die Vorschläge haben mein Problem gelöst

hab ne frage bezüglich hashes in perl.


my %hash = ();
$hash{$key} = $value;

1.gibt es eine funktion von der funktionsweise wie foreach (bei arrays) für hashes um keys und values anzusprechen?

2.wie gebe ich hashes auf der console aus? print %hash geht jan nicht, ich hätte aber gerne den gesamten hash ausgegebn.gibts da was in perl konform zu printr in php?\n\n

<!--EDIT|shaihulud|1145451003-->

@shaihulud

Deine zweite Variante

ist richtig.

Quote

3. wenn ich das mit arrays nicht machen kann, gibt es dann eine funktion von der funktionsweise wie foreach für hashes um keys und values anzusprechen?

Geht analog zu Arrays:



Gruß, Doc

danke für die antwort, hab aber meine frage nochmal leicht umeditiert. s.o.

kannst du mir mit der print_r frage noch weiterhelfen?

[quote=shaihulud,19.04.2006, 14:41]1.gibt es eine funktion von der funktionsweise wie foreach (bei arrays) für hashes um keys und values anzusprechen?

2.wie gebe ich hashes auf der console aus? print %hash geht jan nicht, ich hätte aber gerne den gesamten hash ausgegebn.gibts da was in perl konform zu printr in php?[/quote]
Ja, die heißt each.



Was macht denn printr in php genau?

Du kannst es zum Bleistift wie oben machen, oder einfach mit join nach belieben ausgeben.

print_r $array;

gibt in php einfach den array aus:


array(key=>value,key=>value,key=>value,key=>value)
so ca