Opened by miwieg at 2010-11-18 17:44
User since
2006-01-27
3891 Artikel
HausmeisterIn
2006-01-27
3891 Artikel
HausmeisterIn
Hi,
ein Denkanstoß:
wenn Du "auf Nummer sicher gehen" willst, dann frage ich mich, warum Du die Datei am Stück in den Arbeitsspeicher lädst.
Du verbrauchst nun einmal Platz für den Skalar $file, der die Datei komplett enthält und einmal Platz für den Array @bytes, der die Bytes enthält.
Warum nicht die Datei gleich byteweise in den Array lesen (wenn's unbedingt alles im Array liegen muss?
Z.B. so:
ein Denkanstoß:
wenn Du "auf Nummer sicher gehen" willst, dann frage ich mich, warum Du die Datei am Stück in den Arbeitsspeicher lädst.
Du verbrauchst nun einmal Platz für den Skalar $file, der die Datei komplett enthält und einmal Platz für den Array @bytes, der die Bytes enthält.
Warum nicht die Datei gleich byteweise in den Array lesen (wenn's unbedingt alles im Array liegen muss?
Z.B. so:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
sub read_bytes_to_array {
my $filename = shift;
open my $fh, '<', $filename or die "$filename: $!\n";
binmode $fh;
local $/ = \1;
my @bytes = <$fh>;
close $fh;
return @bytes;
}
read_bytes_to_array( 'meine_datei.txt' );meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!