This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use strict; | |
use warnings; | |
use LWP::UserAgent; | |
my $video_id = shift || 'v6558955QCb57mWk'; # default is true tears OP | |
my $api_key = ''; | |
my $ua = LWP::UserAgent->new(); | |
my $res = $ua->get( "http://www.veoh.com/rest/v2/execute.xml?method=veoh.video.findByPermalink&apiKey=$api_key&permalink=$vi\ | |
deo_id" ); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# Global Settings | |
User www-data | |
Group www-data | |
Timeout 300 | |
KeepAlive Off | |
HostnameLookups Off | |
LogFormat "%h %l %u %t \"%r\" %>s %b \"%{Referer}i\" \"%{User-Agent}i\"" combined | |
CustomLog /var/log/apache2/access.log combined |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<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> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$ 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use strict; | |
use warnings; | |
use List::Util qw( shuffle ); | |
use Net::Twitter; | |
use utf8; | |
my @nanpa_text = qw/ | |
へいname、ちょっとお茶しない? | |
nameと一緒にTwitterできてぼくは本当に幸せだよ | |
オレの彼女になってくれないかな…好きだよ! |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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; | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 ); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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; | |
} |