Skip to content

Instantly share code, notes, and snippets.

@sugyan
Last active October 8, 2015 13:27
Show Gist options
  • Star 2 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save sugyan/516f6d3f7297d2865a93 to your computer and use it in GitHub Desktop.
Save sugyan/516f6d3f7297d2865a93 to your computer and use it in GitHub Desktop.
AngelEyes 更新監視スクリプト
MYMETA.*
META.yml
Makefile
carton.lock
inc/
local/
log/
.carton
requires 'ExtUtils::MakeMaker' => '6.62';
requires 'AnyEvent' => '6.14';
requires 'Config::Pit' => '0.04';
requires 'Log::Minimal' => '0.10';
requires 'Net::Twitter::Lite::WithAPIv1_1' => '0.12005';
requires 'Try::Tiny' => '0.11';
requires 'Web::Scraper' => '0.36';
requires 'WWW::Mechanize' => '1.72';
requires 'Digest::MD5' => '2.51';
requires 'Net::OAuth' => '0.25';
# carton snapshot format: version 1.0
DISTRIBUTIONS
AnyEvent-7.07
pathname: M/ML/MLEHMANN/AnyEvent-7.07.tar.gz
provides:
AE undef
AE::Log::COLLECT undef
AE::Log::FILTER undef
AE::Log::LOG undef
AnyEvent 7.07
AnyEvent::Base 7.07
AnyEvent::CondVar 7.07
AnyEvent::CondVar::Base 7.07
AnyEvent::DNS undef
AnyEvent::Debug undef
AnyEvent::Debug::Backtrace undef
AnyEvent::Debug::Wrap undef
AnyEvent::Debug::Wrapped undef
AnyEvent::Debug::shell undef
AnyEvent::Handle undef
AnyEvent::IO undef
AnyEvent::IO::IOAIO undef
AnyEvent::IO::Perl undef
AnyEvent::Impl::Cocoa undef
AnyEvent::Impl::EV undef
AnyEvent::Impl::Event undef
AnyEvent::Impl::EventLib undef
AnyEvent::Impl::FLTK undef
AnyEvent::Impl::Glib undef
AnyEvent::Impl::IOAsync undef
AnyEvent::Impl::Irssi undef
AnyEvent::Impl::POE undef
AnyEvent::Impl::Perl undef
AnyEvent::Impl::Qt undef
AnyEvent::Impl::Qt::Io undef
AnyEvent::Impl::Qt::Timer undef
AnyEvent::Impl::Tk undef
AnyEvent::Log undef
AnyEvent::Log::COLLECT undef
AnyEvent::Log::Ctx undef
AnyEvent::Log::FILTER undef
AnyEvent::Log::LOG undef
AnyEvent::Loop undef
AnyEvent::Socket undef
AnyEvent::Strict undef
AnyEvent::TLS undef
AnyEvent::Util undef
requirements:
ExtUtils::MakeMaker 0
Class-Accessor-0.34
pathname: K/KA/KASEI/Class-Accessor-0.34.tar.gz
provides:
Class::Accessor 0.34
Class::Accessor::Fast 0.34
Class::Accessor::Faster 0.34
requirements:
ExtUtils::MakeMaker 0
base 1.01
Class-Data-Inheritable-0.08
pathname: T/TM/TMTM/Class-Data-Inheritable-0.08.tar.gz
provides:
Class::Data::Inheritable 0.08
requirements:
ExtUtils::MakeMaker 0
Config-Pit-0.04
pathname: S/SA/SATOH/Config-Pit-0.04.tar.gz
provides:
Config::Pit 0.04
requirements:
ExtUtils::MakeMaker 6.42
File::HomeDir 0
File::Spec 0
File::Temp 0.2
Filter::Util::Call 0
List::MoreUtils 0
Path::Class 0
Test::More 0
YAML::Syck 1
Crypt-SSLeay-0.64
pathname: N/NA/NANIS/Crypt-SSLeay-0.64.tar.gz
provides:
Crypt::SSLeay 0.64
Crypt::SSLeay::CTX undef
Crypt::SSLeay::Conn undef
Crypt::SSLeay::Err undef
Crypt::SSLeay::MainContext undef
Crypt::SSLeay::X509 undef
Net::SSL 2.85
requirements:
ExtUtils::MakeMaker 0
LWP::Protocol::https 6.02
MIME::Base64 0
Test::More 0.88
Try::Tiny 0.09
Digest-HMAC-1.03
pathname: G/GA/GAAS/Digest-HMAC-1.03.tar.gz
provides:
Digest::HMAC 1.03
Digest::HMAC_MD5 1.01
Digest::HMAC_SHA1 1.03
requirements:
Digest::MD5 2
Digest::SHA 1
ExtUtils::MakeMaker 0
perl 5.004
Digest-SHA1-2.13
pathname: G/GA/GAAS/Digest-SHA1-2.13.tar.gz
provides:
Digest::SHA1 2.13
requirements:
Digest::base 1.00
ExtUtils::MakeMaker 0
perl 5.004
Encode-Locale-1.03
pathname: G/GA/GAAS/Encode-Locale-1.03.tar.gz
provides:
Encode::Locale 1.03
requirements:
Encode 2
Encode::Alias 0
ExtUtils::MakeMaker 0
Test 0
perl 5.008
File-HomeDir-1.00
pathname: A/AD/ADAMK/File-HomeDir-1.00.tar.gz
provides:
File::HomeDir 1.00
File::HomeDir::Darwin 1.00
File::HomeDir::Darwin::Carbon 1.00
File::HomeDir::Darwin::Cocoa 1.00
File::HomeDir::Driver 1.00
File::HomeDir::FreeDesktop 1.00
File::HomeDir::MacOS9 1.00
File::HomeDir::TIE 1.00
File::HomeDir::Test 1.00
File::HomeDir::Unix 1.00
File::HomeDir::Windows 1.00
requirements:
Carp 0
Cwd 3
ExtUtils::MakeMaker 6.36
File::Path 2.01
File::Spec 3
File::Temp 0.19
File::Which 0.05
Mac::SystemDirectory 0.04
Test::More 0.47
perl 5.00503
File-Listing-6.04
pathname: G/GA/GAAS/File-Listing-6.04.tar.gz
provides:
File::Listing 6.04
File::Listing::apache 6.04
File::Listing::dosftp 6.04
File::Listing::netware 6.04
File::Listing::unix 6.04
File::Listing::vms 6.04
requirements:
ExtUtils::MakeMaker 0
HTTP::Date 6
perl 5.006002
File-Slurp-9999.19
pathname: U/UR/URI/File-Slurp-9999.19.tar.gz
provides:
File::Slurp 9999.19
FileSlurp_12 9999.13
requirements:
Carp 0
Exporter 0
ExtUtils::MakeMaker 0
Fcntl 0
POSIX 0
File-Which-1.09
pathname: A/AD/ADAMK/File-Which-1.09.tar.gz
provides:
File::Which 1.09
requirements:
Exporter 0
ExtUtils::MakeMaker 0
File::Spec 0.60
Getopt::Std 0
Test::More 0.80
Test::Script 1.05
HTML-Form-6.03
pathname: G/GA/GAAS/HTML-Form-6.03.tar.gz
provides:
HTML::Form 6.03
HTML::Form::FileInput 6.03
HTML::Form::IgnoreInput 6.03
HTML::Form::ImageInput 6.03
HTML::Form::Input 6.03
HTML::Form::KeygenInput 6.03
HTML::Form::ListInput 6.03
HTML::Form::SubmitInput 6.03
HTML::Form::TextInput 6.03
requirements:
Encode 2
ExtUtils::MakeMaker 0
HTML::TokeParser 0
HTTP::Request 6
HTTP::Request::Common 6.03
URI 1.10
perl 5.008001
HTML-Parser-3.71
pathname: G/GA/GAAS/HTML-Parser-3.71.tar.gz
provides:
HTML::Entities 3.69
HTML::Filter 3.57
HTML::HeadParser 3.71
HTML::LinkExtor 3.69
HTML::Parser 3.71
HTML::PullParser 3.57
HTML::TokeParser 3.69
requirements:
ExtUtils::MakeMaker 0
HTML::Tagset 3
XSLoader 0
perl 5.008
HTML-Selector-XPath-0.16
pathname: C/CO/CORION/HTML-Selector-XPath-0.16.tar.gz
provides:
HTML::Selector::XPath 0.16
requirements:
ExtUtils::MakeMaker 6.59
Test::Base 0
Test::More 0
perl 5.008001
HTML-Tagset-3.20
pathname: P/PE/PETDANCE/HTML-Tagset-3.20.tar.gz
provides:
HTML::Tagset 3.20
requirements:
ExtUtils::MakeMaker 0
HTML-Tree-5.03
pathname: C/CJ/CJM/HTML-Tree-5.03.tar.gz
provides:
HTML::AsSubs 5.03
HTML::Element 5.03
HTML::Element::traverse 5.03
HTML::Parse 5.03
HTML::Tree 5.03
HTML::TreeBuilder 5.03
requirements:
Carp 0
Encode 0
Exporter 0
HTML::Entities 0
HTML::Parser 3.46
HTML::Tagset 3.02
Module::Build 0.2808
Scalar::Util 0
Test::Fatal 0
Test::More 0
base 0
integer 0
perl 5.008
HTML-TreeBuilder-XPath-0.14
pathname: M/MI/MIROD/HTML-TreeBuilder-XPath-0.14.tar.gz
provides:
HTML::Element 0.14
HTML::TreeBuilder::XPath 0.14
HTML::TreeBuilder::XPath::Attribute 0.14
HTML::TreeBuilder::XPath::Node 0.14
HTML::TreeBuilder::XPath::Root 0.14
HTML::TreeBuilder::XPath::TextNode 0.14
requirements:
ExtUtils::MakeMaker 0
HTML::TreeBuilder 0
List::Util 0
XML::XPathEngine 0.12
HTTP-Cookies-6.01
pathname: G/GA/GAAS/HTTP-Cookies-6.01.tar.gz
provides:
HTTP::Cookies 6.01
HTTP::Cookies::Microsoft 6.00
HTTP::Cookies::Netscape 6.00
requirements:
ExtUtils::MakeMaker 0
HTTP::Date 6
HTTP::Headers::Util 6
Time::Local 0
perl 5.008001
HTTP-Daemon-6.01
pathname: G/GA/GAAS/HTTP-Daemon-6.01.tar.gz
provides:
HTTP::Daemon 6.01
HTTP::Daemon::ClientConn 6.01
requirements:
ExtUtils::MakeMaker 0
HTTP::Date 6
HTTP::Request 6
HTTP::Response 6
HTTP::Status 6
IO::Socket 0
LWP::MediaTypes 6
Sys::Hostname 0
perl 5.008001
HTTP-Date-6.02
pathname: G/GA/GAAS/HTTP-Date-6.02.tar.gz
provides:
HTTP::Date 6.02
requirements:
ExtUtils::MakeMaker 0
Time::Local 0
perl 5.006002
HTTP-Message-6.06
pathname: G/GA/GAAS/HTTP-Message-6.06.tar.gz
provides:
HTTP::Config 6.00
HTTP::Headers 6.05
HTTP::Headers::Auth 6.00
HTTP::Headers::ETag 6.00
HTTP::Headers::Util 6.03
HTTP::Message 6.06
HTTP::Request 6.00
HTTP::Request::Common 6.04
HTTP::Response 6.04
HTTP::Status 6.03
requirements:
Compress::Raw::Zlib 0
Encode 2.21
Encode::Locale 1
ExtUtils::MakeMaker 0
HTTP::Date 6
IO::Compress::Bzip2 2.021
IO::Compress::Deflate 0
IO::Compress::Gzip 0
IO::HTML 0
IO::Uncompress::Bunzip2 2.021
IO::Uncompress::Gunzip 0
IO::Uncompress::Inflate 0
IO::Uncompress::RawInflate 0
LWP::MediaTypes 6
MIME::Base64 2.1
MIME::QuotedPrint 0
URI 1.10
perl 5.008001
HTTP-Negotiate-6.01
pathname: G/GA/GAAS/HTTP-Negotiate-6.01.tar.gz
provides:
HTTP::Negotiate 6.01
requirements:
ExtUtils::MakeMaker 0
HTTP::Headers 6
perl 5.008001
HTTP-Server-Simple-0.44
pathname: J/JE/JESSE/HTTP-Server-Simple-0.44.tar.gz
provides:
HTTP::Server::Simple 0.44
HTTP::Server::Simple::CGI undef
HTTP::Server::Simple::CGI::Environment undef
requirements:
CGI 0
ExtUtils::MakeMaker 6.42
Socket 0
Test::More 0
IO-HTML-1.00
pathname: C/CJ/CJM/IO-HTML-1.00.tar.gz
provides:
IO::HTML 1.00
requirements:
Carp 0
Encode 2.10
Exporter 5.57
ExtUtils::MakeMaker 6.30
File::Temp 0
Scalar::Util 0
Test::More 0.88
IO-Socket-SSL-1.966
pathname: S/SU/SULLR/IO-Socket-SSL-1.966.tar.gz
provides:
IO::Socket::SSL 1.966
IO::Socket::SSL::Intercept 1.93
IO::Socket::SSL::SSL_Context 1.966
IO::Socket::SSL::SSL_HANDLE 1.966
IO::Socket::SSL::Session_Cache 1.966
IO::Socket::SSL::Utils 0.02
requirements:
ExtUtils::MakeMaker 0
Net::SSLeay 1.46
Scalar::Util 0
IPC-Run3-0.046
pathname: R/RJ/RJBS/IPC-Run3-0.046.tar.gz
provides:
IPC::Run3 0.046
requirements:
ExtUtils::MakeMaker 0
Test::More 0.31
Time::HiRes 0
JSON-2.90
pathname: M/MA/MAKAMAKA/JSON-2.90.tar.gz
provides:
JSON 2.90
JSON::Backend::PP 2.90
JSON::Boolean 2.90
requirements:
ExtUtils::MakeMaker 0
Test::More 0
LWP-MediaTypes-6.02
pathname: G/GA/GAAS/LWP-MediaTypes-6.02.tar.gz
provides:
LWP::MediaTypes 6.02
requirements:
ExtUtils::MakeMaker 0
perl 5.006002
LWP-Protocol-https-6.04
pathname: G/GA/GAAS/LWP-Protocol-https-6.04.tar.gz
provides:
LWP::Protocol::https 6.04
LWP::Protocol::https::Socket 6.04
requirements:
ExtUtils::MakeMaker 0
IO::Socket::SSL 1.54
LWP::UserAgent 6.04
Mozilla::CA 20110101
Net::HTTPS 6
perl 5.008001
List-MoreUtils-0.33
pathname: A/AD/ADAMK/List-MoreUtils-0.33.tar.gz
provides:
List::MoreUtils 0.33
requirements:
ExtUtils::CBuilder 0.27
ExtUtils::MakeMaker 6.52
Test::More 0.82
perl 5.00503
Log-Minimal-0.17
pathname: K/KA/KAZEBURO/Log-Minimal-0.17.tar.gz
provides:
Log::Minimal 0.17
requirements:
CPAN::Meta 0
CPAN::Meta::Prereqs 0
Data::Dumper 0
ExtUtils::CBuilder 0
Module::Build 0.38
Scalar::Util 0
Term::ANSIColor 0
Mac-SystemDirectory-0.06
pathname: C/CH/CHANSEN/Mac-SystemDirectory-0.06.tar.gz
provides:
Mac::SystemDirectory 0.06
requirements:
ExtUtils::MakeMaker 6.42
Test::More 0.86
perl 5.006
Mozilla-CA-20130114
pathname: A/AB/ABH/Mozilla-CA-20130114.tar.gz
provides:
Mozilla::CA 20130114
requirements:
ExtUtils::MakeMaker 0
Test 0
perl 5.006
Net-HTTP-6.06
pathname: G/GA/GAAS/Net-HTTP-6.06.tar.gz
provides:
Net::HTTP 6.06
Net::HTTP::Methods 6.06
Net::HTTP::NB 6.04
Net::HTTPS 6.04
requirements:
Compress::Raw::Zlib 0
ExtUtils::MakeMaker 0
IO::Compress::Gzip 0
IO::Select 0
IO::Socket::INET 0
perl 5.006002
Net-OAuth-0.28
pathname: K/KG/KGRENNAN/Net-OAuth-0.28.tar.gz
provides:
Net::OAuth 0.28
Net::OAuth::AccessToken undef
Net::OAuth::AccessTokenRequest undef
Net::OAuth::AccessTokenResponse undef
Net::OAuth::Client undef
Net::OAuth::ConsumerRequest undef
Net::OAuth::Message undef
Net::OAuth::ProtectedResourceRequest undef
Net::OAuth::Request 0.28
Net::OAuth::RequestTokenRequest undef
Net::OAuth::RequestTokenResponse undef
Net::OAuth::Response undef
Net::OAuth::SignatureMethod::HMAC_SHA1 undef
Net::OAuth::SignatureMethod::HMAC_SHA256 undef
Net::OAuth::SignatureMethod::PLAINTEXT undef
Net::OAuth::SignatureMethod::RSA_SHA1 undef
Net::OAuth::UserAuthRequest undef
Net::OAuth::UserAuthResponse undef
Net::OAuth::V1_0A::AccessTokenRequest undef
Net::OAuth::V1_0A::RequestTokenRequest undef
Net::OAuth::V1_0A::RequestTokenResponse undef
Net::OAuth::V1_0A::UserAuthResponse undef
Net::OAuth::XauthAccessTokenRequest undef
Net::OAuth::YahooAccessTokenRefreshRequest undef
requirements:
Class::Accessor 0.31
Class::Data::Inheritable 0.06
Digest::HMAC_SHA1 1.01
Digest::SHA 5.47
Digest::SHA1 2.12
Encode 2.35
LWP::UserAgent 1
Module::Build 0.36
Test::More 0.66
Test::Warn 0.21
URI::Escape 3.28
Net-SSLeay-1.58
pathname: M/MI/MIKEM/Net-SSLeay-1.58.tar.gz
provides:
Net::SSLeay 1.58
Net::SSLeay::Handle 0.61
requirements:
ExtUtils::MakeMaker 6.36
MIME::Base64 0
Test::More 0.60_01
perl 5.005
Net-Twitter-Lite-0.12006
pathname: M/MM/MMIMS/Net-Twitter-Lite-0.12006.tar.gz
provides:
Net::Twitter::Lite 0.12006
Net::Twitter::Lite::API::V1 0.12006
Net::Twitter::Lite::API::V1_1 0.12006
Net::Twitter::Lite::Error 0.12006
Net::Twitter::Lite::WithAPIv1_1 0.12006
Net::Twitter::Lite::WrapResult 0.12006
requirements:
Carp 0
Crypt::SSLeay 0.5
Encode 0
HTTP::Request::Common 0
JSON 2.02
LWP::UserAgent 2.032
Module::Build 0.3601
Net::HTTP >= 0, != 6.04, != 6.05
Net::Netrc 0
URI 1.40
URI::Escape 0
overload 0
parent 0
perl 5.005
strict 0
warnings 0
Path-Class-0.33
pathname: K/KW/KWILLIAMS/Path-Class-0.33.tar.gz
provides:
Path::Class 0.33
Path::Class::Dir 0.33
Path::Class::Entity 0.33
Path::Class::File 0.33
requirements:
Carp 0
Cwd 0
Exporter 0
ExtUtils::MakeMaker 6.30
File::Copy 0
File::Path 0
File::Spec 3.26
File::Temp 0
File::stat 0
IO::Dir 0
IO::File 0
Module::Build 0.3601
Perl::OSType 0
Scalar::Util 0
overload 0
parent 0
strict 0
PathTools-3.40
pathname: S/SM/SMUELLER/PathTools-3.40.tar.gz
provides:
Cwd 3.40
File::Spec 3.40
File::Spec::Cygwin 3.40
File::Spec::Epoc 3.40
File::Spec::Functions 3.40
File::Spec::Mac 3.40
File::Spec::OS2 3.40
File::Spec::Unix 3.40
File::Spec::VMS 3.40
File::Spec::Win32 3.40
requirements:
Carp 0
ExtUtils::MakeMaker 0
File::Basename 0
Scalar::Util 0
Test 0
Probe-Perl-0.03
pathname: K/KW/KWILLIAMS/Probe-Perl-0.03.tar.gz
provides:
Probe::Perl 0.03
requirements:
Config 0
ExtUtils::MakeMaker 6.30
File::Spec 0
strict 0
Spiffy-0.31
pathname: I/IN/INGY/Spiffy-0.31.tar.gz
provides:
Spiffy 0.31
Spiffy::mixin undef
requirements:
ExtUtils::MakeMaker 6.59
perl 5.006001
Sub-Uplevel-0.24
pathname: D/DA/DAGOLDEN/Sub-Uplevel-0.24.tar.gz
provides:
Sub::Uplevel 0.24
requirements:
Carp 0
Exporter 0
ExtUtils::MakeMaker 6.30
File::Find 0
File::Temp 0
Test::More 0
constant 0
strict 0
warnings 0
Test-Base-0.60
pathname: I/IN/INGY/Test-Base-0.60.tar.gz
provides:
Module::Install::TestBase 0.60
Test::Base 0.60
Test::Base::Block 0.60
Test::Base::Filter undef
Test::Base::Handle 0.60
requirements:
ExtUtils::MakeMaker 6.42
Filter::Util::Call 0
Spiffy 0.30
Test::More 0.62
perl 5.006001
Test-Fatal-0.013
pathname: R/RJ/RJBS/Test-Fatal-0.013.tar.gz
provides:
Test::Fatal 0.013
requirements:
Carp 0
Exporter 5.57
ExtUtils::MakeMaker 6.30
Test::Builder 0
Try::Tiny 0.07
strict 0
warnings 0
Test-Requires-0.07
pathname: T/TO/TOKUHIROM/Test-Requires-0.07.tar.gz
provides:
Test::Requires 0.07
requirements:
CPAN::Meta 0
CPAN::Meta::Prereqs 0
ExtUtils::MakeMaker 6.59
Module::Build 0.38
Test::Builder::Module 0
Test::More 0.61
perl 5.008_001
Test-Script-1.07
pathname: A/AD/ADAMK/Test-Script-1.07.tar.gz
provides:
Test::Script 1.07
requirements:
ExtUtils::MakeMaker 6.42
File::Spec 0.80
IPC::Run3 0.034
Probe::Perl 0.01
Test::Builder 0.32
Test::Builder::Tester 1.02
Test::More 0.62
blib 0
Test-Warn-0.24
pathname: C/CH/CHORNY/Test-Warn-0.24.tar.gz
provides:
Test::Warn 0.24
Test::Warn::Categorization 0.24
Test::Warn::DAG_Node_Tree 0.24
requirements:
Carp 1.22
ExtUtils::MakeMaker 0
File::Spec 0
Sub::Uplevel 0.12
Test::Builder 0.13
Test::Builder::Tester 1.02
Test::More 0
Tree::DAG_Node 1.02
perl 5.006
Tree-DAG_Node-1.19
pathname: R/RS/RSAVAGE/Tree-DAG_Node-1.19.tgz
provides:
Tree::DAG_Node 1.19
requirements:
File::Slurp 9999.19
File::Spec 3.4
File::Temp 0
Module::Build 0.38
Test::More 0.98
strict 0
warnings 0
Try-Tiny-0.19
pathname: D/DO/DOY/Try-Tiny-0.19.tar.gz
provides:
Try::Tiny 0.19
requirements:
Carp 0
Exporter 5.57
ExtUtils::MakeMaker 6.30
constant 0
strict 0
warnings 0
UNIVERSAL-require-0.15
pathname: N/NE/NEILB/UNIVERSAL-require-0.15.tar.gz
provides:
UNIVERSAL 0.15
UNIVERSAL::require 0.15
requirements:
ExtUtils::MakeMaker 0
Test::More 0.47
URI-1.60
pathname: G/GA/GAAS/URI-1.60.tar.gz
provides:
URI 1.60
URI::Escape 3.31
URI::Heuristic 4.20
URI::IRI undef
URI::QueryParam undef
URI::Split undef
URI::URL 5.04
URI::WithBase 2.20
URI::_foreign undef
URI::_generic undef
URI::_idna undef
URI::_ldap 1.12
URI::_login undef
URI::_punycode 0.04
URI::_query undef
URI::_segment undef
URI::_server undef
URI::_userpass undef
URI::data undef
URI::file 4.21
URI::file::Base undef
URI::file::FAT undef
URI::file::Mac undef
URI::file::OS2 undef
URI::file::QNX undef
URI::file::Unix undef
URI::file::Win32 undef
URI::ftp undef
URI::gopher undef
URI::http undef
URI::https undef
URI::ldap 1.12
URI::ldapi undef
URI::ldaps undef
URI::mailto undef
URI::mms undef
URI::news undef
URI::nntp undef
URI::pop undef
URI::rlogin undef
URI::rsync undef
URI::rtsp undef
URI::rtspu undef
URI::sip 0.11
URI::sips undef
URI::snews undef
URI::ssh undef
URI::telnet undef
URI::tn3270 undef
URI::urn undef
URI::urn::isbn undef
URI::urn::oid undef
requirements:
ExtUtils::MakeMaker 0
MIME::Base64 2
Test 0
Test::More 0
perl 5.008001
WWW-Mechanize-1.73
pathname: E/ET/ETHER/WWW-Mechanize-1.73.tar.gz
provides:
WWW::Mechanize 1.73
WWW::Mechanize::Image undef
WWW::Mechanize::Link undef
requirements:
Carp 0
ExtUtils::MakeMaker 0
File::Temp 0
FindBin 0
Getopt::Long 0
HTML::Form 6
HTML::HeadParser 0
HTML::Parser 3.33
HTML::TokeParser 2.28
HTML::TreeBuilder 0
HTTP::Daemon 0
HTTP::Request 1.3
HTTP::Server::Simple 0.35
HTTP::Server::Simple::CGI 0
HTTP::Status 0
LWP 5.829
LWP::UserAgent 5.829
Pod::Usage 0
Test::More 0.34
Test::Warn 0.11
URI 1.36
URI::URL 0
URI::file 0
perl 5.008
WWW-RobotRules-6.02
pathname: G/GA/GAAS/WWW-RobotRules-6.02.tar.gz
provides:
WWW::RobotRules 6.02
WWW::RobotRules::AnyDBM_File 6.00
WWW::RobotRules::InCore 6.02
requirements:
AnyDBM_File 0
ExtUtils::MakeMaker 0
Fcntl 0
URI 1.10
perl 5.008001
Web-Scraper-0.37
pathname: M/MI/MIYAGAWA/Web-Scraper-0.37.tar.gz
provides:
Web::Scraper 0.37
Web::Scraper::Filter undef
Web::Scraper::LibXML undef
requirements:
ExtUtils::MakeMaker 6.59
HTML::Entities 0
HTML::Selector::XPath 0.03
HTML::Tagset 0
HTML::TreeBuilder 3.23
HTML::TreeBuilder::XPath 0.08
LWP 5.827
Scalar::Util 0
Test::Base 0
Test::More 0
Test::Requires 0
UNIVERSAL::require 0
URI 0
XML::XPathEngine 0.08
YAML 0
perl 5.008001
XML-XPathEngine-0.14
pathname: M/MI/MIROD/XML-XPathEngine-0.14.tar.gz
provides:
XML::XPathEngine 0.14
XML::XPathEngine::Boolean undef
XML::XPathEngine::Expr undef
XML::XPathEngine::Function undef
XML::XPathEngine::Literal undef
XML::XPathEngine::LocationPath undef
XML::XPathEngine::NodeSet undef
XML::XPathEngine::Number undef
XML::XPathEngine::Root undef
XML::XPathEngine::Step undef
XML::XPathEngine::Variable undef
requirements:
ExtUtils::MakeMaker 0
Test::More 0
YAML-0.88
pathname: I/IN/INGY/YAML-0.88.tar.gz
provides:
Test::YAML 0.88
Test::YAML::Filter 0.88
YAML 0.88
YAML::Any 0.88
YAML::Dumper 0.88
YAML::Dumper::Base 0.88
YAML::Error 0.88
YAML::Loader 0.88
YAML::Loader::Base 0.88
YAML::Marshall 0.88
YAML::Mo 0.88
YAML::Node 0.88
YAML::Tag 0.88
YAML::Type::blessed 0.88
YAML::Type::code 0.88
YAML::Type::glob 0.88
YAML::Type::ref 0.88
YAML::Type::regexp 0.88
YAML::Type::undef 0.88
YAML::Types 0.88
YAML::Warning 0.88
yaml_mapping 0.88
yaml_scalar 0.88
yaml_sequence 0.88
requirements:
ExtUtils::MakeMaker 6.59
perl 5.008001
YAML-Syck-1.27
pathname: T/TO/TODDR/YAML-Syck-1.27.tar.gz
provides:
JSON::Syck 1.27
YAML::Dumper::Syck undef
YAML::Loader::Syck undef
YAML::Syck 1.27
requirements:
ExtUtils::MakeMaker 6.59
perl 5.006
libwww-perl-6.05
pathname: G/GA/GAAS/libwww-perl-6.05.tar.gz
provides:
LWP 6.05
LWP::Authen::Basic undef
LWP::Authen::Digest undef
LWP::Authen::Ntlm 6.00
LWP::ConnCache 6.02
LWP::Debug undef
LWP::DebugFile undef
LWP::MemberMixin undef
LWP::Protocol 6.00
LWP::Protocol::GHTTP undef
LWP::Protocol::MyFTP undef
LWP::Protocol::cpan undef
LWP::Protocol::data undef
LWP::Protocol::file undef
LWP::Protocol::ftp undef
LWP::Protocol::gopher undef
LWP::Protocol::http undef
LWP::Protocol::http::Socket undef
LWP::Protocol::http::SocketMethods undef
LWP::Protocol::loopback undef
LWP::Protocol::mailto undef
LWP::Protocol::nntp undef
LWP::Protocol::nogo undef
LWP::RobotUA 6.03
LWP::Simple 6.00
LWP::UserAgent 6.05
requirements:
Digest::MD5 0
Encode 2.12
Encode::Locale 0
ExtUtils::MakeMaker 0
File::Listing 6
HTML::Entities 0
HTML::HeadParser 0
HTTP::Cookies 6
HTTP::Daemon 6
HTTP::Date 6
HTTP::Negotiate 6
HTTP::Request 6
HTTP::Request::Common 6
HTTP::Response 6
HTTP::Status 6
IO::Select 0
IO::Socket 0
LWP::MediaTypes 6
MIME::Base64 2.1
Net::FTP 2.58
Net::HTTP 6.04
URI 1.10
URI::Escape 0
WWW::RobotRules 6
perl 5.008001
#!/bin/sh
export HOME=/home/sugyan
export PATH=${HOME}/.plenv/bin:${PATH}
eval "$(plenv init -)"
exec 2>&1
exec setuidgid sugyan carton exec perl watch_latest.pl
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use AnyEvent;
use Config::Pit;
use Digest::MD5 'md5_hex';
use Encode 'encode_utf8';
use Log::Minimal;
use Net::Twitter::Lite::WithAPIv1_1;
use Try::Tiny;
use Web::Scraper;
use WWW::Mechanize;
my $conf = +{
twitter => {
bot => pit_get('twitter.com/bot', require => {
consumer_key => 'consumer key',
consumer_secret => 'consumer secret',
access_token => 'access token',
access_token_secret => 'access token secret',
}),
},
angeleyes => pit_get('fc.momoclo.net', require => {
login_id => '会員番号',
password => 'パスワード',
}),
};
my $previous = +{
diary => undef,
news => undef,
photo => undef,
};
my $cv = AE::cv;
my $w = AE::timer 0, 100, sub {
try {
my $mech = WWW::Mechanize->new;
$mech->get('https://fc.momoclo.net/pc/login.php');
die $mech->status unless $mech->success;
$mech->submit_form(
form_id => 'loginForm',
fields => $conf->{angeleyes},
);
die $mech->status unless $mech->success;
# login check
# 失敗していても200が返ってくるクソform
my $errors = scraper {
process 'ul.errors' => errors => 'TEXT';
}->scrape($mech->content);
die $errors->{errors} if $errors->{errors};
my $latest = +{
news => scraper {
process '#topnews .cont li', 'contents[]' => scraper {
process 'a', 'title' => 'TEXT';
process 'p.date', 'date' => 'TEXT';
};
}->scrape($mech->content)->{contents}[0],
photo => scraper {
process '#topphoto .cont li', 'contents[]' => scraper {
process 'a', 'title' => 'TEXT';
};
}->scrape($mech->content)->{contents}[0],
};
# diaryは別ページになってしまった
$mech->get('/pc/diary/');
die $mech->status unless $mech->success;
$latest->{diary} = scraper {
process '#contents .cont li', 'contents[]' => scraper {
process 'h3 a', 'title' => 'TEXT';
process 'p.date', 'date' => 'TEXT';
};
}->scrape($mech->content)->{contents}[0];
for my $key (qw(diary news photo)) {
my $current = encode_utf8($latest->{$key}{title});
my $date = $latest->{$key}{date};
if ($date) {
$current .= encode_utf8(" (${date})");
}
infof('latest %5s: %s', $key, $current);
if (defined $previous->{$key} && $previous->{$key} ne $current) {
for my $account (keys %{ $conf->{twitter} }) {
try {
my $ntl = Net::Twitter::Lite::WithAPIv1_1->new(
%{ $conf->{twitter}{$account} },
legacy_lists_api => 0,
ssl => 1,
);
my $profile = $ntl->verify_credentials;
my $status = sprintf '[更新通知][ANGEL EYES][%s]『%s』が更新されたかも', (
substr(md5_hex($current), 0, 7),
+{
diary => '不定期日記',
news => 'ニュース',
photo => 'フォトリポート',
}->{$key},
);
$status .= " (${date})" if $date;
$ntl->update($status);
} catch {
warnf('tweet error: %s', $_);
};
}
}
$previous->{$key} = $current;
}
} catch {
warnf('error: %s', $_);
};
};
$cv->recv;
Copy link

ghost commented Aug 17, 2012

仕事が速いです!私も今pythonで実装してますので、是非参考にさせて頂きます。

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment