Perlã®é£Ÿãˆãªã„事情 - 演算åç·¨ - アリ
Perlã®é£Ÿãˆãªã„事情 より ãŠã£ã¨ã€ãã†ã§ã™ã€Perlã«ã¯æ¼”ç®—åãŒå¤šã™ãŽã‚‹ã®ã§ã—ãŸã€‚ã›ã£ã‹ãã®æ©Ÿä¼šãªã®ã§ã€Perlã®æ¼”ç®—åを紹介ã—ã¾ã™ã€‚ ビーナス演算å: 0+, +0 数値ã¨ã—ã¦è©•ä¾¡ã—ã¦ãã‚Œã¾ã™ã€‚æ„外ã¨ã‚ˆã見ã‹ã‘ã¾ã™ã。 ãªãœã“ã®æ¼”ç®—åを使ã†å¿…è¦ãŒã‚ã‚‹ã®ã‹ã¨ã„ã†ã¨ã€Perlã¯æ–‡å—列ã¨æ•°å€¤ã‚’明確ã«åŒºåˆ¥ã§ããªã„ã‹ã‚‰ã§ã™ã€‚scalarã‚’æ–‡å—列ã¨ã—ã¦è§£é‡ˆã™ã‚‹ãªã‚‰ã°æ–‡å—列ã¨ã—ã¦ã€ print 0+ '10'; #=> 10 print 0+ '123b'; #=> 123 print '1.2e3' +0; #=> 1200 print [] +0; #=> 4303367864 ã¡ãªã¿ã«ã€æ–‡å—列ã¨ã—ã¦è©•ä¾¡ã™ã‚‹ã¨ãã«ã¯ã“ã®ã‚ˆã†ã«ã™ã‚‹ã¨ã‹ã£ã“ã„ã„ã¨è¨€ã‚ã‚Œã¦ã„ã¾ã™ã€‚ $obj.q(); 一見メソッド呼ã³å‡ºã—ã®ã‚ˆã†ã«è¦‹ãˆã¾ã™ãŒ $obj . ''; ã¨ç‰ä¾¡ã§ã™ã€‚ ベビーカー演算å: @{[ ]} æ–‡å—
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚了日を2020å¹´1月31æ—¥(金)ã«æ±ºå®šã—ã¾ã—㟠- ã¯ã¦ãªã®å‘ŠçŸ¥
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚了日を2020å¹´1月31æ—¥(金)ã«æ±ºå®šã—ã¾ã—㟠以下ã®ã‚¨ãƒ³ãƒˆãƒªã®é€šã‚Šã€ä»Šå¹´æœ«ã‚’目処ã«ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—を終了予定ã§ã‚る旨をãŠçŸ¥ã‚‰ã›ã—ã¦ãŠã‚Šã¾ã—ãŸã€‚ 2019年末を目処ã«ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®æ供を終了ã™ã‚‹äºˆå®šã§ã™ - ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—日記 ã“ã®ãŸã³ã€æ£å¼ã«çµ‚了日を決定ã„ãŸã—ã¾ã—ãŸã®ã§ã€ä»¥ä¸‹ã®é€šã‚Šã”確èªãã ã•ã„。 終了日: 2020å¹´1月31æ—¥(金) エクスãƒãƒ¼ãƒˆå¸Œæœ›ç”³è«‹æœŸé™:2020å¹´1月31æ—¥(金) 終了日以é™ã¯ã€ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®é–²è¦§ãŠã‚ˆã³æŠ•ç¨¿ã¯è¡Œãˆã¾ã›ã‚“。日記ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãŒå¿…è¦ãªæ–¹ã¯ä»¥ä¸‹ã®è¨˜äº‹ã«ã—ãŸãŒã£ã¦æ‰‹ç¶šãã‚’ã—ã¦ãã ã•ã„。 ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã«æŠ•ç¨¿ã•ã‚ŒãŸæ—¥è¨˜ãƒ‡ãƒ¼ã‚¿ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã«ã¤ã„㦠- ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—日記 ã”利用ã®ã¿ãªã•ã¾ã«ã¯ã”迷惑をãŠã‹ã‘ã„ãŸã—ã¾ã™ãŒã€ã©ã†ãžã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚ 2020-06-25 追記 ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—日記ã®ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆãƒ‡ãƒ¼ã‚¿ã¯2020å¹´2月28
horensoã®Slack reporterを書ã„ãŸ
ã™ã£ã‹ã‚Šå£ç¯€ã¯å¹´åº¦æœ«ã§ã™ã〜。ãªã‚“ã¨æ˜Žå¾Œæ—¥ã«ã¯æ–°å¹´åº¦ã§æ–°å…¥ç¤¾å“¡ãŒå…¥ç¤¾ã—ã¦ãã‚‹ãž!! ã¨ã„ã†ã“ã¨ã§æ–°å’ç ”ä¿®ã®æº–å‚™ã«è¿½ã‚ã‚Œã¦ã‚‹ä»Šæ—¥ã“ã®é ƒã§ã™ãŒã€ã¿ãªã•ã¾ã„ã‹ãŒãŠéŽã”ã—ã§ã—ょã†ã‹ã€‚ ã•ã¦ã€ç ”修準備も長々やるã¨ç–²ã‚Œã¦ãã‚‹ã®ã§ã¡ã‚‡ã£ã¨ç¾å®Ÿé€ƒé¿ã«â€¦ã¨ã„ã†ã‚ã‘ã§ã¯ãªã„ã‚“ã§ã™ãŒã€æœ€è¿‘horensoã¨ã„ã†Googleã˜ã‚ƒãªã„ã»ã†ã®cronãªã©ã§ã‚³ãƒžãƒ³ãƒ‰ã‚’wrapã—ã¦æˆåŠŸå¤±æ•—ã®é€šçŸ¥ã‚’仕組ã¿åŒ–ã™ã‚‹ãƒ„ール(詳ã—ãã¯ä½œè€…ã®Songmuã•ã‚“ã®ãƒ–ãƒã‚°ã‚’ã”å‚ç…§ãã ã•ã„)用ã«Slack Reporterを書ãã¾ã—ãŸã€‚ã¡ãªã¿ã«Googleã®horensoã¯æ¼¢å—入力システムã§ã™ã€‚ ã§ã€ãã£ã¨ä»Šã©ãã®Webç³»ã®ä¼šç¤¾ã¯Slack使ã£ã¦ã‚‹ã¨ã“ã‚多ã„ã—ã€ç¤¾å†…ã®å„プãƒã‚¸ã‚§ã‚¯ãƒˆã§æ±Žç”¨çš„ã«ä½¿ãˆã‚‹ã‚ˆã†ã«ä½œã£ãŸã‹ã‚‰å‹¢ã„よã全世界ã«å…¬é–‹ã—ã¦ãŠãã‹ã€œã¨æ€ã£ãŸæ¬¡ç¬¬ãªã®ã§ã€ã“ã®è¨˜äº‹ã‚’(ç¾å®Ÿé€ƒé¿ã«)書ã„ã¦ã¾ã™ã€‚ã“ã®å‰ã¨ã‚る勉強会ã«è¡Œã£ãŸã¨ãも自å¸ã‹ã‚‰å‰å´
手元開発環境ã§ã‚µãƒ¼ãƒã‚’起動時ã®ã¿cronã®ã‚ˆã†ã«ã‚¹ã‚¯ãƒªãƒ—トを実行ã™ã‚‹(Perlã®å ´åˆ) - $shibayu36->blog;
ã“ã‚Œã¾ã§Perlを利用ã—ãŸæ‰‹å…ƒé–‹ç™ºç’°å¢ƒã§ã©ã®ã‚ˆã†ã«cronã‚’å‹•ã‹ã™ã‹è¿·ã£ã¦ããŸã®ã ã‘ã©ã€ãã®è§£æ±ºç–ãŒè¦‹ã¤ã‹ã£ãŸã®ã§ãƒ¡ãƒ¢ã€‚ 課題 開発サーãƒã‚„本番サーãƒã§ã¯cronã§å®šæœŸçš„ã«ã‚¹ã‚¯ãƒªãƒ—トãŒå®Ÿè¡Œã•ã‚Œã¦ã„ã‚‹ 定期的ã«å®Ÿè¡Œã•ã‚Œã¦ã„るスクリプトãŒå‹•ã‹ãªã„ã¨ã€æ£ã—ãå‹•ã‹ãªã„機能ãŒã‚ã‚‹ 例ãˆã°äºˆç´„投稿ã¿ãŸã„ãªæ©Ÿèƒ½ãªã© ã—ã‹ã—手元開発環境ã§ã¯cronã®ã‚ˆã†ã«å®šæœŸçš„ã«ã‚¹ã‚¯ãƒªãƒ—トを実行ã—ã¦ã„ãªã‹ã£ãŸ çµæžœã¨ã—ã¦ã€æ‰‹å…ƒé–‹ç™ºç’°å¢ƒã§æ‰‹å‹•ã§ã‚¹ã‚¯ãƒªãƒ—トを動ã‹ã•ãªã„ã¨ç¢ºèªã§ããªã„機能ãŒã‚ã£ãŸ 解決ç–ã¨ã—ã¦æ‰‹å…ƒã§ã‚‚crontabを書ã方法もã‚ã‚‹ã®ã ã‘ã©ã€ã“ã®å ´åˆé–‹ç™ºã—ã¦ã„ãªã„時もå‹æ‰‹ã«å®Ÿè¡Œã•ã‚Œã‚‹ã®ã§é¿ã‘ãŸã‹ã£ãŸã€‚ 解決方法 実ã¯Proclet ã¨ã„ã†ãƒ„ールã«ã€ã‚µãƒ¼ãƒã‚’èµ·å‹•ã—ãªãŒã‚‰å®šæœŸçš„ã«æŒ‡å®šã—ãŸã‚³ãƒ¼ãƒ‰ã‚’実行ã—ã¦ãれる機能ãŒã‚ã‚‹ã¨ã„ã†ã“ã¨ã«æ°—ã¥ã„ãŸã€‚詳ã—ãã¯SYNOPSISã‚’å‚照。 ã“れを使ã£ã¦cronã«æŒ‡å®šã—ã¦ã„るスクリプト
$_ã¨é–¢æ•°åž‹Perl - Qiita
Perlã®é–¢æ•°ã«ã¯å¼•æ•°ã‚’çœç•¥ã—ãŸå ´åˆã«$_ãŒå¼•æ•°ã¨ã—ã¦ä¸Žãˆã‚‰ã‚ŒãŸã‚‚ã®ã¨ã—ã¦æŒ¯ã‚‹èˆžã†é–¢æ•°ãŒã‚ã‚‹ãŒã€ã“ã®æ€§è³ªã‚’使ã†ã¨æ°—æŒã¡æ‚ªã„ã»ã©Haskellã£ã½ã„コードをPerlã§æ›¸ãã“ã¨ãŒã§ãる。 逆ã«ã€è‡ªåˆ†ã®ã‚ˆã†ãªPerlプãƒã‚°ãƒ©ãƒžãƒ¼ãŒHaskellã«å…¥é–€ã™ã‚‹æ™‚ã¯ã€ã€Œã‚ーã“ã“ã§ã¯$_ãŒçœç•¥ã•ã‚Œã¦ã‚“ã®ãã€ã£ã¦è€ƒãˆã‚‹ã¨ãƒã‚¤ãƒ³ãƒˆãƒ•ãƒªãƒ¼è¨˜æ³•ã¨ã‹ç†è§£ã—ã‚„ã™ã„ã¨æ€ã£ãŸã€‚ map ã¾ãšã¯åŸºæœ¬ä¸ã®åŸºæœ¬ã®map。 Perl $, = ","; ## リスト出力ã®ã‚»ãƒ‘レータ (以下åŒæ§˜) $\ = "\n"; ## 出力行ã®æœ«å°¾ (以下åŒæ§˜) my @fruits = qw(apple orange strawberry); print map { length } @fruits; # => 5,6,10
XML::Simple - ç°¡å˜ã«XMLã‚’è§£æž - Perl入門ゼミ
Perl › モジュール › here XML::Simpleモジュールを使ã†ã¨ç°¡å˜ã«XMLを解æžã—ã¦Perlã®ãƒ‡ãƒ¼ã‚¿æ§‹é€ ã«å¤‰æ›ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚XMLã®è§£æžæ‰‹æ³•ã«ã¯ã€Œå…ˆé ã‹ã‚‰é †æ¬¡è§£æžã‚’è¡Œã†SAXã€ã¨ã€ŒXMLãƒ„ãƒªãƒ¼æ§‹é€ ã‚’æ§‹ç¯‰ã™ã‚‹DOMã€ãŒæœ‰åã§ã™ãŒã€ç°¡å˜ã«æ‰±ã†ã¨ã„ã†ç‚¹ã§ã¯ã€XML::SimpleãŒä¸€ç•ªã§ã™ã€‚ XMLã¯ãƒ†ã‚ストファイルã«ãƒ‡ãƒ¼ã‚¿ã‚’記述ã™ã‚‹ã¨ãã®ä¸€èˆ¬çš„ãªãƒ•ã‚©ãƒ¼ãƒžãƒƒãƒˆã§ã™ã€‚プãƒã‚°ãƒ©ãƒ ã®è¨å®šãƒ•ã‚¡ã‚¤ãƒ«ã‚’記述ã™ã‚‹ã¨ããªã©ã«åˆ©ç”¨ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ # モジュールã®èªã¿è¾¼ã¿ã¨ã‚ªãƒ–ジェクトã®ç”Ÿæˆ use XML::Simple; my $xml = XML::Simple->new; XMLファイルをèªã¿è¾¼ã‚€ã«ã¯XMLinメソッドを使用ã—ã¾ã™ã€‚XMLã¯Perlã®ãƒ‡ãƒ¼ã‚¿æ§‹é€ (多次元ã®ãƒãƒƒã‚·ãƒ¥ã‚„é…列)ã«å¤‰æ›ã•ã‚Œã¾ã™ã€‚ # XMLファイルã®ãƒ‘ース my $data = $xml->XMLin('
MeCab, CaboCha ã§æ¥½ã€…è‡ªç„¶è¨€èªžå‡¦ç† (Mac + Perl) - decadence
ã“れ何 Perl 㧠MeCab ã‚„ CaboCha を使ã†éš›ã®é©å½“ã«ãƒ¡ãƒ¢ MeCab ã«é–¢ã—ã¦ã¯æƒ…å ±ãŒå¤šã„㌠CaboCha ã¯ã‚ã¾ã‚Šç„¡ã„ã®ã§ Mac + Perl ã§ã—ãŸã„æ–¹ã¯æ°—æŒã¡å‚考ã«ã—ã¦é ‚ã‘ãŸã‚‰ã¨æ€ã† 特ã«è‡ªç„¶è¨€èªžå‡¦ç†ã®ç ”究ãŒãƒ¡ã‚¤ãƒ³ã§ã¯ãªã„ãŒã€æ–‡æ›¸æ§‹é€ ãªã©é©åº¦ã«å–å¾—ã—ã¦ä½¿ã„ãŸã„分野 å…¨ã触れãŸäº‹ç„¡ã„人ã§ã‚‚便利ライブラリを使ã†äº‹ã§ä»¥ä¸‹ã®ã‚ˆã†ã«è‰²ã€…éŠã¹ã‚‹ 書ã人ãŒæ›¸ã‘ã°ä»¥ä¸‹ã®ã‚ˆã†ãªé©å½“ãªã®ã§ã‚‚ブクマ稼ã’ã‚‹ 例 Twitter ã‹ã‚‰ tweet ã‚’å–å¾—ã—ã€MeCab ã§å½¢å®¹è©žæŠ½å‡ºèªžã«å…¬é–‹è³‡æº/日本語評価極性辞書 - æ±åŒ—å¤§å¦ ä¹¾ãƒ»å²¡ï¨‘ç ”ç©¶å®¤ã‚’ä½¿ã£ã¦ãƒãƒƒã‚·ãƒ¥ã‚¿ã‚°æ¯Žã®æ„Ÿæ€§åˆ†æžã‚’行ㆠ注目ãƒãƒƒã‚·ãƒ¥ã‚¿ã‚°ã®ä¸ã‹ã‚‰ãƒãƒƒãƒ”ー度åˆã„計算ã—ã¦å–り上ã’るよã†ãªã‚µãƒ¼ãƒ“ス MeCab ã§åè©žã®ã¿æŠ½å‡ºã—ã€BagOfWords ã¨ã—ã¦ãƒ™ã‚¤ã‚¸ã‚¢ãƒ³ãƒ•ã‚£ãƒ«ã‚¿ã«ã‹ã‘ã¦ã‚¹ãƒ‘ム判定，LDA 使ã£ã¦ãƒˆãƒ”ック推定 CaboCha
Perlã®printデãƒãƒƒã‚°ã‚’シュッã¨è¦‹ã‚„ã™ãã™ã‚‹ - æ–‡å—ã£ã½ã„ã®ã€‚
ã“ã®è¨˜äº‹ã¯ã€Perl Advent Calendar 2014 - Qiita ã®6日目ã®è¨˜äº‹ã§ã™ã€‚（※åˆå¦è€…å‘ã‘） シュッã¨å¤‰æ•°ã®æ§˜åを見る Perlã§ãƒ—ãƒã‚°ãƒ©ãƒ を書ã„ã¦ã„ã¦ã€ã€Œã“ã“ã®å¤‰æ•°ãªã«ãŒå…¥ã£ã¦ã‚‹ã®ã‹ãªï¼Ÿã€ã¨èª¿ã¹ãŸã„å ´åˆã€ã“ã®ã‚ˆã†ã«printã§è¡¨ç¤ºã•ã›ã‚‹ãƒ—ãƒã‚°ãƒ©ãƒ を書ã㨠use strict; use warnings; my @array = (1, 2, 3, 4, 5); my $array_ref = [@array]; my %hash = ( name => "tarou", age => 20, ); my $hash_ref = {%hash}; print @array, "\n"; # => 12345 print %hash, "\n"; # => nametarouage20 print $array_ref, "\n"; # => ARRAY(0x7fd
Unicode cheatsheet for Perl - nntp.perl.org
Inspired by how scandalously Unicode-deficient the otherwise fine 4-way polyglot table comparing PHP, Perl, Python, and Ruby is at http://hyperpolyglot.org/scripting I created a quick Unicode cheatsheet for Perl, mostly by mining the examples in the new 4th edition of the came. Gee, I foresee a *whole* lot of "impossibles" in the other three languages' columns, don't you? :) Hm, have I left anythi
ã‚ã‚‹æ–‡å—ã®ãƒ¦ãƒ‹ã‚³ãƒ¼ãƒ‰ã®ã‚³ãƒ¼ãƒ‰ãƒã‚¤ãƒ³ãƒˆã‚’調ã¹ã‚‹æ–¹æ³• - Perl入門ゼミ
Perl › æ–‡å—コード › Unicode › コードãƒã‚¤ãƒ³ãƒˆ ã‚ã‚‹æ–‡å—ã®ãƒ¦ãƒ‹ã‚³ãƒ¼ãƒ‰ã®ã‚³ãƒ¼ãƒ‰ãƒã‚¤ãƒ³ãƒˆã‚’知りãŸã„å ´åˆã¯ã€æ¬¡ã®ã‚ˆã†ã«ã—ã¾ã™ã€‚utf8プラグマã¯æœ‰åŠ¹ã«ã—ã¦ã€ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã‚’UTF-8ã§ä¿å˜ã™ã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™ã€‚ use utf8; my $str = 'ã‚'; # åå…進数ã¨ã—ã¦è¡¨ç¤º printf "%x\n", ord($str); ord関数ã§æ–‡å—ã®ã‚³ãƒ¼ãƒ‰ãƒã‚¤ãƒ³ãƒˆã‚’知るã“ã¨ãŒã§ãã¾ã™ã€‚printf関数ã§%xã¨ã„ã†ãƒ•ã‚©ãƒ¼ãƒžãƒƒãƒˆæŒ‡å®šã‚’ã—ã¦16進数ã§è¡¨ç¤ºã—ã¦ã„ã¾ã™ã€‚ 出力çµæžœã¯ä»¥ä¸‹ã®ã‚ˆã†ã«ãªã‚Šã€Œã‚ã€ã¨ã„ã†æ–‡å—ã®ã‚³ãƒ¼ãƒ‰ãƒã‚¤ãƒ³ãƒˆã¯3042ã§ã‚ã‚‹ã“ã¨ãŒã‚ã‹ã‚Šã¾ã™ã€‚ 3042 Data::Dumperã§ç°¡æ˜“çš„ã«èª¿ã¹ã‚‹ Data::Dumperモジュールを使ã£ã¦ç°¡æ˜“çš„ã«èª¿ã¹ã‚‹æ–¹æ³•ã‚‚ã‚ã‚Šã¾ã™ã€‚Data::Dumperã¯ASCIIã®ç¯„囲ã§ãªã„æ–‡å—ã§ã‚ã‚Œã°ã€å†…部文å—列を出力ã™ã‚‹ã¨ãã«ã€ã‚³ãƒ¼ãƒ‰ãƒã‚¤ãƒ³ãƒˆ
Perl 5.8以é™ã§Unicodeを使ã†
Perlã®5.8以é™ã§ã¯ã€å‰²ã¨ç°¡å˜ã«UnicodeãŒä½¿ãˆã‚‹ã‚ˆã†ã«ãªã£ã¦ã„ã¾ã™ã€‚ 自分ã®å‚™å¿˜éŒ²ã‚‚å…¼ãã¦ã€ç°¡å˜ã«ä½¿ã„方をã¾ã¨ã‚ã¦ãŠãã¾ã™ã€‚ Perlã®source codeã‚’Unicodeã§æ›¸ã Source codeã‚’BOM(byte order mask)ãªã—ã®utf8ã§æ›¸ãã¾ã™ã€‚ ãã—ã¦ã€æ¬¡ã®ã‚ˆã†ã«"use utf8;"ã¨æ›¸ã„ã¦ãŠã‘ã°ã€ã¨ã‚Šã‚ãˆãš source code内ã§Unicodeæ–‡å—列を扱ã†ã“ã¨ãŒã§ãã¾ã™ã€‚ #!/usr/bin/perl use utf8; #use strict; $somevar = "æ¼¢å—ã®æ–‡å—列"; $somevar = "\x{3042}\x{3044}\x{3046}"; ## "ã‚ã„ã†" 標準入出力ã®æ–‡å—code 上記ã®ã‚ˆã†ã«ã™ã‚Œã°ã€source codeã‚’Unicodeã§æ›¸ãã“ã¨ã¯ã§ãã¾ã™ã€‚ ã—ã‹ã—ã€ã“ã®ã¾ã¾ã§ã¯æ–‡å—列をprintã™ã‚‹ã¨utf8ã®
ã¯ã¦ãªãƒ–ãƒã‚° | 無料ブãƒã‚°ã‚’作æˆã—よã†
ベルギーã«è¡Œã£ãŸ 先日ã€ãƒ™ãƒ«ã‚®ãƒ¼ã«è¡Œãã¾ã—ãŸã€‚ マグリットã®çµµã¨ãƒ«ãƒ¼ãƒ™ãƒ³ã‚¹ã®çµµã‚’見るã®ãŒç›®çš„。 ã‚ã¾ã‚Šæ™‚é–“ã‚‚ãªãã€ãƒ–リュッセルã¨ã‚¢ãƒ³ãƒˆãƒ¯ãƒ¼ãƒ—を駆ã‘足気味ã§å·¡ã‚‹ã“ã¨ã«ã€‚ ミュンヘンã‹ã‚‰è»Šã§10時間近ãã‹ã‹ã‚Šã€ãªã‚“ã§ã“ã‚“ãªç„¡èŒ¶ã‚’ã—ã¦ã—ã¾ã£ãŸã®ã‹ã¨ã‚‚æ€ã„ã¾ã—ãŸãŒã€ãƒ¨ãƒ¼ãƒãƒƒãƒ‘ã®æ–¹â€¦
ã¯ã¦ãªãƒ–ãƒã‚° | 無料ブãƒã‚°ã‚’作æˆã—よã†
2024年下åŠæœŸã®ãƒ•ã‚£ãƒ«ãƒ 写真ãŸã¡ ãµã¨æ°—ãŒã¤ãã¨2024年も残り僅ã‹ã€‚ ãã—ã¦ãµã¨æŒ¯ã‚Šè¿”ã‚‹ã¨ã“ã®ãƒ–ãƒã‚°ã«æŽ²è¼‰ã™ã‚‹å†™çœŸãŒGRIIIã§æ’®ã£ãŸã‚‚ã®ã°ã‹ã‚Šã«ãªã£ã¦ã„ãŸã®ã ã‘ã©ã€æ±ºã—ã¦ãƒ•ã‚£ãƒ«ãƒ ã«é£½ããŸã¨ã„ã†ã“ã¨ã§ã¯ãªãã€ãƒ•ã‚£ãƒ«ãƒ ã¯ãƒ•ã‚£ãƒ«ãƒ ã§æ·¡ã€…ã¨æ’®ã‚Šç¶šã‘ã¦ã„ã‚‹ã—ã€ãƒ¢ãƒŽã‚¯ãƒã‚‚カラーãƒã‚¬ã‚‚ã„ã¤ã‚‚通り自宅ã§â€¦
Plack::Middleware::Session 㧠Session Fixation å¯¾ç– - punitan (a.k.a. punytan) ã®ãƒ¡ãƒ¢
Session Fixation XSS や事å‰ã«å–å¾—ã—ãŸã‚»ãƒƒã‚·ãƒ§ãƒ³ã‚’利用者ã«é€ã‚Šè¾¼ã‚“ã§æ¨©é™ã‚’æ˜‡æ ¼ã•ã›ã‚‹é¡žã®æ”»æ’ƒã§ã€ã‚»ãƒƒã‚·ãƒ§ãƒ³IDをクエリã«å«ã¾ã›ãŸã‚Šã€ã‚·ãƒ¼ã‚±ãƒ³ã‚·ãƒ£ãƒ«ãªã‚»ãƒƒã‚·ãƒ§ãƒ³IDを用ã„るよã†ãªæ„šã‹ãªã“ã¨ã‚’ã—ãªã‘ã‚Œã°åŸºæœ¬çš„ã«å•é¡Œã¯ãªã„ã‚‚ã®ã®ã€ Session Fixation ã¸ã®æ ¹æœ¬çš„ãªå¯¾ç–ã¨ã—ã¦ã€ãƒã‚°ã‚¤ãƒ³æˆåŠŸå¾Œã«ã“ã‚Œã¾ã§ã®ã‚»ãƒƒã‚·ãƒ§ãƒ³ã‚’ç ´æ£„ã—ã€æ–°ã—ã„セッションを発行ã™ã‚‹ã“ã¨ãŒæœ›ã¾ã—ã„。 Session Fixation ã«ã¤ã„ã¦è©³ã—ã„ã“ã¨ã¯ IPA ã®å‡ºã—ã¦ã„る『安全ãªã‚¦ã‚§ãƒ–サイトã®ä½œã‚Šæ–¹(pdf)ã€æ”¹å®šç¬¬4版 p.15 ã‹ã‚‰ p.20 ã«èª¬æ˜ŽãŒã‚ã‚Šã¾ã™ã€‚ 0.13 今ã¾ã§ P::M::Session ã§ã¯ãƒã‚°ã‚¤ãƒ³æˆåŠŸå¾Œã«æ–°ã—ãセッションを開始ã™ã‚‹ã®ã«ã¡ã‚‡ã£ã¨ã—ãŸç´°å·¥ãŒå¿…è¦ã§ã—ãŸãŒã€ 0.13 ã‹ã‚‰ã¯å¤ã„セッションã®ç ´æ£„ã¨ã‚ãŸã‚‰ã—ã„セッションã®ç™ºè¡Œã‚’〠$request->env->{
Mojoliciousã®ã‚»ãƒƒã‚·ãƒ§ãƒ³ã®è©± 2013年年末版 - Qiita
ã™ã焼ãã®é£Ÿæã‚’è²·ã£ã¦å¸°ã£ãŸã¯ã„ã„ã‚‚ã®ã®çªç„¶ä¿®æ£ã—ãªãã¦ã¯ã„ã‘ãªã„コードãŒé™ã£ã¦ãã¾ã—ã¦ã€œ 自炊ã™ã‚‹æ™‚é–“ãŒãªãã¦ã—ょã†ãŒãªã 最高ã®ãƒ©ãƒ¼ãƒ¡ãƒ³ を食ã¹ãŸã‚†ãƒ¼ã™ã‘ã¹ãƒ¼ã§ã™ã€‚ 今回ã¯Mojoliciousã®ã‚»ãƒƒã‚·ãƒ§ãƒ³ã«ã¤ã„ã¦ã®ãŠè©±ã€‚ã‚‚ã¨ã‚‚ã¨å‚™ã‚ã£ã¦ã„ã‚‹Mojoliciousã®ã‚»ãƒƒã‚·ãƒ§ãƒ³ã‚’使ã†ã«ã¯ã“ã®ã‚ˆã†ãªæ“作をã—ã¾ã™ã€‚ #!/usr/bin/env perl use Mojolicious::Lite; app->secret('passphrase'); get '/' => sub { my $self = shift; $self->session->{count}++; $self->stash->{count} = $self->session->{count}; $self->render('index'); }; app->start(); __DATA__ @@ index.ht
ãŠçŸ¥ã‚‰ã›
ランã‚ング
ランã‚ング
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
Koyomi
Perl RDBMS Programming(DBI/DBIx::Sunnyã®ã¯ãªã—)
app.psgi
Cookie使ã£ãŸã‚»ãƒƒã‚·ãƒ§ãƒ³ç®¡ç†ã§ID固定化を防ãã«ã¯
Plack::Middleware::Session::Cookie
{{#tags}}- {{label}}
{{/tags}}