use DateTime; my $time = DateTime->now(); $time->set_time_zone('Asia/Tokyo'); my $today = $time->strftime('%Y%m%d'); my $now = $time->strftime('%H:%M');

めっちゃハマりました。 以下のスクリプトを実行してください： #!/usr/bin/perl use strict; use warnings; use CPAN; CPAN::Shell->install( "Tree::DAG_Node", "Test::Warn", "WWW::RobotRules", "HTTP::Cookies", "Net::FTP", "Net::HTTP", "Digest::bas…