Community  »  Perl: Allgemeines Forum

dateiinhalt mit kommas versehen	Seitenanfang
hallo zusammen, habe eine Datei mit verschiedenen Werten und möchte da nun die Leerzeichen nach jedem Wort gegen Kommas ersetzen. Das Problem dabei ist, dass mein Sourcecode nur immer am Zeilenanfang ein Komma setzt und nicht den Rest auch noch durchscannt und ersetzt. Was kann ich da machen? Eine Zeile der Datei sieht folgendermaßen aus: Jun 02 13:45:55 tcpserver: status: 0/20 Mein Quelltext des Perlskripts sieht so aus: !#usr/bin/perl -w open (DATA,'F:\\ohnekommas.txt'); open (NEUE,'>f:\\mitkommas.txt'); @danke = <DATA>; close (DATA); @new = join(",",(/\t/, @danke)); print NEUE "@new"; Bin echt am Verzweifeln, wäre nett wenn mir jem. weiterhelfen könnte. Danke Datum: 05.03.2007-07:49
re: dateiinhalt mit kommas versehen	Seitenanfang
Hallo! use strict; ... my @new = join(",",**split**(/\t/, @danke)); Ohne split weiß er ja nicht, dass er bei den Leerzeichen trennen soll. ;-) Außerdem nimmt split kein Array zum Trennen entgegen, also den Dateiinhalt am besten in einen Skalar packen: undef $/; my $danke = <DATA>; und dann latürnich my @new = join(",",split(/\t/, $danke)); Grüße, Skrilax Datum: 05.03.2007-17:15
re: dateiinhalt mit kommas versehen	Seitenanfang
danke für diese schnelle Antwort. habs noch nicht ausprobiert, da ich es erstmal mit sed gelöst hab. Werd ich aber noch machen. gruß Datum: 07.03.2007-12:12