Més Voyeurs

El script de rafa, però escrit correctament (:

#!/usr/bin/perl
use strict;

my ($secs, $mins, $hour, $day, $mo, $year) = localtime (time);
my $tempo = localtime (time);
my $total = 0;

printf "Cámara de seguridad en marcha\n" .
        "Inicio de la captura de imágenes: $tempo\n" .
        "Presiona Ctrl+C durante dos segundos para detener la cámara.\n" .
        "Capturando:\n";

for (my $j = 0;; $j++) {
        ($secs, $mins, $hour, $day, $mo, $year) = localtime (time);
        my $dir = "archivo$hour";
        my $file = "$dir/imagen$hour:$mins:$secs.jpg";

        system 'gqcam -v /dev/video0 -d imagen -t JPEG 2>/dev/null';
        system "mkdir", $dir unless -d $dir;
        system "cp", "imagen", $file;
        my $size = (stat "imagen" )[7] / 1024;
        $total += $size;
        printf "%.2i:%.2i:%.2i Imagen: $j,  Espacio ocupado %iKB, total: %iKB        \r",
                $hour, $mins, $secs, int $size, int $total;

        sleep 0.5;
}