Opened by wiederlader at 2007-04-24 20:11
User since
2007-01-03
36 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-01-03
36 Artikel
BenutzerIn
Hallo Ronnie, ich habe mir als erstes Deine Lösung vorgenommen. Da ich noch nie mit einem Hash gearbeitet habe, verstehe ich die Hash Zuweisung nicht wirklich. Würde mir bitte jemand die Zeile "$set{$cols[0]}->{$cols[1]}->{'min'} = $cols[2];" erklären. Ich interpretiere sie so, das der key
"Muffen->Process->min"und der value 5 ist. Oder bin ich auf dem Holzweg? Oder hat "->" eine andere Bedeutung. Ich habe nur herausgefunden das "=>" eine Möglichkeit ist ein Komma zu schreiben.
Wie kann ich mir die vorhanden keys und values im hash (außer mit dem Dumper) anzeigen lassen?
"Muffen->Process->min"und der value 5 ist. Oder bin ich auf dem Holzweg? Oder hat "->" eine andere Bedeutung. Ich habe nur herausgefunden das "=>" eine Möglichkeit ist ein Komma zu schreiben.
Wie kann ich mir die vorhanden keys und values im hash (außer mit dem Dumper) anzeigen lassen?
Quotemy %set;
my @limits = (
"Schrauben;Error;200;500",
"Schrauben;Process;25;50",
"Schrauben;Waiting;100;150",
"Muttern;Error;10;30",
"Muffen;Waiting;400;800",
"Muffen;Process;5;10",
);
while (my $row = pop @limits) {
### Mit pop wird das lezte Element/Zeile am Ende des Arrays weggenommen und $row zugewiesen
### Muffen;Process;5;10
my @cols = split /;/, $row;
### Der Feldtrenner ; wird durch split entfernt und dem Array "@cols jeweis die 4 Wert der Zeile zugewiesen
### $cols[0], $cols[1], $cols[2], $cols[3]
### Muffen Process 5 10
$set{$cols[0]}->{$cols[1]}->{'min'} = $cols[2];
$set{$cols[0]}->{$cols[1]}->{'max'} = $cols[3];
}