nicht angemeldet
Servus!
ich bins mal wieder der schwierige fall von letztem mal ;-))
zur erinnerung ich hab euch mal den beitrag vom lezten mal rausgesucht hier ist er http://forum.de.selfhtml.org/archiv/2008/9/t176639/ (falls es vielleicht nützlich sein könnte)
Also mein problem ist dieses ich muss in meiner ich nenn es jetzt mal datenbank ständig einträge löschen da dacht ich mir ich schreib mir ein programm wo ich nur etwas eingeben muss und es automatisch die zeile löscht. Soweit so schlecht :-(
meine datei sieht so aus:
####################################################################
<username>Dauna</username><name>Nicole</name><alter>18</alter><sonstiges>perl</sonstiges>
<username>anderename</username><name>jemand anderes</name><alter>435</alter><sonstiges>hallo</sonstiges>
####################################################################
und so weiter (ohne die rauten #)
wenn ich jetzt nach einem bestimmten eintrag suche zum beispiel dauna wird es auch ordentlich angezeigt also ich bekomme folgende line
<username>Dauna</username><name>Nicole</name><alter>18</alter><sonstiges>perl</sonstiges>
jetzt möcht ich einfach nur die zeile löschen und mein code sieht so aus:
my $open = "liste.txt";
tie my @datei,'Tie::File',$open;
for (@datei) {
if ($_ =~ m/<username>Dauna</username>/) {
#hier wird die oben ernannte zeile richtig ausgegeben
#jetzt will ich einfach die zeile löschen das mach ich so:
splice @datei,$_,1;
}
}
untie @datei;
eigentlich müsste es doch jetzt die zeile löschen oder??
es kommt aber eine hübsche fehlermeldung die sieht so aus:
Argument "<username>Dauna</username><name>Nicole</na..." isn´t numeric in numeric lt <<> at C:/perl/lib/Tie/File
.pm line 439, <$fh> line 6;
was mach ich falsch?
helf doch nochmal der gebrechlichen frau hehe
vielen vielen vielen vielen dank sag ich schonmal :-)