クリップボードを使ったいたずら
他人のクリップボードをめちゃくちゃにしてやろうといういたずらです。
perl編
# clip_or_treat.pl use Clipboard; while (1) { Clipboard->copy("Trick or Treat!"); sleep 2; }
後輩などのマシンでぶん回していたずら完了です。
applescript編
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でのやり方があればぜひ教えてください。
デートのお誘いに使おうなんて考えちゃダメですよ。