Opened by Gast at 2006-08-25 17:24
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Ich mach mal einen Gegenvorschlag:
(ungetestet)
Sollten die Dateien zu groß werden um sie komplett in den Speicher einzuladen, könnte man die Eingangsdatei zweimal einlesen, beim ersten Mal ermittelt man die Anzahl der Zeilen, beim zweiten Mal gibt man dann die Datensätze aus.\n\n
<!--EDIT|Crian|1156514686-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!/usr/bin/perl
use strict;
use warnings;
#
# Daten einlesen:
#
open FIN, $ARGV[0] or die $!;
my @lines = <FIN>;
close FIN or warn $!;
#
# Ausgabebreite berechnen:
#
my $stellen = int( 1 + log(scalar @lines) / log(10) );
#
# Daten ausgeben:
#
open FOUT, '>' . $ARGV[1] or die $!;
for my $i (0 .. $#lines) {
printf "%0*d%d", $stellen, $i, $lines[$i];
}
close FOUT or die $!;
(ungetestet)
Sollten die Dateien zu groß werden um sie komplett in den Speicher einzuladen, könnte man die Eingangsdatei zweimal einlesen, beim ersten Mal ermittelt man die Anzahl der Zeilen, beim zweiten Mal gibt man dann die Datensätze aus.\n\n
<!--EDIT|Crian|1156514686-->
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