クリップボードを使ったいたずら

他人のクリップボードをめちゃくちゃにしてやろうといういたずらです。

# clip_or_treat.pl
use Clipboard;
while (1) {
  Clipboard->copy("Trick or Treat!");
  sleep 2;
}

後輩などのマシンでぶん回していたずら完了です。

perl編だとClipboardモジュールやそれが依存しているモジュールがインストールされている必要があります。そこで、ターゲットがmacならapplescriptを使うといいでしょう。

-- clip_or_treat.scpt
repeat
  set the clipboard to "Trick or Treat!"
  delay 2
end repeat

applescriptの場合はそのまま日本語が使えるのですが、perlの場合は環境に合わせたエンコードにする必要があります。macならMacJapaneseにエンコードした文字列を渡します。

# clip_or_treat_jp.pl
use utf8;
use Encode;
use Clipboard;

my $s = encode("MacJapanese", "日本語");
while (1) {
  Clipboard->copy($s);
  sleep 2;
}

windowsでのやり方があればぜひ教えてください。

デートのお誘いに使おうなんて考えちゃダメですよ。

Rhythm & Biology