http://homepage.mac.com/dnagase/macosx/perlcgi.htmlThe account you requested doesn't exist or is currently inactive. Please make sure the URL is spelled and capitalized correctly, and try again.
[Perl] æºå¸¯ã‚µã‚¤ãƒˆã®ã‚¢ã‚¯ã‚»ã‚¹åˆ†æž!
MovableTypeã‚’æºå¸¯å¯¾å¿œã™ã‚‹ä¸€ç•ªç°¡å˜ãªæ–¹æ³•ã¯ã€mt4iãªã‚ã‘ã§ã™ãŒã€ã“ã®ã‚¢ã‚¯ã‚»ã‚¹è§£æžã‚’apacheãƒã‚°ã§ã‚„ã‚‹ã®ã‚‚é¢å€’ã«æ€ã„ã¾ã—ãŸã€‚ ãªã®ã§ã€æœ€è¿‘出ãŸGA4Kã¨ã„ã†ã€GoogleAnalyticsã«æºå¸¯ã‚¢ã‚¯ã‚»ã‚¹ã‚’æµã™PHPライブラリ(ã¾ã原ç†çš„ã«ã¯ã‚³ã‚³ã§ã‚‚紹介ã•ã‚Œã¦ã„ã‚‹ã¨ãŠã‚Šã€ãŸã„ã—ãŸã“ã¨ã¯ãªã„ã®ã§ã™ãŒ)ã‚’ã€Perlモジュールã«ä½œã‚Šå¤‰ãˆã¦ã¿ã¾ã—ãŸ(以下ソース。ウェブプãƒãƒ‘ティID(utmac)ã¨ã‚¦ã‚§ãƒ–サイトURL(utmhn)ã¯æ›¸ãæ›ãˆã¦ãã ã•ã„!)。 # # This code is test module for k-tai web site (ex mt4i) # package Onamon; sub accessGoogleAnalystics{ use Sys::Syslog; require HTTP::Request; require LWP::UserAgent;
日本ã®æ•é¯¨æ´»å‹•å¦¨å®³ã®ã€Œã‚·ãƒ¼ãƒ»ã‚·ã‚§ãƒ‘ードã€ã«å¯¾ã™ã‚‹æµ·å¤–ã®ã‚³ãƒ¡ãƒ³ãƒˆ : らã°Q
日本ã®æ•é¯¨æ´»å‹•å¦¨å®³ã®ã€Œã‚·ãƒ¼ãƒ»ã‚·ã‚§ãƒ‘ードã€ã«å¯¾ã™ã‚‹æµ·å¤–ã®ã‚³ãƒ¡ãƒ³ãƒˆ æ•é¯¨å対グループ活動家「シーシェパードã€ã®æ—¥æœ¬ã®èª¿æŸ»æ•é¯¨èˆ¹ã«å¯¾ã™ã‚‹å¦¨å®³æ´»å‹•ãŒã‚¨ã‚¹ã‚«ãƒ¬ãƒ¼ãƒˆã—ã€ãƒ‹ãƒ¥ãƒ¼ã‚¹ã‚’ã«ãŽã‚ã›ã¦ã„ã¾ã™ã€‚ 船ã§ä½“当ãŸã‚Šã—ã¦ããŸã‚Šã€è–¬å“入りã®ãƒœãƒˆãƒ«ã‚’投ã’ã“ã‚“ã§ããŸã‚Šã€èˆ¹ã«ä¹—り込んã§ãã‚‹ãªã©ã€ãã®ç„¡æ³•ãªæš´åŠ›è¡Œç‚ºã‹ã‚‰ã€æµ·è³Šã‚„環境テãƒãƒªã‚¹ãƒˆã¨ã‚‚呼ã°ã‚Œã€æ˜¨å¹´ã«ã¯è¦è¦–åºãŒé€®æ•çŠ¶ã‚’請求ã—ã¾ã—ãŸã€‚ 日本ã®æ•é¯¨æ´»å‹•å¦¨å®³ã®ã€Œã‚·ãƒ¼ãƒ»ã‚·ã‚§ãƒ‘ードã€ãƒ¡ãƒ³ãƒãƒ¼ã«é€®æ•çŠ¶ 世界100カ国以上ã§è¦–è´ã•ã‚Œã¦ã„るアニマル・プラãƒãƒƒãƒˆã®ã€ŒWhale Warsã€ã¨ã„ã†ãƒ‰ã‚ュメンタリー番組ã§ã¯ã€ã‚·ãƒ¼ãƒ»ã‚·ã‚§ãƒ‘ードã«ã‚ˆã‚‹å¦¨å®³æ´»å‹•ã‚’好æ„çš„ã«ä¼ãˆã¦ã„ã‚‹ãŸã‚ã€æµ·å¤–ã§ã‚‚ã‹ãªã‚Šè©±é¡Œã«ãªã£ã¦ã„ã¾ã™ã€‚ 日本ã§ã¯ãƒžã‚¹ã‚³ãƒŸã‹ã‚‰èžã“ãˆã¦ãる内容ã¯ä¼ã‚ã£ã¦ãã¾ã™ãŒã€ä¸€èˆ¬ã®æ¬§ç±³äººãŸã¡ã¯ã“ã®å•é¡Œã«ã©ã†ã„ã£ãŸå応をã—ã¦ã„ã‚‹ã®ã‹ã€ã‚ã¾ã‚Šä¼ã‚ã£ã¦ã“ãªã„ã¨æ€ã†ã®ã§ã‚³ãƒ¡ãƒ³ãƒˆã‚’抜粋ã—ã¦ã¿ã¾ã—ãŸã€‚
Perl Tips | Linux ã§ã€ãƒ‡ãƒ¼ãƒ¢ãƒ³ã®ãƒ—ãƒã‚°ãƒ©ãƒ （Perl スクリプト）を自動起動ã•ã›ã‚‹ã«ã¯ï¼Ÿ
「 Perl ã§ã€ãƒ‡ãƒ¼ãƒ¢ãƒ³ (Daemon) ã®ãƒ—ãƒã‚°ãƒ©ãƒ を書ãã«ã¯ï¼Ÿ ã€ã§ã¯ã‚¿ã‚¤ãƒˆãƒ«ã®é€šã‚Šã€Perl ã§ãƒ‡ãƒ¼ãƒ¢ãƒ³ã®ãƒ—ãƒã‚°ãƒ©ãƒ を書ã方法を紹介ã—ãŸã€‚ ãã‚Œã§ã¯ã€ã›ã£ã‹ã Perl ã§æ›¸ã‘ãŸã“ã®ãƒ‡ãƒ¼ãƒ¢ãƒ³ãƒ—ãƒã‚°ãƒ©ãƒ （Perl スクリプト）ã€Linux ã§è‡ªå‹•èµ·å‹•ã•ã›ã¦ã‚ã’ã‚‹ã«ã¯ã©ã†ã—ãŸã‚‰ã„ã„ã®ã ã‚ã†ã‹ï¼Ÿ 以下ã®ã‚¹ã‚¯ãƒªãƒ—トã®é’å—ã®éƒ¨åˆ†ã‚’ä¿®æ£ã™ã‚‹ã€‚ .pl ã«ã¯ã€Perl ã§æ›¸ã„ãŸãƒ‡ãƒ¼ãƒ¢ãƒ³ã®ã‚¹ã‚¯ãƒªãƒ—トåãŒå…¥ã‚‹ã€‚ /var/www/cgi-bin/your_service_dir ã«ã¯ã€ä¸Šã®ã‚¹ã‚¯ãƒªãƒ—トを置ã„ãŸå ´æ‰€ãŒå…¥ã‚‹ã€‚ 以下ã®ã‚·ã‚§ãƒ«ã‚¹ã‚¯ãƒªãƒ—トを your_service_manager ãªã©ã€è‡ªåˆ†ã®å¥½ããªãƒ•ã‚¡ã‚¤ãƒ«åã«ã—ã¦ã€/etc/rc.d/init.d ã«ä¿å˜ã™ã‚‹ã€‚ スクリプトã¯å®Ÿè¡Œã§ãるよã†ã«ã—ã¦ãŠãã“ã¨ã€‚ $ chmod +x your_service_manager #!/bin/bash
Perl Tips | Perl ã§ã€ãƒ‡ãƒ¼ãƒ¢ãƒ³ (Daemon) ã®ãƒ—ãƒã‚°ãƒ©ãƒ を書ãã«ã¯ï¼Ÿ
Perl ã§ã€ã‚¹ã‚¯ãƒªãƒ—トをデーモン化ã™ã‚‹ã®ã¯ãã‚“ãªã«é›£ã—ããªã„。 Proc::Daemon ã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’使ãˆã°ç°¡å˜ã«ã§ãã‚‹ ã®ã ãŒã€ãã‚Œã«ã¯å°ã•ãªãƒ•ãƒ¬ãƒ¼ãƒ ワークã«æ²¿ã£ã¦ã‚¹ã‚¯ãƒªãƒ—トを書ã‹ãã°ãªã‚‰ãªã„。次ã®ã‚µãƒ³ãƒ—ルã«ç©ºã®ãƒ•ãƒ¬ãƒ¼ãƒ ワークを示ã—ãŸã®ã§ã€æ—¢å˜ã®ã‚¹ã‚¯ãƒªãƒ—トãŒã‚ã‚‹å ´åˆã«ã¯ã“ã‚Œã«æ²¿ã£ã¦è‡ªåˆ†ã®ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’å°‘ã€…æ”¹é€ ã™ã‚Œã°ã‚ˆã„。基本的ã«ã¯ action サブルーãƒãƒ³ã«ãƒã‚¸ãƒƒã‚¯ã‚’書ã‘ã°ã„ã„よã†ã«ãªã£ã¦ã„る。 使用ã™ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ« use Proc::Daemon; #/usr/bin/perl -w use Proc::Daemon; our $DAEMON        = 1;     # デーモンã«ã™ã‚‹ã‹ï¼Ÿ: 1(オン) / 0 (オフ) our $SLEEP_INTERVAL = 60;    # スリープã®é–“隔（秒） &init; &run; sub action { # ã“ã“
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
{{#tags}}- {{label}}
{{/tags}}