naoyaの日記

■ CGI 17:22

• http://blog.livedoor.jp/dankogai/archives/50780781.html

#!/usr/local/bin/perl
use strict;
use warnings;
use CGI;
use DateTime;
use IO::All;

my $q = CGI->new;

my $now = DateTime->now(time_zone => 'Asia/Tokyo');
my $line = sprintf(
    "%s %s C %s %s %s %s\n",
    $now->ymd('/'),
    $now->hms,
    $ENV{REMOTE_ADDR},
    map { $q->param($_) } qw/module func message/,
);

my $log = io(sprintf "logfile%s.log", $now->ymd('')) or die $!;
$log->lock;
$log->append($line);
$log->close;

STDOUT->print($q->header('text/plain'), $line);

かなあ。