Community  »  Perl: Allgemeines Forum

Zeilen ansteuern	Seitenanfang
hi, ich hab ne textdatei da liegen ich möchte vor jeder zeile was schreiben und dahinter auch z.b. aus 45.12.12.12 34.56.78.89 soll werden: test.exe 45.12.12.12 -c test.exe 34.56.78.89 -c wie stell ich das am besten an? Datum: 24.08.2006-14:31
re: Zeilen ansteuern	Seitenanfang
open( IN, "<textdatei_alt.txt" ); @content = <IN>; close IN; open( OUT,">textdatei_neu.txt" ){ foreach ( @content ){ print OUT "test.exe $_ -c"; } close OUT; } Datum: 24.08.2006-16:58
re: Zeilen ansteuern	Seitenanfang
open(DAT, "<textdatei_alt.txt"); @content = map ( $_ = "bla ".$_." blu" , <DAT>); close DAT; open(DAT, ">textdatei_neu.txt"); print DAT @content; close DAT; Datum: 24.08.2006-17:30
re: Zeilen ansteuern	Seitenanfang
danke ihr habt mir sehr geholfen Datum: 24.08.2006-17:39
re: Zeilen ansteuern	Seitenanfang
Damit man nicht alles in den Speicher laden muss, empfiehlt sich das Modul Tie::File use Tie::File; my $file = '/path/to/file'; tie my @array,'Tie::File',$file or die $!; for(@array){ chomp; $_ = 'test.exe '.$_." -c\n"; } untie @array Datum: 24.08.2006-17:44