Opened by Gast at 2004-08-03 17:13
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
[quote=Dubu,04.08.2004, 15:31][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.[/quote]
Oder
\n\n
<!--EDIT|Crian|1091659435-->
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.[/quote]
Oder
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 { 1 & $. ? $u : $g } $_;
}
<!--EDIT|Crian|1091659435-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite