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); # マウ
Perl から INIファイルを使う覚え書き 「Config::Tiny」 - 知らないことがあってもへっちゃらさ
Perl から INIファイルを利用しようとした場合、以前は Config::INI::Simple ってモジュールを使ってたんですが、今 CPAN を検索したら無くなってるじゃないですか・・・orz ActivePerl（v5.8.8） の PPM にはまだ入ってましたが、CPAN から消えた（理由はともかく）モジュールをわざわざ探してきて使うのもどうよ？と思うわけで、別のモジュールを探してみました。 それで見つけたのが Config::Tiny というモジュールです。ファイルの読み込みはもちろん、書き出しもできるし、INIファイル内の余分な空白も上手に省いてくれるみたいでいい感じです。 また、通常の INIファイルだと ; で始まる行。もしくは、行の ; 以降がコメント扱いなんだそうですが、Config::Tiny は ; に加えて # もコメントの開始として認識してくれます。 ちなみ
【perlメモ】CSVファイルを簡単に処理できるCPANモジュールText::CSV_XS
text::CSV_XS[http://cpan.uwinnipeg.ca/search?query=text%3A%3ACSV_XS&mode=dist] Text::CSV_XS CSVファイルはエクセルなんかでよく使われる形式のテキストファイルですが、基本「,」(カンマ)区切りのテキストファイルです。単純な「,」(カンマ)区切りのファイルだといいのですが、実際にはデータ自体に「,」や「"」を含んでいたりすることもありそういうのを考慮すると実際に自前で処理しようとすると結構大変です。そういう場合に便利なのが「Text::CSV_XS」CPANモジュールです。 下のようなShift JISのCSVファイルがあるとき text.csv #!/usr/bin/perl use strict; use warnings; use utf8; use Encode; use Text::CSV_
Perlで日付・時間を操作 - DateTime モジュールの使い方 (iandeth.)
Perlには、日時の加・減算を扱うモジュールが標準でついてきません。僕の仕事場ではずっと、同僚が作ったオリジナルモジュールを皆で使いまわしていたのですが、今になって、世間的 (CPAN) にはどんなものがあるのか気になって調べてみました。※参考になったのは miyagawa 氏のメールマガジンの過去記事と、perl.com の The Many Dates and Times of Perl なるエントリでした。 今回は数ある日付関連モジュールの中から、Dave Rolsky氏の DateTime モジュールについて、その基本的な使い方について簡単にまとめたので共有してみます。 同氏は上記 perl.com 記事の執筆者であり、この前の YAPC::Asia で DateTime project について講演してくれていた人です。気合の入ったモジュールを作ってくれた事に感謝。 目次 基本
感情に訴えかけるログ、 Log::Minimal::Emotional ！！！！ - （ひ）メモ
某所で 人間の脳には人の顔を識別するための特別な神経回路が最初から組み込まれていて、人の顔の違いを見分けたりというのが、他の図形よりも格段に高速に行えるようになっています。ということで、ログメッセージに顔文字を入れてみたら、なにこれすごいヽ(=´▽`=)ﾉ ってなったところ。 という発言をみかけたので、つくりました。 Log::Minimal::Emotional - https://gist.github.com/hirose31/4958764 「エモーショナル」はお好みなものに容易に再定義可能です。 #!/usr/bin/env perl use strict; use warnings; use utf8; use Log::Minimal::Emotional; $Log::Minimal::Emotional::EMOTION->{CRITICAL} = '⊂二二二（ ＾ω＾）
JSON::XS - 正しくて高速な JSON シリアライザ/デシリアライザ
名前 JSON::XS - 正しくて高速な JSON シリアライザ/デシリアライザ JSON::XS - 正しくて高速な JSON シリアライザ/デシリアライザ (http://fleur.hio.jp/perldoc/mix/lib/JSON/XS.html) 概要 use JSON::XS; # exported functions, they croak on error # and expect/generate UTF-8 # エクスポートされる関数, これらはエラー時には # corak し, UTF-8 を期待/生成します. $utf8_encoded_json_text = encode_json $perl_hash_or_arrayref; $perl_hash_or_arrayref = decode_json $utf8_encoded_json_text; # O
SOAP::Lite - クライアントおよびサーバー側SOAP実装
なおこのドキュメントはCPAN-Searchで出てきたドキュメント(PODを変換したもの）を日本語に訳そうとしたものです。わかりにくい部分は本物を見てください。(^^;; 原本の著作権はPaul Kulchenko さんがお持ちです。 Paul Kulchenko さんにはメールで了解をいただきました。 なお内容等が間違っていたら修正します。ご連絡ください。 =更新履歴= まこと@FESさんの指摘を受けて誤字を修正 (2002/5/25) 目次 名前 概要 説明 例が見つかるところ クラスとパッケージの概要 SOAP Lite SOAP Data SOAP Serializer SOAP SOM SOAP Schema SOAP Trace SOAP Fault 機能とオプション デフォルトの設定 IN OUT OUT パラメータと AUTOBINDING AUT
Encode::compat::MIME::Header::ISO_2022_JP つーモジュールをでっちあげた - kazuhoのメモ置き場
perl 5.8.7 以前かつ Encode のバージョンアップできねーみたいな環境でも互換性を保ちながら書けるように。 use Encode; use Encode::compat::MIME::Header::ISO_2022_JP; my $subject = encode('MIME-Header-ISO_2022_JP', '日本語の件名'); みたいな感じ。コピペプログラミング万歳。コードは http://coderepos.org/share/browser/lang/perl/Encode-compat-MIME-Header-ISO_2022_JP/ に置いてあります。 アドバイスをくれた id:miyagawa++ id:tokuhirom++ Encode メンテナの id:dankogai++ Encode::MIME::Header::ISO_2022_JP コピ
[Perl] phone.pl 携帯電話キャリア自動判別ライブラリ
上記に JPEG が ○ と書いてあっても、古い機種では JPEG 画像を表示できない場合があります。 必ず $phone->{image_jpeg} で判別するようにしてください。 上記には入れていませんが、{ezweb_mono} が真であれば、 au・TU-KA のごく古い HDML 白黒液晶機種と判別できます。 この場合、画像は BMP 形式のみとなります。 しかし、今では利用者シェアが0.1％を割って、また新規契約も停止されています。 キャッシュ容量も 1.4KB 制限と厳しいので、動作対象外したいですねぇ。。。 その他、phone.pl の不具合情報や、ご意見・ご要望をお待ちしております。 SoftBank 3G携帯対応について バージョン1.52以前のphone.plは、 2004年以降発売の SoftBank の 3G 携帯に対応していません。 古い phone.pl をご
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
package Config::Simple;
http://www.ubuntu-gui.com/ubuntu/mechanize_install/