HTML::Featureをまねしてみた - gotin blog
HTML::Feature - 重要部分を抽出するモジュール - - ダウンロードたけし（寅年）の日記 ↑こちらで紹介されていたCPANのモジュールでHTMLの重要部分が抽出できるとのことで、ちょっとまねしてみました。 といっても記事に書かれていたアルゴリズムとソースをチラっとのぞいた程度なのでおそらくきちんと移植できてはいないのですが、いくつか試したところ同じ結果が得られたのでまぁいいのかもというレベルです。 肝心なソースはこちら↓です。 karaoke_html_feature.user.js ↑こちらのソースの中にHTML::FeatureをまねしたgetFeatureNode関数を定義していて、 カラオケアニメーション対象の文字列を今まではページ内の文字全てにしていたのを、getFeatureNodeで得られたノード内にしています。 いつもどおり速度性能は全く意識せずに書いたのでg
はてなブログ | 無料ブログを作成しよう
織田信長 ぼちぼち、元気にやっています。少し薬にも慣れた...んかなぁ。相変わらず食べられないけど。朝、指がこわばって文字なんて入力できなかったけど、それはほぼなくなった。関節もどこも痛くない。薬効いてきたんやろな。 で、ブログを書こうと言う気がまた起きてきた。 …
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
YappoLogs: Ajax アプリ等の為の JavaScript コードのテストツール JSTAPd を作ってるよ
Ajax アプリ等の為の JavaScript コードのテストツール JSTAPd を作ってるよ Data::ObjectDriverをDISってる人の話題が三周目に突入した今日この頃ですが皆さんは何をDISってますか?Yappoです。 JavaScript にもテストツールが色々とあると思うんですが、 Ajax アプリの XHR リクエストとかも含めてラクチンにテストできるツールが見つからなかったので JSTAPd というツールを作りました。 http://github.com/yappo/JSTAPd 名前の通りテスト結果はTAPで出力してるのでproveコマンドとかを使ってPerlの作法でテストできます。 ブラウザの連携の設定をすれば prove -v foo/hoge.t とかをコマンドで打ち込めば勝手にブラウザ立ち上げてテストコード実行してブラウザ閉じて結果をコンソールに吐いてく
ゆーすけべー日記
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
2006-09-11
以降、ですますで書きます。どうもいつもの自分の投稿スタイルと合わないので… なぜIEか PerlにもPythonにも、ブラウザ依存でないWebページ巡回ツールがあります。mechanizeなどがそれにあたります。また、Pythonはurllib2などの純正モジュールなども利用可能です。 しかし、IEそのものをコントロールすることにより、 IE専用のサイト ボタンをクリックすると同時にjavascriptが実行されるようなサイト などを巡回する際のプログラミング負荷が減るのではないかと考えています。また、 動いているところをIEの画面で確認できる ことにより、視覚的に動作を把握しやすいことも挙げられます。 VBAによる方法 http://www.ken3.org/vba/ 三流君VBAで楽しくプログラミング Windows機ならかなりの確率で入っているMS-Office付属のツール、VBAを
PerlでContinuationベースのウェブサーバ - karasuyamatenguの日記
Continuationっていうのはプログラムの実行過程を途中でフリーズして別のところから再スタートさせたりすることができるという頭の痛くなるような機能だ。はやり御本家はscheme(call/cc)だけど他のハイレベル言語でもできるものがあるようだ。 ウェブフレームワークとしてはsmalltalkのseasideやcommon lispのuwcが有名。RubyやPythonもGeneratorを使って実装したものがあるらしい。あと、アプリケーションとしてはPaul Graham氏のnews.ycombinator.comが有名。これは彼の「100年言語」(実はPLTの上にマクロで作ったLispの方言)によって実装されている。 perlにはcall/ccやgeneratorのようなコールが無いのでContinuationベースのフレームワークは無いと思っていたが、間違っていた。Perlにで
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
Perl – Hoge Knowledge
Perl Perltidy Perl の Pretty Printer 設定 by Perl Best Practices $ cat ~/.perltidyrc -l=78 # Max line width is 78 cols -i=4 # Indent level is 4 cols -ci=4 # Continuation indent is 4 cols -st # Output to STDOUT -se # Errors to STDERR -vt=2 # Maximal vertical tightness -cti=0 # No extra indentation for closing brackets -pt=1 # Medium parenthesis tightness -bt=1 # Medium brace tightness -sbt=1 # Medium
Plagger::Plugin::Notify::Browser : blog.nomadscafe.jp
Plagger::Plugin::Notify::Browser Update Entryをブラウザで開きます。タブブラウザ万歳プラグイン Notify::Ejectをコピペ多し。 Plagger::Plugin::Notify::Browser package Plagger::Plugin::Notify::Browser; use strict; use base qw( Plagger::Plugin ); sub init { my $self = shift; $self->SUPER::init(@_); my $class = 'Plagger::Plugin::Notify::Browser::' . lc($^O); eval "require $class;"; if ($@) { Plagger->context->error("Browser plugin doe
ちょっとしたコードを検証するコツ - Unknown::Programming
とりあえずPerl限定のお話で。 まぁ皆同じようなことは多分してると思うのでぐだぐだと何か言うことも無いんだけど、自分流のやり方を覚書程度にメモするという意味でここに残しておきます。 まず以下のようなfoo.plを用意します。 #!/usr/local/bin/perl -w use strict; use warnings; use Data::Dumper; use YAML(); sub p (@) { local $Data::Dumper::Indent = 1; print Dumper(@_) } sub P (@) { print YAML::Dump(@_) } use Perl6::Say; use Path::Class; __END__ 自分の環境にあわせてお好みのuse文を入れておきましょう。Perl 5.10とかならPerl6::Sayはいらないですね。 ちなみ
PDF作成方法-超簡単！PerlでPDF文書作成２〜FDF Toolkit for Perl使用
INDEX; 1.サンプルアプリケーションの構成 2.システム構成（動作環境） 3.Perl CGIアプリ作成手順 -FDF Toolkitインストール -FDF処理関連メッソド 等 4.サンプルPerl CGIソース 5.ダウンロード >PerでPDF文書を作成する２続画像編〜 超簡単、PDF文書を作成する（パート４）！ （FDF Toolkit使用）05.6.6 ・・・簡単 PDFフォーム入力＆画像送信！！ >サイト内関連リンク TARGET; ・PerlでFDF(Format Data Format)ファイルを作成し、 PDF文書を表示・印刷する。 ・Adobe FDF ToolKitをインストールする。 -FDF Tollkitを使用するとテンプレートFDFが自動生成できますので 、手作業でテンプレートFDFを作成することがなくなります。 すなわち、FDFのフォーマット仕様を
[JavaScript][Perl] 続・正規表現を使ったCSVパーサ / LiosK-free Blog
2008-01-29 カテゴリ: Client Side タグ: Tips JavaScript Perl 正規表現 CSV 正規表現を使ったCSVパーサの続き。 トークン化したCSVを解釈するコードをJavaScriptとPerlで書いた。二つのロジックはほぼ同じ。 それぞれ、第一引数には解釈するCSVテキストを渡し、第二引数ではfield間の区切り文字を指定する。デフォルトはコンマ(,)。戻り値は、CSVを解釈した2次元配列(Perlの場合はリファレンス)。 function parseCSV(text, delim) { if (!delim) delim = ','; var tokenizer = new RegExp(delim + '|\r?\n|[^' + delim + '"\r\n][^' + delim + '\r\n]*|"(?:[^"]|"")*"', 'g');
2009-01-15
Yacafiを使って掲示板をこしらえてみました。そこらへんにあるレンタル掲示板より正直低性能ですが、あくまで学習用途なので。 do_*から処理を行い、&_template_param_buildにてそれぞれのテンプレート差し込み用変数をまとめてハッシュとして、templateに流してます。 perl自体の高度な機能について見識がないので、ある程度の基礎的な知識を身につけていれば多分読むのに苦労しない程度の代物です。以下をもちあわせていれば、初学者でも普通に弄れる、と思います。 import サブルーチン FileのIO操作 ハッシュ MENTA::Template…というかMojo::Templateの使い方 Yacafi.pmのソースをかじる勇気 #!/usr/local/bin/perl use strict; use warnings; use Yacafi extends => {
Google SpreadSheetからSQLiteに出力する - あたらしものずきっ！
お手軽にiPhone上からデータをいじれた上で、アプリ向けにそのデータを配信する方法はないかと模索したところ、この組み合わせになった。 Net::Google::Spreadsheets DBIx::Class 最初はSQLiteにDBIで出力を考えたけど、モダンにDBIx::Classを使うことにした。 use strict; use warnings; use lib 'lib'; use SLDB::Schema; use Net::Google::Spreadsheets; use Data::Dumper; my $Schema = SLDB::Schema->connect("dbi:SQLite:dbname=db/xxx.sqlite","",""); my $GoogleService = Net::Google::Spreadsheets->new( username
Perlでモナドを学ぶ - IOモナド編 - Pixel Pedals of Tomakomai
ListモナドとMaybeモナドに続いて、今日はIOモナドのお勉強をしてみます。 簡単な解説 IOモナドは実質的にStateモナドなので、こちらとかこちらとかを読んで下さい。 ただし、状態は「世界」となります。世界によって値は異なり、新しい世界(副作用が施された世界)を返します。 実装 Stateモナドと同じ定義をしました。 my $io_monad = Monad->new( T_arrow => sub { my $arrow = shift; # A -> B return sub { # TA -> TB my $tx = shift; # TA return sub { # TB my $world = shift; my ($value, $new_world) = $tx->($world); return $arrow->($value), $new_world; }; }
YappoLogs: Hash::Merge 活用術
Hash::Merge 活用術 「全裸は違法だということを言われた。ええええ、そんな法律があるのか？Debugはできるようになるかもしれない。」と思っておセンチなyappoです。 hashを簡単にmergeするCPAN moduleとしてHash::Mergeがあるのは有名ですが、デフォルトだと色々頑張ってマージしちゃうので、例えばHTTP::Engine::Middlewareの使いたいMiddlewareをARRAY refで書いちゃったりして、base.yamlとproduction.yamlでmergeした時に、以下のような混ざりかたでとんでも無い目にあいます。 use strict; use warnings; use YAML; use Hash::Merge; my $base = { Middlewares => [ { module => 'HTTPSession', c
ファイル検索イテレータ Find::File::Iterator って便利かも？
Perl でディレクトリ一覧を取得するとき、File::Find を使ったり、opendir でゴリゴリ書いたりってのが普通だったりしませんか？Perl 標準だけで書けるので。僕の場合は、配布用 CGI とかは、File::Find を使って、それ以外では自前のモジュールって感じで使っていました。 で、最近 File::Find::Iterator を今更ながら知りました。なんか 2003 年でメンテナンスが止まっているっぽいですが、なかなか優れもののモジュールです。ソースを見ると File::Find を継承したものではなく、Class::Iterator を継承して IO::Dir 使って書かれてます。今、Author をよく見たら作者が同じだった・・・。 File::Find を使った場合は、 use File::Find; our @files; our @dirs; find(\
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Higher Order Perl (Python Style) TOC
autobox面白い - blog.s14u.info
