Opened by heinzelman at 2008-04-21 01:11
User since
2005-08-17
1420 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-08-17
1420 Artikel
BenutzerIn
Das Label LINE kannst du dir auch sparen, inklusive dem next am Ende der while-Schleife.
Ausserdem, dein Code ueberschreibt $temp mit jeder passenden Zeile.
Zusätzlich musst du | beim Splitten escapen, da es in einer RegEx eine spezielle Bedeutung hat.
Was zu wohl eher willst wäre dann das:
Damit hast du dann einen Array, der Hashreferenzen mit deinen Daten hat.
Ausserdem, dein Code ueberschreibt $temp mit jeder passenden Zeile.
Zusätzlich musst du | beim Splitten escapen, da es in einer RegEx eine spezielle Bedeutung hat.
Was zu wohl eher willst wäre dann das:
Code (perl): (dl
)
1 2 3 4 5 6 7
my @temp; while(<config>) { chomp; next if(/^$/); #Skip blank lines my ($HOSTNAME,$IP) = split(/\|/); push(@temp, {HOSTNAME => $HOSTNAME,IP => $IP}); }
Damit hast du dann einen Array, der Hashreferenzen mit deinen Daten hat.