鈍足ランナーのIT日記

走るのが好きな5流のITエンジニアのブログ。

趣味の範囲は広いけど、どれも中途半端なクソブロガー楽しめるWebアプリを作ってあっと言わせたい。サーバーサイドPerl(Mojolicious)、クライアントサイドVue.js。Arduinoにも触手を伸ばす予定。

2013-02-01から1ヶ月間の記事一覧

MojoliciousとBootstrapの連携-フォーム作成を楽しちゃおう

Mojoliciousタグヘルパーを覚えるのはつらいというわけで、自動的に生成するWebツールMojoHel を作ってみた。MojoHel自体もMojoliciousアプリとなっています。ソースも公開していますこちら いまのところ、 TextAreaの改行がコピペするとうまく反…

PerlでXSLTに挑戦だぁー

まずはモジュールのインストール cpanm XML::LibXSLT libxmlt libxml2 が必要なようだった The XSLT C library for GNOME これらをチョイスするか libxml2-2.9.0.tar.gz libxslt-1.1.28.tar.gz libxml2はmakeでこけた。それぞれ、バージョンを落とそう。 lib…

ハッシュのハッシュを操作したい

divタグで出来たXMLを <div class"test1"> <div class="test2"> <div class="b"/> </div> </div> ハッシュのハッシュに入れて $VAR1 = { 'div' => { 'div' => { 'div' => { 'class' => 'b' }, 'class' => 'test2' } } }; divをspanに変えて出力したい場合、どうすればいいのだろうか。 そもそも、ハッシュに入れないでXSLを</div>…

perlintro -- envプログラムって何それ食えるの?

普段こっちで書いていたけど。 #!/usr/bin/perl こっちでも書けるようです。 #!/usr/bin/env perl この開始行は、env プログラムがあることを仮定しています。 #!/usr/bin/perl のように、perl 実行ファイルへのパスを直接 書くこともできます envプログラム…

Perlのハッシュリファレンスの前の+はどういう意味?

うーん。わからない。テストは通るし、+をつけると何がどうちがくなるのでしょうか。教えてーー。 use strict; use warnings; use Test::More tests => 2; my $hash1 = +{aaa => 'bbb'}; my $hash2 = {aaa => 'bbb'}; is ($hash1->{aaa}, "bbb"); is ($hash2…

サクラエディタ派のHTML整形ツール

こちらのエントリに,JSPファイルの整形に使っているという 記事を発見。 【ツール】HTML整頓くん、名前はイマイチでも実力は本物 早速インストールして試してみました。 <% <%= をインライン要素として定義できるので これで、Mojoliciousなどのepファイルも…

サクラエディタでHTML整形

vim,emacs使いこなせない私、 でもHTMLのインデントするのってメンドクサイ。 以下のサイトを参考にしてみました。 サクラエディタ+tidyでHTML整形 ただ、このままだとUTF-8ファイルが文字化けてしまうので マクロの書き換えてみました。 これで、サクラエデ…

Pod::Usageに感動した・・・・

perlでツールを作ったとき、そのツールの使い方を-hオプションで表示させるようにしています。 Pod::Usageを使わないBeforeコードは、こんな感じです。 #!/usr/bin/perl use strict; use warnings; use Getopt::Long; my $message = << '&EOT&'; # Usage: Ho…

HTML::FillInFormを学ぶ

HTML::FillInForm 1.06 のバグ ちょっと使いたくなってみたぁ・・ 配列のときの動きが良く分からないので、試してみよう。 use strict; use HTML::FillInForm; my $hidden_form_in = qq{<INPUT TYPE="TEXT" id="foo_0" name="foo" value="nada"> <input type="hidden" id="foo_1" name="foo" value="nonda"/>}; my %fdat = (foo => ['bar1','bar2'] ); my $fif = new HTML…