Opened by Gast at 2004-08-03 17:13
User since
2004-05-11
14 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-05-11
14 Artikel
BenutzerIn
[quote=renee,04.08.2004, 23:34]@Tim: Mein Posting über dem von Dubu gesehen?? Da habe ich was kurzes geschrieben...
Na gut, hier nochmal der Code, um die Zeilen abwechselnd in andere Dateien zu schreiben...
[/quote]
Hi renee,
hatte das Posting nicht übersehen (glaube ich zumindest...) aber es klappt leider dennoch nicht. Habe auch noch &´ne Frage:
Muss es denn nicht
print W_OUT2 $lines[$i+1]
heissen?
Ansonsten sieht das ja sehr logisch aus, aber irgendwo muss noch der Wurm drin sein...
MfG
Tim
P.S. Vielen Dank an alle, die mir bisher geholfen haben. Hat mich wirklich sehr viel weiter gebracht. Danke.
Na gut, hier nochmal der Code, um die Zeilen abwechselnd in andere Dateien zu schreiben...
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
my $infile = 'path/to/file';
my $out1 = 'path/to/out1';
my $out2 = 'path/to/out2';
open(R_FILE,"<$infile") or die$!;
my @lines = <R_FILE>;
close R_FILE;
open(W_OUT1,">$out1") or die $!;
open(W_OUT2,">$out2") or die $!;
for(my $i = 0; $i < $#lines; $i +=2){
print W_OUT1 $lines[$i];
print W_OUT2 $lines[$i+2];
}
close W_OUT1;
close W_OUT2;
Hi renee,
hatte das Posting nicht übersehen (glaube ich zumindest...) aber es klappt leider dennoch nicht. Habe auch noch &´ne Frage:
Muss es denn nicht
print W_OUT2 $lines[$i+1]
heissen?
Ansonsten sieht das ja sehr logisch aus, aber irgendwo muss noch der Wurm drin sein...
MfG
Tim
P.S. Vielen Dank an alle, die mir bisher geholfen haben. Hat mich wirklich sehr viel weiter gebracht. Danke.