Lycolog

Perlスクリプトをブレークしたりしたい時に。

確認環境

やり方

1. VSCodeにPerl拡張を入れる

   code --install-extension richterger.perl
   

2. 拡張機能が必要とする依存を入れる

   sudo apt install build-essential libanyevent-perl libclass-refresh-perl libcompiler-lexer-perl \
   libdata-dump-perl libio-aio-perl libjson-perl libmoose-perl libpadwalker-perl \
   libscalar-list-utils-perl libcoro-perl
   
   sudo cpan Perl::LanguageServer
   

3. .vscode/launch.jsonを書く

   {
       "name": "Perl Debug",
       "type": "perl",
       "request": "launch",
       "program": "${workspaceFolder}/path/to.pl",
       "args": ["hoge"]
   }
   

4. デバッガを起動して実行する（launchモードなのでシェルから叩く必要はない）

PowerShellはWSL2の中から叩けるため、WSL2の中から通知を出したいときに使える。

PowerShellなのでホスト側のWindowsからも使える。

• 確認環境
• やり方
• このスクリプトのオプション
• Windows側から叩く方法
• 参考情報
• あとがき

確認環境

PowerShell 7では動かないので注意。

やり方

1. この内容をtoast.ps1など適当な名前で保存する。文字コードはUTF-8 BOM, 改行コードはLFにしておく

   param (
       [String]$subject = "WSL Notice",
       [String]$title   = "たいとるですー",
       [String]$message = "お知らせでーす",
       [String]$icon    = "C:/env/1e1b9fdf82a6a544.png",
       [switch]$keep
   )
   
   [Windows.UI.Notifications.ToastNotificationManager, Windows.UI.Notifications, ContentType = WindowsRuntime] > $null
   $template = [Windows.UI.Notifications.ToastNotificationManager]::GetTemplateContent([Windows.UI.Notifications.ToastTemplateType]::ToastImageAndText04)
   $xml = New-Object Windows.Data.Xml.Dom.XmlDocument
   
   $xml.LoadXml($template.GetXml())
   $toastTextElements = $xml.GetElementsByTagName("text")
   $toastTextElements.Item(0).AppendChild($xml.CreateTextNode($title)) > $null
   $toastTextElements.Item(1).AppendChild($xml.CreateTextNode($message)) > $null
   $toastImageElements = $xml.GetElementsByTagName("image")
   $toastImageElements.Item(0).SetAttribute("src", $icon) > $null
   
   if ($keep) {
       $xml.DocumentElement.SetAttribute("scenario", "reminder") > $null
       $actions = $xml.CreateElement("actions")
       $action = $xml.CreateElement("action")
       $action.SetAttribute("content", "閉じる") > $null
       $action.SetAttribute("arguments", "dismiss") > $null
       $action.SetAttribute("activationType", "background") > $null
       $actions.AppendChild($action) > $null
       $xml.DocumentElement.AppendChild($actions) > $null
   }
   
   $toast = [Windows.UI.Notifications.ToastNotification]::new($xml)
   $appId = $subject
   $notifier = [Windows.UI.Notifications.ToastNotificationManager]::CreateToastNotifier($appId)
   
   $notifier.Show($toast)
   

2. 次の書式で叩くと通知トーストが出る

   powershell.exe -File 'C:/path/to/toast.ps1' -subject hoge -title fuga -message piyo -icon C:/path/to/icon.png -keep
   

このスクリプトのオプション

-subjectを変えると別の通知扱いになるため、通知を別々に貯めることができるようになる。

Windows側から叩く方法

powershell 'C:/path/to/toast.ps1' -subject hoge -title fuga -message piyo -icon C:/path/to/icon.png -keep

Windows側から叩く場合、-Fileは省略できる。

参考情報

• ToastTemplateType 列挙型 (Windows.UI.Notifications) - Windows apps | Microsoft Learn
  • ここの内容とググった情報からXMLの構造をエスパーして実装している

あとがき

Claude Codeの確認と終了のイベントで通知が出ると便利かなと思って作ってみたが、まだ試せていない。

取りあえずWSL2の中と、Windowsホスト側から叩いたときに通知が出ることは確認している。

PowerShell 7で動かそうと思ったらエラーまみれで動かず、PowerShell 7の場合、NuGetパッケージを取得するか、DLLのパスを直に指定するか、サードパーティの通知ライブラリを使うかということで、諦めた。