Date: Tue, 17 Oct 2006 19:05:18 +0200 From: Jens Teglhus Møller <none@jtm--mostlyharmless.dk.lh.bsd-dk.dk> To: bsd-dk@bsd-dk.dk Subject: Re: Perl og swap
Benny Simonsen wrote:
> 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 :)
>
man 4 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;
> }
>
/jtm
This archive was generated by hypermail 2b30 : Wed 15 Nov 2006 - 18:25:05 CET