nicht angemeldet
Ich stehe hier gerade vor zwei kleinen problemen und find einfach keine lösung ich hoffe hier kann man mir helfen!?!?
Zuerstmal:
Ich bin gerade dabei mir ein mehr oder mindergutes Blogsckript zu schreiben
Also erstens:
Ich will das nur ganz ganz bestimte teile ersetzt werden. nehmen wir an ich möchte ein hans in peter umwandeln, der aufbau der datei sieht so aus:
[IP:000.000.000][Name:keno][Blog:Hallo mein name ist hans und ich schlafe]
Jetzt will ich aus dem hans peter machen und zwar mit tie file so:
my $bla;
tie my @hanszupeter, "Tie::File", "blog.txt"
for $bla (@hanszupeter)
{
$bla =~ s/hans/peter/;
}
untie @hanszupeter;
Das klappt zwar ganz gut aber es wird in der ganzen zeile hans zu peter umgewandelt also [Name:hans] wird auch zu peter geändert ich will aber das nur der text in [Blog:...] ersetzt wird. Wi mach ich das?
Hoffentlich versteht ihr mich hehe
Dann zweitens:
Wie kann ich speziel etwas hinter einer zeile einfügen?
Beispiel:
Zeile sieht folgendermasen aus:
[IP:123.456.789][Name:kendo][Blog:schönes wetter]
Und folgendes soll dahintergeschrieben werden:
[Bewertung:1]
Die Zeile soll also nachher so aussehen:
[IP:123.456.789][Name:kendo][Blog:schönes wetter][Bewertung:1]
aufrufen kann man es dann so:
open (FH, "<blog.txt");
while (FH)
{
if ($_ =~ /[IP:123.456.789]/) {
#Hier hätte ich jetzt die zeile aber da ich die datei nur zum lesen
#geöfnet habe kann ich leider nichts in die Datei schreiben
#auch mit "open (FH, "+<blog.txt);" komm ich nicht weiter
}
}
close (FH);
wie bereits gesagt ich komm einfach nicht weiter ich habe schon mit "+<blog.txt" experimintiert und mit tie::file (geiles modul hehe) mit suchen und ersetzen mit push und so weiter ich kriegs einfach nicht hin.
Ich hoffe ihr versteht mich und könnt mir helfen
ps: ich habe mitbekommen das sich in anderen foren viele beschweren über meine ausdrucksweise oder rechtschreibung deshalb entschuldigt bitte ich bin annerkannter legastheniker hehe
vielen vielen dank schonmal im vorraus!!!!!