Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- my $username = 'username';
- my $password = 'pass';
- # uranai_data
- my $filename = './mezaura.yaml';
- my $data = YAML::LoadFile($filename);
- my $twit = Net::Twitter->new(username => $username, password => $password);
- my $count = 1;
- for ( my $i=11; $i >= 0; $i-- ){
- my $date = $data->{date};
- my $rank = $data->{ranking}[$i]->{rank};
- my $star = $data->{ranking}[$i]->{star};
- my $text = $data->{ranking}[$i]->{text};
- my $outputs;
- if ($rank == "01"){
- $outputs = $date ." ". $rank. "位 ". $star .": ". $text;
- } else {
- $outputs = $rank. "位 ". $star .": ". $text;
- }
- my $result = $twit->update($outputs);
- $count++;
- }
Add Comment
Please, Sign In to add comment