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); # マウ
Part1 正しいPerl/CGIの書き方：ITpro
Shibuya Perl Mongers 2代目リーダーにして，ppencodeの作者。広島市立大学卒業後，大企業向けmod_perl製品の開発に従事。2005年よりサイボウズ・ラボ株式会社に入社。LL Ringに参戦。Namazu for Win32，Plagger，Ajajaのコミッターでもある。 CGIといえばPerl。そんな風にいわれていた時期もありました。レンタル・サーバーのCGIで手軽にPerlが使えたこともあり，ちょっとした掲示板のスクリプトやアクセス・カウンタなど，CGIプログラムの多くがPerlで書かれていました。このためPerlが爆発的に普及したのです。Perlは日本のインターネット黎明期を支えたプログラミング言語として，広くその名が知られています。 その半面，Perlで書かれたプログラムの保守性に悩む声も聞かれるようになりました。事実，Perlのプログラミング経験が少
Perl で作る画像類似検索システムの考察
今日はとてもショッキングな出来事がありました。あまりにショックがでかいので何かに没頭しなければ気が紛れそうにありません。と言うわけで全く専門分野でもないし当面使う予定もないのですが、１年ほど前にちょっと気になっていた画像の類似検索についていろいろ調べてみました。 どうやら ImgSeek ってソフトが結構有名らしいです。最新バージョンは 0.86 で Linux Only です。１つ前のバージョン 0.85 は Windows binary があります。 過去にいくつか画像類似検索ソフトを試したような記憶がありますが忘れてしまいました（vector でも結構類似検索ソフトありますね）。まずは windows binary 版をダウンロードしてきて実行してみました。 それなりに使えそうな予感がします。Linux 向けの imgSeek-0.8.6.tar.bz2 をダウンロードしてインストー
Yusukebe::Tech: Perlでニコニコ動画のflvとコメントxmlをダウンロードする
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
perl でニコニコ動画から flv を取ってくる - woremacxの日記
なんとなく flv だけ取る最小限のものを書いてみた。Cookie の処理に Plagger::Cookies を使ったので、いろんな Cookie を Share して使える。(new に cookie => "cookies.txt" とか)気が向いたらタイトルとか字幕とかを取るようにしてみるつもり。http://pub.woremacx.com/nicovideo/20070723-1/ 参考にさせていただいたソース ruby 版: http://d.hatena.ne.jp/nkoz/20070609/1181372641python 版: http://nanabit.net/softwares/python/dlnico/追記 (7/24)すでに perl でまともなモジュールがあることがわかりました。http://blog.perl.tv/2007/07/_flvperl.h
CPANの漁りかた
Perlの学習コスト高いよね、て感じのエントリが目立つのでふと思い返してみると、ぼくは1年前は 救命病棟でいうところのレベル4くらいでした。変数に our をつけると何がどう違うのかわかなかったりしたのを覚えてます。 その後1年、今はレベル8弱ってとこでしょうか。バグレポートはなるべく出すようにしていますが、車輪になりそうで、モジュールはまだ上げてません。 この1年どうやってレベルを上げてきたかなといえば、CPANあさり、これに尽きます。で、これから Perlやるぞって人にもしかして参考になるかもしれないので、ぼくがやってきた自己流の漁りかたを書いておきます。 1. まずはPerlStyleを読み直す miyagawa さんが以前 WEB+DB PRESS で連載していた Perl Style というのを、総集編マガジンで今も入手可能です。これはロギングとか OR マッピングなどの基本的題
404 Blog Not Found:perl+apache - LWPを責めないで
2007年04月10日18:00 カテゴリLightweight LanguagesBlogosphere perl+apache - LWPを責めないで これはPerl Mongerとして一言言っておかねばなるまい。 Googleにもアクセス拒否され、スパム送信源と化した「libwww-perl」とは？ - GIGAZINE スパム対策をして気がついたのですが、どうやらスパムトラックバックを送信してくるリモートホスト（IPアドレスなど）はバラバラであっても、ユーザーエージェント、いわゆるブラウザの名称部分に「libwww-perl/5.805」というように「libwww-perl」と入っているものが多く、結果として、Googleなどは検索結果ページに対してこのユーザーエージェント名の一部「libwww」が含まれているとアクセス拒否しているようです。LWPことlibwww-perlは、We
perlモジュール - iCal MEMO
[[CPAN>http://www.cpan.org/]]より、関連ありそうなモジュールをピックアップしました。 -[[iCal-Parser>http://cpan.uwinnipeg.ca/dist/iCal-Parser]]：Parse iCalendar files into a data structure -[[iCal-Parser-HTML>http://cpan.uwinnipeg.ca/dist/iCal-Parser-HTML]]：Generate HTML calendars from iCalendars -[[iCal-Parser-SAX>http://cpan.uwinnipeg.ca/dist/iCal-Parser-SAX]]：Generate SAX events from an iCalendar -[[Data-ICal>http://cpan.u
コマンドラインからWikipedia - はこべにっき ♨
たまに使う気もするので~/bin入れておく。 $ wikipedia.pl Perlとすると、コマンドラインにWikipediaから引数で与えたキーワードの要約を取得して表示する。 ソースは以下。要WebService::SimpleAPI::Wikipedia。Yappoさんthx。 use strict; use warnings; use WebService::SimpleAPI::Wikipedia; use Encode; my ($keyword) = @ARGV; $keyword = ucfirst $keyword; # Wikipediaではすべて一文字目は大文字 # SimpleAPIを使ってWikipediaから情報を取得 my $wiki = WebService::SimpleAPI::Wikipedia->new(); my $res = $wiki->ap
モジュールの一括バージョンアップ＆インストール - （ひ）メモ
perl質問箱で教えてもらいました。m(_ _)m 古くなっているモジュールの一覧 $ perl -MCPAN -e 'CPAN::Shell->r' 古くなっているのを一括してバージョンアップ # perl -MCPAN -e 'CPAN::Shell->install(CPAN::Shell->r)' 他の環境にインストールされているモジュールを一括してインストール 例えばperl本体をバージョンアップしたときはこんな感じで。 # perl-5.6 -MCPAN -e autobundle # perl-5.8 -MCPAN -e 'install Bundle::Snapshot_2004_06_16_00'
萌えPerl｜トップページ
はじめまして パールって何？ なんでパール？ 環境作り プログラムとは 書き方の基本 変数配列ハッシュ リファレンス 演算子 条件文 繰り返し文 サブルーチン 正規表現 文字列の操作 フォーム リンク ディレクトリ ファイル操作 ロックファイル ファイル入出力 データの記録 コマンドで操作 簡単な例 簡単な例２ WWW を検索 萌えPerl を検索 更新履歴 2009.6.10 [修正] 条件文.デフォルト値設定の説明追加。 2009.3.16 [修正] 正規表現の説明追加。 2008.2.3 [修正] コマンドラインの説明追加。 2008.1.2 [修正] リファレンスの説明追加。 2007.11.19 [修正] 条件文の説明追加。 2007.11.7 [新規・削除] コマンドライン｜簡単な例２の説明追加。 夏季特別壁紙削除。 2007.8.31 [新規] コマンドラインの説明追加。 2
Perl Hacks
「Perlの達人になるには何が必要なのか。確かに知識も必要だが、もっと大切なのは、Perl言語で遊び、驚きを見つけ、自らもそのようなものを作り出すような好奇心だろう。（中略）ほとんどのハックには、2つの部分がある。今すぐ解決しなければならない目の前の問題と、他の状況にも応用できるより深くて精妙なテクニックだ。すべてのハックは、研究する価値を持っている。」（本書『はじめに』より） 世界でもっとも優れたPerlの達人たちが101種のヒント、トリック、テクニックを披露する。Perlプログラマの必読書。 クレジット はじめに 1章 効率よく仕事を進めるためのハック 1 FirefoxにCPANショートカットを加えよう 2 Perldoc活用法 3 Perlドキュメントをオンラインでブラウズしよう 4 シェルエリアス活用法 5 VimのなかでPerl識別子にオートコンプリートをかけよう 6 Perl
TAKESAKO @ Yet another Cybozu Labs: KENTさんと対談しました
先日、日経ソフトウエア様の対談企画で、 :: KENT WEB - CGIスクリプト :: で有名な KENT さんと対談させていただきました。 このような貴重な機会を与えてくださった編集部の英断に感謝いたします。 KENTさんの最新著書：最速攻略 CGI/Perl 作り方入門「はじめに」より もし、他人が書いたPerlプログラムのコードを見て、残念なことに その未熟さを批評する人がいたとしたら、実は彼自身のほうが未熟です。 彼はPerlが何たるかを理解していないからです。 この言葉の書かれているページにKENTさんご本人のサインをいただきました。ありがとうございます！ Perlの哲学でもあるTMTOWTDI (There's more than one way to do it.) のスローガンは Perlのコミュニティの中でも浸透していて、 There's more Dan the w
MSN Messengerに送るプラグインって無いのかな？というわけでちょっと書いてみた。 - ヒルズで働く@robarioの技ログ
別に見なくてもいいけど気になる ログに残さなくて良い がんがん更新される というFeedがあって、そのエントリはメッセンジャーに送れるといいなあと思ったのです。探してみたけど上手く見つからず。 お知らせとか タイムアウト処理を実装しました。 ウェイトを実装しました。一気にメッセージが送られてくるとメッセンジャーがしばらく固まってしまうので、メッセージの間隔を指定できるようにしました。 文字化け直しました。適当にやり過ぎた。。。処理中はutf8フラグを付けたままにしておいて、最終的に出力するときにencodeするようにしようね。お兄さんとの約束だぞ(*^ーﾟ)b hookをちょっと真面目に使いました。Publish::Debugをコピって作っていたので、Feedが複数個あると複数回ログインするようになっていました。この修正で、複数個Feedがあっても1回しかログインしないようになりました。（
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
perl.vimコンパイラプラグインで、Perlコードをクィックフィックスする。 — 名無しのvim使い
ライブドアブログ｜無料で豊富な機能が充実