ゲレンデãŒã¨ã‘ã‚‹ã»ã©ãã らãªã„スクリプト - ã™ãŽã‚ƒãƒ¼ã‚“メモå†ã³MeCabを使ã£ã¦ã¿ãŸã€‚ Macã«ã¦Text::MeCabを使ㆠ- ã™ãŽã‚ƒãƒ¼ã‚“メモ å½¢æ…‹ç´ è§£æžã‚’使ã£ã¦é©å½“ãªnickを作ã£ã¦Wassrã«é€ä¿¡ã™ã‚‹ã¾ã§ - ã™ãŽã‚ƒãƒ¼ã‚“メモ 今回ã¯å½¢å®¹è©žã‚„å‹•è©žã®å‰ã«ã€Œã‚²ãƒ¬ãƒ³ãƒ‡ãŒã¨ã‘ã‚‹ã»ã©ã€ã‚’挿入ã™ã‚‹ã€‚ kohmingサブルーãƒãƒ³ã«æ—¥æœ¬èªžã®æ–‡ç« を渡ã›ã°æŒ¿å…¥ã•ã‚ŒãŸæ–‡ç« ãŒè¿”ã£ã¦ãるよã†ã«ã—ãŸã€‚ サンプルã¨ã—ã¦ä¾¿åˆ©ãªWassrã®public timelineを使用ã—ã¦è©¦ã—ã¦ã¿ã‚‹ã€‚ #!/opt/local/bin/perl use strict; use warnings; use JSON 'decode_json'; use LWP::Simple 'get'; use Text::MeCab; use Readonly; Readonly::Scalar my $kohmi => 'ゲレンデãŒã¨ã‘ã‚‹ã»ã©'; my $json = get 'http://a
ã“ã®å…ˆç”Ÿãã®ã“ã‚‹ã«ã¯
ãã‚ãã‚ FizzBuzz ã«é£½ã㟠: ã«ã½ãŸã‚“ç ”ç©¶æ‰€
{{#tags}}- {{label}}
{{/tags}}