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

hogem id:hogem

linuxã¨perlã«é–¢ã™ã‚‹hogemã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (7)

${{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}}

GNU ParallelãŒã™ã”ã™ãŽã¦ç”Ÿãã‚‹ã®ãŒã¤ã‚‰ã„
çš†ã•ã‚“ä»Šæ—¥ã‚‚ãŸãã•ã‚“ã®ã‚µãƒ¼ãƒã‚’ç›¸æ‰‹ã«ã•ã‚Œã¦ã„ã‚‹ã“ã¨ã‹ã¨æ€ã„ã¾ã™ãŒã€ã„ãã¤ã‹ã®ã‚µãƒ¼ãƒã«ã‚¢ã‚¯ã‚»ã‚¹ã—ã¦ 1 ç§’é–“ã®çµ±è¨ˆæƒ…å ±(ä¾‹ãˆã°vmstat 1 2)ã‚’é›†ã‚ã¦ãƒ‘ãƒƒã¨è¡¨ç¤ºã—ãŸã„æ™‚ã£ã¦ã©ã†ã‚„ã£ã¦ã¾ã™ã‹ãï¼Ÿshell script ã‚’å¦ã³ã¯ã˜ã‚ãŸã°ã£ã‹ã‚Šã®åƒ•ã¯ã“ã‚“ãªæ„Ÿã˜ã§æ›¸ã„ã¦ã¾ã—ãŸã€‚ $ for i in host1 host2 host3; do ssh $i "vmstat 1 2 | tail -1"; done 0 0 0 329004 210836 14275360 0 0 0 2424 1410 1828 0 0 100 0 0 0 0 0 3716112 587704 25921684 0 0 0 488 1643 2026 0 0 100 0 0 1 0 0 555440 265560 14015548 0 0 0 4204 1534 2392 1 0 99 0 0 vmstatã¨
hogem 2011/04/21
cooool !!

linux

perl
ãƒªãƒ³ã‚¯
Perl ã§ãƒãƒ¼ã‚«ãƒ«ã®ã‚¢ãƒ‰ãƒ¬ã‚¹ã‚’å–å¾—ã™ã‚‹ - naoyaã®ã¯ã¦ãªãƒ€ã‚¤ã‚¢ãƒªãƒ¼
ifconfigã®å‡ºåŠ›ã‚’sedã§ãƒ‘ãƒ¼ã‚¹ â€” ã‚ã‚Šãˆã‚‹ãˆã‚Šã‚ ã¾ã Linux ã‚’è§¦ã‚Šå§‹ã‚ã¦é–“ã‚‚ãªã„é ƒã«ã€ã‚µãƒ¼ãƒãƒ¼ã‚’æ§‹ç¯‰ã—ã¦ã„ã¦ãƒãƒ¼ã‚«ãƒ«ã® IP ã‚¢ãƒ‰ãƒ¬ã‚¹ã‚’ã‚·ã‚§ãƒ«ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‹ã‚‰åˆ©ç”¨ã™ã‚‹å¿…è¦ãŒã‚ã£ã¦ã€ã©ã†ã‚„ã£ã¦å–å¾—ã™ã‚‹ã¹ãã ã‚ã†ã‹ã¨å°ä¸€æ™‚é–“æ‚©ã‚“ã ã®ã§ã™ãŒçµå±€åˆ†ã‹ã‚‰ãš Perl ã®æ£è¦è¡¨ç¾ã§ ifconfig ã‚’ parse ã—ãŸã“ã¨ãŒã‚ã‚Šã¾ã—ãŸã€‚ioctl() ã‚’ä½¿ã£ã¦ãƒ‡ãƒã‚¤ã‚¹ã‚’æ“ä½œã™ã‚‹å¿…è¦ãŒã‚ã‚‹ã€ã¨ã„ã†ã“ã¨ã‚’çŸ¥ã£ãŸã®ã¯æ•°å¹´å¾Œã€å‰²ã¨æœ€è¿‘ã®ã“ã¨ã§ã™ã€‚ãªã‚“ã¨ã„ã†ã“ã¨ã§ã—ã‚‡ã†ã€‚ ã§ã¯ã€Perl ã§ IP ã‚¢ãƒ‰ãƒ¬ã‚¹ã‚’å–å¾—ã™ã‚‹å ´åˆã§ã™ãŒãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½¿ã£ã¦ã‚ˆã„ã®ã§ã‚ã‚Œã° IO::Interface ãŒã‚ˆã„ã ã‚ã†ã¨æ€ã£ã¦ã„ã¾ã™ã€‚IO::Interface ã¯ Pure Perl ã§ã¯ã‚ã‚Šã¾ã›ã‚“ãŒã€XS ã§ ioctl() ã‚’å‘¼ã³å‡ºã—ã¦ã„ã‚‹ã®ã§æ¯”è¼ƒçš„é«˜é€Ÿä¸”ã¤ç´ ç›´ãªå®Ÿè£…ã ã¨æ€ã„ã¾ã™ã€‚ #!/usr/local/
hogem 2008/07/01
IO::Interfaceã‚’ä½¿ã£ã¦IPã‚¢ãƒ‰ãƒ¬ã‚¹ã‚’å–å¾—ã€‚IPã‚¢ãƒ‰ãƒ¬ã‚¹ä»¥å¤–ã«ã‚‚ãƒãƒ¼ãƒ‰ã‚¦ã‚§ã‚¢ã‚¢ãƒ‰ãƒ¬ã‚¹ç‰ã‚’å–å¾—å¯èƒ½ã¨ã®ã“ã¨

