Macã®ã‚¿ãƒ¼ãƒŸãƒŠãƒ«ã§ãƒ“ールãŒé™ã‚‹
Macã®ã‚¿ãƒ¼ãƒŸãƒŠãƒ«ã§ãƒ“ールãŒé™ã‚‹ è¾›ã„ã“ã¨ãŒã‚ã£ãŸã¨ãã«ï¼Œã©ã†ãžï¼Ž $ ruby -e 'C=`stty size`.scan(/\d+/)[1].to_i;S="\xf0\x9f\x8d\xba";a={};puts "\033[2J";loop{a[rand(C)]=0;a.each{|x,o|;a[x]+=1;print "\033[#{o};#{x}H \033[#{a[x]};#{x}H#{S} \033[0;0H"};$stdout.flush;sleep 0.01}' Gifzo å‚考 Macã®ã‚¿ãƒ¼ãƒŸãƒŠãƒ«ã§é¡”ãŒé™ã‚‹ Let it Snow in the Terminal of Mac OS X with This Command
「Perl One-Liners〠をèªã‚“ã - Shohei Yoshida's Diary
http://shop.oreilly.com/product/9781593275204.do æ¥æœˆ Oreillyã‹ã‚‰å‡ºã‚‹ã®ã‹ã¨æ€ã£ã¦ã‚°ã‚°ã£ã¦è¦‹ãŸã‚‰, é›»å書ç±ã¨ã—㦠4å¹´å‰ã«å‡ºãŸã‚‚ã®ã®ç´™ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã§ã—ãŸ. ç´™ã§èªã‚€ã®ã‚‚ã‚ã‚Œãªã®ã§, é›»å書ç±ç‰ˆã‚’èªã¿ã¾ã—ãŸ. $10ãªã‚“ã§å®‰ã„ã¨æ€ã„ã¾ã™. é›»å書ç±ç‰ˆ http://www.catonmat.net/blog/introduction-to-perl-one-liners/ 内容 言ã†ãªã‚Œã°, One linerクックブックã§ã™. ファイルã®å†…容ã®åŠ å·¥, 計算, æ–‡å—列生æˆ, æ–‡å—列変æ›, ç½®æ›, テã‚ストマッãƒãƒ³ã‚°ç‰ã® 内容ã§ã™. ãã‚Œãžã‚Œ 10-20å¼±ã®ãƒ¬ã‚·ãƒ”ãŒã‚ã‚Šã¾ã™. 事細ã‹ãªèª¬æ˜ŽãŒã‚ã‚‹ã‚ã‘ã§ã¯ãªã„ã®ã§ã€å…¨ãã®åˆå¿ƒè€…ã«ã¯å‘ã‹ãªã„㨠æ€ã„ã¾ã™ã€‚One Linerã®ã‚¹ã‚¤ãƒƒãƒã®æ„味ãらã„ã¯çŸ¥ã£ã¦ã„ã‚‹ã¨ã„ã†äºº å‘ã‘ã§ã—ょã†ã‹. ãã‚“ãªè¤‡é›‘
ã«ã²ã‚Šãšã‚€::ã—ã‚“ã·ã‚‹ - ターミナルã«ã‚¯ãƒªã‚¹ãƒžã‚¹ãƒ„リー
ターミナルã«ã‚¯ãƒªã‚¹ãƒžã‚¹ãƒ„リー - ã™ãŽã‚ƒãƒ¼ã‚“メモ コマンドプãƒãƒ³ãƒ—トã ã¨è‰²ãŒã§ãªã„ï¼ï¼ã‚¯ãƒªã‚¹ãƒžã‚¹ãƒ„リーã®ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã£ã¦ãªã‚“ã‹ã‚ã£ãŸã‚ˆãªãƒ¼ã¨ãŠã‚‚ã£ãŸã‘ã©ã€ruby ã®ã—ã‹è¦‹ã¤ã‹ã‚‰ãªã‹ã£ãŸï¼ ã®ã§ã€ã¨ã‚Šã‚ãˆãš perl ã§æ›¸ããªãŠã—ã¦ã¿ãŸã€‚center()ã¨ã‹çµ„ã¿è¾¼ã¿ã§ãªã„ã®ã§ã€ã¡ã‚‡ã£ã¨æ±ºã‚打ã¡ã«ãªã£ã¦ã¾ã™ã。 Ruby code drawing a Christmas tree in less than 140 characters : programming $ perl -E'say" "x(40-$_),"#"x($_*2) for 1..20,(6)x4;say"\n"," "x32,"Merry Christmas"' ## #### ###### ######## ########## ############ ############## ################ #
超便利ãªãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã‚’ã€ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã§æ¤œç´¢ã§ãã‚‹gemパッケージ「cmdline-fu〠- å…ƒRX-7ä¹—ã‚Šã®é©å½“ãªæ—¥ã€…
Linuxç‰ã®ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã§ä½¿ãˆã‚‹ä¾¿åˆ©ãªãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã‚’ã€ä¸–ç•Œä¸ã®ã¿ã‚“ãªã§å…±æœ‰ã—ã¡ã‚ƒãŠã†ã¨ã„ã†ã€ŒCommand-line-fuã€ã¨ã„ã†ã‚µã‚¤ãƒˆãŒç´ æ•µï¼ All commands 以å‰ã€100SHIKIã•ã‚“ã§ã‚‚ã€ä»¥ä¸‹ã®ã‚ˆã†ã«ç´¹ä»‹ã•ã‚Œã¦ã„ã¾ã—ãŸï¼ Command-line-fuã§ã¯Linuxãªã‚“ã‹ã®ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã§ä½¿ãˆã‚‹ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ï¼ˆä¸€è¡Œãƒ—ãƒã‚°ãƒ©ãƒ ）を投稿・共有ã§ãる。 自分ãŒã‚ˆã使ã†ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã‚’ä¿å˜ã—ã¦ãŠã„ã¦ä½¿ã†ã‚‚良ã—ã€ä»–ã®é”人ã®æŠ€ã‚’盗むも良ã—ã€ã®ç´ 晴らã—ãサービスã§ã‚る。 ã¡ã‚‡ã£ã¨ã®ãžã„ã¦ã¿ãŸã ã‘ã§ã‚‚「ã¸ãƒ¼ã€ä¸€è¡Œã§ã“ã“ã¾ã§å‡ºæ¥ã‚‹ã‚“ã ・・・ã€ã¨ã„ã†å°æŠ€ãŒã‚ã£ã¦ã‹ãªã‚Šå‹‰å¼·ã«ãªã‚‹ã€‚ コマンドラインã§ä½¿ãˆã‚‹è¶…絶便利ãªãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã‚’投稿・共有ã§ãる『Command-line-fu〠| 100SHIKI ã§ã€ã‚µã‚¤ãƒˆã§æ–°ã—ã投稿ã•ã‚ŒãŸãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã‚’ブラウザã§çœºã‚ãŸã‚Šã€ã‚µã‚¤ãƒˆã§ã‚ーワード検索ã—ãŸã‚Šã€RS
ã«ã²ã‚Šãšã‚€::ã—ã‚“ã·ã‚‹ - コマンドプãƒãƒ³ãƒ—トã§ã®ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼
コマンドプãƒãƒ³ãƒ—トã§ã¯å¼•æ•°ã‚’ダブルクォートã§ã—ã‹å›²ã‚€ã“ã¨ãŒã§ããªã„ãŸã‚ã€Unixç³»ã§æ›¸ã‹ã‚Œã¦ã‚‹ã‚ˆã†ãªãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã‚’ãã®ã¾ã¾å®Ÿè¡Œã™ã‚‹ã“ã¨ãŒã§ããªã„。 perl -MLWP::Simple=get -e 'print get("http://www.example.com");' ãŒã€ã“れをコマンドプãƒãƒ³ãƒ—トã§å®Ÿè¡Œã§ãã‚‹å½¢ã«ã™ã‚‹ã®ã¯æ„外ã¨ç°¡å˜ã§ã‚る。 具体的ã«ã¯ 外å´ã®ã‚·ãƒ³ã‚°ãƒ«ã‚¯ã‚©ãƒ¼ãƒˆã‚’ダブルクォートã«å¤‰æ›ã—〠ä¸ã§ä½¿ã‚ã‚Œã¦ã„るダブルクォートをエスケープã™ã‚‹ ã ã‘ã§å¤§æŠµã¯å‹•ãよã†ã«ãªã‚‹ã€‚ ã“れを行ã†ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã¯ä»¥ä¸‹ã®ã‚ˆã†ãªæ„Ÿã˜ã€‚ perl -lne "s/\"/\\\\\"/gms;s/-(\w*[eE])\s+'(.*)'/-$1 \"$2\"/ms;print" 大é‡ã®ãƒãƒƒã‚¯ã‚¹ãƒ©ãƒƒã‚·ãƒ¥ãŒå«ã¾ã‚Œã¦ã„ã‚‹ãŒã—ょã†ãŒãªã„。 ã“ã‚Œã§ã•ã£ãã®ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã‚’変æ›ã™ã‚‹ã¨ä»¥ä¸‹ã®ã‚ˆã†ã«ãªã‚Šã€ã‚³ãƒžãƒ³ãƒ‰ãƒ—ãƒãƒ³ãƒ—
全裸ã§ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ï¼ˆä»®ï¼‰ - ã™ãŽã‚ƒãƒ¼ã‚“ (sugyan)
YAPC::Asia 2009 å‰å¤œç¥mylist/15370462
ãŠãらãã¯ãã‚Œã•ãˆã‚‚平凡ãªæ—¥ã€…: ãƒãƒªã‚³ãƒ³åˆ¤å®šä¸€è¦§è¡¨å‡ºåŠ›ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠ
å‚考( http://twitter.com/Hamachiya2/statuses/703220972) perl -e "printf qq{| %2d | %5.2f |\n}, $_, (3.1415926535 * sqrt($_)) for 0..99" 出力çµæžœ(å·¦ãŒå¹´é½¢ã€‚å³ãŒãƒãƒªã‚³ãƒ³èªå®šå¹´é½¢) | 0 | 0.00 | | 1 | 3.14 | | 2 | 4.44 | | 3 | 5.44 | | 4 | 6.28 | | 5 | 7.02 | | 6 | 7.70 | | 7 | 8.31 | | 8 | 8.89 | | 9 | 9.42 | | 10 | 9.93 | | 11 | 10.42 | | 12 | 10.88 | | 13 | 11.33 | | 14 | 11.75 | | 15 | 12.17 | | 16 | 12.57 | | 17 | 12.
è¡Œã®ã‚·ãƒ£ãƒƒãƒ•ãƒ« - ã¿ãšã´ãƒ¼æ—¥è¨˜
30分プãƒã‚°ãƒ©ãƒ ã€ãã®645。行をシャッフルã™ã‚‹ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã€‚ 今日ã€ã‚¢ãƒ³ã‚±ãƒ¼ãƒˆçµæžœã‚’誰ãŒã©ã†ç”ãˆãŸã‹ã‚’分ã‹ã‚Šã¥ã‚‰ãã™ã‚‹ãŸã‚ã«ã€CSVã‹ã‚‰é …目をå–り出ã—ã¦ã‚·ãƒ£ãƒƒãƒ•ãƒ«ã—ã¦å‡ºåŠ›ã™ã‚‹ã‚¹ã‚¯ãƒªãƒ—トを書ãã¾ã—ãŸã€‚ ã›ã£ã‹ãã ã—ã€ãã“ã‹ã‚‰ã‚·ãƒ£ãƒƒãƒ•ãƒ«ã™ã‚‹éƒ¨åˆ†ã ã‘ã‚’å–り出ã—ã¦ã€è¡Œå˜ä½ã§ã‚·ãƒ£ãƒƒãƒ•ãƒ«ã™ã‚‹ã‚³ãƒžãƒ³ãƒ‰ã‚’作ã£ã¦ãŠãã¾ã—ょã†ã€‚ 最åˆã¯æ™®é€šã«ãƒ•ã‚¡ã‚¤ãƒ«ã«æ›¸ã„ã¦ã¾ã—ãŸãŒã€é€”ä¸ã§ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã§å分ãªã“ã¨ã«æ°—ãŒã¤ã„ãŸã®ã§åˆ‡æ›¿ãˆã¾ã—ãŸã€‚ 使ã„æ–¹ $ gseq 1 10 | perl '-MList::Util qw(shuffle)' -e 'print shuffle <>' 1 3 10 7 6 8 9 4 5 2 ソースコード 一応ã€è¤‡æ•°è¡Œãƒãƒ¼ã‚¸ãƒ§ãƒ³ã‚‚è²¼ã£ã¦ãŠãã¾ã™ã。 #! /usr/bin/perl # -*- mode:perl; coding:utf-8 -*- # # shuffle.pl - # #
ワンライナーã®ãŸã‚ã®PHPコマンドラインオプション - hnwã®æ—¥è¨˜
ワンライナー（1行スクリプト）ã®ä»£åè©žã¨è¨€ãˆã°Perlã§ã—ょã†*1。Perlã«ã¯ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼å‘ã‘ã®ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã‚ªãƒ—ションãŒå¤šæ•°ç”¨æ„ã•ã‚Œã¦ã„ã¾ã™ã€‚ä¸ã§ã‚‚-neオプションや-peオプションã¯å¼·åŠ›ã§ã€å…¥åŠ›è¡Œã”ã¨ã®å‡¦ç†ã‚’ループを使ã‚ãšã«ç°¡æ½”ã«è¨˜è¿°ã§ãã¾ã™ã€‚Perlã®ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼å‘ã‘コマンドラインオプションã®ä¸€éƒ¨ã¯Rubyã«ã‚‚輸入ã•ã‚Œã¦ãŠã‚Šã€Rubyプãƒã‚°ãƒ©ãƒžã‚‚ワンライナーを書ãã“ã¨ãŒå¤šã„よã†ã«è¦‹ãˆã¾ã™ã€‚ ãã‚Œã«æ¯”ã¹ã‚‹ã¨PHPã¯ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ãŒæ›¸ãã«ãã„å°è±¡ãŒã‚ã‚‹ã®ã§ã¯ãªã„ã§ã—ょã†ã‹ã€‚僕もãã†æ€ã£ã¦ã„ã¾ã—ãŸãŒã€å®Ÿã¯PHP5.0.0ã‹ã‚‰ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼å‘ã‘ã®ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã‚ªãƒ—ションãŒè¿½åŠ ã•ã‚Œã¦ã„ã¾ã™ã€‚ãã‚ŒãŒä»Šå›žç´¹ä»‹ã™ã‚‹-Rã€-Fã€-Bã€-Eã§ã™ã€‚ -Rオプションã€-Fオプション -Rã¨ã„ã†ã®ã¯ã€æ¨™æº–入力を1è¡Œã”ã¨ã«é †ã«å‡¦ç†ã™ã‚‹ã‚ªãƒ—ションã§ã™ã€‚例を見ã¦ã¿ã¾ã—ょã†ã€‚ $ ls bin/php-* bin/ph
CLIマジック：使ã£ã¦å½¹ç«‹ã¤ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼å…¥é–€ | OSDN Magazine
通常ã“ã®åˆ†é‡Žã«ãŠã‘るワンライナー（one-liner）ã¨ã¯ã€ãƒ‘イプ（|）ã¨ã„ã†æ©Ÿèƒ½ã‚’用ã„ã¦è¤‡æ•°ã®ã‚³ãƒžãƒ³ãƒ‰ã‚’1è¡Œã«ã¾ã¨ã‚ãŸã‚‚ã®ã‚’æ„味ã™ã‚‹ã€‚パイプã®æ©Ÿèƒ½ã¯ã€ãã®å·¦å´ã«è¨˜è¿°ã•ã‚ŒãŸã‚³ãƒžãƒ³ãƒ‰ã®å®Ÿè¡Œçµæžœã‚’ã€å³å´ã«è¨˜è¿°ã•ã‚ŒãŸã‚³ãƒžãƒ³ãƒ‰ã®å…¥åŠ›ã¨ã—ã¦æ¸¡ã™ã“ã¨ã§ã‚る。本稿ã§è§£èª¬ã™ã‚‹ã®ã¯bashコマンドプãƒãƒ³ãƒ—トã§ã®ä½¿ç”¨ä¾‹ã ãŒã€ç°¡å˜ãªæ§‹æˆã®ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã«ã›ã‚ˆè¤‡é›‘ãªæ§‹æˆã®ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã«ã›ã‚ˆã€ã“れらã¯ã„ãšã‚Œã‚‚使ã„方次第ã§å¤§ã„ã«å½¹ç«‹ã¤å˜åœ¨ãªã®ã 。 例ãˆã°ã€ã‚«ãƒ¬ãƒ³ãƒˆã®ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªã«ä½•å€‹ã®ãƒ•ã‚¡ã‚¤ãƒ«ãŒç½®ã‹ã‚Œã¦ã„ã‚‹ã‹ã‚’確èªã™ã‚‹ã«ã¯ã€ä¸‹è¨˜ã®ã‚³ãƒžãƒ³ãƒ‰ã‚’実行ã™ã‚Œã°ã„ã„。 ls | wc -l ã“ã‚Œã¯æœ€ã‚‚ç°¡å˜ãªéƒ¨é¡žã«å±žã™ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã®ã‚µãƒ³ãƒ—ルã§ã‚ã£ã¦ã€çŠ¶æ³ã«ã‚ˆã£ã¦ã¯ã‚ˆã‚Šè¤‡é›‘ãªè¨˜è¿°ã‚’ã™ã‚‹ã“ã¨ã«ãªã‚‹ã€‚例ãˆã°ã€æ‰‹å…ƒã®ã‚·ã‚¹ãƒ†ãƒ ã«ã¦å®Ÿè¡Œä¸ã®ãƒ—ãƒã‚»ã‚¹ã®ã†ã¡ã§CPU時間を最大é™ã«æ¶ˆè²»ã—ã¦ã„ã‚‹ã‚‚ã®ä¸Šä½5ã¤ã‚’特定ã™ã‚‹ã«ã¯ã€ä¸‹è¨˜ã®ã‚³ãƒžãƒ³ãƒ‰ã‚’実行ã™ã‚Œã°ã„ã„
cutã€headã€tailã€sort･･･定番ã®ãƒ•ã‚£ãƒ«ã‚¿ã‚³ãƒžãƒ³ãƒ‰ã‚’使ã„ã“ãªã™ï¼ã€€ï½žæ¥å‹™ã§ãƒ©ã‚¯ã™ã‚‹ãŸã‚ã®UNIXテクニック～
CodeZine編集部ã§ã¯ã€ç¾å ´ã§æ´»èºã™ã‚‹ãƒ‡ãƒ™ãƒãƒƒãƒ‘ーをスターã«ã™ã‚‹ãŸã‚ã®ã‚«ãƒ³ãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã€ŒDevelopers Summitã€ã‚„ã€ã‚¨ãƒ³ã‚¸ãƒ‹ã‚¢ã®ç”Ÿãã–ã¾ã‚’ブーストã™ã‚‹ãŸã‚ã®ã‚¤ãƒ™ãƒ³ãƒˆã€ŒDevelopers Boostã€ãªã©ã€ã•ã¾ã–ã¾ãªã‚«ãƒ³ãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã‚’ä¼ç”»ãƒ»é‹å–¶ã—ã¦ã„ã¾ã™ã€‚
PythonHakathonã®èª²é¡Œï¼ˆnot義務）をやã£ã¦ã¿ãŸã€‚ - When it’s ready.
「1以上100未満ã®ã€Ž2個ã®ç´ æ•°ã®ç©ã€ã§ã‚る整数を列挙ã—ãªã•ã„〠ã¨ã„ã†ã‚„ã¤ãŒã€8月ã®PythonHackathonã®ã‚¢ãƒ³ã‚±ãƒ¼ãƒˆã®æ‰€ã«æ›¸ã„ã¦ã‚ã£ãŸãŒãã®å ´ã§åˆ†ã‹ã‚‰ãªã‹ã£ãŸã®ã§ç©ºç™½ã§æ出ã—ãŸã€‚（ãã†ã„ãˆã°ã¾ã ã€ç¢ºèªã®ãƒ¡ãƒ¼ãƒ«ãŒæ¥ã¦ãªã„ãªã€‚登録ã§ãã¦ãªã„ã®ã‹?） やらãªã„ã¾ã¾ã‚‚æ°—æŒã¡æ‚ªã„ã®ã§ã€ã‚„ã£ã¦ã¿ã‚ˆã†ã¨æ€ã£ãŸã€‚ ã ã‘ã©ã€ç´ æ•°ã®ç©ã£ã¦ã‚ã¡ã‚ƒãã¡ã‚ƒã„ã£ã±ã„ã‚ã‚Šãã†ã¨ã‹ã€ç´ 数求ã‚ã‚‹ã®é‡ã„ã˜ã‚ƒãªã„ã®?æ°—ã«ãªã‚‹ã“ã¨ã¯æ²¢å±±ã‚ã‚‹ãŒã€ã¾ãã€ã‚„ã£ã¦ã¿ã‚Œã°åˆ†ã‹ã‚‹ã§ã—ょã†ã€‚ã¨è¨€ã†ã“ã¨ã§ã‚„ã£ã¦ã¿ãŸã€‚ ã‚‚ã¡ã‚ã‚“ã€ãƒªã‚¹ãƒˆå†…包表記ã®ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã§ def getPrim2(cnt): return list(set([x * y for x in [num for num in [num for num in range(2, cnt+1)] if 0 not in [num % nume for nume in ran
Perl ã®çµ„ã¿è¾¼ã¿é–¢æ•°ä¸€è¦§ã‚’作るワンライナー - ç†ç³»å¦ç”Ÿæ—¥è¨˜
Perl ã®çµ„ã¿è¾¼ã¿é–¢æ•°ã£ã¦ã©ã†ã‚„ã£ã¦å–å¾—ã™ã‚‹ã‹ãªãƒ¼ã¨ã—ã°ã—æ‚©ã‚“ã 後，特段何もæ€ã„ã¤ã‹ãªã‹ã£ãŸã®ã§ï¼Œperldoc perlfunc ã‹ã‚‰å–り出ã—ã¦ã¿ã‚‹ã“ã¨ã«ã—ã¾ã—ãŸï¼Žã“ã‚Œã 㨠-X ã¨ã‹ã¯å‡ºã¾ã›ã‚“ã‘ã©ï¼Œã¾ããã†ã„ã†ã®ã¯è‰¯ã„ã‹ãªãƒ¼ã£ã¦æ€ã£ã¦ã¾ã—ãŸï¼Ž $ perldoc -otxt perlfunc | perl -nle '$f{$1}++ if /"([a-z]{2,})"/; END {print for sort keys %f}' ã¨ã‹æ€ã£ã¦ãŸã‚‰ï¼ŒPod::Functions ã£ã¦ã‚³ã‚¢ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãŒã‚ã‚‹ã‚“ã§ã™ã． $ perl -MPod::Functions -e 'print join "\n", sort keys %Flavor'
cpan コマンドã§ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã—ãŸãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’調ã¹ã‚‹ - æ—¥å‘å¤ç‰¹æ®Šå¿œæ´éƒ¨éšŠ
ExtUtils::Install, ExtUtils::Installed を使ã†ã¨ cpan コマンドã§ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã—ãŸãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã«ã¤ã„ã¦ã‚れやã“れや調ã¹ã‚‹äº‹ãŒå‡ºæ¥ã¾ã™ã€‚ インストールã•ã‚Œã¦ã„るモジュール一覧 perl -MExtUtils::Installed -le 'print join "\n" => sort ExtUtils::Installed->new->modules;' 特定ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«åãŒå±žã™ã‚‹ dist ã«å«ã¾ã‚Œã‚‹ãƒ•ã‚¡ã‚¤ãƒ«ä¸€è¦§ $ perl -MExtUtils::Installed -le 'print join "\n" => sort ExtUtils::Installed->new->files(shift @ARGV);' YAML::Syck /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi
linuxディレクトリä¸ã®ãƒ•ã‚¡ã‚¤ãƒ«ã‚µã‚¤ã‚ºåˆè¨ˆå€¤ã‚’ ãƒã‚¤ãƒˆè¡¨ç¤º
Landscape トップページ | < å‰ã®æ—¥ 2004-05-25 2004-05-26 次ã®æ—¥ 2004-05-27 > Landscape - エンジニアã®ãƒ¡ãƒ¢Â 2004-05-26 ディレクトリä¸ã®ãƒ•ã‚¡ã‚¤ãƒ«ã‚µã‚¤ã‚ºåˆè¨ˆå€¤ã‚’ ãƒã‚¤ãƒˆè¡¨ç¤º 当サイト内を Google 検索ã§ãã¾ã™ * ディレクトリä¸ã®ãƒ•ã‚¡ã‚¤ãƒ«ã‚µã‚¤ã‚ºåˆè¨ˆå€¤ã‚’ ãƒã‚¤ãƒˆè¡¨ç¤ºã“ã®è¨˜äº‹ã®ç›´ãƒªãƒ³ã‚¯URL: Permlink | ã“ã®è¨˜äº‹ãŒå±žã™ã‚‹ã‚«ãƒ†ã‚´ãƒª: [シェルスクリプト] [unix] Windows ã§ã¯ã€ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªã®ã‚¢ã‚¤ã‚³ãƒ³ã‚’å³ã‚¯ãƒªãƒƒã‚¯ã—ã¦ãƒ—ãƒãƒ‘ティを表示ã•ã›ã‚‹ã¨ã€ãã®ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªä»¥ä¸‹ã®ãƒ•ã‚¡ã‚¤ãƒ«ã®ã‚µã‚¤ã‚ºã®åˆè¨ˆå€¤ãŒãƒã‚¤ãƒˆå˜ä½ã§è¡¨ç¤ºã•ã‚Œã‚‹ã€‚ä½µã›ã¦ã€ãƒ•ã‚¡ã‚¤ãƒ«æ•°ã‚„クラスタギャップをå«ã‚ãŸãƒ‡ã‚£ã‚¹ã‚¯ä¸Šã®ã‚µã‚¤ã‚ºã‚‚表示ã•ã‚Œã‚‹ã€‚ã¡ãªã¿ã«ã€ãƒ—ãƒãƒ‘ティ㯠ALT + ディレクトリアイコンã®ãƒ€ãƒ–ルクリックã§ã‚‚表示ã•ã‚Œã‚‹ã€‚ Linux ã‚„ Uni
YappoLogs: FizzBuzzã®Perlã•ã„ãŸã‚“ãã‚ããŸã£ã›ã„(34ã°ã„ã¨)
FizzBuzzã®Perlã•ã„ãŸã‚“ãã‚ããŸã£ã›ã„(34ã°ã„ã¨) FizzBuzzプãƒã‚°ãƒ©ãƒ を書ãã®ãŒæµè¡Œã£ã¦ã„ã‚‹ã¿ãŸã„ãªã®ã§ã€ç©ºæ°—を一切èªã¾ãšã«ä¹±å…¥ã—ãŸã€‚ ç¾åœ¨ã®Perl最çŸè¨˜éŒ²ã¯TAKESAKOã•ã‚“ã®56byteらã—ã„。 ã“ã‚“ãªã‚³ãƒ¼ãƒ‰ perl -e'die+map{(Fizz)[$_%3].(Buzz)[$_%5]||$_,$/}1..1e2' ã¾ãšã€å…ƒã®ç¿»è¨³æ–‡ç« ã«ã¯ã€ŒFizzã‚„Buzzã‚„æ•°å—ã®ã¿ã‚’出力ã›ã‚ˆã€ã¨ã¯æ›¸ã„ã¦ãªã„事ã«æ°—ã¥ã„ãŸã®ã§ã€warnã§å‡ºã—ã¦ã¿ãŸã€‚ perl -le'warn((Fizz)[$_%3].(Buzz)[$_%5]||$_)for 1..100'55byteã«ãªã£ãŸã€‚ 次ã«1ã‹ã‚‰100è¿„ã®æ•°å€¤ã®ã‚½ãƒ¼ã‚¹ã¯ã€åˆ¥ã«ãƒ—ãƒã‚°ãƒ©ãƒ å´ã§ã‚‚ã£ã¦ã„ãªãã¦ã‚‚良ã„事ã«æ°—ã¥ã„ãŸã®ã§ã€ã“れを外ã ã—ã—ã¦ã¿ãŸã€‚ ã¨ã«ã‹ã目的ã®æ–‡å—列ãŒå‡ºã¦ãã‚Œã°ã„ã„ã®ã 。 head -n100 /dev/r
16進数ã®ãƒ†ãƒ¼ãƒ–ルを表示ã™ã‚‹ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã‚’考ãˆã‚‹ ã¾ã¨ã‚ - ã™ãŽã‚ƒãƒ¼ã‚“メモ
16進数ã®ãƒ†ãƒ¼ãƒ–ルを表示ã™ã‚‹ãƒ¯ãƒ³ãƒ©ã‚¤ãƒŠãƒ¼ã‚’考ãˆã‚‹ - ã™ãŽã‚ƒãƒ¼ã‚“メモã®ã¾ã¨ã‚。追記ã—ã¾ãã£ã¦é•·ããªã£ãŸã®ã§æ•´ç†ã™ã‚‹ã€‚ ()内ã¯perlコマンドもå«ã‚ãŸæ–‡å—数。 (52)最もオーソドックスã«for文を回ã—ã¦æ–‡å—列連çµã™ã‚‹æ–¹æ³• perl -le'for$i(@a=(0..9,A..F)){print map"$i$_ ",@a}' (52)for文をå¼ä¿®é£¾åã§å¾Œç½®ã•ã›ã‚‹æ–¹æ³• perl -le'$i=$_,print map"$i$_ ",@!for@!=(0..9,A..F)' (50)代入å¼ã‚’使ã‚ãšæ£è¦è¡¨ç¾ã®ãƒžãƒƒãƒå¤‰æ•°ã‚’利用ã™ã‚‹æ–¹æ³•(from ã“ーã®ã„ã‘ã•ã‚“) perl -le'/./,print map"$&$_ ",@:for@:=(0..9,A..F)' (50)é…列ã®å„è¦ç´ ã«å¯¾ã—printfã§è¡¨ç¤ºã•ã›ã‚‹æ–¹æ³•(from id:kazuhookuã•ã‚“) perl -e'printf"%0
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
App::p
HugeDomains.com
All commands
{{#tags}}- {{label}}
{{/tags}}