starte append til fil 3 linier fra bunden

dit problem lyder mystisk og kan selvfølgelig sagtens lade sig gøre... men jeg vil egentlig hellere vide, hvad det er du skal bruge det til, da jeg tror, at der er meget smartere metoder...

hov... det skulle ikke være et svar... ignorer venligst, at det var et svar...

Det er fordi jeg generer en xml fil.
Denne har følgende template
<?xml version="1.0" encoding="iso-8859-1" ?>
<JOBS>
<JOB>
<NAVN>her skal indsættes navn variabel</NAVN>
<DATO>her skal indsættes dato variabel</DATO>
</JOB>
</JOBS>


******************
<JOB>
<NAVN>her skal indsættes navn variabel</NAVN>
<DATO>her skal indsættes dato variabel</DATO>
</JOB>
Skal appendes til filen. Det skal fungere som en slags log, bare i xml format.

Jeg har ikke mulighed for iunstallering af evt. xml moduler til perl, men der findes givetvis en smartere måde at gøre det på en den jeg har tænklt på, men jeg synes sgu det er så indviklet med de regulere udtryk i perl :-). Nogen fordslag ??

$navn="Breum";
$dato="27/4-2002";
open (XMLFILE, ">>$xmlfile");
print XMLFILE "<JOB>\n";
print XMLFILE "<NAVN>$navn</NAVN>\n";
print XMLFILE "<DATO>$dato</DATO>\n";
print XMLFILE "</JOB>\n";
close XMLFILE;

Ups havde ikke set det med 3 linier fra bunden

Så bliver du vist nød til at åbne filen, hente indholdet ind, indsætte de nye linier og skrive hele filen igen.

Har selv løst det, fandt ud af at det faktisk kun kunne lade sig gøre med at kopiere hele filen over i en tmp fil og derefter genskrive sidste tag oh rename til org fil. troede egenligt at der var en eller anden metode at arbejde med linier i en fil med. Meeeen det er jo trodsalt ikke det samme som alm. shell script :-)

$navn="Breum";
$dato="27/4-2002";
$xmlfile="testfil.xml";

open (XMLFILE, "$xmlfile");
@xmllines=<XMLFILE>;
close (XMLFILE);

$sidstelinie=$xmllines[$#xmllines];
$andensidstelinie=$xmllines[$#xmllines-1];
$trediesidstelinie=$xmllines[$#xmllines-2];
pop (@xmllines);
pop (@xmllines);
pop (@xmllines);

open (XMLFILE, ">>$xmlfile.2");
print XMLFILE @xmllines;
print XMLFILE "<JOB>\n";
print XMLFILE "<NAVN>$navn</NAVN>\n";
print XMLFILE "<DATO>$dato</DATO>\n";
print XMLFILE "</JOB>\n";
print XMLFILE $trediesidstelinie;
print XMLFILE $andensidstelinie;
print XMLFILE $sidstelinie;

close (XMLFILE);

Det virker

Tak det er altid rart med laternative måder at gøre tingende på, især når man er så ny i perl som jeg er.