FM Aichi studio image capture

README.md

FM-Aichi Studio image capture

install

$ carton install

how to use

$ carton exec perl gistfile1.pl

how to stop

Ctrl + C

cpanfile

requires 'LWP::UserAgent';

gistfile1.pl

use strict;
use warnings;
use LWP::UserAgent;
use Time::Local;
use POSIX qw/strftime/;

my $lwp = LWP::UserAgent->new;
while (1) {
	my $now = strftime('%Y%m%d%H%M%S', localtime());
	my $res = $lwp->get('http://fma.co.jp/camera/image5.jpg');
	if ($res->is_success) {
		open my $fh, "> $now.jpg";
		print $fh $res->content;
		close $fh;
	}
	sleep 1;
}