cpan恐怖症の僕がPerlの環境構築してからTetoをいれるまで - mizchi log
貴重なマシンパワーの一部をニコ動の作業用BGMに割いてるみなさんおはようございます もともとFlashというかAdobeが嫌いなので、しかしニコ厨としてはなんとかしてStremaing環境を構築したくて id:motemen さんのTetoをいれたかった うちのMBAにはFlashいれてない。自宅で鯖化した旧MBがニコ動再生機と化していた ニコニコ動画の音声だけを流し聴きするストリームサーバを書きました - NaN days - subtech] 音声が入れば最低でも作業用BGMきけるよ！ってこと頑張ってみた PerlといえばCPAN。名前を聞くだけで魅力的だとわかるモジュールが目白押し。WWW::Mechanize::AutoPagerとか超羨ましい しかしPerl、というかCPANには嫌な思い出があって 依存が複雑 依存が多すぎ 初心者なのでこれ入ってて当然だよね、がわからない そもそ
【Perl】オブジェクト指向 for Java使い - (・∀・)イイ!!Memo
継承 † Java public SubClass extends SuperClass { SubClass () { } } Perl package SubClass; use base qw(SuperClass); sub new { bless {}, shift; } 1; use base qw(SuperClass?)とすると、SubClass?はSuperClass?の(コンストラクタ含む)関数をすべて継承する。 ↑ interface † Perlにはinterfaceといった文法はない。実装をうまくつかってinterfaceを実現する。 親クラスで、関数の中身をdieだけにし、子クラスでオーバーライドを強制する*1 Java public interface Person { public void whatIsYourName(); } public Clas
TermExtract Perlで出来る特徴語抽出 - プログラマになりたい
PerlのCPANモジュールを使って、簡単にベイジアンフィルターを使う方法を紹介したエントリーが思いのほか好評でした。ベイジアンフィルター Perlで作りたい人に教えてあげたいちょっとしたこと 調子に乗ってもう一つ、お気に入りのCPANモジュールの紹介です。日本語の形態素解析といえばMeCabでほぼ間違いないのですが、MeCabはあくまで形態素解析器です。ということで、最小単位の形態素を検出することは出来ますが、連語等は分解されて出てきます。（本当はちょっと工夫したら出せるのですが、それはまた次回）例えば、「集合知」という言葉が出てきたら、下のように分解されて出てきます。 集合 名詞,サ変接続,*,*,*,*,集合,シュウゴウ,シューゴー 知 名詞,一般,*,*,*,*,知,チ,チ 使い方にもよりますが、集合知という言葉で取りたい場合も多いと思います。以前、Yahoo!APIと組み合わせ
たった＊行のコードでHTML取得＆解析をしたい場合はWeb::Scraperが便利 - 酒日記 はてな支店
なんか無茶振りされたので。 簡単！たった１３行のコードでHTML取得＆解析をするPerlスクリプト を Web::Scraper というモジュールを使って書き直すと、こんな感じになります。 use strict; use Web::Scraper; use LWP::UserAgent; use Encode; my $scraper = scraper { process "#topicsfb li" => "topics[]" => "TEXT"; }; $scraper->user_agent( LWP::UserAgent->new( agent => "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0)" ) ); my $result = $scraper->scrape( URI->new("http
簡単！たった１３行のコードでHTML取得＆解析をするPerlスクリプト - DQNEO起業日記
１３行のコードで、Yahoo!Japanのトピックス一覧を取得する！ PerlでHTML取得・解析したいときはLWP::UserAgentとHTML::TreeBuilderというのを使うと簡単にできます。 LWP::UserAgentを使うと、Webページの取得ができます。 HTML::TreeBuilderを使うと、HTMLのDOM解析ができます。 この２つのモジュールを使って、Yahoo!Japanのトピックス一覧を取得してみましょう。 コメント行と空行を除くとたったの１３行です。 use strict; use warnings; use LWP::UserAgent; use HTML::TreeBuilder; # urlを指定する my $url = 'http://www.yahoo.co.jp'; # IE8のフリをする my $user_agent = "Mozilla
perlのワンライナーで使えそうなのをいくつか - Webtech Walker
最近ちょっとしたことはperlのワンライナーでやるので便利そうなのを抜き出してみる。必要に応じてzshの関数とかaliasにしたりとか。ちなみにperlのワンライナーといえばsugyanなのできっともっと便利なのをいくつも紹介してくれるはずです。 画像をbase64にエンコード $ perl -MMIME::Base64 -0777 -wne 'print encode_base64($_)' < file HTMLにdataスキームで画像埋め込むときとか、出力を改行したくないときはencode_base64の第二引数に空文字を渡す。 $ perl -MMIME::Base64 -0777 -wne 'print encode_base64($_,"")."\n"' < file 画像のリサイズ $ perl -MImager -se 'Imager->new->read(file=>$f
GitHub - miyagawa/Tatsumaki: Plack-based nonblocking Web framework for IO-bound delayed response, server push (streaming) and long-poll comet
NAME Tatsumaki - Non-blocking web framework based on Plack and AnyEvent SYNOPSIS ### app.psgi use Tatsumaki::Error; use Tatsumaki::Application; use Tatsumaki::HTTPClient; use Tatsumaki::Server; package MainHandler; use parent qw(Tatsumaki::Handler); sub get { my $self = shift; $self->write("Hello World"); } package FeedHandler; use parent qw(Tatsumaki::Handler); __PACKAGE__->asynchronous(1); use J
memcachedを介して、PerlとRubyでデータをほげほげしてみる - (ﾟ∀ﾟ)o彡 sasata299's blog
2009年10月19日22:50 Perl Ruby memcachedを介して、PerlとRubyでデータをほげほげしてみる ふと思って、Ruby でデータを memcached に入れて、それを Perl から取り出せるのかな〜というのが気になったので試してみました。データの形式として、文字列、ActiveRecord、ハッシュをそれぞれ試してみます。予想では、ActiveRecord のデータはさすがに Perl では読み込めないだろうけど、それ以外は読み込めるんじゃないかなぁと。 まずは Ruby を使って memcached にデータを set します。 #!/usr/bin/ruby require 'rubygems' require 'activerecord' require 'memcache' class Hoge < ActiveRecord::Base estab
Perlでroot権限で動作させる場合の注意点 - pepponの日記
root権限で動作させたい常駐プログラムを作って動作させてみたものの、うまくいく場合とうまくいかない場合があって、かなりはまってしまった。 シェル上でrootユーザでperlプログラムを実行した場合と、なんらかのトリガー（メールや、xmlrpcとかでコマンドを受け取って）を経て自動で実行させるときの違いを調べてみた。 perlsec - Perl のセキュリティ http://perldoc.jp/docs/perl/5.6.1/perlsec.pod Perl は、そのプログラムが異なる実ユーザー ID、実効ユーザー ID、実グループ ID、実効グループ ID を使って実行されることを検出したときに、自動的に 汚染モード (taint mode) と呼ばれる特別なセキュリティチェックのセットを有効にします。 UNIX パーミッションにおける setuid ビットはモード 04000 で、
Module::Install::ForC で C のプログラムを簡単に構築する - tokuhirom's blog
http://github.com/tokuhirom/p5-module-install-forc Module::Install のアーキテクチャを利用した configure/SCons 等のサブセットをつくりました。 記法は SCons を参考にしており、Rake のような黒魔術的でとっつきにくい記法ではなく、シンプルでわかりやすい記法になっています(もちろん主観ですが、Rake の記法は Rake を知らない人にとって非常にとっつきにくく、見通しがわるいというのが個人的見解です。慣れても見通しがいいとはおもいませんが。。。)。 Perl Monger がちょっとした C のコードを書くときに便利なのではないかとおもいます。Module::Install をつかってるので inc/ もいっしょに配布すれば、perl5.8.0 以上さえあればうごくということになります。便利です。 最
mod_psgi を実装してみた - spiritlooseのはてなダイアリー
http://github.com/spiritloose/mod_psgi PSGI を実装したApache2モジュール。 % make && make installでインストールできて、 LoadModule psgi_module modules/mod_psgi.so <Location /psgi> SetHandler psgi PSGIApp /path/to/app.psgi </Location> で動く。 がーっと書いたのでまだまだの部分が多いとはおもうけど、一通り実装できたと思う。 Plack::Test::Suite を使ったテストも書いた。 http://github.com/spiritloose/mod_psgi/blob/master/t/suite.t mod_perlのようにApacheの機能を提供する必要はなく、アプリケーションへはenvを渡せば い
twitterの1日分のつぶやきをmixiに投稿するPerlスクリプト - Lolicsystem@?
これは何か 僕はもうmixiはあんまりというか全然やっていなくて、単に友人の生存を確認したりするのに使っているような状態だったり、自分の生存を友人に知らせたりするのに使っているような状態だったりします。 そういう使い方なら、twitterの方が断然向いているし、投稿も閲覧もカンタンでラクチンだったりするのですが、まだまだmixiオンリーで活動されてるおともだちとかも居たりして。。。 でもそういうおともだちにも僕のtweetを見て欲しいじゃないですかー。 mixiにもエコー改めボイスというつぶやき機能があったりするのですが、twitterとそちらに同時投稿というのもなんだか違う気がして。とゆーことで、ついろぐ(http://twilog.org/)に、僕のつぶやきを1日単位でまとめてもらってるので、それをmixiの日記として投稿することにしました！ わーいヽ（´∀｀）ノ なんで、mixiの「
Perl で Excel を Parse する - はちゅにっき
Perl で Excel を Parse するときのお約束といえば Spreadsheet-ParseExcel http://search.cpan.org/~jmcnamara/Spreadsheet-ParseExcel-0.54/lib/Spreadsheet/ParseExcel.pm ですよね！ というわけで、今回の話題は Perl で Excel を Parse する方法について。 ただし、Excel にはイタリア語とか、フランス語とか、日本語とか。。。 とにかくイロイロな国の文字が入力されているという、稀によくある状況を想定しています。 が、ハングル文字とかキリル文字とか、アジア圏の文字全部に対応できているかは謎です。 アジアってすごいよね。。。言語的意味で。 ちなみに日本語のみの Excel では、以下のモジュールを使うと便利だそうです。 Spreadsheet-Pars
Google::Chartの使い方 - file-glob こと k.daibaの日記
さくっとグラフを描く Cactiでグラフを作成しようと思っていたデータがあったのですが，色々なしがらみが面倒になったので，ローカルにデータを取得してグラフ化することにしました．どうやってグラフ化するかちょっと考えて，思い出したのがGoogle::Chartでした．まず作ろうと思ったのが棒グラフ．これはこんな感じで動きます．ワンライナーなので，本来は1行です． perl -MGoogle::Chart -le ' $c = Google::Chart->new( type => "Bar", color => ["4d89f9","c6d9fd"], data => [[1,2,3,4,5,6],[7,8,9,10,11,12]] ); print $c->as_uri' こんなグラフができあがります．ところがこのスクリプトに必要なデータを突っ込もうとしたら動きませんでした． perl -M
PSGI/Plackは本質・本命・本流・本気でした - Eorzea Lounge
南陽市 パチスロ 店舗 口コミ 「当時最高の女優だったシム・ウナの演技復帰を共有できることは光栄だ」と付け加えた 土岐市 パチスロ 恵比寿 マスカッツ 目 押し 2024年の横浜アリーナ公演も決定したコンサートホール勝田台スーパーときめき♡宣伝部は,ギャンブル スポーツ【ToK8.me】最大1,000 USDTまでの75％キャッシュバック⚡⚡ギャンブル スポーツ❤️K888VIP.com❤️最大1,000 USDTまでの75％キャッシュバック パチスロ 沖 ドキ 基本 八女市 パチスロ 最高 出 玉 動画 日本のアニメがさらにお得 【ディズニープラス/2月配信】クリプトスロット入金不要ボーナス 千葉県勝浦市 パチスロ 戦国乙2 リセット 国籍を超えた友情を明かす…「カップルTシャツ＆ギター」（画像提供：wowkorea） 韓国のガールズグループ「TWICE」のメンバー, パチスロ 水着 壁
PSGI/Plackを追っかける準備 - とほほのN88-BASIC日記
今は時間取れないのでポインタだけ。 Blog PSGI - Perl WSGI - bulknews.typepad.com http://d.hatena.ne.jp/tokuhirom/20090904/1252091316 PSGIまとめ - Angelos in Action - angelosグループ Googleグループ: psgi-plack Googleグループ FAQ/SPEC GitHub - miyagawa/psgi-specs: Moved to https://github.com/plack/psgi-specs FAQ PSGI protocol specification リファレンス実装 PSGIRef Plack WAFアダプター Catalyst::Engine::PSGI CGI::Application::PSGI(建設予定地)
tokuhirom blog
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
形態素解析を使って適当なnickを作ってWassrに送信するまで - すぎゃーんメモ
MacにてText::MeCabを使う - すぎゃーんメモで下準備を終えた。 何がしたかったかというとこれ。 まずはこんなスクリプトを書いてみた。 #!/opt/local/bin/perl use strict; use warnings; use Text::MeCab; my $mecab = Text::MeCab->new(); my $n = $mecab->parse($ARGV[0]); my @nodes = (); # 分かち書きしたものを一つの配列に入れる my @noun = (); # 名詞を検出した番号を格納する my $index = 0; while ($n = $n->next) { push(@nodes, $n->prev->surface); if ((split(/,/, $n->prev->feature))[0] eq '名詞') { push
[Perl] CPXXXANプロジェクト
CPXXXANは古いバージョンのPerlでも動くCPANモジュールのリストを作ってダウンロードできるようにするという発展途上のプロジェクトである。 Perlはこの数年でバージョン5.6、5.8、5.10と進化してきたが、未だに5.10より前の古いバージョンを使い続けている人もいる。しかし、5.6のユーザーが普通にCPANに行ってDBIモジュールをダウンロードしても動かない。最新のDBIは5.6に対応していないからだ。CPXXXANはこの問題を解決するべく開発されている。 CPXXXANという独立したソフトウェアがあるというよりは、Perlのバージョンごとに用意されたURLを通してCPANにアクセスするという言い方が近い。 CP5.5.3ANCP5.6.2ANCP5.8.8ANさて、CPXXXXANを試してみよう。 試す前に環境のテスト普通にCPANシェルを起動して最新のDBIを取得してみる
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Perlゼミ(サンプルコードPerl入門)