perl / wert ersetzten?

[empire]

Hallo Leute

Happy New Year wünsch ich euch.

Jetzt zu meiner Frage..

Ich bin gerade dabei ein Bannerscript zu schreiben.

mein Problem ist das ich jetzt die views jeden einzelnen Banner abspeichern will.

so sieht meine TXT aus

0=http://www.....de=xxx.gif=100

wo die null ist das will ich ersetzten.

um ein höher. ein Counter habe ich schon, ich brauche nur die details wie ich in einer txt ein wert ersetzte..

danke leute

cu

empire

[DevilDawn]

Perl ist immer gut für solche Dinge :-)

#!/opt/bin/perl


open TXT, "liste.txt" | | die "open failed: liste.txt";


$StartAt = 0;


while ($line=<TXT> ) {

 $Payload= $line;

 $Payload =~ s/^[0-9]*=(.*)/$1/ ;

 $New = $StartAt."=".$Payload;

 $StartAt++;

 print $New;

}

Hier getestet an einer Demo-Datei:

[ae@storm] > cat liste.txt 

0=bla

0=fasel

0=laber

0=suelz

0=foobar?blubb=2001

0=http://dumpf.nase.de/cgi/voteit?foo=bla

0=aechz

0=stoehn


[ae@storm] > ./increase.pl

0=bla

1=fasel

2=laber

3=suelz

4=foobar?blubb=2001

5=http://dumpf.nase.de/cgi/voteit?foo=bla

6=aechz

7=stoehn

[ae@storm] >

So ich hoffe das war auch deine Frage, die Fragestellung war nicht so ganz eindeutig...

[empire]

Hey danke für deine Hilfe.

Ich gebe zu klingt ein wenig merkwürdig die Frage.

Ich bin gerad dabei es zu testen.

Sag mal er schreibt aber nicht in meiner txt rein sonder giebt mir den wert in html zurück.

woran kann das liegen.

[DevilDawn]

War auch so angedacht. Wenn du dein File direkt ändern willst, dann gib die Zeilen nicht aus sondern push sie in ein Array. Nach Abschluß der Schleife Überschreibst du dein TXT File mit dem Inhalt des Arrays.

Ich wollte keine maßgeschneiderte Komplettlösung machen, nur einen Ansatz liefern

[empire]

Danke herr Lehrer...

also komm ich nicht drum rum die datei immer Koplett neu zu über schreiben.

das wollte ich eigentlich verhindern.

Mir war so das es eine Möglichkeit giebt ein bestimmten definiert abschnitt einer Datei zu über schreiben.

zb.

zeile 3

1. zeichen bis 3. zeichen durch wert yxz überschreiben.