Basic認証

perl

定期的にBasic認証がかかったページにアクセスする必要があったので、それを行うスクリプトを書いた。

test.pl

use strict;
use warnings;

use LWP::UserAgent;

my $user = 'hato';
my $passwd = 'mune';

my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 'http://*****/');
$req->authorization_basic($user,$passwd);
$ua->request($req);

exit;

このスクリプトを定期的に実行するようにcronに設定した。

*/30 * * * * /home/hatomune/test.pl