perl

opencvで顔認識でなくて独自の画像認識する方法

opencv(日本語ドキュメント)と、perlから利用するためのモジュールImage::ObjectDetectを使って独自の画像を認識させる方法のメモ。 まず、Ubuntuでのインストール opencvはシステム→システム管理→Synapticで,編集→検索から"opencv”と入力する。libcv-dev、l…

JavascriptのURLエンコード

前回、前々回のエントリ XvfbとFirefoxとImageMagickでWebページのサムネイルを自動生成する方法 - pomo123の日記 なんちゃってクローラーでURL漁り - pomo123の日記 でリンクを集めて、Webページのサムネイルを取得するところまでは自動的にできるようにな…

なんちゃってクローラーでURL漁り

前のエントリ XvfbとFirefoxとImageMagickでWebページのサムネイルを自動生成する方法 - pomo123の日記 でWebページのサムネイルを自動的に取得できるようになったので、今度はサムネイルを作成するWebページのURLを自動的に漁ってくるなんちゃってクローラ…

PERL HACKS

しおり代わりに役に立ちそうなHacksをピックアップしておきます。書籍のサンプルコードはhttp://examples.oreilly.com/perlhks/からDLできます。 HACKS#1 FirefoxにCPANショートカットを加えよう ロケーションバーからcpan Acmeのように入力してCPANを検索す…

XML::RSSで取ってきてHTML::Templateで出力するのメモ

LWPでダウンロードした文字列を、 utf8::encode($content) しないと文字化けする。 use strict; use warnings; use HTML::Template; use LWP::UserAgent; use XML::RSS; use CGI qw/:standard/; #HTTP通信でダウンロード my $ua = LWP::UserAgent->new; my $…

perlでhttps通信

debian(on coLinux) # apt-get install libcrypt-ssleay-perl # perldoc Crypt:SSLeay ← 一応確認 Vine3.2 or Vine4.0 # apt-get install openssl-devel # cpan install Crypt::SSLeay ← 途中の質問はEnter # perldoc Crypt:SSLeay ← 一応確認 https通信のサ…

Net::SSLeayに問題?httpsアクセスでperl.exeが落ちる

うまくtcoolのppmリポジトリでPlaggerがインストールできたとおもっていたけど、 httpsなフィードへのアクセスをかますと、perl.exeが落ちてしまう問題が発生。 エラー報告に含まれるデータを参照すると、ssleay32.dllで問題が発生しているらしい。 AppName:…

ppm.tcool.org経由でPlaggerを超簡単インストール

以前、Windows上のActivePerlでPlaggerのインストールに苦労したのがウソのよう。 ActivePerlのパッケージ管理ソフトのPPMのリポジトリをちょこっと設定するだけで、 コマンド一発("install Plagger")でインストールできる環境が以下で公開されている。 Plag…

colinuxのdebianにCatalystをインストール

まずはcolinuxのインストールと設定。 ネットワーク接続は以前にも書いたが、NATに設定。IPは192.168.0.2にした。以下が参考になる。 coLinuxのメモ - coLinuxのインストール[その5 (TAP-Win32でのNAT接続)] debianの設定は以下を参照。 http://www.si-linux…

perltidy

Perlのコードの自動フォーマットをやってくれるツールperltidyをActivePerlで試してみた。 まずは、 http://perltidy.sourceforge.net/ からzipファイル(Windowsスタイルの改行コードになっている版)をダウンロード。 適当なディレクトリで展開、DOS窓で開く…

EUC→UTF8変換

EUCのHTMLを読み込んでUTF8で正規表現でマッチングする。 以下のスクリプトはUTF8で保存すること。 use strict; use utf8; use Encode qw(from_to); my $html; my $fn = "texteuc.htm"; #このファイルはEUC open TARGET, $fn or die "Can't open $fn: $!"; w…

EPIC(0.3)+eclipse(3.0、3.1.2、3.2)

PerlのIDE環境を実現するEclipse用プラグインEPIC。ActivePerlは5.8.6、PadWalkerはppmでインストール済みなんだが、いずれの組合せでもデバッグ機能が動かない。デバッグを実行すると、コンソールにはなにも表示されない。ブレークポイントは設定できるが実…

Plaggerインストール続き

前回のActivePerlにPlaggerをインストールするの続き。 CPANからinstall Plaggerするときに前回はmake testでエラーが発生しperl.exeが落ちてしまう問題が発生したが、その原因はppmでXML-LibXMLをinstallするときにダウンロードされるlibxml2.dllが問題だっ…

Plagger

最近話題になっているPlaggerについて手を動かしてみた。Plaggerについての高橋メソッドなプレゼン資料が以下にある 某所でPlaggerのプレゼンをしてきた - walf443's blog YAMLというフォーマットで、各種フィードやサービスに対応するプラグイン(perlで実装…

半角を全角が混じった文字列を同じ幅でsubstrする

全角と半角が入った文字列を画面に表示するときに、substr()で単純に文字数できってしまうと、半角が混じった文字列の場合には短く表示される。半角が混じっている場合には半分の幅の文字が表示されることを考慮してsubstrするときにはどうしたらいいか?と…