昨日のサンプルをモダンPerl風に書き換えてみました。 しかし、あんまりモダンでもないかも･･･。 use strict; use warnings; # ユーザ名 papa タスク名 notepad.exe taskkill('papa', 'notepad.exe'); sub taskkill { my ($username, $taskname) = @_; $/ = …

義姉（ぎし：妻の姉）から、仮面ライダーの変身ベルトのようにバックルが大きい（ちょっと大袈裟）ビジネスベルトを頂きました。 このベルト、歩くと微妙な音がするのです。 はじめは、発信機（盗聴器）がバックルに仕込まれているのかな･･･なんて思ったら、…