[vienna.pm] Date: Tue, 8 Feb 2000 19:38:55 +0100

[Tom Stone]

Hallo liebe Perl Freunde!

ich habe ein (wahrscheinlich triviales ) Problem das mich seit Tagen beschäftigt. Folgender code liest die Datei news.wml (WAP Datei) und ersetzt eine Zeile des WAP Codes (Zeile 4) durch den Input des Users.

Das Problem ist nun, daß das Programm zwar korrekt gespeichert wird, aber alle Zeilen um ein Zeichen nach rechts versetzt sind (bis auf 4 zeile). e öfter man das script aufruft, desto mehr verschiebt es sich..

für jede Anregung bin ich dankbar,

mfg

tom

p.s. sollte es zu trivial sein nochmals sorry...
#######################
# enter data htm      #
#######################

# variables#
$news = param("news");
$filename = "../news.wml";

#### open file ######
$news = param("news");
$line = "4"; # ENTER LINE HERE #

open (NEWS, "$filename");
@input =<NEWS>;
$input[$line] = "<p>$news<\/p>\n";
close NEWS;


#write to file#
open(NEWS, ">$filename");
print NEWS ("@input");
close NEWS;


-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/archives/vienna-pm/attachments/20000208/797931f9/attachment.htm