linux

perl
ãƒªãƒ³ã‚¯
å‹æ‰‹ã«æ·»å‰Š - find(1) : 404 Blog Not Found
2007å¹´03æœˆ30æ—¥00:15 ã‚«ãƒ†ã‚´ãƒªä¸€æ—¥ä¸€è¡Œé‡ŽéƒŽLightweight Languages å‹æ‰‹ã«æ·»å‰Š - find(1) ã€Œã‚¦ãƒŽã‚¦ãƒ©ãƒœ Unoh Labs: ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã§ä½œæ¥ã™ã‚‹ä¸Šã§çŸ¥ã£ã¦ãŠãã¨ã„ã„ãƒ†ã‚¯ãƒ‹ãƒƒã‚¯ã€ã®ç”¨æ³•ã«é¦–ã‚’å‚¾ã’ãŸã®ã§ã€‚ ã¾ãšã¯ã“ã¡ã‚‰ã€‚ $ find . -type f | fgrep index.html ã“ã‚Œã¯ % find . -type f -name index.html ã§OKã€‚ãƒ‘ã‚¤ãƒ—ä¸è¦ã€‚.htmlã ã‘è¦‹ã¤ã‘ãŸã„æ™‚ã‚‚ % find . -type f -name \*.html ã§OKã€‚findã¯ã‚·ã‚§ãƒ«ã®ãƒ¯ã‚¤ãƒ«ãƒ‰ã‚«ãƒ¼ãƒ‰ã‚’å—ã‘ä»˜ã‘ã‚‹ã€‚ãŸã ã—ã‚·ã‚§ãƒ«ã«ãã‚Œã‚’å±•é–‹ã—ã¦æ¬²ã—ããªã„ã®ã§ã€\ã§ã‚¨ã‚¹ã‚±ãƒ¼ãƒ—ã—ã¦ã„ã‚‹ã€‚è¦ã¯ $ find . -name '*~' ã¨åŒã˜ãªã®ã ãŒã€ãªã‚“ã§ä¸Šè¨˜ã®ä¾‹ã§fgrepã‚’ä½¿ã£ã¦ã„ã‚‹ã‹ä¸æ˜Žã€‚ ã“ã“ã‹ã‚‰ãŒæœ¬ç•ªã€‚ $ find . -nam
hogem 2007/09/27
File::Pathã®rmtreeã§ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªã¾ã¨ã‚ã¦å‰Šé™¤ã€‚mkpathã®å‰Šé™¤ç‰ˆ

linux

perl
ãƒªãƒ³ã‚¯
inetd ã®ä»•çµ„ã¿ã‚’è¦‹ã¦ã¿ã‚‹ - naoyaã®ã¯ã¦ãªãƒ€ã‚¤ã‚¢ãƒªãƒ¼
inetd ã‚„ xinetd (ä»¥ä¸‹ inetd) ã¯ã‚¤ãƒ³ã‚¿ãƒ¼ãƒãƒƒãƒˆã‚µãƒ¼ãƒ“ã‚¹ã‚’ãƒ‡ãƒ¼ãƒ¢ãƒ³åŒ–ã™ã‚‹ã®ã«å…±é€šã—ã¦ã„ã‚‹å‡¦ç†ã‚’æ‹…ã„ã€ã»ã¨ã‚“ã©ã®æ™‚é–“ã‚’ã‚¢ã‚¤ãƒ‰ãƒ«çŠ¶æ…‹ã§éŽã”ã™ãã®æ‰‹ã®ã‚µãƒ¼ãƒ“ã‚¹ã«å¿…è¦ãªãƒªã‚½ãƒ¼ã‚¹ã‚’ç¯€ç´„ã™ã‚‹å½¹å‰²ã‚’æžœãŸã—ã¾ã™ã€‚ inetd ã®ã²ã¨ã¤é¢ç™½ã„ã¨ã“ã‚ã¯ã€inetd ã§ã‚µãƒ¼ãƒ“ã‚¹åŒ–ã—ãŸã„ãƒ—ãƒã‚°ãƒ©ãƒ ã®æ¨™æº–å…¥åŠ›/æ¨™æº–å‡ºåŠ›ãŒã‚¯ãƒ©ã‚¤ã‚¢ãƒ³ãƒˆã‚½ã‚±ãƒƒãƒˆã®å…¥å‡ºåŠ›ã«æŽ¥ç¶šã•ã‚Œã‚‹ã¨ã“ã‚ã§ã™ã€‚ä¾‹ãˆã° daytime ç›¸å½“ã®ã‚µãƒ¼ãƒ“ã‚¹ã‚’è‡ªåˆ†ã§ä½œã‚ã†ã¨æ€ã£ãŸå ´åˆ #!/usr/local/bin/perl # daytime.pl use strict; use warnings; use DateTime; use IO::Handle; STDOUT->autoflush(1); STDOUT->printf( "%s\n", DateTime->now(time_zone => 'Asia/Tokyo') ); ã¨æ¨™
hogem 2007/08/01
linux

