Datei editieren - #97864 (Allgemeines zu Perl)

Gast Gast

2007-08-14 00:37

Ich hab aus versehen die falsche Version benutzt, eigentlich meinte ich diese:

Code: (dl )

print "Neuer Charactername: ";
chomp(my $neuer_character = <STDIN>);
open KRWL, "./krawler";
foreach (@text_krwl = <KRWL>) 
{
    $_ =~ s/^\$name = ".*";$/\$name = "$neuer_character";/;
}
open KRWL, "> ./krawler";
print KRWL (@text_krwl);

Mit diesem Teil meines Programmes, wollte ich die Zeilen von meinem Programm einlesen und die Variable "$name" auf den angegebenen Namen des Benutzers (in $neuer_character) umändern.
Beispiel: In einer früheren Zeile des Programmes steht:

Code: (dl )

1
2
3

#!/usr/bin/perl -w
use strict;
my $name = "maggie";

Dies soll nun in folgende Zeilen umgewandelt werden:

Code: (dl )

1
2
3

#!/usr/bin/perl -w
use strict;
my $name = "Eingabe des Benutzers;

Aber irgendwie habe ich das Gefühl ich mache das zu umständlich. Außerdem ist es glaub ich nicht so geschickt Daten wie Namen in dem Quellcode zu speichern. Wie krieg ich das anders hin?