Win32::GuiTest で Windows の GUI アプリをハックしよう
基本的な書き方 use strict; use warnings; use utf8; # ↑ Perl ハッカーに DIS られなくなるおまじない # Win32::GuiTest を使うおまじない use Win32::GuiTest qw(:ALL); # 日本語を使えるようにするおまじない UnicodeSemantics(1); # ここで Win32::GuiTest を使う マウスを動かす use strict; use warnings; use utf8; use Win32::GuiTest qw(:ALL); # 小数点もいけちゃう sleep 関数 use Time::HiRes qw(sleep); UnicodeSemantics(1); for (my $i = 0; $i < 500; $i++) { # 10 ms 待つ sleep(0.01); # マウ
Webページを読み込んで何か処理して表示するラッパーCGIのテンプレート(Perl)
Webページを読み込んで何か処理して表示するラッパーCGIのテンプレート(Perl) 2008-11-04-2 [Programming] 指定されたURLのウェブページを読み込んで、中で何かをしてそのまま表示するという一連の処理を実現するための CGI のテンプレート。 言語は Perl。 #!/usr/bin/perl use strict; use warnings; use Encode; use CGI; use URI; use LWP::Simple; use utf8; my $q = new CGI; my $url = $q->param('url') || ""; my $cont = $url ? (get($url) || "") : ""; my ($page_charset, $page_encoding) = ("UTF-8", "utf8"); if ($
URL を転送してリンク元 URL を分からなくする方法
URL を転送してリンク元 URL を分からなくする方法 2008-11-27-1 [Tips][Programming] URL を転送してリファラーを分からなくする方法について。 (1) CGI でリダイレクトする方法。 perl の例。 r.cgi : #!/usr/bin/perl print "Content-type: text/html\nRefresh: 0; URL=" .substr($ENV{PATH_INFO}.(($q=$ENV{QUERY_STRING})?"?$q":""),1)."\n\n"; (サンプルなので、use strict とかそういうのはとりあえずなしで。) http://example.com/r.cgi/http://blog.example.com/?d=080101 ↓ http://blog.example.com/?d=080101
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
