[B! perl] hirafooã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

hirafoo id:hirafoo

perlã«é–¢ã™ã‚‹hirafooã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (613)

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

${{author_name}}$
{{author_name}}{{created}}
{{ #comment }}{{ comment }}{{ /comment }}
- {{ label }}

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

perlã¨javaã§webã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ ãã®2
WAF perl æµ·å¤–ã ã¨Catalystã¨ã‹Dancerã¨ã‹Mojoliciousã¨ã‹ã€‚ æ—¥æœ¬ãªã‚‰Amon2ã§ã€‚ java Spring Boot 2ã§ã€‚ ãƒ†ãƒ³ãƒ—ãƒ¬ãƒ¼ãƒˆã‚¨ãƒ³ã‚¸ãƒ³ perl æ˜å’Œã§ã¯ Template Toolkit ã„ã‚ã‚†ã‚‹ttã¨å‘¼ã°ã‚Œã‚‹ã‚‚ã®ã‚’ä½¿ã£ã¦ã„ãŸãŒç¾åœ¨ã¯ Text::Xslate ã‚’ä½¿ãˆã°ã‚ˆã„ã€‚syntaxã‚‚ttã¨ã»ã¼åŒã˜ã«ã§ãã‚‹ã€‚ java thymeleafã¯SpringãŒã‚µãƒãƒ¼ãƒˆã—ã¦ã„ã‚‹ã‚‚ã®ãªã®ã§ä½•ã‹ã¨å®‰å¿ƒã€‚ãƒ–ãƒ©ã‚¦ã‚¶ã§ãã®ã¾ã¾è¡¨ç¤ºã§ãã‚‹ã®ã§ãƒžãƒ¼ã‚¯ã‚¢ãƒƒãƒ‘ãƒ¼ã«ã‚‚å„ªã—ã„ã€‚ freemarkerã¯å‰è¿°ã®ttã¨è¿‘ã„æ„Ÿã˜ã§ä½¿ãˆã‚‹ã€‚ã—ã‹ã—å¤‰æ•°ã¨ã‹ã®è¡¨ç¤ºã¯ã‚µãƒ¼ãƒã§ã®ãƒ¬ãƒ³ãƒ€ãƒªãƒ³ã‚°ãªã®ã§ãƒ–ãƒ©ã‚¦ã‚¶ã§ãã®ã¾ã¾è¡¨ç¤ºã¯ã§ããªã„ã€‚
hirafoo 2020/12/10
perl

java
ãƒªãƒ³ã‚¯
perlã¨javaã§webã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³
ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ« perl æœ€è¿‘ã¯Cartonã‚’ä½¿ã†ã€‚cpanfileã¯ã“ã‚“ãªã€‚ # cpanfile requires 'Amon2', '== 6.13'; java æœ€è¿‘ã¯gradleã‚’ä½¿ã†ã€‚çŸ³å™¨æ™‚ä»£ã«ã¯mavenã¨ã‹antã¨ã‹ã„ã†ã‚‚ã®ã‚’ä½¿ã£ã¦ã„ãŸã‚‰ã—ã„ãŒç¾ä»£ã«ãŠã„ã¦ç›®ã«ã™ã‚‹è¦‹ã‚‹æ©Ÿä¼šã¯ãªã„ã€‚ ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã«ã‚ˆã£ã¦è‰²ã€…æ›¸ãæ–¹ãŒã‚ã‚‹ã‚‰ã—ã„ã€‚ ã‚ã¨javaã§ã¯ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¨å‘¼ã¶ã®ã‹ãƒ©ã‚¤ãƒ–ãƒ©ãƒªã¨å‘¼ã¶ã®ã‹åˆ†ã‹ã‚‰ãªã„ã€‚ # build.gradle plugins { id 'org.springframework.boot' version '2.0.5.RELEASE' apply false id "org.jetbrains.kotlin.jvm" version '1.2.61' apply false id 'org.jetbrains.kotlin.plugin.spring' versio
hirafoo 2020/12/10
perl

java
ãƒªãƒ³ã‚¯
Plackã‚’ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã‚¢ãƒƒãƒ—ã—ãŸã‚‰ json decode ã•ã‚ŒãŸå€¤ã®postã‚’å—ã‘å–ã‚Œãªããªã£ãŸ
ã‚ã£ã¡ã‚ƒå¤ã„Plackã§å‹•ã„ã¦ã‚‹ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ãŒã‚ã£ãŸã®ã§ã‚¢ãƒƒãƒ—ãƒ‡ãƒ¼ãƒˆã—ãŸã®ã ãŒ json encode ã•ã‚ŒãŸæ–‡å—åˆ—ã®postã‚’å—ã‘å–ã£ãŸã¨ãã« $c->req->param("hoge") ã§å—ã‘å–ã‚Œãªããªã£ã¦ã„ãŸã®ã§èª¿ã¹ãŸã‚‰æœ€åˆã¯ãã‚Œã§å—ã‘å–ã‚Œã‚‹ã®ã ãŒé€”ä¸ã§ã€€http://blog.nomadscafe.jp/2014/02/httpentityparser.htmlã€€ã®å¤‰æ›´ãŒå…¥ã£ã¦å–ã‚Œãªããªã£ã¦ã„ãŸã€‚ å–ã‚ŠãŸã„ãªã‚‰ã° $parser->register('application/json','HTTP::Entity::Parser::JSON'); ã™ã‚Œã°ã„ã„ã€ã¯ãšãªã®ã ãŒå—ã‘å–ã‚Œãªãã¦ã€èª¿ã¹ã¦ã„ãŸã‚‰ãƒªã‚¯ã‚¨ã‚¹ãƒˆæ™‚ã« Content-Length ã‚‚ã€€Content-Type ã‚‚é€ã£ã¦ã„ãªã‹ã£ãŸã€‚ ãã‚Œãžã‚Œã“ã“ã§å•é¡Œã«ãªã‚‹ã€‚ https://metacpan.org/source
hirafoo 2020/10/19
perl
ãƒªãƒ³ã‚¯
URI::Escape ã®ãƒãƒ¼ã‚¸ãƒ§ãƒ³å•é¡Œ
URI::Escape ã«ã¯ escape_char ã¨ã„ã†é–¢æ•°ãŒã‚ã‚‹ã€‚ ã“ã‚Œã¯ãªã‚“ã¨åŒã˜ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã§ã‚‚å®Ÿè£…ãŒç•°ãªã‚‹ã€‚ ã¨ã„ã†ã®ã‚‚ã€ã“ã‚Œã¯ URI::Escape å˜ä½“ã§ãƒªãƒªãƒ¼ã‚¹ã•ã‚Œã¦ã„ã‚‹ã®ã§ã¯ãªãã€ URI ã®ãƒ‘ãƒƒã‚±ãƒ¼ã‚¸ã«ä»˜å±žã™ã‚‹ã‚‚ã®ã§ã€ URI:: ä»¥ä¸‹ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ãƒãƒ¼ã‚¸ãƒ§ãƒ³ç®¡ç†ãŒ URI ã¨æƒã£ã¦ã„ãªã„ã‹ã‚‰ã€‚ ä¾‹ãˆã° [email protected] ã«ã‚‚ [email protected] ã«ã‚‚ URI::[email protected] ãŒä»˜å±žã—ã¦ã„ã‚‹ä¸Šã«ä¸èº«ãŒé•ã†ã€‚OMG ãªã®ã§ cpanfile ã§ requires 'URI::Escape' => '==3.31'; ã¨æ›¸ã„ã¦ã‚‚ã€æœŸå¾…ã™ã‚‹ã‚‚ã®ãŒå¾—ã‚‰ã‚Œã‚‹ã¨ã¯é™ã‚‰ãªã„ã€‚ ç¾åœ¨ã® URI ã®æœ€æ–°ç‰ˆã¯ 1.76 ãªã®ã§ã€æœ€æ–°ã®å®Ÿè£…ãŒã»ã—ã„ãªã‚‰ requires 'URI' => '==1ï¼Ž76'; ã¨æ›¸ã‹ãªã‘ã‚Œã°ãªã‚‰ãªã„ã€‚ ã¨ã„ã†ã“ã¨ã‚’ä»Šæ—¥ã¯ author ã®æ–¹ã‹ã‚‰æ•™ã‚ã‚Š
hirafoo 2020/07/15
perl
ãƒªãƒ³ã‚¯
redisã§ã‚ãƒ¥ãƒ¼ã‚¤ãƒ³ã‚°
redisã«ã¯ãƒªã‚¹ãƒˆåž‹ã¨ã„ã†ã‚‚ã®ãŒã‚ã£ã¦keyã”ã¨ã«ãƒªã‚¹ãƒˆã‚’æ ¼ç´ã§ãã‚‹ã€‚left, rightã§æ–¹å‘ã‚’è¡¨ã—ã€leftãŒå…ˆé ã€rightãŒæœ«å°¾ã€‚ã“ã‚Œã‚’åˆ©ç”¨ã—ã¦redisã§ã‚ãƒ¥ãƒ¼ã‚¤ãƒ³ã‚°ã‚’å®Ÿè£…ã™ã‚‹ã€‚ use strict; use warnings; use Redis::Fast; use 5.10.0; use Data::Dumper; sub p { warn Dumper \@_ } my $redis = Redis::Fast->new; $redis->flushall; my $key = "keyhoge"; { # enqueue for my $i (1..5) { my $value = "data_$i"; $redis->rpush($key, $value); } # çµæžœç¢ºèª p "enqueue done. data", $redis->lrange($key
hirafoo 2020/06/27
perl

redis
ãƒªãƒ³ã‚¯
LWP::UserAgentã§ã€æ–‡å—åˆ—ã‚’ãã®ã¾ã¾POST - ã‚ã°é›»åãŒè©°ã¾ã¤ã¦ã‚ã‚‹
ä½•ãŒã—ãŸã„ã‹ã¨è¨€ã†ã¨ã€‚æ™®é€šã¯ã“ã‚“ãªæ„Ÿã˜ã§ã€POSTã§ãƒ‘ãƒ©ãƒ¡ã‚¿ã‚’å¼•ãæ¸¡ã™ã®ã ã‘ã©ã€‚ #!/usr/bin/perl use strict; use LWP::UserAgent; my $ua = LWP::UserAgent->new; my %param = ( "id" => "ozuma", "type" => "12", ); my $res = $ua->post("http://localhost/~ozuma/param.cgi", \%param); print $res->as_string; ä»Šå›žã¯SOAPã£ã½ã„ã‚¤ãƒ³ã‚¿ãƒ•ã‚§ãƒ¼ã‚¹ã§ã€Request Bodyã«ãƒ‘ãƒ©ãƒ¡ã‚¿åã‚’ä»˜ã‘ãšã€ç„¡é€ ä½œã«XMLã‚’ãã®ã¾ã¾é€ã‚Šã¤ã‘ãŸã‹ã£ãŸã€‚HTMLã§formã‚’ä½œã‚‹ã¨ãƒ‘ãƒ©ãƒ¡ã‚¿ã¨ã—ã¦POSTã—ã¦ã—ã¾ã†ã—ã€‚ ã“ã‚ŒãŒã¡ã‚‡ã£ã¨è¿·ã£ã¦ã—ã¾ã£ãŸã®ã ã‘ã©ã€HTTP::Requestã®ã‚¤ãƒ³ã‚¹ã‚¿ãƒ³ã‚¹ã«conten
hirafoo 2015/10/30
perl
ãƒªãƒ³ã‚¯
LWP::UserAgent ã§å–å¾—ã—ãŸã‚³ãƒ³ãƒ†ãƒ³ãƒ„ãŒç•°å¸¸ãªã¨ãã¯ X-Died ãƒ˜ãƒƒãƒ€ã‚’è¦‹ã‚‹
LWP::UserAgent ã§å–å¾—ã—ãŸã‚³ãƒ³ãƒ†ãƒ³ãƒ„ãŒç•°å¸¸ãªã¨ãã¯ X-Died ãƒ˜ãƒƒãƒ€ã‚’è¦‹ã‚‹ my $ua = LWP::UserAgent->new; my $url = "..."; my $res = $ua->get($url); $res->is_success ã¯1ã ã— 200 OK ãªã®ã« $res->content ã‚’è¡¨ç¤ºã—ã¦ã¿ã‚‹ã¨å¤‰ãªã¨ã“ã‚ã§é€”åˆ‡ã‚ŒãŸã‚Šã—ã¦ã„ã‚‹ã¨ããŒã‚ã‚‹ã€‚ãã‚“ãªã¨ãã¯ warn Dumper $res->header('X-Died'); ã‚’è¦‹ã‚‹ã€‚get ãŒæˆåŠŸã—ã¦ã¦ã‚‚ä¸ã§è‰²ã€…ã‚ã‚‹ã€‚RFCé•åã®ãƒ˜ãƒƒãƒ€èªã¿è¾¼ã‚“ã§ã‚‹ã¨ã‹ã€‚
hirafoo 2015/08/11
perl
ãƒªãƒ³ã‚¯
64é€šã‚Šã®kamipoã‚’å‡ºåŠ›ã™ã‚‹ - ã™ãŽã‚ƒãƒ¼ã‚“ãƒ¡ãƒ¢
ç™ºç«¯ @Kamipo 2014-04-22 21:06:52 via Twitter for Mac to @kamipo @sugyan 2014-04-22 21:06:57 via YoruFukurou to @sugyan @KAMIPO 2014-04-22 21:10:34 via Twitter for Mac to @kamipo @kamipO 2014-04-22 21:10:59 via Twitter for Mac to @kamipo @kamIpo 2014-04-22 21:11:04 via Twitter for Mac to @kamipo @kAmipo 2014-04-22 21:11:10 via Twitter for Mac to @kamipo @KaMiPo 2014-04-22 21:11:33 via Twitter for Mac
hirafoo 2014/04/25
perl
ãƒªãƒ³ã‚¯
æ£è¦è¡¨ç¾ã«ã‚ˆã‚‹ãƒãƒªãƒ‡ãƒ¼ã‚·ãƒ§ãƒ³ã§ã¯ ^ ã¨ $ ã§ã¯ãªã \A ã¨ \z ã‚’ä½¿ãŠã†
æ£è¦è¡¨ç¾ã«ã‚ˆã‚‹ãƒãƒªãƒ‡ãƒ¼ã‚·ãƒ§ãƒ³ç‰ã§ã€å®Œå…¨ä¸€è‡´ã‚’ç¤ºã™ç›®çš„ã§ ^ ã¨ $ ã‚’ç”¨ã„ã‚‹æ–¹æ³•ãŒä¸€èˆ¬çš„ã§ã™ãŒã€æ£ã—ãã¯ \A ã¨ \z ã‚’ç”¨ã„ã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™ã€‚Rubyã®å ´åˆ ^ ã¨ $ ã‚’ä½¿ã£ã¦å®Œå…¨ä¸€è‡´ã®ãƒãƒªãƒ‡ãƒ¼ã‚·ãƒ§ãƒ³ã‚’è¡Œã†ã¨è„†å¼±æ€§ãŒå…¥ã‚Šã‚„ã™ã„ãƒ¯ãƒŠã¨ãªã‚Šã¾ã™ã€‚Perlã‚„PHPã®å ´åˆã¯ã€Rubyç¨‹ã§ã¯ã‚ã‚Šã¾ã›ã‚“ãŒä¸å…·åˆãŒç”Ÿã˜ã‚‹ã®ã§ \A ã¨ \z ã‚’ä½¿ã†ã‚ˆã†ã«ã—ã¾ã—ã‚‡ã†ã€‚ ã¯ã˜ã‚ã« å¤§åž£ã•ã‚“ã®ãƒ–ãƒã‚°ã‚¨ãƒ³ãƒˆãƒªã€ŒPHPerå‘ã‘ã€Ruby/Railsã®è½ã¨ã—ç©´ã€ã«ã¯ã€Rubyã®è½ã¨ã—ç©´ã¨ã—ã¦ã€å®Œå…¨ä¸€è‡´æ¤œç´¢ã®æŒ‡å®šã¨ã—ã¦ã€æ£è¦è¡¨ç¾ã® ^ ã¨ $ ã‚’æŒ‡å®šã™ã‚‹ä¾‹ãŒã€Ruby on Rails Security Guideã‹ã‚‰ã®å¼•ç”¨ã¨ã—ã¦ç´¹ä»‹ã•ã‚Œã¦ã„ã¾ã™ã€‚ä»¥ä¸‹ã®æ£è¦è¡¨ç¾ã¯ã€XSSå¯¾ç–ã¨ã—ã¦ã€httpã‚¹ã‚ãƒ¼ãƒ ã‚ã‚‹ã„ã¯httpsã‚¹ã‚ãƒ¼ãƒ ã®URLã®ã¿ã‚’è¨±å¯ã™ã‚‹æ£è¦è¡¨ç¾ã®ã¤ã‚‚ã‚Šã§ã™ã€‚ /^https?:\/\/[^\n]+$/
hirafoo 2014/03/14
perl
ãƒªãƒ³ã‚¯
znc ã§ ignore ã™ã‚‹ perl ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«æ›¸ã„ãŸ
znc ã§ ignore ã™ã‚‹ perl ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«æ›¸ã„ãŸ "znc ignore" ãªã©ã§ã‚°ã‚°ã‚Œã° cpp ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯ãƒ’ãƒƒãƒˆã™ã‚‹ã®ã ã‘ã©ã€è‡ªåˆ†ã®ã—ãŸã„ã“ã¨ãŒã§ããªã„ã‚„ã¤ã ã£ãŸã®ã¨ã€ perl ãªã‚‰ãªã‚“ã¨ã‹ã£ã¦ã“ã¨ã§æ›¸ã„ãŸã€‚ package IgnoreSpam; use strict; use warnings; use base 'ZNC::Module'; sub description { "ignore spam" } sub OnChanMsg { my $self = shift; my ($nick, $channel, $message) = @_; if ($self->_is_spam($nick, $channel, $message)) { return $ZNC::HALT; } return $ZNC::CONTINUE; } sub OnChanNoti
hirafoo 2014/02/20
znc

perl
ãƒªãƒ³ã‚¯
æ™®é€šã®ãƒ‡ãƒ¼ãƒ¢ãƒ³ã‚’ 1) Server::Starterã§ãƒ›ãƒƒãƒˆãƒ‡ãƒ—ãƒã‚¤+ 2) slow-restartå¯¾å¿œã«ã™ã‚‹ - Qiita
åºç« æœ€è¿‘ç†è€…ãŒã‚ã‚‹ã‚·ã‚¹ãƒ†ãƒ ä¸Šã®éžåŒæœŸãƒ¯ãƒ¼ã‚«ãƒ¼ã«å¯¾ã—ã¦ä½œæ¥ã—ã¦ã„ãŸã¨ã“ã‚ã€æ–°ã—ã„ã‚³ãƒ¼ãƒ‰ã‚’ãƒ‡ãƒ—ãƒã‚¤ã—ã¦ã“ã®ãƒ—ãƒã‚»ã‚¹é”ã‚’å†èµ·å‹•ã™ã‚‹ã¨å…¨ã¦ã®ãƒ¯ãƒ¼ã‚«ãƒ¼ãŒåŒã˜ã‚¿ã‚¤ãƒŸãƒ³ã‚°ã§åœæ¢â†’å†èµ·å‹•ã—ã¦ã—ã¾ã†ã®ã§ã‚¢ãƒ©ãƒ¼ãƒˆãŒã¡ã‚‰ã»ã‚‰æµã‚Œã¦ãã¾ã—ãŸã€‚ã‚¯ãƒªãƒ†ã‚£ã‚«ãƒ«ãªã‚‚ã®ã§ã¯ãªã„ã®ã§ã™ãŒã€ã‚¢ãƒ©ãƒ¼ãƒˆã¯ã†ã–ã„ã§ã™ã€‚ã•ã‚‰ã«é–‹ç™ºæ©Ÿã§ã¯ä½•å›žã‹å¤±æ•—ã‚‚ã—ãŸã®ã§ã™ãŒã€ãã®å¤±æ•—ã®ã›ã„ã§ãƒ¯ãƒ¼ã‚«ãƒ¼ãŒèµ·å‹•ã«å¤±æ•—ã™ã‚‹ã“ã¨ã‚‚ã‚ã‚Šã¾ã—ãŸã€‚ãã®é–“ã¯å½“ç„¶ãƒ¯ãƒ¼ã‚«ãƒ¼æ©Ÿèƒ½ã¯æ¢ã¾ã£ãŸã¾ã¾ã§ã™ã€‚ ã‚¢ãƒ©ãƒ¼ãƒˆã¯ã§ãã‚Œã°ã¿ãŸããªã„ã®ã§ã™ã€‚ã•ã‚‰ã«ä¸‡ãŒä¸€æ–°ã—ã„ã‚³ãƒ¼ãƒ‰ãŒèµ·å‹•ã«å¤±æ•—ã—ãŸå ´åˆã§ã‚‚å‰ã®ä¸–ä»£ãŒå‹•ã„ã¦ã„ã‚Œã°ã“ã®ã‚ãŸã‚Šã®å¿ƒé…ã‚’ã™ã‚‹å¿…è¦ãŒãªããªã‚Šã¾ã™è‡ªåˆ†ãŒãã®ã‚ãŸã‚Šã«æ‰‹ã‚’å…¥ã‚Œã‚‹ã‚¿ã‚¤ãƒŸãƒ³ã‚°ã§Server::Starterã‚’ã‹ã¾ã—ã¦å¯¾å‡¦ã—ã¦ã—ã¾ã†ã“ã¨ã«ã—ã¾ã—ãŸã€‚ å…ƒã®ãƒ¯ãƒ¼ã‚«ãƒ¼ ã¾ãšå‰æã¨ã—ã¦ã€ã“ã®ãƒ¯ãƒ¼ã‚«ãƒ¼é”ã¯ä»¥ä¸‹ã®ã‚ˆã†ãªå½¢ã§ã€Œå®Ÿè¡Œã™ã‚‹ãƒ¯ãƒ¼ã‚«ãƒ¼ã®ã‚³ãƒžãƒ³ãƒ‰åï¼ˆå®Ÿéš›ã¯ã‚¯ãƒ©ã‚¹åï¼‰ã€ã¨ã€Œã„
hirafoo 2013/12/06
perl
ãƒªãƒ³ã‚¯
/dev/randomã¨/dev/urandom - ï¼ˆã²ï¼‰ãƒ¡ãƒ¢
èªã¿è¾¼ã¿ãŒè¡Œã‚ã‚Œã‚‹ã¨ã€ /dev/random ãƒ‡ãƒã‚¤ã‚¹ã¯ã‚¨ãƒ³ãƒˆãƒãƒ”ãƒ¼ãƒ»ãƒ—ãƒ¼ãƒ«ã®ãƒŽã‚¤ã‚ºãƒ“ãƒƒãƒˆã®æ•°ã®è©•ä¾¡å€¤ã‹ã‚‰ã€ãƒ©ãƒ³ãƒ€ãƒ ãƒã‚¤ãƒˆã®ã¿ã‚’è¿”ã™ã€‚ /dev/random ã¯ãƒ¯ãƒ³ã‚¿ã‚¤ãƒ ãƒ‘ãƒƒãƒ‰ (one-time pad) ã‚„éµã®ç”Ÿæˆã®ã‚ˆã†ãª éžå¸¸ã«é«˜ã„å“è³ªã‚’æŒã£ãŸç„¡ä½œç‚ºæ€§ãŒå¿…è¦ã«ãªã‚‹å ´åˆã«é©åˆ‡ã§ã‚ã‚ã†ã€‚ ã‚¨ãƒ³ãƒˆãƒãƒ”ãƒ¼ãƒ»ãƒ—ãƒ¼ãƒ«ãŒç©ºã®æ™‚ã¯ã€/dev/random ã‹ã‚‰ã®èªã¿å‡ºã—ã¯ã€ æ›´ãªã‚‹ç’°å¢ƒãƒŽã‚¤ã‚ºãŒå¾—ã‚‰ã‚Œã‚‹ã¾ã§ã€ãƒ–ãƒãƒƒã‚¯ã•ã‚Œã‚‹ã€‚ /dev/urandom ãƒ‡ãƒã‚¤ã‚¹ã‹ã‚‰èªã¿å‡ºã—ã§ã¯ã€ ã‚¨ãƒ³ãƒˆãƒãƒ”ãƒ¼ãŒã‚ˆã‚Šé«˜ããªã‚‹ã®ã‚’å¾…ã¤ãŸã‚ã®ãƒ–ãƒãƒƒã‚¯ã¯è¡Œã‚ã‚Œãªã„ã€‚ ãã®çµæžœã€ã‚‚ã—ã‚¨ãƒ³ãƒˆãƒãƒ”ãƒ¼ãƒ»ãƒ—ãƒ¼ãƒ«ã«ååˆ†ãªã‚¨ãƒ³ãƒˆãƒãƒ”ãƒ¼ãŒå˜åœ¨ã—ãªã„å ´åˆã€ è¿”ã‚Šå€¤ã¯ã“ã®ãƒ‰ãƒ©ã‚¤ãƒã§ä½¿ã‚ã‚Œã¦ã„ã‚‹ã‚¢ãƒ«ã‚´ãƒªã‚ºãƒ ã«åŸºã¥ãæš—å·æ”»æ’ƒã«å¯¾ã—ã¦ã€ è«–ç†çš„ã«ã¯å¼±ããªã‚‹ã“ã¨ã«ãªã‚‹ã€‚ ã“ã®æ”»æ’ƒã‚’ã©ã®ã‚ˆã†ã«è¡Œã†ã‹ã¨ã„ã†äº‹ã«ã¤ã„ã¦ã¯ã€ç¾åœ¨ç ”ç©¶è«–æ–‡ãªã©ã® å½¢ã§å…¥æ‰‹ã§ã
hirafoo 2013/03/15
Crypt::DSAã®testãŒé…ã„ä»¶

perl
ãƒªãƒ³ã‚¯
Google OAuth2ã§APIãƒªã‚¯ã‚¨ã‚¹ãƒˆã—ã¦ã¿ã‚‹ (2) - Net::Google::Analytics - - kinjou_j (è»¢è·ä¸?)ã®ãƒ¡ãƒ¢ãƒã‚°
ç¶šãã¨ã„ã†è¨³ã˜ã‚ƒãªã„ã®ã§ã™ãŒã€Perlã§Net::Google::Analyticsã‚’ä½¿ã†äº‹ã§çµæ§‹ç°¡å˜ã«Google OAuth2ã—ã¤ã¤ã€APIsã‚’ä½¿ã†äº‹ãŒå‡ºæ¥ã‚‹ã®ã§ã‚„ã£ã¦ã¿ã‚‹ã€‚ä»Šå›žã¯Webã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã‚¿ã‚¤ãƒ—ã§ã¯ç„¡ãã€Installed Applicationã‚¿ã‚¤ãƒ—ã§ã‚„ã‚‹ use strict; use warnings; use utf8; use feature qw/say/; use Digest::SHA1 qw/sha1_hex/; use Encode; use Net::Google::Analytics; use Net::Google::Analytics::OAuth2; my $refresh_token = '[ãƒªãƒ•ãƒ¬ãƒƒã‚·ãƒ¥ãƒˆãƒ¼ã‚¯ãƒ³ã‚’æŒ‡å®šã€‚å–å¾—æ–¹æ³•ã¯å¾Œè¿°]'; my $oauth = Net::Google::Analytics::OAuth2->new( c
hirafoo 2013/01/25
google

analytics

perl
ãƒªãƒ³ã‚¯
Scope::Guardç‰ã§ãƒªã‚½ãƒ¼ã‚¹è§£æ”¾ã‚’å®Ÿè£…ã™ã‚‹éš›ã«çŸ¥ã£ã¦ãŠããŸã„ã“ã¨ - Articles Advent Calendar 2012 Hacker
ã¿ãªã•ã‚“ã‚¬ãƒ¼ãƒ‰ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆä½¿ã£ã¦ã¾ã™ã‹ã€‚ã‚¬ãƒ¼ãƒ‰ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã¨ã¯ä¸€èˆ¬çš„ã«ã¯ ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆç”Ÿæˆæ™‚ã«ãªã‚“ã‚‰ã‹ã®ãƒªã‚½ãƒ¼ã‚¹ã‚’åˆæœŸåŒ–ãƒ»å–å¾— ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆè§£æ”¾æ™‚ã«è©²å½“ãƒªã‚½ãƒ¼ã‚¹ã‚’è§£æ”¾ ã¨ã„ã†å‹•ä½œã‚’ã™ã‚‹ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚’ã•ã—ã¾ã™ã€‚ Perlã§ã¯ã‚¬ãƒ¼ãƒ™ã‚¸ã‚³ãƒ¬ã‚¯ã‚·ãƒ§ãƒ³ã«ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã‚«ã‚¦ãƒ³ãƒˆæ–¹å¼ã‚’å–ã£ã¦ã„ã‚‹ãŸã‚ã€ã‚¬ãƒ¼ãƒ‰ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆãŒè§£æ”¾ã•ã‚Œã‚‹ã‚¿ã‚¤ãƒŸãƒ³ã‚°ãŒåˆ¶å¾¡ã—ã‚„ã™ã„ã®ã§æ¯”è¼ƒçš„é »ç¹ã«ã‚¬ãƒ¼ãƒ‰ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚’ä½œã£ã¦æ§˜ã€…ãªãƒªã‚½ãƒ¼ã‚¹ã®åˆæœŸåŒ–ã€œè§£æ”¾ã¾ã§ã‚’ç°¡å˜ã«ã‚³ãƒ³ãƒˆãƒãƒ¼ãƒ«ã—ãŸã‚Šã—ã¾ã™ã€‚ ã‚ã‹ã‚Šã‚„ã™ã„ä¾‹ã§è¨€ã†ã¨ã€ä¾‹ãˆã°ç¾åœ¨å®Ÿè¡Œä¸ã®ã‚¹ã‚¯ãƒªãƒ—ãƒˆãŒå‹•ã„ã¦ã„ã‚‹é–“ã ã‘åˆ¥ãƒ—ãƒã‚»ã‚¹ã§memcachedã®ã‚ˆã†ãªã‚µãƒ¼ãƒãƒ¼ã‚’ç«‹ã¦ãŸã„ã€ã¨ã„ã†æ™‚ã«Proc::Guardãªã©ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½¿ã†ã¨ã€ä»¥ä¸‹ã®ã‚ˆã†ãªã‚³ãƒ¼ãƒ‰ã‚’ä»•è¾¼ã‚€ã ã‘ã§ç°¡å˜ã«memcachedãƒ—ãƒã‚»ã‚¹ã‚’èµ·å‹•ã€çµ‚äº†ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ use strict; use Proc::Guard; my $g
hirafoo 2012/12/10
perl
ãƒªãƒ³ã‚¯
Scripting Layer for Android ã§ Perl x Android - naoyaã®ã¯ã¦ãªãƒ€ã‚¤ã‚¢ãƒªãƒ¼
Shibuya Perl Mongers ãƒ†ã‚¯ãƒ‹ã‚«ãƒ«ãƒˆãƒ¼ã‚¯#14 ã«è¡Œã£ã¦ãã¾ã—ãŸã€‚è«¸ã€…é¢ç™½ã‹ã£ãŸã§ã™ãŒãƒ‘ãƒãƒ«ãƒ‡ã‚£ã‚¹ã‚«ãƒƒã‚·ãƒ§ãƒ³ã€LT ã¨ã‚‚ã« id:kazuhooku ã•ã‚“ã®ç™ºè¡¨ãŒè‰¯ã‹ã£ãŸã§ã™ãã€‚ ã•ã¦ã€Scripting Layer for Android (SL4A) ã‚’ä½¿ã£ã¦ã€Perl ã§ Android ã‚’ hack ã™ã‚‹è©±ã‚’ã—ã¦ãã¾ã—ãŸã€‚SL4A ã¯ jRubyã€Perlã€Pythonã€PHP ãªã©ã®è¨€èªžã‚’ Android ã§ä½¿ãˆã‚‹ã‚ˆã†ã«ã™ã‚‹ã‚¢ãƒ—ãƒªã€‚ãã‚Œãžã‚Œã®è¨€èªžã‹ã‚‰ã¯ AndroidFacade API ã¨å‘¼ã°ã‚Œã‚‹ API ã§ã€Android ã®UIã‚„ã‚«ãƒ¡ãƒ©ã‚’æ“ä½œã§ãã‚‹ã¨ã„ã†ã‚‚ã®ã§ã™ã€‚ ç™ºè¡¨è³‡æ–™ã¯ä»¥ä¸‹ã§ã™ã€‚ Scripting Layer for Android + Perl (SlideShare) http://www.slideshare.net/naoya1977/sc
hirafoo 2012/12/04
perl

sl4a

android
ãƒªãƒ³ã‚¯
Perl-DBI/SELECT - yanor.net/wiki
SELECT $sth = $dbh->prepare('SELECT id, name, age FROM t1 WHERE age > ?'); $sth->execute(15); while ($row = $sth->fetchrow_hashref()){ print $row->{id},"\n"; print $row->{name},"\n"; } die $sth->errstr if $sth->err; fetchrow_xxx()ãŒé€”ä¸ã§ã‚¨ãƒ©ãƒ¼ã‚’èµ·ã“ã—ãŸå ´åˆã€è¿”å€¤ãŒundefãªãŸã‚while()ãƒ«ãƒ¼ãƒ—ã‚’æŠœã‘ã‚‹ã€‚ å…¨è¡Œèµ°æŸ»ã§ããŸã®ã‹ã‚¨ãƒ©ãƒ¼ã ã£ãŸã®ã‹èª¿ã¹ã‚‹ãŸã‚ã«ã¯ã€ $sth->errã‚’ä½¿ã†ã‹ã€ RaiseErrorã§ä¾‹å¤–ã‚’ã‚ãƒ£ãƒƒãƒã™ã‚‹ã€‚ selectxxx_xxxç³» ï¼ˆprepare()ã‚’çµŒãšã«ï¼‰SQLã‚’ç›´æŽ¥å®Ÿè¡Œã™ã‚‹ã€‚ 1è¡Œã‚’å–å¾— $row = $dbh->sele
hirafoo 2012/08/01
selectall_arrayref

perl

dbi
ãƒªãƒ³ã‚¯
gist:3162319
hirafoo 2012/07/23
perl

c
ãƒªãƒ³ã‚¯
shipitã®ã¯ã˜ã‚ã‹ãŸ - Perlæ—¥èªŒ
ã‚ã‚‰ã™ã˜ macbook airã‚’æ–°èª¿ã—ã¦ã‹ã‚‰åˆã‚ã¦shipitã‚³ãƒžãƒ³ãƒ‰ã‚’å®Ÿè¡Œã—ãŸã‚“ã§ã™ãŒã€ã„ã‚ã„ã‚ã¨å¿˜ã‚Œã¦ã„ã‚‹äº‹ãŒã‚ã£ãŸã®ã§å‚™å¿˜éŒ²ã‚’æ›¸ã„ã¦ãŠãã¾ã™ã€‚ Shipitã‚’ç”¨æ„ ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã—ã¾ã™ã€‚ % cpanm ShipItè¨å®šãƒ•ã‚¡ã‚¤ãƒ«ã‚’ç”¨æ„ã—ã¾ã™ã€‚ % vi ~/project/your-Dist/.shipit steps = FindVersion, ChangeVersion, CheckChangeLog, DistTest, Commit, Tag, MakeDist, UploadCPAN git.tagpattern = %v git.push_to = origin cpan-upload-httpã‚’ç”¨æ„ ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ« % cpanm cpan-upload-httpè¨å®šãƒ•ã‚¡ã‚¤ãƒ« % vi ~/.pause user your-account password *******
hirafoo 2012/06/26
perl

cpan

shipit
ãƒªãƒ³ã‚¯
Return-Pathã‚’ã‚»ãƒƒãƒˆã™ã‚‹(MIME::Lite) | ãƒ–ãƒã‚°ãŒç¶šã‹ãªã„ã‚ã‘
ãƒ¡ãƒ¼ãƒ«é…ä¿¡ã®ä»•çµ„ã¿ãªã©ã‚’ä½œã‚‹ã¨ã€ã©ã†ã—ã¦ã‚‚é¢å€’ã«ãªã£ã¦ãã‚‹ã®ãŒã‚¨ãƒ©ãƒ¼ã®å‡¦ç†ã€‚ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã®é–‹ç™ºã‚’è¡Œã£ã¦ã„ã‚‹ã¨ã‚¨ãƒ©ãƒ¼ã®å‡¦ç†ã¨ã„ã†ã®ã¯æ—¥å¸¸çš„ãªã‚‚ã®ã ã€‚ä½•ã‹ã‚’å®Ÿè¡Œã—ã¦ã‚¨ãƒ©ãƒ¼ãªã‚‰ã¾ãŸåˆ¥ã®ä½•ã‹ã‚’ã€ä¾‹ãˆã°ãƒã‚°ã‚’å‡ºåŠ›ã—ã¦çµ‚äº†ã™ã‚‹ã€ã£ã¦ã“ã¨ã‚’ã—ã¦ã‚„ã‚Œã°ã‚ˆã„ã€‚ã“ã‚Œã¯ä½•ã‹ã‚’å®Ÿè¡Œã™ã‚Œã°ã™ãã«æˆåŠŸã‹å¤±æ•—ã‹ãŒã‚ã‹ã‚‹ã‹ã‚‰å˜ç´”ã ã€‚ ã¨ã“ã‚ãŒãƒ¡ãƒ¼ãƒ«ã£ã¦ã‚„ã¤ã¯ã‚„ã£ã‹ã„ã§ã€å‡¦ç†ï¼ˆé€ä¿¡ï¼‰ã•ã‚ŒãŸçž¬é–“ã«ã¯æˆåŠŸã—ãŸã‹å¤±æ•—ã—ãŸã‹ã‚ã‹ã‚‰ãªã„ã€‚ä¸€è¦‹æˆåŠŸã—ãŸã‚ˆã†ã«è¦‹ãˆã¦ã‚‚ã€ã—ã°ã‚‰ãã—ã¦ã‹ã‚‰ã€ã€Œã‚„ã£ã±ã‚Šã ã‚ã ã£ãŸã‚ˆ...ã€ã£ã¦ãªæ„Ÿã˜ã§ã‚¨ãƒ©ãƒ¼ãƒ¡ãƒ¼ãƒ«ãŒè¿”ã£ã¦ãã‚‹ã€‚ã¤ã¾ã‚Šã€ã“ã®ã‚¨ãƒ©ãƒ¼ãƒ¡ãƒ¼ãƒ«ãŒè¿”ã£ã¦ãã¦ã‹ã‚‰åˆã‚ã¦å¤±æ•—ã—ãŸã“ã¨ãŒã‚ã‹ã‚Šã€ãã“ã§ãã‚Œãªã‚Šã®å‡¦ç†ã‚’ã—ãªã‘ã‚Œã°ãªã‚‰ãªã„ã®ã ã€‚ ã‚ã‹ã£ã¦ã„ã‚‹ãªã‚‰ãã‚Œã‚’ã‚„ã‚Œã°ã„ã„ã‚“ã ã‘ã©ã€ã„ãã¤ã‹è€ƒãˆãªã‘ã‚Œã°ãªã‚‰ãªã„ã“ã¨ãŒã‚ã‚‹ã€‚ã¾ãšã¯ã€ã‚¨ãƒ©ãƒ¼ãƒ¡ãƒ¼ãƒ«ãŒã©ã“ã«è¿”ã£ã¦ãã‚‹ã‹ã¨ã„ã†ã“ã¨ã ã€‚ã‚‚ã®ã™ã”ãè©±ã‚’å˜ç´”ã«ã™ã‚Œã°ã€ã“ã‚Œ
hirafoo 2012/05/07
perl

mail
ãƒªãƒ³ã‚¯
Rubyã®Method#source_locationã‚’Perlã§ - Islands in the byte stream (legacy)
[è¿½è¨˜]Csideå…ˆç”ŸãŒUNIVERSAL::source_location_forã¨ã—ã¦ãƒªãƒªãƒ¼ã‚¹ã—ã¦ãŠã‚Šã¾ã™ã®ã§cpanmã§ã”åˆ©ç”¨ãã ã•ã„ï¼[/è¿½è¨˜] asakusa.rbã§source_locationã¨ã„ã†ãƒ¡ã‚½ãƒƒãƒ‰ã‚’æ•™ãˆã¦ã‚‚ã‚‰ã„ã¾ã—ãŸã€‚ ãã‚Œã«ã‚ˆã‚Œã°ã€Rubyã®ãƒ¡ã‚½ãƒƒãƒ‰ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆ(UnbountMethod, Method, Procãªã©)ã«ã¯source_locationã¨ã„ã†ãƒ¡ã‚½ãƒƒãƒ‰ãŒã‚ã‚Šã€ãã®ãƒ¡ã‚½ãƒƒãƒ‰ãŒå®šç¾©ã•ã‚ŒãŸãƒ•ã‚¡ã‚¤ãƒ«åã¨è¡Œç•ªå·ã‚’å–å¾—ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ã“ã‚Œã¯ã‚¯ãƒ©ã‚¹éšŽå±¤ãŒè¤‡é›‘ãªã¨ãã«ãƒ‡ãƒãƒƒã‚°ã«å½¹ç«‹ã¡ãã†ã§ã™ã€‚ Perlã§ã‚‚æ¨™æº–ãƒ©ã‚¤ãƒ–ãƒ©ãƒªã«å«ã¾ã‚Œã‚‹Bãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½¿ã£ã¦åŒæ§˜ã®ã“ã¨ãŒã§ãã‚‹ã®ã§ã‚„ã£ã¦ã¿ã¾ã—ãŸã€‚ Rubyç‰ˆï¼š #!/usr/bin/env ruby2 require 'fileutils'; p FileUtils.method(:pwd).source_locat
hirafoo 2012/03/07
source_location

perl

ruby
ãƒªãƒ³ã‚¯
1 2 3 4 5 6 7 8 9 10 æ¬¡ã®ãƒšãƒ¼ã‚¸