読者です 読者をやめる 読者になる 読者になる

in the mythosil

Rhythm & Biology.

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

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

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でのやり方があればぜひ教えてください。


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