# Net::LineNotify `Net::LineNotify` ã¯ã€LINE Notify APIを使用ã—ã¦LINEã«é€šçŸ¥ã‚’é€ä¿¡ã™ã‚‹ãŸã‚ã®ç°¡å˜ãªPerlモジュールã§ã™ã€‚ã“ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’使ã†ã“ã¨ã§ã€Perlスクリプトã‹ã‚‰æ‰‹è»½ã«LINEã¸ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ã‚’é€ä¿¡ã§ãã¾ã™ã€‚ ## インストール ã“ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’インストールã™ã‚‹ã«ã¯ã€æ¨™æº–ã®Perlモジュールã®ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«æ‰‹é †ã‚’使用ã—ã¾ã™ã€‚リãƒã‚¸ãƒˆãƒªã‚’クãƒãƒ¼ãƒ³ã™ã‚‹ã‹ã€ãƒ‘ッケージをダウンãƒãƒ¼ãƒ‰ã—ã¦ã‹ã‚‰ã€ä»¥ä¸‹ã®ã‚³ãƒžãƒ³ãƒ‰ã‚’実行ã—ã¦ãã ã•ã„。 ```bash perl Makefile.PL make make test make install ``` ## 使ã„æ–¹ モジュールをインストールã—ãŸå¾Œã€ã‚¢ã‚¯ã‚»ã‚¹ãƒˆãƒ¼ã‚¯ãƒ³ã‚’指定ã™ã‚‹ã“ã¨ã§LINEã«é€šçŸ¥ã‚’é€ä¿¡ã§ãã¾ã™ã€‚ ### 使用例 ```perl use Net::LineNotify; # Net::LineNotifyオブジェクトã®ä½œæˆ my $line = Net::LineNotify->new(access_token => 'YOUR_ACCESS_TOKEN'); # メッセージをé€ä¿¡ $line->send_message('Perlã‹ã‚‰ã®LINE通知ã§ã™ï¼'); ``` ### パラメータ - `access_token`: [LINE Notify](https://notify-bot.line.me/) ã‹ã‚‰å–å¾—ã—ãŸã‚¢ã‚¯ã‚»ã‚¹ãƒˆãƒ¼ã‚¯ãƒ³ã€‚ - `message`: é€ä¿¡ã—ãŸã„メッセージ(最大1000æ–‡å—ã¾ã§ï¼‰ã€‚ ## LINE Notify アクセストークンã®å–å¾— ã“ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’使用ã™ã‚‹ã«ã¯ã€LINE Notifyã®ã‚¢ã‚¯ã‚»ã‚¹ãƒˆãƒ¼ã‚¯ãƒ³ãŒå¿…è¦ã§ã™ã€‚以下ã®æ‰‹é †ã§ãƒˆãƒ¼ã‚¯ãƒ³ã‚’å–å¾—ã—ã¦ãã ã•ã„。 1. [LINE Notifyウェブサイト](https://notify-bot.line.me/my/)ã«ã‚¢ã‚¯ã‚»ã‚¹ã—ã€LINEアカウントã§ãƒã‚°ã‚¤ãƒ³ã—ã¾ã™ã€‚ 2. 「トークンを発行ã™ã‚‹ã€ã‚’クリックã—ã¦ã€æŒ‡ç¤ºã«å¾“ã„ã¾ã™ã€‚ 3. 発行ã•ã‚ŒãŸã‚¢ã‚¯ã‚»ã‚¹ãƒˆãƒ¼ã‚¯ãƒ³ã‚’コピーã—ã€Perlスクリプトã§ä½¿ç”¨ã—ã¦ãã ã•ã„。 ## メソッド ### `new` ```perl my $line = Net::LineNotify->new(access_token => 'YOUR_ACCESS_TOKEN'); ``` `Net::LineNotify` オブジェクトを作æˆã—ã¾ã™ã€‚`access_token` ã¯å¿…é ˆã§ã€APIリクエストをèªè¨¼ã™ã‚‹ãŸã‚ã«ä½¿ç”¨ã•ã‚Œã¾ã™ã€‚ ### `send_message` ```perl $line->send_message('ã“ã“ã«ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ã‚’入力'); ``` LINEアカウントã«ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ã‚’é€ä¿¡ã—ã¾ã™ã€‚`access_token` ã§èªè¨¼ã•ã‚ŒãŸã‚¢ã‚«ã‚¦ãƒ³ãƒˆã«é€šçŸ¥ãŒå±Šãã¾ã™ã€‚ ## ä¾å˜ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ« ã“ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯ä»¥ä¸‹ã®ä¾å˜ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’å¿…è¦ã¨ã—ã¾ã™ã€‚ - `LWP::UserAgent` - `HTTP::Request::Common` ã“れらã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯CPANã‹ã‚‰ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«å¯èƒ½ã§ã™ã€‚ ```bash cpan install LWP::UserAgent HTTP::Request::Common ``` ## 作者 Kawamura Shingo <pannakoota@gmail.com> ## ライセンス ã“ã®ãƒ©ã‚¤ãƒ–ラリã¯ãƒ•ãƒªãƒ¼ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ã§ã™ã€‚Perlã®åŒã˜æ¡ä»¶ã®ä¸‹ã§å†é…布ãŠã‚ˆã³ä¿®æ£ãŒå¯èƒ½ã§ã™ã€‚詳細ã«ã¤ã„ã¦ã¯ [Perlã®Artisticライセンス](https://dev.perl.org/licenses/artistic.html) ã‚’å‚ç…§ã—ã¦ãã ã•ã„。