Community  »  Perl: Allgemeines Forum

Spalten ersetzen	Seitenanfang
Hi, da ich Anfänger mit Perl bin habe ich auch gleich mal eine Anfängerfrage... Ich habe eine Datei mit folgendem Inhalt: 0.00200000 128 146.528 9383342 1 245.588 15723182 1 324.788 20791982 1 376.694 24113966 1 637.488 40804782 1 726.194 46481966 1 854.022 54662958 1 951.784 60919726 1 1028.810 65849390 1 Dann habe ich noch eine Textdatei: [<- das ist eine Leerzeile] 124 213 223 122 114 213 224 213 113 Jetzt sollen die 1er aus der ersten Datei durch die Zahlenwerte der zweiten Datei ersetzt werden. Anders ausgedrückt: Ich will die eine Spalte durch die andere ersetzen. Für Hilfe wäre ich sehr dankbar. Marmaduke Datum: 07.03.2007-18:33
re: Spalten ersetzen	Seitenanfang
Allgemein kann folgender Code verwendet werden um eine Zeile einer Datei an Leerzeichen in Spalten aufzubrechen und eine zuvor definierte Spalte mit einen neuen Wert zu belegen. # Spalte in der Ersetzung erfolgen soll my $spalten_nr = 2; # Zeile an Leerzeichen in Spalten aufbrechen my @spalten = split(/\s+/, $zeile); # alten Spaltenwert durch neuen ersetzten $spalte[$spalten_nr - 1] = $neuer_wert; Datum: 07.03.2007-21:15
re: Spalten ersetzen	Seitenanfang
Noch haut's nicht ganz so hin, wie ich es gerne hätte, aber hat mich auf jeden Fall schon mal viel weiter gebracht. Jetzt werkel ich mal selber wieder ein bisschen rum - man hat ja auch noch einen Funken Ehre im Leib. Vielen Dank für den Stoß in die richtige Richtung :-) Marmaduke Datum: 08.03.2007-17:44