Community  »  Perl: Allgemeines Forum

Text Datei erweitern	Seitenanfang
Ein schönen Guten Morgen an die Perl-Community, habe ein kleines Problem ich habe eine .txt Datei die z.B. folgenden Inhalt beinhaltet: Switch1;IP; Switch2;IP; Nun suche ich eine Lösung wie ich noch die Datei erweitern kann, dass Sie dann so aussieht: Switch1;IP;Neu; Switch2;IP;Neu; Wenn ich es so mache: my $name = "Neu"; open (FILE, ">>Components.txt"); flock (FILE, 2); print FILE "$name;\n"; close FILE; Dann bekomme ich ja diesen Inhalt: Switch1;IP; Switch2;IP; Neu; Neu; Würde mich über ein paar Antworten freuen. Mit freundlich Grüßen Gregor Datum: 20.12.2006-10:40
re: Text Datei erweitern	Seitenanfang
am besten schreibst du die datei neu... ungetestet... use strict; use warnings; my $name = 'Neu'; open F, '<', 'Components.txt' or die ($!); my @lines = <F>; close F; open F, '>', 'Components.txt' or die ($!); for (@lines) { chomp; print qq($_;$name;\n) } close F; Datum: 20.12.2006-11:18
re: Text Datei erweitern	Seitenanfang
ok danke habe es nun so gemacht, wie Du es gesagt hast Bo Datum: 20.12.2006-12:02