Opened by Gast at 2007-08-13 22:44
Dies ist bestimmt nicht die beste Lösung Text in einer Datei zu verändern, oder?
Bitte belehrt mich eines besseren. Danke im Vorraus
Gruß Gast
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
print "Neuer Charactername: ";
chomp(my $neuer_character = <STDIN>);
substr($name, 0) = $neuer_character; ### OB das wohl geht?!
open KRWL, "./krawler";
foreach (@text_krwl = <KRWL>)
{
$_ =~ s/^\$name = ".*";$/\$name = "$neuer_character";/;
}
open KRWL, "> ./krawler";
print KRWL (@text_krwl);
Bitte belehrt mich eines besseren. Danke im Vorraus
Gruß Gast