全裸ã§å½¢æ…‹ç´ 解æžã‚’ã™ã‚‹ã‚¹ã‚¯ãƒªãƒ—ト - ã™ãŽã‚ƒãƒ¼ã‚“メモゲレンデãŒã¨ã‘ã‚‹ã»ã©ãã らãªã„スクリプト - ã™ãŽã‚ƒãƒ¼ã‚“メモã«å¼•ã続ãã€ãã らãªã„スクリプトを。 今度ã¯å‹•è©žã®å‰ã«ã€Œå…¨è£¸ã§ã€ã‚’挿入ã™ã‚‹ã€‚ #!/opt/local/bin/perl use strict; use warnings; use JSON 'decode_json'; use LWP::Simple 'get'; use Text::MeCab; use Readonly; Readonly::Scalar my $zenra => '全裸ã§'; # 引数ã«æ–‡ç« ãŒã‚ã‚Œã°ãれを対象㫠my $text = shift; if (defined $text) { print zenrize($text), "\n"; } # 引数指定ãŒç„¡ã„å ´åˆã¯Wassrã®Public Timelineを使用ã™ã‚‹ else { my $json = get 'http://api.wassr.jp
mimitako.net [13]
{{#tags}}- {{label}}
{{/tags}}