network

perl

programming
ãƒªãƒ³ã‚¯
IBM Developer
IBM Developer is your one-stop location for getting hands-on training and learning in-demand skills on relevant techno logies such as generative AI, data science, AI, and open source.
hogem 2007/02/26
ã“ã‚Šã‚ƒã‚ä¾¿åˆ©ãã†ã

cpan

perl

linux
ãƒªãƒ³ã‚¯
ã‚¦ãƒŽã‚¦ãƒ©ãƒœ Unoh Labs: ã‚¦ã‚§ãƒ–ã‚¢ãƒ—ãƒªé–‹ç™ºã‚’åŠ©ã‘ã‚‹GETã‚³ãƒžãƒ³ãƒ‰ã‚’ä½¿ã£ã¦ãƒãƒƒã‚¯ã—ã¦ã¿ã‚ˆã†!!
2GBã®SDã‚«ãƒ¼ãƒ‰è²·ã£ã¦æ„æ°—æšã€…ã¨æ“è¿Žä¼šã«çªæ’ƒã—ãŸã‚‰ã‚«ãƒ¡ãƒ©ã”ã¨æŒã£ã¦å¸°ã‚‹ã®ã‚’å¿˜ã‚Œã¦ç”Ÿãã¦ã„ãã®ãŒã¤ã‚‰ããªã£ãŸjokagiã§ã™ï¼Ž ã‚¬ã‚¸ã‚§ãƒƒãƒˆã«ã¯åå‰ã¨é€£çµ¡å…ˆã‚’ãŠå¿˜ã‚Œãªãï¼Ž ã•ã¦ã‚¦ã‚§ãƒ–ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã®é–‹ç™ºã‚’ã—ã¦ã„ã‚‹ã¨å½“ç„¶ã§ã™ãŒãƒ–ãƒ©ã‚¦ã‚¶ãƒ¼ã§ç”»é¢ã®ç¢ºèªã‚’ã—ãŸã‚Šã—ã¾ã™ãŒï¼Œãƒ–ãƒ©ã‚¦ã‚¶ãƒ¼ã§ç¢ºèªã‚’ã—ã¦ã„ã‚‹ã¨ã‚ãƒ£ãƒƒã‚·ãƒ¥ã«æ‚©ã‚“ã ã‚Šé¢å€’ãã•ã„ã“ã¨ãŒå°‘ãªãã‚ã‚Šã¾ã›ã‚“ï¼Ž æ™®é€šãã†ã„ã†æ™‚ã¯telnetãªã©ã§ç›´æŽ¥HTTPãƒ—ãƒãƒˆã‚³ãƒ«ã§ã‚¦ã‚§ãƒ–ã‚µãƒ¼ãƒãƒ¼ã¨ä¼šè©±ã™ã‚‹ã‚ã‘ã§ã™ãŒé¢å€’ãã•ã„ã§ã™ã‚ˆãï¼Ž $ telnet www.yahoo.co.jp 80 Trying 203.216.231.160... Connected to www.yahoo.co.jp. Escape character is '^]'. GET / HTTP/1.1 Host: www.yahoo.co.jp HTTP/1.1 200 OK Date:
hogem 2007/02/14
cpan

perl

linux

http

programming
ãƒªãƒ³ã‚¯
ãƒ¡ãƒ¢/ubuntu ã®ç·¨é›† - nakax memo
Site admin: nakax â—†e0p7b7JF1A PukiWiki 1.4.7 Copyright Â© 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji. Powered by PHP 5.3.29. HTML convert time: 0.043 sec.
hogem 2006/12/09
ubuntu

perl

plagger

linux
ãƒªãƒ³ã‚¯
1