polog

#!/usr/bin/perl

use strict;

use LWP::Simple;

use XML::RSS;

use Lingua::JA::Romanize::Japanese;

use Data::Dumper;

use Date::Simple;

use WWW::Mechanize;



sub reduce_candidate{

    my $str = shift;

    my @words = split / /, $str;

    my @_words;

    for my $word (@words){

	if($word =~ /^(.+?)\//){

	    push(@_words, $1);

	}else{

	    push(@_words, $word);

	}

    }

    return join ' ', @_words;

}

# get kyoujin speech from rss

my $xml = new XML::RSS;

my $conv = Lingua::JA::Romanize::Japanese->new();

my @results;

$xml->parse(get('http://twitter.com/statuses/user_timeline/5932892.rss'));

for my $item ( @{$xml->{'items'}}){

    my $content = $item->{'title'};

    $content =~ s/^kyoujin: //g;

    $content = $conv->chars($content);

    $content = reduce_candidate($content);

    $content =~ s/[^\w ]//g;

    push(@results, $content);

}

my $result = join '. ', @results;

# make mp3

my $path = '/Users/po/test/kyoujin-muxtape/';

my $aiff_file = $path . 'test.aiff';

my ($y, $m, $d) = Date::Simple->today->as_ymd;

my $mp3_file = $path . "$y-$m-$d.mp3";

`say -v Alex -o $aiff_file $result`;

`ffmpeg -i $aiff_file -title '$y-$m-$d' -author 'kyoujin' $mp3_file`;

# post to muxtape

my $agent = new WWW::Mechanize;

$agent->agent_alias('Windows Mozilla');

$agent->post('http://muxtape.com/login',

	     {

		 name => '',

		 pass => ''

	     }

    );

$agent->get('http://muxtape.com/upload');

$agent->submit_form(

    form_number => 1,

    fields => {

	file => $mp3_file

    }

    );