To: bsd-dk@bsd-dk.dk From: Benny Simonsen <none@bsd-dk--slbs.dk.lh.bsd-dk.dk> Date: Tue, 17 Oct 2006 17:55:16 +0200 Subject: Re: Perl og swap
Host host...
Hvor stor er /dev/zero? - Åbenbart stor når den skal læses af min
funktion, som kan ses herunder.
Det undrer mig dog lidt hvad der kan fylde memory op, nå men jeg kunne
jo overveje at lade være at læse /dev/zero :)
sub get_file_content {
my ($file, $content_ref) = @_;
my $fc; # Filecontent
use IO::File;
$fh = new IO::File;
if ($fh->open("< ".$file)) {
}
#MD5 (/mnt/images/benny/photos/eos300d/1/img_4262.jpg) = 9bc964306bd30f92d3614e6f4268055e
#MD5 (/mnt/images/benny/photos/eos300d/1/img_4952.jpg) = 5b1067abf9c93aa2886187c9936aebd4
my $line;
my ($i);
foreach $line (<$fh>) {
if ($line =~ m|^MD5 \(/mnt(/.*)\) = ([a-zA-Z0-9]+)$|) {
#$$content_ref{$2}[@$content_ref{$2}] = $1;
$i = scalar @$content_ref;
$$content_ref[$i]{file} = $1;
$$content_ref[$i]{md5} = $2;
}
}
$fh->close;
}
-- Benny Simonsen
This archive was generated by hypermail 2b30 : Wed 15 Nov 2006 - 18:25:05 CET