Opened by Gast at 2004-08-03 17:13
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
[quote=Tim78,04.08.2004, 14:25]habe doch noch ein kleines Problem, gibt es eine Möglichket eine Datei zeilenweise einzulesen und zwar in der Art, dass ungerade Zeilen in eine Datei, die geraden Zeilen in eine andere Datei geschrieben werden??[/quote]
Aufruf mit programmname eingabe.dat. Es werden die Dateien gerade und ungerade erzeugt.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
use strict;
use warnings;
open my $u, ">ungerade" or die $!;
open my $g, ">gerade" or die $!;
while (<>) {
print { $|-- ? $g : $u } $_;
}
Aufruf mit programmname eingabe.dat. Es werden die Dateien gerade und ungerade erzeugt.