jquery.validate.js
jquery.blockUI.js
簡単な画像アップロードプログラムを2ヶ月かけてperlで書いたので、
もそっと良くしようと思い、jQueryの使用を思いつきました。
画像の変換・リサイズ処理はperlのImagerを使ってます。大きな画像をアップロードすると
時間がかかります。正直気になるレベルです。
で、画像をアップロードするときのフォームの値をjquery.validate.jsでチェックして
submitしたときにフォームの値が正しければ「送信」と「Now Loading...」の表示をさせようかと。
jquery.validate.jsでチェックして値が不正なら「Now Loading...」は表示しないように。
「Now Loading...」は同じくjQueryのjquery.blockUI.jsを使用してmodalな環境を作ります。
はじめはフォームのsubmitイベントにどちらのjsも関連付けしたので、サブミットしたとたんに
blockUIが有効になり、且つvalidateも有効になるのでmodalの背景で空しくvalidationが
警告を発しているだけでした。
validate.jsのヘルプを読んで
valid()メソッドの返り値Booleanの真偽で分岐させる事で
うまく回避できました。
2009年3月21日土曜日
2009年3月13日金曜日
[Perl]Wbmethod::GlobalVariable
会社のperlはWbmethodで書かれていました。
以下Wbmethodの詳細です。
以下Wbmethodの詳細です。
- 基本はグローバル変数。
- だからuse strictも無し。
- インデントすら無し。
- ヒアドキュメント連発。
- MVCが全て同一コードの中に集約。
- Please Repeat YourSelf。
- モジュール非依存。
[Perl]雑感。
今日会社で使用しているperlのコードをはじめてじっくり見てみました。
うーむ。。。かなり大振りな感じですw
神様が手直しした箇所がはっきり分かり、かつその部分には親切な説明が。
さすが神様。もう本を執筆なさる時期なんじゃないか?
perlって、ほんとに両極端ですね♪
うーむ。。。かなり大振りな感じですw
神様が手直しした箇所がはっきり分かり、かつその部分には親切な説明が。
use CGI::Carp::DebugScreen;こりゃ大変だ、と。
use CGI;
#use Imager; # Perlの画像処理のライブラリは主に GD, ImagerMagick, Imagerがあります
#use Image::ObjectDetect; # detect_objects関数をインポートします
さすが神様。もう本を執筆なさる時期なんじゃないか?
perlって、ほんとに両極端ですね♪
2009年3月11日水曜日
[Perl][Linux]神様に教わったことの備忘録。
強化grepみたいなもの
App::Ack
フォームのバリデーションに使える
HTML::Fillinform
<ul><li>の代わりに
<dl><dt><dd>で意味を持たせる
2つのlinuxでディレクトリの同期をする
rsync
Network Backup Solutionでバックアップ
Bacula
2009年3月6日金曜日
[Perl]セッション管理でCGI::Sessionを使う。
ログイン機能を実装するために、以前神様に聞いたセッション機能を使ってログイン状態を保持しようと考えました。
そこで候補に挙がったのが
cpan CGI::Session
サーバーにも入ってたし、今回はインストールの必要もありませんでした。
#! /usr/bin/perl
use strict;
use warnings;
use CGI;
use Data::Dumper;
use CGI::Session;
my $session = new CGI::Session("driver:File", undef, {Directory=>'/tmp'});
$session->param('f_name' => 'Sherzod');
print Dumper $session;
print Dumper "\n";
print Dumper $session->id();
print Dumper "\n";
print Dumper $session->param('f_name');
上の通りでデータの出し入れは出来るみたい。
セッションを使うと何かと便利になりそうです。
そこで候補に挙がったのが
cpan CGI::Session
サーバーにも入ってたし、今回はインストールの必要もありませんでした。
#! /usr/bin/perl
use strict;
use warnings;
use CGI;
use Data::Dumper;
use CGI::Session;
my $session = new CGI::Session("driver:File", undef, {Directory=>'/tmp'});
$session->param('f_name' => 'Sherzod');
print Dumper $session;
print Dumper "\n";
print Dumper $session->id();
print Dumper "\n";
print Dumper $session->param('f_name');
上の通りでデータの出し入れは出来るみたい。
セッションを使うと何かと便利になりそうです。