prototype.jsの利用例：マウスオーバー時にテキストを編集できるようにする
アークウェブシステム開発SandBox Web制作会社アークウェブのスタッフが、システム開発のTips・ノウハウをまとめているWikiです アークウェブシステム開発SandBox アークウェブWebマーケティングSandBox アークウェブWebデザインSandBox アークウェブ アクセシビリティWiki http://www.ark-web.jp/sandbox/wiki/174.html トップ ] [ 編集 | 凍結 | 差分 | バックアップ | 添付 | リロード ] [ 新規 | 一覧 | 単語検索 | 最終更新 | ヘルプ ] prototype.jsの利用例：マウスオーバー時にテキストを編集できるようにする お問い合わせフォームでは確認画面が表示されることが多いですが、その画面上で表示される各データに対してマウスオーバーすると即その場で修正できると便利かなと思い、その方法
PerlでAjax（CGI-Ajax編）
prototype.jsの利用例：マウスオーバー時にテキストを編集できるようにするでは、お問い合わせフォームの確認画面上でテキストを編集可能にするためにprototype.jsと利用しました（prototype.jsの利用例なので当然ですが^^;） prototype.jsはRailsと親和性の高い有用なライブラリですが、裏を返すとPerl等で作られた古いアプリケーションのAjax化にはそれほど親和性は高くないということで・・・。レガシーなアプリのAjax化にはprototype.js（の直接利用）は必ずしも適さないかもと感じました。そこで、レガシーなPerlアプリをAjax化する際に使えそうなライブラリを探して触ってみましたのでお伝えします。CGI::AjaxとHTML::Prototypeという二つのライブラリをとりあげる予定です。今回は、まずCGI::Ajaxをとりあげます。 なお、
Time::HiRes で取得できる値は CPU によって異なる
バッド・ノウハウですが、何度も記事に書いている Opteron サーバですが、かなり不具合でまくりで精神力も体力も力尽きそうな訳ですが、一番はまったのは、Perl モジュールの Time::HiRes で取得できる値の精度が、Ｉｎｔｅｌ 系と AMD 系で異なるということでした。 ミリ秒の値、すなわち Time::HiRes::time() で取得できる値の「．」以下の値が なのです！とあるベンダーが作ったシステムが Primary-key として TIme::HiRes を使っているのですが、Opteron マシンでは精度が違うために、重複Key が山のようにでてしまい、エラーでまくりでした・・・orz 昔は、マシンスペックの問題から、Sequence ID による Primary-key 生成は Sequence に対するロックの問題とかがあったのですが、このご時世、マシンもかなり高ス
サブルーチン - 2部 Perl言語仕様 - [SMART]
サブルーチンの基本的な使い方 プログラム内で何回も同じ処理をするようなときは、その処理の部分を切り離してサブルーチンにしてしまうのがスマートなやり方です。そうすれば、何回も同じソースを書く必要がなくなるので、時間の節約にもなります。 サブルーチンの宣言 サブルーチンは sub で宣言します。 sub func; # サブルーチンの宣言 サブルーチンを宣言し、なおかつ定義するには次のようにします。サブルーチンの宣言と定義を同時に行うのが一般的です。 # サブルーチンの宣言と定義 sub func{ .... } サブルーチンを呼び出すには、アンパサンド( & ) をサブルーチン名の前につけて、以下のようにします。 &func(); サブルーチンはファイルのどの場所で宣言してもかまいませんし、呼び出し元と同じファイル内でなくても問題ありません。別ファイルにあるサブルーチンは、do、 re
![サブルーチン - 2部 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
@EXPORTと@EXPORT_OK パッケージ(モジュール)の読みこみ時にデフォルトでimportされるサブルーチン(メソッド)を決めるのが@EXPORTと@EXPORT_OKになります。 @INCの追加 perlで@INCにパスを追加するにはコマンドラインスイッチにオプションを渡すか、BEGIN文もしくはuse libにてパスを追加する方法があります。
Perl Tips | ブログ
Download and install a Bootstrap theme. Modify the following at bootstrap/templates/menu/system/form-element.func.php: /** * Overrides theme_form_element(). */ function bootstrap_form_element(&$variables) { $element = &$variables['element']; $name = !empty($element['#name']) ? $element['#name'] : FALSE; $type = !empty($element['#type']) ? $element['#type'] : FALSE; $checkbox = $type && $type === '
Perl 5.8.x における日本語コード変換のメモ
Perl 5.8ではEncode.pmが標準モジュールとなり、多バイト文字を標準で簡単に扱えるようになりました。が、jcode.plやJcode.pmを用いたコード変換の経験があると、逆にこれが仇となって文字化けの嵐に遭います。（私の場合そうだったというだけで、普通はそんなこと無いのかもしれないのですが。）漸く最近になって基本的な考え方が飲み込めるようになって来たので、この辺をまとめておこうと思います。なお、本メモは新たにPerl 5.8.x的なPerlスクリプトを書く際に気をつけることをまとめたものであり、基本的には既存のスクリプトにPerl 5.8 + Encode.pmを適用するためのものではありません。また、utf8でスクリプトを書くことを前提にしています。が、どちらにせよ、この知識は参考になると思います。（たぶん。） 本文冒頭ですが、まず参照先を示しておきます。以下のドキュメント
Monologue:Net::Amazon & XML::RSS で Amazon ウィッシュリストをRSSにする
読みたい本、読まなければならない本は増える一方なのですが消費量は低下するばかりで、Amazonのウィッシュリストはどんどん増えていくのでした。これをWebで確認するのは面倒なのでRSSリーダーで読めたらいいなぁと思い、ウィッシュリストをRSSにして出力するスクリプトを作ってみました。 #!/usr/local/bin/perl require 5.008; use strict; use warnings; binmode STDOUT, ':utf8'; # Wide character in print at.. use Net::Amazon; use XML::RSS; use DateTime::Format::W3CDTF; use constant DEV_TOKEN => 'YOUR_AMZN_TOKEN'; use constant WISHLIST_ID => 'YOU
RRD::Simple
NAME RRD::Simple - Simple interface to create and store data in RRD files SYNOPSIS use strict; use RRD::Simple (); # Create an interface object my $rrd = RRD::Simple->new( file => "myfile.rrd" ); # Create a new RRD file with 3 data sources called # bytesIn, bytesOut and faultsPerSec. $rrd->create( bytesIn => "GAUGE", bytesOut => "GAUGE", faultsPerSec => "COUNTER" ); # Put some arbitary data values
antipop - Perl の学習コストを大幅に軽減するスゴイ方法
にわかに Perl の学習コストについて優れた Perler のみなさんがあれこれ述べておられるので、大変勉強になります。 Unknown::Programming - 新人教育 SQLAlchemy Database Engines 日記。 (TokuLog) - Perl は学習コストが高すぎる naoyaグループ - naoyaの日記 - Perl の学習コスト SQLAlchemy Database Engines 日記。 (TokuLog) - Perlの学習コストとライブラリ naoyaグループ - naoyaの日記 - アンテナ張りまくらないとの件 subtechグループ - Bulknews::Subtech - Perl、アンテナの話 Charsbar::Note - Perlの学習コスト 上記にリンクしたエントリをまとめると、オールドファッションな書き方であれば Per
Date::Simple - 簡単な日付オブジェクト
名前¶ Date::Simple - 簡単な日付オブジェクト。 概要¶ use Date::Simple ('date', 'today'); # Difference in days between two dates: $diff = date('2001-08-27') - date('1977-10-05'); # Offset $n days from now: $date = today() + $n; print "$date\n"; # uses ISO 8601 format (YYYY-MM-DD) use Date::Simple (); my $date = Date::Simple->new('1972-01-17'); my $year = $date->year; my $month = $date->month; my $day = $date->day;
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
FrontPage - TechMemo
鷹の島