サイトã®ã‚¯ãƒãƒ¼ãƒªãƒ³ã‚°ã«ã¯ScrappyãŒã™ã”ãã„ã„ã‹ã‚‚ã—ã‚Œãªã„ - Perl勉強メモ　アルパカDiary出張版
クãƒãƒ¼ãƒªãƒ³ã‚°æ¥½ã—ã„ã§ã™ã‚ˆãï¼ perlã§é«˜é€Ÿã«ã‚¯ãƒãƒ¼ãƒ«ã—ãŸã„ã®ã§ã‚ã‚Œã°Gunghoãªã©ä½¿ã†ã®ãŒã„ã„ã‹ã‚‚ã—ã‚Œã¾ã›ã‚“ãŒã€ 基本手軽ã«ã‚„ã‚ŠãŸã„ã“ã¨ãŒå¤šã„ã®ã§ WWW::Mechanize+Web::Scraper ã¨ã„ã†çµ„ã¿åˆã‚ã›ã§ã‚¯ãƒãƒ¼ãƒ«ã™ã‚‹ã®ãŒå®šç•ªã§ã—ãŸã€‚ ã—ã‹ã—ãŸã¾ãŸã¾ Scrappy を知り〠少ã—触ã£ã¦ã¿ãŸã¨ã“ã‚ã™ã”ãã„ã„ã®ã§ã¯ãªã„ã‹ï¼ï¼Ÿã¨æ€ã„ 記事ã«ã—ã¦ã¿ã¾ã—ãŸã€‚*1 基本系(crawlコマンドを利用ã™ã‚‹å ´åˆ) my $scrappy = Scrappy->new; $scrappy->crawl('１．クãƒãƒ¼ãƒ«ã™ã‚‹ãƒ«ãƒ¼ãƒˆURL', '２．URLã«ãƒžãƒƒãƒã™ã‚‹ãƒ‘ス' => { '３．コンテンツã«ãƒžãƒƒãƒã™ã‚‹xpath or CSSセレクタ' => sub { my ($self, $item) = @_; # ４．ã‚ューã«è¿½åŠ $self->queue->add($item->{href
フォームã‹ã‚‰ã®å…¥åŠ›ã‚’å—ã‘å–ã‚‹ - Web Liberty
フォームã‹ã‚‰ã®å…¥åŠ›ã‚’å—ã‘å–ã‚‹ フォームã‹ã‚‰ã®å…¥åŠ›ã‚’å—ã‘å–ã‚‹ フォームã‹ã‚‰ã®å…¥åŠ›å†…容を表示ã™ã‚‹ãƒ—ãƒã‚°ãƒ©ãƒ フォームã‹ã‚‰ã®è¤‡æ•°ã®å…¥åŠ›å†…容を表示ã™ã‚‹ãƒ—ãƒã‚°ãƒ©ãƒ フォームã‹ã‚‰ã®å…¥åŠ›å†…容をファイルã«è¨˜éŒ²ã™ã‚‹ãƒ—ãƒã‚°ãƒ©ãƒ フォームã‹ã‚‰ã®å…¥åŠ›ã‚’å—ã‘å–ã‚‹ 掲示æ¿ãªã©ã§ä½¿ç”¨ã•ã‚Œã‚‹ãƒ•ã‚©ãƒ¼ãƒ ã‹ã‚‰ãƒ‡ãƒ¼ã‚¿ã‚’å—ã‘å–る方法ã§ã™ã€‚フォームã¨ã¯ã€ä»¥ä¸‹ã®ã‚ˆã†ãªã‚‚ã®ã§ã™ã€‚ サンプルフォームãŠåå‰ æ€§åˆ¥ 男性 / 女性 è·æ¥ メッセージ é€ä¿¡å‰ã«ãƒ—レビューを表示 フォームã‹ã‚‰å€¤ã‚’å—ã‘å–ã‚‹ãŸã‚ã®ãƒ—ãƒã‚°ãƒ©ãƒ ã¯ä»¥ä¸‹ã®ã‚ˆã†ã«ãªã‚Šã¾ã™ã€‚少々難ã—ã„ã®ã§ã€å®Œå…¨ã«ç†è§£ã§ããªãã¦ã‚‚大丈夫ã§ã™ã€‚ã¨ã‚Šã‚ãˆãšã€æ±ºã¾ã‚Šæ–‡å¥ã ã¨æ€ã£ã¦ãŠã„ã¦ãã ã•ã„。（詳ã—ã„内容ã¯ãƒ•ã‚©ãƒ¼ãƒ ã‹ã‚‰ã®å…¥åŠ›ã‚’å—ã‘å–る処ç†ã®è©³ç´°è§£èª¬ã‚’ã”覧ãã ã•ã„。） if ($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $alldata, $ENV{
Perlå…¬å¼ãƒ‰ã‚ュメント日本語版
ã“ã®ã‚µã‚¤ãƒˆã¯ Perl ã®å…¬å¼ãƒ‰ã‚ュメントを日本語翻訳ã—ãŸã‚‚ã®ã‚’表示ã™ã‚‹ã‚µã‚¤ãƒˆã§ã™ã€‚翻訳データã¯ã€perldocjp project ã‹ã‚‰ã¨ã£ã¦ããŸã‚‚ã®ã§ã™ã€‚ é¡žä¼¼ã®ã‚‚ã®ã« perldoc.jp ãŒã‚ã‚Šã¾ã™ãŒã€ãれよりもã¿ã‚„ã™ããªã‚‹ã‚ˆã†ã«ãŒã‚“ã°ã£ã¦ã¿ã¾ã—ãŸã€‚ ドã‚ュメント一覧 概è¦(overview) perl - Perl ã®æ¦‚è¦ perlrun - perl コマンドã®å®Ÿè¡Œã¨ã‚ªãƒ—ションã«ã¤ã„㦠ãƒãƒ¥ãƒ¼ãƒˆãƒªã‚¢ãƒ« perldebtut - デãƒãƒƒã‚°ã®ãƒãƒ¥ãƒ¼ãƒˆãƒªã‚¢ãƒ« perlopentut - Perl ã§ã„ã‚ã‚“ãªã‚‚ã®ã‚’é–‹ããŸã‚ã®ãƒãƒ¥ãƒ¼ãƒˆãƒªã‚¢ãƒ« perlpacktut - pack 㨠unpack ã®ãƒãƒ¥ãƒ¼ãƒˆãƒªã‚¢ãƒ« perlreftut - Mark ã«ã‚ˆã‚‹ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã«é–¢ã™ã‚‹ã¨ã¦ã‚‚çŸã„ãƒãƒ¥ãƒ¼ãƒˆãƒªã‚¢ãƒ« perlretut - Perl ã®æ£è¦è¡¨ç¾ã®ãƒãƒ¥ãƒ¼ãƒˆãƒªã‚¢ãƒ« perlt
perlã§mp3æƒ…å ±ã‚’æ‰±ã£ã¦ã¿ã‚ˆã†ã€‚MP3::Info - 雑想空間
perlã‚’ã¡ã‚‡ã„ã¡ã‚‡ã„使ã£ã¦ã¾ã™ã€‚ perlã¯ãƒ†ã‚スト処ç†ã«ã¯å‘ã„ã¦ã„ã¾ã™ãŒã€ 音楽 å‹•ç”» ç”»åƒ ãªã©ã®ãƒ¡ãƒ‡ã‚£ã‚¢å‘ã‘ã®æ“作ã¯ã‚ã¾ã‚Šé©ã—ã¦ãªã„ã§ã™ã。 æƒ…å ±ã‚‚å°‘ãªã„ã§ã™ã€‚ ã¾ãã€ãã‚‚ãã‚‚ã€ãã£ã¡ç³»æ‰±ã„ãŸã„ãªã‚‰ã€åˆ¥ã®è¨€èªžä½¿ãˆã€ã£ã¦è©±ãªã‚“ã§ã—ょã†ãŒãƒ»ãƒ»ãƒ»ã€‚ 使ã£ã¦ã¿ã¾ã—ãŸã€MP3::Info #!/usr/bin/perl use strict; use warnings; use MP3::Info; use Data::Dumper; main(); sub main { my $file = $ARGV[0]; my $tag = get_mp3tag($file); my $info = get_mp3info($file); print Dumper($tag, $info); }ã¨ã‚Šã‚ãˆãšã“ã‚“ãªæ„Ÿã˜ã€‚ perl mp3-info.pl test.mp3ã“ã‚“ãªã®ã‚’å©ã„ã¦ã¿ã‚‹ã¨ã€ $VA
Catalyst::Model::Adaptor
2. Catalyst ã®ã„ã‚„ã‚“ãªã¨ã“ã‚ component ㌠context ã«ä¾å˜ã—ã¦ã‚‹ãƒ¼ï¼žç‰¹ã« Model! MyApp::M::Foo ã«ãƒ“ジãƒã‚¹ãƒã‚¸ãƒƒã‚¯ã‚’実装ã™ã‚‹ã¨ Catalyst ã§ã—ã‹ä½¿ãˆãªã„ Test ãŒé¢å€’ãã•ã„ï¼ 4. 作り方 Helper ãŒã¤ã„ã¦ã‚‹ script/myapp_create model Foo Adaptor Foo::Class create package MyApp::Model::Foo; use strict; use warnings; use base 'Catalyst::Model::Adaptor'; __PACKAGE__->config( class => ‘Foo::Class', constructor => ‘create', ); 1;
Catalystã‚„ã£ã¦ã¿ãŸ - Perl日記
土曜日ãŒä¼‘ã¿ã ã¨å¿ƒã«ä½™è£•ãŒã§ãã‚‹ãªã‚。 WEB+DB PRESSã‚’åˆã‚ã¦è²·ã£ã¦èªã‚“ã§ãŸã‚‰Catalystã¨Moose使ã£ã¦ãŸã‚³ãƒ¼ãƒ‰ãŒè¼‰ã£ã¦ã¦è‡ªåˆ†ã§ã‚‚ã‚„ã£ã¦ã¿ãŸããªã£ãŸã®ã§ã‚„ã£ã¦ã¿ãŸã®ã§ãã®è¨˜éŒ²ã€‚ ã¨ã‚Šã‚ãˆãšCatalystを自分ã®Macã«å…¥ã‚Œã¦ã€é©å½“ã«é››å½¢ã‚’作る。 % mkdir catalyst_test % cd catalyst_test % catalyst.pl MyTest::Web created "MyTest-Web" created "MyTest-Web/script" created "MyTest-Web/lib" ..... Change to application directory and Run "perl Makefile.PL" to make sure your install is completeãªã‚“ã‹ã„ã£ã±ã„ã§ããŸã€‚ ä¸ã«ã¯CPANå½¢å¼ã§ã¡ã‚ƒ
ã¾ã 続ãモデル分離ã¨ã‹ãƒ†ã‚¹ãƒˆã¨ã‹ - æ–°ã ã‚‹ã‚ã跡地
今日も今日ã¨ã¦ã€‚ MyApp::Web作ã£ãŸã‚‰configèªã‚ãªããªã£ãŸãƒ¼ã£ã¦å–šã„ã¦ãŸã‚‰æ˜¨æ—¥ï¼ˆã‚€ã—ã‚今日ã®åˆå‰4時）ã«ç¥žã‹ã‚‰ã‚³ãƒ¡ãƒ³ãƒˆã§åŽŸå› ã‚’æ•™ãˆã¦ã‚‚らã†ã€‚ プãƒã‚¸ã‚§ã‚¯ãƒˆã‚’ catalyst.pl MyApp ã§ä½œã£ãŸã‚ã¨ã§ãƒ‘ッケージå書ãæ›ãˆãŸã‚Šãƒ•ã‚¡ã‚¤ãƒ«ç§»å‹•ã—ãŸã‚Šã—ãŸã®ãŒã¾ãšã‹ã£ãŸã€‚ Catalyst::Plugin::ConfigLoaderãŒèªã‚€è¨å®šãƒ•ã‚¡ã‚¤ãƒ«ã¯ã‚¢ãƒ—リケーションクラスをdecamelizeã—ãŸãƒ•ã‚¡ã‚¤ãƒ«åã§ã‚ã‚‹ 勉強ã«ãªã£ãŸã€‚神ã«æ„Ÿè¬ã€‚ 最åˆã‹ã‚‰ catalyst.pl MyApp::Web ã¨ã‹æ‰“ã¦ã°ã™ã¹ã¦ã‚ˆã—ãªã«å®Ÿè¡Œã•ã‚Œã‚‹ã€‚ モデル作りã¾ãã‚‹ã®ãŒã‚ã©ã„件 å‰è¿°ã®é€šã‚Šã€Catalyst::Model::Adaptorを使ã†ã¨ã€ãƒ†ãƒ¼ãƒ–ルã«å¯¾å¿œã™ã‚‹ãƒ¢ãƒ‡ãƒ«ã‚’ã€ãƒ†ãƒ¼ãƒ–ルã®æ•°ã ã‘作らãªã‘ã‚Œã°ãªã‚‰ãªã„。 ã‚ã©ã„ã®ã§ã‚°ã‚°ã‚‹ã¨ã‚„ã£ã±ã‚ŠåŒã˜ã“ã¨æ€ã£ã¦ã‚‹äººãŒã„ã¦ã€ä»¥ä¸‹ã®ã©ã£ã¡ã‹ã‚’使ãˆã°è§£æ¶ˆã•
「モダンPerl入門ã€ã®å…¥é–€
æ ªå¼ä¼šç¤¾ã‚¬ã‚¤ã‚¢ãƒƒã‚¯ã‚¹ã§ã¯ã€è‹¥æ‰‹ãƒ¡ãƒ³ãƒãƒ¼ãŒå¤šã„ãªãŒã‚‰ã‚‚ã€æ–°ã—ã„技術をå–り入れãŸãƒ—ãƒãƒ€ã‚¯ãƒˆä½œã‚Šã«å–り組んã§ãŠã‚Šã¾ã™ã€‚ 今回ã¯ã€Catalyst5.8ã‚„ã€Catalystã®API化ã¨ã„ã£ãŸãƒˆãƒ”ックをã€ãƒ—ãƒãƒ€ã‚¯ãƒˆã¨ã—ã¦å®Ÿè£…ã—ãŸã¨ãã«å‡ºã¦ããŸå•é¡Œç‚¹ã¨ãã®è§£æ±ºç–ã«ã¤ã„ã¦ãŠè©±ã—ã—ã¾ã™ã€‚ Read less
Catalyst::Manual::Intro - ã¯ã˜ã‚ã¦ã®Catalyst
é¡Œå Catalyst::Manual::Intro - ã¯ã˜ã‚ã¦ã®Catalyst 説明 ã“ã“ã§ã¯ãªãœã€ã¾ãŸã©ã†ã‚„ã£ã¦Catalystを使ã†ã®ã‹ã‚’ç°¡å˜ã«ç´¹ä»‹ã—ã¾ã™ã€‚Catalystã®æŒ™å‹•ã«ã¤ã„ã¦èª¬æ˜Žã—ã€ç°¡å˜ãªã‚¢ãƒ—リケーションを手早ãç«‹ã¡ä¸Šã’る様åã‚’ã”覧ã«å…¥ã‚Œã¾ã™ã€‚ Catalystã¨ã¯ï¼Ÿ Catalystã¨ã¯ã‚¨ãƒ¬ã‚¬ãƒ³ãƒˆãªã‚¦ã‚§ãƒ–・アプリケーション・フレームワークã§ã™ã€‚ãã‚ã‚ã¦æŸ”軟ãªã®ã«ãã‚ã‚ã¦ã‚·ãƒ³ãƒ—ル。Ruby on Railsã‚„Spring (Java)ã€ãã—ã¦Catalystã®å…ƒã¨ãªã£ãŸMaypoleã«ã‚ˆãä¼¼ã¦ã„ã¾ã™ã€‚ MVC Catalystã¯ãƒ¢ãƒ‡ãƒ«ãƒ»ãƒ“ュー・コントãƒãƒ¼ãƒ©(MVC)ã¨ã„ã†ãƒ‡ã‚¶ã‚¤ãƒ³ãƒ»ãƒ‘ターンをè¸è¥²ã—ã¦ã„ã‚‹ãŸã‚ã€ã‚³ãƒ³ãƒ†ãƒ³ãƒ„ã€ãƒ—レゼンテーションã€ãƒ•ãƒãƒ¼ç®¡ç†ã¨ã„ã£ãŸå•é¡Œã‚’ç°¡å˜ã«åˆ‡ã‚Šåˆ†ã‘ã¦ç‹¬ç«‹ã—ãŸãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã«ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ã“ã†ã—ã¦åˆ‡ã‚Šåˆ†ã‘ã‚‹ã“ã¨ã§ä»–ã®å•é¡Œã‚’処
最近㮠Catalyst ã®æ§‹æˆ
æ–°ã—ã作ã£ãŸé–‹ç™ºãƒ—ãƒã‚»ã‚¹ã®å•é¡Œç‚¹ãŒè¦‹ãˆãŸã‚ã‘ã ã‹ã‚‰ã€ãã‚Œã¯ãã‚Œã¨ã—ã¦æ”¹å–„ã™ã‚Œã°ã„ã„ã®ã«ã€‚プãƒã‚¸ã‚§ã‚¯ãƒˆã«ä½µã›ã¦ãƒ†ãƒ¼ãƒ©ãƒªãƒ³ã‚°ã•ã‚Œã¦ãªã„ã®ã¨ã‹ã€‚ãã†ã„ã†ã“ã¨ã‚’自発的ã«ã‚„れる人ãŸã¡ãŒå¿…è¦ã ã¨ã„ã†ã®ã‚‚ã‚ã‹ã‚‹ã‘ã© â– [catalyst][perl] 最近㮠Catalyst ã®æ§‹æˆ 最近 Catalyst ã®ã‚¨ãƒ³ãƒˆãƒªã‚’よã見ã‹ã‘ã‚‹ã®ã§è‡ªåˆ†ã®æ§‹æˆã‚’ã•ã‚‰ã—ã¦ã¿ã¾ã™ã€‚コード㯠CodeRepos ã«ã‚ã‚Šã¾ã™ã€‚ share - Revision 30441: /lang/perl/Chaostr/trunk 元々ã¯ã€ä½œã‚ã†ã¨ã—ãŸã‚¢ãƒ—リãŒã‚ã£ãŸã‚“ã§ã™ãŒã€åŽ»å¹´ã® Catalyst confernce 以é™ã€MyApp çš„å®Ÿé¨“å ´ã«ãªã£ã¦ã¾ã™ã€‚仕事ã§ä½œã£ãŸã‚‚ã®ã¯ã•ã‚‰ã›ãªã„ã®ã§ã€æ§‹æˆã ã‘表ã«å‡ºã™æ„Ÿã˜ã€‚ã¡ãªã¿ã«ä»Šã®ã¨ã“ã‚ Catalyst 5.7 ç³»ã§ã—ã‹ä½¿ã£ã¦ãªã„ã§ã™ã€‚ ã‚ã¨ã€Controller クラスã®ãƒ™ãƒ¼ã‚¹ã§
Perlã§Twitterã®OAuthを使ã†ã‚µãƒ³ãƒ—ル - punitan (a.k.a. punytan) ã®ãƒ¡ãƒ¢
自分用メモã§ã™ã€‚ ã„ã‚ã„ã‚ãªã‚µã‚¤ãƒˆã‚’å‚考ã«ã—ã¾ã—ãŸãŒã€å®Œå…¨ãªã‚³ãƒ¼ãƒ‰ãŒè¦‹ã¤ã‹ã‚‰ãªã‹ã£ãŸã®ã§ã¨ã‚Šã‚ãˆãšãƒªãƒ³ã‚¯ã¯çœç•¥ã—ã¾ã™ã€‚ Twitterã®OAuthClientを下記URLã‹ã‚‰è¨å®š http://twitter.com/oauth_clients consumer_keyã¨consumer_secretã‚’å–å¾—ã™ã‚‹ã€‚ ãŠãŠã¾ã‹ãªæµã‚Œ index.html ã‹ã‚‰ãƒªãƒ³ã‚¯ã§ sample.pl ã«ã‚¢ã‚¯ã‚»ã‚¹ã—ã€Twitterã®OAuth許å¯ç”¨ã®ãƒšãƒ¼ã‚¸ã¸ãƒªãƒ€ã‚¤ãƒ¬ã‚¯ãƒˆã€‚ OAuth許å¯ç”¨ã®ãƒšãƒ¼ã‚¸ã§è¨±å¦ã‚’è¨å®šå¾Œã€sample.pl ã§è¨å®šã—㟠callback_url (ã“ã“é‡è¦)ã¸ãƒªãƒ€ã‚¤ãƒ¬ã‚¯ãƒˆã•ã‚Œã‚‹(ã“ã®å ´åˆã¯callback.pl)。 callback.pl 㧠oauth_token 㨠oauth_verifier ã‚’å–å¾—ã—ã€updateを試ã¿ã‚‹ã€‚ æˆåŠŸã§ã‚ã‚Œã°ã€ãƒ„イート先ã¸ã€å¤±æ•—ã§ã‚ã‚Œã°Twitt
åˆã‚ã¦ã®Catalyst入門（3）　処ç†ã®å…¥ã‚Šå£ã¯ã‚¢ã‚¯ã‚·ãƒ§ãƒ³
CodeZine編集部ã§ã¯ã€ç¾å ´ã§æ´»èºã™ã‚‹ãƒ‡ãƒ™ãƒãƒƒãƒ‘ーをスターã«ã™ã‚‹ãŸã‚ã®ã‚«ãƒ³ãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã€ŒDevelopers Summitã€ã‚„ã€ã‚¨ãƒ³ã‚¸ãƒ‹ã‚¢ã®ç”Ÿãã–ã¾ã‚’ブーストã™ã‚‹ãŸã‚ã®ã‚¤ãƒ™ãƒ³ãƒˆã€ŒDevelopers Boostã€ãªã©ã€ã•ã¾ã–ã¾ãªã‚«ãƒ³ãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã‚’ä¼ç”»ãƒ»é‹å–¶ã—ã¦ã„ã¾ã™ã€‚
ã¯ã¦ãªãƒ–ãƒã‚° | 無料ブãƒã‚°ã‚’作æˆã—よã†
2024å¤ä¼‘ã¿æ—…行　神戸・2日目ã€å‰ç·¨ã€‘ zfinchyan.hatenablog.com ↑１日目ã¯ã“ã¡ã‚‰ 6:50 ã‚ãŸã—ã¨å¤«ã ã‘å…ˆã«èµ·åºŠ å‰æ—¥ã«è²·ã£ã¦ãŠã„ãŸãŠèŠ‹ã®ãƒ‘ンã§æœã”ã¯ã‚“ 昨日ã®ç–²ã‚Œã‹ã‚‰ã‹ã€ãªã‹ãªã‹æ¯åãŸã¡ãŒèµ·ãã¦ã“ãªã‹ã£ãŸã®ã§ã€ã‚†ã£ãã‚Šå¯ã‹ã›ã¦ã‹ã‚‰10:00ã«ãƒ›ãƒ†ãƒ«ã®ä¸‹ã«ã‚るプレイゾーンã«è¡Œã£ã¦ã€ãƒ‘ターゴルフやãƒã‚¹â€¦
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
1/14 Twitterã®API仕様変更ã«ã‚ˆã‚ŠHTTPã§ã®ã‚¢ã‚¯ã‚»ã‚¹ãŒã§ããªããªã‚‹ - Web marooon
Data::Plist
perl-mongers.org
Perl ã® MVC フレームワーク Catalyst ã«å…¥é–€ã—ã¦ã¿ãŸ : NDO::Weblog:
perl-mongers.org
perl-mongers.org
http://www.meet2partner.com/b/entries/catalyst-memo-perl.html
{{#tags}}- {{label}}
{{/tags}}