タグ

perlに関するokinakaのブックマーク (32)

  • Selenium WebDriver を使った JavaScript 関連のテスト

    こんにちはこんにちは! エンジニア川端です。 春ですね。花見ですね。フェンリルでも、大阪城公園に花見に行ってきました。 花は桜木、男は岩鬼。美しい桜を見てリフレッシュです。 「Sleipnir 3 for Windows」を始めとする各プロダクトの開発者の面白い一面なども見る事ができ、楽しゅうございました。 花見に行くためには定時ダッシュしたいわけですが、そんな時に限ってバグを発見したり、テスト用のチェックシートが積み上がっていたりするものです。 繰り返し繰り返し行うテスト(レグレッション・テスト)は、できるだけ人手をかけずに行い、とっとと花見に 効率的な開発を行いたいもの。開発者のみなさんは色々工夫をされていることと思います。 私はラクダスキーなので、大体のものは Test::More とかでやってしまいますが、最近はちょっと「Selenium」も触ったりしてます。 「Selenium」

    Selenium WebDriver を使った JavaScript 関連のテスト
  • JSON - JSONデータを解析 - Perl入門ゼミ

    Perl › モジュール › here JSONモジュールを使用すると、JSONデータを解析することができます。JSONはデータを記述するための言語で、配列やハッシュなどのデータ構造を表現することができます。JSONは単なる文字列ですので可搬性があります。他のプログラム言語とデータをやり取りした場合によく利用されます。 # モジュールの読み込みと関数のインポート use JSON qw/encode_json decode_json/; JSONをPerlのデータ構造に変換するにはdecode_json関数を使用します。 # JSONをPerlのデータ構造に変換する my $json_in = '[{"name" : "Ken", "age" : 19}, {"name" : "Ken", "age" : 25}]'; my $data = decode_json($json_in); こ

    JSON - JSONデータを解析 - Perl入門ゼミ
    okinaka
    okinaka 2012/04/06
  • Yahoo Web API の返り値を JSON で受け取って Perl で処理をする - make world

    JSON は JavaScript での処理を前提にしたものが多く、Perl などほかの言語で処理をする場合のサンプルがなかったので、記しておく。 #!/usr/bin/env perl use strict; use warnings; use utf8; use Encode; use JSON; use LWP::UserAgent; use Data::Dumper; use URI::Escape; my $yahoo_app_id = 'your_app_id'; my $agent = 'Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)'; my $apibaseuri = 'http://jlp.yahooapis.jp/KeyphraseService/V1/extract'; my $referrer = 'http

    Yahoo Web API の返り値を JSON で受け取って Perl で処理をする - make world
    okinaka
    okinaka 2012/04/06
  • KOF 2011 bounceHammerによるバウンスメール解析の技術

    オープンソースで公開中のbouncehammerを使ったバウンスメール処理を解説します。システムの概要、SMTPとバウンスメール、導入事例を紹介。

    KOF 2011 bounceHammerによるバウンスメール解析の技術
    okinaka
    okinaka 2012/03/16
  • Kazuho@Cybozu Labs: メッセージキュー事始め in Perl - コマンドラインクライアントを作ってみた

    « MySQL のウォームアップ (InnoDB編) | メイン | Re: for 文を setTimeout に変換する » 2007年11月07日 メッセージキュー事始め in Perl - コマンドラインクライアントを作ってみた メッセージキューの勉強をかねて STOMP のコマンドラインクライアントを書いてみました。STOMP だから ActiveMQ とも通信可能だろうし、動作確認やテスト用のスタブ作成などに使えるはず。ソースはこちら: stompy 1. メッセージキューを起動 (POE::Component::MessageQueue を使用) % /usr/bin/mq.pl --data-dir /tmp/mq 2. キューに書き込み % echo 'hello 1' | ./stompy --destination=/queue/test % echo 'hello

  • 非同期メッセージングを実現するPOE::Component::MessageQueue を試してみた : no hacking, no life

    非同期のメッセージングができるソフトウェアを探してたら、PerlでPOE::Component::MessageQueueというモジュールにあったので使ってみた。検索してもcpan以外のドキュメントが見当たらなかったので、ソース読んだりで使い方を調べてみたので簡単に紹介します。間違ってたり、もっと正しい使い方があったらコメント頂けると助かります。 概要 POE::Component::MessageQueueは、メッセージキューをPOE上に構築して非同期メッセージングを実現したperlモジュールであり、キューへの入出力はメッセージングに特化した(TCP上の)STOMPというプロトコルで行います。詳しくはcpanを参照してください。STOMPについては、この辺に書いてあります。 インストール インストールはこれだけ。 sudo perl -MCPAN -e 'install POE::Com

  • 第4回 Any::Moose:なにがどうでもムースはムース | gihyo.jp

    CPANTSは情報の宝庫 Perlを使う最大の利点といわれるCPANですが、CPANは単なるモジュール置き場ではありません。CPANはまたPerlの利用状況を知るうえで不可欠な統計情報を得る場でもあります。そのような統計情報のいくつかは、いわゆるCPAN検索サイトからも確認できますが、より突っ込んだ情報が欲しい場合はCPANTS(CPAN Testing Service)と呼ばれるサイトを確認するのが便利です。 国内ではnipotanこと谷口公一氏が始めた「輝け!全日最強 CPAN Author 決定選手権」のネタ元として知られていますが、このサイトでは個々の作者やモジュールの品質だけでなく、そのモジュールが実際にどこで使われているかという情報を得ることもできます。 たとえば前回取り上げたロール関連のモジュールの利用状況を調べてみると、古き良きExporterを依存モジュールとして取り上

    第4回 Any::Moose:なにがどうでもムースはムース | gihyo.jp
    okinaka
    okinaka 2009/04/09
  • code.mfac.jp - Trac

    SVN Repository svn ls http://code.mfac.jp/svn/ 公開してるもの Archer MFで使っている、デプロイツール。 http://www.slideshare.net/tokuhirom/archer/1 オレオレCPAN MFの社員が作ったCPANモジュール。 オレオレJavaScript? MFの社員が作ったJavaScriptライブラリ。 MoFege? Sledgeのラッパー。 EggPlan? MoFegeつかって作った、セクシータスク管理システム。 未公開のモジュールに依存しているので動きません ;-) MadEye? サーバ監視系 Moxy モバイルサイト開発用プロキシ UserAgent偽装や、HTMLの幅のリサイズを行なってくれる BackPaper? no paste! 公開予定なもの 発表資料とか おすすめ おすすめCPAN

    okinaka
    okinaka 2009/03/22
    Archer など
  • 第2回 Perlモジュールの基礎とインストール

    Perlモジュールの基礎とインストール 効率よくプログラムを作るためには,既にあるものを再利用することが大きなポイントになります。今回はPerlでの再利用の基となるモジュールについて説明をします。 Perlでは「モジュール」が,再利用の基的な単位になります。モジュールは変数や関数を他のものと確実に区別するために独自の名前空間を定義し,その名前空間に対応する名前を持ったファイルです。プログラムにに取り付けられるパーツのようなものです。各パーツは中の部品がはみ出したり,他のパーツとぶつからないように名前空間というカバーがついています。 モジュールのファイルの内容を名前空間に対応するディレクトリ名やファイル名で保存します。「My::Dir」という名前空間であれば「My」というディレクトリに「Dir.pm」というファイル名で保存します。拡張子「pm」は,Perlのモジュールを表しています。My

    第2回 Perlモジュールの基礎とインストール
    okinaka
    okinaka 2008/06/04
  • Perl製のソースコードレビューソフトウェア·Codestriker MOONGIFT

    最近、ソースコードのレビューが熱い(と思っている)。各種フレームワークの台頭によって、ソースコードの質がだいぶ均質化されているように感じるが、だからこそレビューを通じて知識の共有化をするべきだ。 パッチを表示 とは言え、まだまだレビューを支援するシステムは数少ない。そこでPerl製のこちらをご紹介。 今回紹介するオープンソース・ソフトウェアはCodestriker、Webベースのソースコードレビュー支援ソフトウェアだ。 CodestrikerはPerlで作られているソフトウェアで、Diffファイルとリポジトリのパスに従ってパッチファイルにコメントを書けるようになっている。アップロードされたパッチに対してコメントをすることで再修正、または適用という流れになる。対応しているリポジトリはSubversion/CVS/Clearcase/Perforce/Virtual SourceSafeとなっ

    Perl製のソースコードレビューソフトウェア·Codestriker MOONGIFT
    okinaka
    okinaka 2008/05/29
  • MobaSiF (Moba/Mobile Simple Framework)

    DeNA のケータイ向けサービス「モバオク」「ポケットアフィリエイト」「モバゲータウン」などで利用されているケータイ向けウェブアプリケーションフレームワークをオープンソース化したものです。

    MobaSiF (Moba/Mobile Simple Framework)
  • [を] 転置インデックスによる検索システムを作ってみよう!

    転置インデックスによる検索システムを作ってみよう! 2007-11-26-5 [Algorithm][Programming] 転置インデックス[2007-06-17-6]による検索システムの実装は パフォーマンスを無視すれば意外と簡単です。 それを示すために Perl で簡単な検索システムを作ってみました。 検索方式は転置インデックス(Inverted Index)、 ランキングには TF-IDF[2005-10-12-1] を用いました。 検索対象ファイルは一行一記事で以下のフォーマットとします。 [記事ID][SPC][記事内容]\n 記事IDは数字、記事内容は UTF-8 の文字で構成されるものとします。 以下のようなサンプル test.txt を用意しました。 1 これはペンです 2 最近はどうですか? 3 ペンギン大好き 4 こんにちは。いかがおすごしですか? 5 ここ最近疲れ

    [を] 転置インデックスによる検索システムを作ってみよう!
    okinaka
    okinaka 2007/11/27
  • MIME-tools-5.428 - Tools to manipulate MIME messages - metacpan.org

    VERSION 5.428 RELEASED (ticket 56764) Build release with a newer Module::Install (ticket 52924) ensure we add <> around Content-id data (ticket 48036) make mimesend example script a bit more useful (courtesy of Jerrad Pierce) (ticket 43439) fix for parsing of doubled ; in multipart headers (ticket 41632) If both RFC-2231 and non-RFC-2231 parameters are present, use only the RFC-2231 ones (ticket 4

    okinaka
    okinaka 2007/11/14
  • MIME::Parser - メールの解析

    [Perl] => [メール] MIME::Parserはメールを解析し、ヘッダーや添付などを取り出してくれるモジュールです。これを利用すればメールの添付ファイルのみ取り出すこともできます。以下の例ではメールの受信時に直接プログラムにパイプすることを想定しております。(ただし添付ファイルに日語が含まれるファイルはうまく動きませんので注意) [例] #!/usr/bin/perl use File::Basename; use MIME::Parser; my $parser = MIME::Parser->new; #ファイルの一時保存場所を指定 $parser->output_dir('/tmp'); #標準入力からメールを取得 my $entity = $parser->parse(*STDIN); #FromとSubjectのみ取り出し #$entity->head; #my $f

    okinaka
    okinaka 2007/11/07
  • TokuLog 改め だまってコードを書けよハゲ - 近代的なメールの添付ファイルをとりだすライブラリ for Perl といえば Email::MIME::Attachment::Stripper

    Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at

    okinaka
    okinaka 2007/11/07
  • 近代的なメールの添付ファイルをとりだすライブラリ for Perl といえば Email::MIME::Attachment::Stripper - tokuhirom's blog.

    http://search.cpan.org/~cwest/Email-MIME-Attachment-Stripper-1.31/id:takefumi が MIME::Parser を使ってるのをみて、最近はなんかもっといいライブラリがあって云々というハナシを昔 #plagger-ja かなんかでしたよなあと思って、ログをあさってみたらあった。cwest の Email::MIME だった。MIME::Parser はインターフェースがなんなかんじなので、こっちをためしてみることに。今回の要件は添付ファイルが一個ついてくるメールから、添付ファイルをとりだすだけ。まずは、cpan コマンドでいんすこ。依存モジュールがごっそりはいるけど、全部テストとおったのでよし。標準入力からファイル読み込んで、最初の添付ファイルを出力するのは、こんな感じね。 use strict; use warnin

    okinaka
    okinaka 2007/11/06
  • Mail-DeliveryStatus-BounceParser-1.543 - utility functions for Mail::DeliveryStatus::BounceParser's unittests - metacpan.org

    The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

    okinaka
    okinaka 2007/11/05
  • MeCab: Yet Another Japanese Dependency Structure Analyzer

    スクリプト言語のバインディング $Id: bindings.html 161 2008-02-03 09:58:46Z taku-ku $; 概要 各種スクリプト言語 (perl, ruby, python, Java) から, MeCab が提供する形態素解析の機能を利用可能です. 各バインディングは SWIG というプログラ ムを用いて, 自動生成されています. SWIG がサポートする他の言語も 生成可能だと思われますが, 現在は, 作者の管理できる範囲内ということで, 上記の4つの言語のみを提供しております. インストール 各言語バイディングのインストール方法は, perl/README, ruby/README, python/README, java/README を御覧下さい. とりあえず解析する MeCab::Tagger というクラスのインスタンスを生成し, pa

    okinaka
    okinaka 2007/10/07
    形態素解析
  • Perl の数値変換

    Last Updated: 2002/03/26 Perl で、16進文字列、10進整数、2進文字列、バイナリー文字列の相互変換を行うための、スクリプトメモです。 特に断っていない限り、Perl 5.001 以上で動作します。 目次 16進文字列からの変換 10進整数からの変換 2進文字列からの変換 バイナリー文字列からの変換 16進文字列→10進整数への変換 hex() 関数は、16進文字列を整数値に、手軽に変換できます。 $num10 = hex("4A"); # $num10 には 74 が入る $num10 = hex("FFFFFF"); # $num10 には 16777215 が入る 余談ですが、数値リテラル中では 0x に続けて 16 進数で記述することで、数値を表すことができます。 $num10 = 0x4A; # 74 $num10 = 0xFFFFFF; # 1677

    okinaka
    okinaka 2007/10/04
  • Wide character in print at ...

    [Perl] Wide character in print atというエラーはUTF-8フラグが付いた文字列をprintしようとしているからである。なのでUTF-8フラグを取り外してからprintすればエラーがでなくなります。UTF-8フラグが付いているかどうかはutf8::is_utf8を使用すればよい。 #UTF8フラグが付いているかの確認 utf8::is_utf8では実際の文字列がUTF-8かどうかではなく、あくまでフラグがついているかどうかを確認します。そのため、UTF-8の文字列もフラグが付いていなければ上記の出力はno flagとなります。またutf8::is_utf8はuseしなくても使用できる。useすると全然違う意味あいになるので注意。 UTF-8フラグが付いていたら、encodeを使用してフラグをはずします。以下の例では$stringをutf-8に変換して出力します

    okinaka
    okinaka 2007/10/04