Voyeurs

Doy fe Esto es un script en perl para utilizar una webcam como espía. Explico otro día los detalles que no tengo tiempo. #!/usr/bin/perl ($secs, $mins, $hour, $day, $mo, $year) = localtime (time); printf ("Cámara de seguridad en marcha\n"); $tempo = localtime (time); printf ("Inicio de la captura de imágenes:%s\n" ,$tempo); printf ("Presiona Ctrl+C durante dos segundos para detener la cámara.\n"); printf ("Capturando:\n"); while (1){ ($secs, $mins, $hour, $day, $mo, $year) = localtime (time); system('gqcam -v /dev/video0 -d imagen -t JPEG 2>/dev/null'); #$i++; #unless ($i%4) { $j++; $dir = "archivo$hour"; $file = "$dir/imagen$hour:$mins:$secs.jpg"; system('mkdir '.$dir) unless (-d $dir); system('cp imagen '.$file); $calcu = ($j*10); printf ("%i:%i:%i Imagen:%i Espacio ocupado aprox. %i Kib\r" ,$hour,$mins,$secs,$j,$calcu); #} sleep 0.5 }