[nobuyuki@P2980 oshirase]$ cat oshirase.pl
#!/usr/bin/perl -w
 
use strict;
#use Warnings;
use Net::Twitter;
#use Encode;
use Jcode;
use DateTime;
 
my $dt = DateTime->now( time_zone => 'Asia/Tokyo' );
my $time = $dt->strftime('%H:%M');
chomp $time;
 
my $h = $dt->strftime('%H');
my $m = $dt->strftime('%M');
 
$h =~ s/^0//g;
$m =~ s/^0//g;
 
 
#&post_twitter("testあああああ $time");
 
my $time_file = '/home/nobuyuki/perl/twitter/oshirase/timelist.txt';
 
open my $fh, '<', "$time_file" or die $!;
my @time_strings = <$fh>;
 
 
 
foreach my $set_time ( @time_strings ){
    chomp $set_time ;
    if ( $time eq $set_time  ) {
    &post_twitter("$h時 $m分をお知らせ。");
    }
}
 
sub post_twitter{
    my $strings = $_[0];
    my $twit = Net::Twitter->new(
        username=>"zorome_oshirase",
        password=>"furunob123",
        source=>"fuga",
        clientname=>"hogee",
        );
 
#    my $utf8 = Encode::from_to($strings, 'euc-jp', 'utf8');
    my $utf8 = Jcode->new( $strings, 'euc')->utf8;
 
    my $result = $twit->update("$utf8");
#   my $result = $twit->update("$strings");
    my $result_code = $twit->http_code;
    my $result_message = $twit->http_message;
    print "$result_code : $result_message\n"
}

[nobuyuki@P2980 oshirase]$ cat timelist.txt
00:00
01:01
01:11
01:23
02:02
02:22
03:03
03:21
03:33
04:04
04:44
05:05
05:55
06:06
07:07
08:08
09:09
10:10
11:01
11:11
12:12
12:34
13:13
14:14
15:15
16:16
17:17
18:18
19:19
20:20
21:21
22:22
23:23
24:24