yusukebe

<VirtualHost *:80>
        ServerName myqpp
        DocumentRoot /home/www/myapp/root
        RewriteEngine On
        RewriteRule ^/(static/|favicon.ico) - [L]
        RewriteRule ^/(.*)$ http://localhost:8001/$1 [P,L]
        ExpiresActive On
        <FilesMatch "\.(jpg|gif|png|ico|css|js)$">
            ExpiresDefault "access plus 365 days"
        </FilesMatch>

yusukebe

use strict;
use warnings;
use LWP::Simple;
use XML::Simple;
use Unicode::RecursiveDowngrade;

my $url =
"http://www.dmm.co.jp/digital/videoa/-/list/=/article=actress/id=6644/ch_navi=actress/sort=date/rss=create/_jloff=1/";
my $content = get($url);
my $ref     = XMLin($content);

yusukebe

$ ls assets/plugins/Filter-EntryFullText/
1046034.yaml          ademusume.yaml     eroseven.yaml     mange-mirror.yaml    r-shodo.yaml       tora-tora-tora.yaml
1046034_premium.yaml  caribbeancom.yaml  exotica-xxx.yaml  movie-girls.yaml     s-angels.yaml      xvn.yaml
10musume.yaml         cutie82.yaml       g-area.yaml       newplay-st.com.yaml  sexyrose.yaml
1919gogo.yaml         dmm_monthly.yaml   h4610.yaml        omany.yaml           smooth-movie.yaml
1pondo.yaml           duga.yaml          himemix.yaml      onacle.yaml          sukiyakiav.yaml
99bb.yaml             eroerooyaji.yaml   ittele.yaml       peachbomb.yaml       tokyo-247.yaml

yusukebe

use strict;
use warnings;
use List::Util qw( shuffle );
use Net::Twitter;
use utf8;

my @nanpa_text = qw/
へいname、ちょっとお茶しない？
nameと一緒にTwitterできてぼくは本当に幸せだよ
オレの彼女になってくれないかな…好きだよ！

yusukebe

sub bitly {
    my $self = shift;
    my $url  = $self->url;
    my $api_url =
        "http://api.bit.ly/shorten?version=2.0.1&format=xml&login=xxx&apiKey=xxx&longUrl=$url";
    my $ua  = LWP::UserAgent->new();
    my $res = $ua->get($api_url);
    if ( $res->content =~ m!<shortUrl>(.+?)</shortUrl>! ) {
        return $1;
    }

yusukebe

my $done = AnyEvent->condvar;

my $guard = AnyEvent::Twitter::Stream->new(
    username => $user,
    password => $password,
    method   => "track",
    track    => 'http',
    on_tweet => sub {
        my $tweet = shift;
        my @links;

yusukebe

use strict;
use warnings;
use Imager;
use LWP::UserAgent;
use WWW::Favicon;

my $favicon = WWW::Favicon->new;
my $favicon_url = $favicon->detect('http://yusukebe.com/');
my $ua = LWP::UserAgent->new;
my $res = $ua->get( $favicon_url );

yusukebe

use LWP::UserAgent;
use YAML;
my $query = "isoyama";
my $ua = LWP::UserAgent->new( agent => 'YourAVPhoto::Crawler' );
my $res = $ua->get("http://www.tumblr.com/search/$query");
if ( my @urls = $res->content =~ m!url\('(http://\d+\.media\.tumblr\.com/.+\.jpg)'\)!gm ){
    warn Dump @urls;
}

yusukebe

#!/usr/bin/perl                                                                                                     
use strict;
use warnings;
use AnyEvent::Feed;
use AnyEvent::IRC::Client;
use AnyEvent;
use Encode;

my $channel = "#yokohama.pm";
my $cv      = AnyEvent->condvar;

yusukebe

#!/usr/bin/perl
use strict;
use AnyEvent::IRC::Client;
use AnyEvent::Twitter::Stream;
use Encode;

my $user     = 'yourname';
my $password = 'password';
my $channel  = '#yapc.asia-ja';