Perl が覚えられて胸もキュンとなるコードを書いてみた - おいちゃんと呼ばれています
なんか Perl でスクレイピングする記事が話題になっているようでして。 -簡単！たった１３行のコードでHTML取得＆解析をするPerlスクリプト - DQNEO起業日記 このブログの著者の人、いいな。と思う、ほんとに。僕も素直でありたいな、と。で、ちょっと遅くなってしまいましたが、便乗してみます。 **本日の教材 ただ、短く○○行で書くとかは得意分野ではないので、おたのしみ画像を手に入れる方向にもっていってみました。次のサイトを教材に。 -なんでもちゃんねる : 胸がきゅんとする女の子の画像 - ライブドアブログ 好みが合わなければ、サンプルコードの URL のところだけ変えてもらっても構いませんし。 **サンプルコード 下記のコードで胸キュン画像を GET できます。 |perl| ! /usr/bin/perl use strict; use warnings; use Web::S
画像の色情報を平均化し、単色にする方法 - 雑想空間
画像を、単純化して置き換えるような処理をしたかった。 そのために、画像内の色情報を複数プロットし、平均化する処理を書いてみた。 こんな風にできたよ。 こんな画像を読み込ませると、 処理して、 こんな色にしてくれる。 Image::Magick使って、色情報取得 package Package; use strict; use Image::Magick; sub new { my ($pkg, $param) = @_; my $hash = { img => $param->{'img'}, plot => (defined $param->{'plot'} and $param->{'plot'} > 0) ? $param->{'plot'} : 3, }; return bless $hash, $pkg; } sub get_average_color { my ($self)
高速でプログラミング言語をマスターするのに有効な記事まとめ - NAVER まとめ
サービス終了のお知らせ NAVERまとめは2020年9月30日をもちましてサービス終了いたしました。 約11年間、NAVERまとめをご利用・ご愛顧いただき誠にありがとうございました。
Perlクイックリファレンス - 1部 Perl入門 - [SMART]
変数は以下のように値を代入したり出力することができます。 # 変数に文字列を代入 $value = "テストです"; # 変数を出力 print $value; 【参照ページ】 変数 配列 複数の値を1つの変数で管理したい場合は、『配列』という変数が最適です。 配列を初期化する場合は､要素をカッコで囲み､各要素毎にカンマで区切ります｡ @week = ('日曜', '月曜', '火曜', '水曜', '木曜', '金曜', '土曜'); 配列はインデックスを使って参照します。インデックスは 0から始まるので注意してください。たとえば1番目のデータ "日曜" を呼び出すときは、$week[0]、"月曜"なら $week[1] とします。 # 配列 @week の1番目の要素を表示 print $week[0], "\n"; > 日曜 # 配列 @week の2番目の要素を表示 print $
![Perlクイックリファレンス - 1部 Perl入門 - [SMART]](https://cdn-ak-scissors.b.st-hatena.com/image/square/efeb6493234f33406d242c048873a805fca99c63/height=288;version=1;width=512/https%3A%2F%2Frfs.jp%2Fwp-content%2Fthemes%2Fsmart%2Fogpimage.png)
Perl-DBI/SELECT - yanor.net/wiki
SELECT $sth = $dbh->prepare('SELECT id, name, age FROM t1 WHERE age > ?'); $sth->execute(15); while ($row = $sth->fetchrow_hashref()){ print $row->{id},"\n"; print $row->{name},"\n"; } die $sth->errstr if $sth->err; fetchrow_xxx()が途中でエラーを起こした場合、返値がundefなためwhile()ループを抜ける。 全行走査できたのかエラーだったのか調べるためには、 $sth->errを使うか、 RaiseErrorで例外をキャッチする。 selectxxx_xxx系 （prepare()を経ずに）SQLを直接実行する。 1行を取得 $row = $dbh->sele
selectall_arrayref の使い方 - 脳外記憶装置
perl/DBI Perl-DBI…サイトを色々見ててもかゆい所に手が届きづらい感じなのはなんなんだろうか…orz selectall_arrayref の使い方ですっごい躓いたので備忘録。 selectall_arrayref の引数は以下。 1：SQL文字列 2：取得形式 3：バインド変数 ここで躓いたのは2なんですが…… 各サイトでよっく見かけた記述が「\%attr」…つったってだからそのアトリビュートに何入れるんだっつー話ですよコレが。 分かんねぇよ！……みんな分かってんのかな……まぁAPIちゃんと読めよという話なんでしょうか。うーん。 http://blog.scrapcode.net/article/598613.html ↑こちらのブログでようやくとっかかりを見つけました。これも間違ってないんですが不十分… こちらでは、「{Columns => {}}」を渡せと書いてあります
DBI-DBDについて
DBI/DBDの使い方 この文章は、perlでcgi等のプログラムができ、SQLの基本的な使い方を知っているひとを対象に書かれています。 また、DBI/DBDモジュールを利用するには、perl5のオブジェクト指向（風）プログラミングの知識もある程度以上は必要です。 DBI/DBDとは、perlとデータベースの間をとりもってくれる汎用インターフェイスです。 DBIモジュールとDBDモジュールからできており、DBDモジュールは、各データベースごとに存在します。 プログラマは、DBIモジュールのルールにしたがってプログラミングすることで、どのようなデータベースにも、同じようにアクセスするプログラムを書くことができます。 ここでは、DBD/pg（PostgreSQL用DBDモジュール）を使った例を提示しますが、基本的には、どのようなDB相手でも同様のことができます。
知ってそうで意外と知られていないperlの小技 10選 - download_takeshi’s diary
意外と知られていないperlテクってのが、意外とあるもんですね。 最近身の回りでいくつか話題に上がったものがあったので、ちょっと書いてみます。 どれも最新のモダパ的なモノではないけども、知っておくと地味に便利かもしれないノウハウです。 中級レベル以上のperlユーザの人たちでも「お、こんなの知らなかった」というのもあるかもね。 複数項目でのソート よくエクセルなんかで「A列を降順、B列を昇順にして並び替え」みたいなことしますよね？ perlで複数項目のsortではどうすればできるでしょうか？ じつはとっても簡単。sortの次に続くブロックの中でorするだけです。 例えば以下のような４人の子供たちのデータを年齢順、体重順でソートしてみます。 use strict; my @data = ( { name => '太郎', age => 10, weight => 25, }, { name
2007-11-21
http://www.youtube.com/watch?v=bdWDJCKEh8k&feature=related gerryすげーー I made new account to use English on twitter! http://twitter.com/nishio_en 誰が「ソートするときに比較関数に『ランダムに1か-1を返す関数』を与えたらシャッフルできる」って言い出したのかしらないけど、真に受ける方も真に受ける方だと思う。 たとえばソート関数が下のような「リストの先頭の値をピボットにしてそれより大きいものと小さいものに振り分けるクイックソート」だったとする。比較関数の所はランダムにしてある。 >>> def quicksort(xs): from random import random if len(xs) < 2: return xs pivot = xs[0]
download_takeshi’s diary
要するにAnyEventでgroongaを使いたかったのでperlモジュール書きました。んでもって久々にCPANにアップしましたよ、という告白です。 AnyEvent::Groonga - Groonga client for AnyEvent http://search.cpan.org/~miki/AnyEvent-Groonga/ 非同期でガンガン全文検索エンジンを叩きたいな、ということでAnyEvent::Groonga。 なおYappo さんが取り組まれているCライブラリのperlバインディングスとは異なり、AE::Groongaはgroongaディストリビューションに同梱されてるオリジナルの「groongaサーバ」を対象としています。 このgroongaの組み込みサーバは、じつはhttpとgqtp(groonga独自プロトコルらしい）両方をしゃべれます。また普通にローカルのDB
perlで高速な類似検索エンジンを構築できるようにしてみた - download_takeshi’s diary
すみません。タイトルはやや釣り気味です。 類似検索エンジンというか、そのアイデア程度の話なんですが、以前から考えていた類似検索エンジン風のネタがあったので、ちょっとperlで書いてみたので、そいつを晒してみます。 Luigi https://github.com/miki/Luigi 類似検索なのでLuigi。ルイージとか読みたい人はそう読んじゃっても良いです。（冷） 考え方と仕組み 類似文書の検索、となりますと一般的には超高次元での空間インデックスとかが必要になります。 昔からR-TreeやSR-Treeなど、いろいろと提案されていますが、より高次元になると「次元の呪い」によりパフォーマンスが出なくなる、なんて言われていますね。 そこで最近ではLSHに代表されるような、より高度な「近似」型のインデキシング手法が人気を集めているようです。 で、今回考えたLuigiも実は近似型のインデッ
最速インターフェース研究会 :: 入門Ajaxが初心者にオススメできない理由
このブログは基本的にひたすらなんか作ってリンク張るというスタンスでやってきたのでAjaxなサイトやら、ライブラリやら、フレームワークやらは全然紹介してこなかったし、あんまりそういうことをやるつもりもないのだけれど何で急にfluxiomヤバいとか書いているのかというと何もかも入門Ajaxのせいである。 入門Ajaxがダメだというのは、別に内容のことではない。 いや、もちろん内容が酷い部分もあるのだけれど、サンプルは初心者向けで悪くないだろうし、高度な内容を取り扱おうと思ったらきりがない。情報収集の仕方を知らない人がまとまった情報を手っ取り早く得たいと思っているならば、2500円は安い値段だ、悪くない。あと17冊買うべきだ。 問題は、この本がとても閉じているということだ。日本語のリソースしか紹介していない。クロスブラウザだとかビジュアルエフェクトだとかは海外のライブラリのほうがよっぽど上手くや
フォーマット指定子の精度/最大幅を指定する
フォーマット指定子のオプションの 1 つである精度/最大幅を指定する方法です。精度および最大幅は数値に対して設定した場合は精度となり、文字列に対して設定した場合は最大幅となります。ここでは Perl でフォーマット指定子のオプションである精度/最大幅の使い方について解説します。
フォーマット指定子の型指定子を指定する
フォーマット指定子の中で必須のものが型指定子です。型指定子は整形する値のデータ型を指定します。例えば整数として扱うのか浮動小数点数で扱うのかなどを型指定子で指定します。ここでは Perl でフォーマット指定子の中の型指定子をどのように指定するのかについて解説します。
書式指定文字列の記述方法
書式指定文字列は、そのまま表示される文字列と、値を変換して表示するフォーマット指定子を組み合わせて記述します。 フォーマット指定子は値の変換方法を具体的に記述する部分で、変換される値の数だけフォーマット指定子を記述する必要があります。フォーマット指定子の書式は次の通りです。 フォーマット指定子は % で始まり「型指定子」を記述します。またオプションとして指定可能な項目として「フラグ」「最小幅」「精度/最大幅」があります。 詳細な使い方は次のページ以降で細かく確認していきます。ここでは例として %03d と言うフォーマット指定子使ってみます。 %03d を指定した場合は対応する値を 10 進数の数値で幅を 3 桁にし、 0 詰めにするものです。
Mojolicious::Lite で WebSocket を使ったチャットを作る - naoyaのはてなダイアリー
node.jsの衝撃とWebSocketが拓く未来 (1/2)：WebSocketで目指せ！ リアルタイムWeb（1） - ＠IT という記事を読みました。node.js という V8 を用いたサーバーサイド JavaScript フレームワークを使うと簡単にイベント駆動のサーバが書ける、node-websocket-server.js を使うと node.js で WebSocket サーバが実装できる。Ajax による polling や Long Polling などと WebSocket のアーキテクチャ比較といった内容でした。 WebSocket を使うと手軽にサーバプッシュ的なアプリケーションが作れて嬉しいのですが、現時点では、HTTPサーバー側で WebSocket を処理する下地の実装をどう用意するかというところがひとつ課題でしょう。node.js はその回答のひとつとして
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
移転しました
bayashi.jp
bayashi.jp
Perlメモ