Opened by Gast at 2005-07-19 22:37
User since
2005-07-20
2 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-07-20
2 Artikel
BenutzerIn
Ich danke für die vielen Tipps! Hab den ersten Hinweis heut mal ausprobiert und irgendwie haut das noch nicht hin.
ich hab folgendes probiert:
und da funktioniert nicht. Entweder ist die Datei leer oder es wird ganz oft 01234567 geschrieben. Kann mir da jemand weiter helfen??
und noch eine kurze Frage: wenn ich mehrere Bedingungen habe (mehrere IF Schleifen) kann ich die einfach ineinanderschachteln?
Schonmal Vielen vielen Dank!!!
Sunny\n\n
<!--EDIT|Sunny|1121883406-->
ich hab folgendes probiert:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
open FILE ...#Datei aus der ich die Daten haben will
open DATEI .. #Datei in die neue reingeschrieben werden sollen
@lines=<FILE>;
foreach my $line (@lines) {
if ($line =~m/^TEXT$/) {
for (0..7) {
<fh>; #will gern die 8. Zeile einlesen
@lin=<fh>;
print DATEI "@lin\n"; } #soll die Zeile in die andere Datei schreiben
}
}
close DATEI;
close FILE;
und da funktioniert nicht. Entweder ist die Datei leer oder es wird ganz oft 01234567 geschrieben. Kann mir da jemand weiter helfen??
und noch eine kurze Frage: wenn ich mehrere Bedingungen habe (mehrere IF Schleifen) kann ich die einfach ineinanderschachteln?
Schonmal Vielen vielen Dank!!!
Sunny\n\n
<!--EDIT|Sunny|1121883406-->