弾さんのブログを読んで。 404 Blog Not Found:perl - use CGI; use Encode; # 非英語Webプログラミング3原則 HTML4.01のaccept-charsetを使ってますが、これってマイナーなんでしょうか。 accept-charset = charset list [CI] この属性は、入力データについ…

月曜日から次の日曜日までを一週間とする。 年が明けて最初の月曜日を1週目とする。 年が明けてからn週目の、始まりの日付と終わりの日付を知りたい。 使えるライブラリはPOSIX限定。 という質問が、某掲示板にあったので挑戦してみました。 use strict; use…

http://www.prweb.com/releases/2009/05/prweb2417854.htm Oracleに対して、提携して共同戦線を張りませんか？というお知らせ(ぇ。サイトの名称は、MySQL/MariaDB以外のオープンソースDBの人々や企業とも提携できるように、"Open Database Alliance"という名…

Perlの啓蒙と促進を目指す「Japan Perl Association」発足 | スラド 最初は「Perlはクソ！」的なコメントを期待していたのですが、期待に反して、booleanの話だったり、Cの話だったり。本当に使われてないのですねーという印象でした。 雑談話を一言でまとめ…

example.comは、rfc2606において、予約ドメインに指定されています。用途は、テストや例示などで、使われていない安全なドメインが必要なときに使うのですが。間違えてexapmle.comにアクセスしてしまったら、こんなところに！ ぜひ気をつけましょう。 はぁー…

正規表現による簡単なメールアドレスバリデータ いろいろ話題になったメールアドレスのバリデータですが、勉強がてら、一から作ってみようかと思い立ちました。 資料集め メールアドレスの書式に関しての最新のドキュメントはIETFの管理するRFC5322です。ま…

ウィデニウス氏がサンを退社し、新たに会社を設立。 technobahn.com - このウェブサイトは販売用です！ - 株価検索 株価チャート 株価 銘柄 終値 リソースおよび情報 現在同氏は、ストレージエンジンMaria 1.5の正式版リリースやMaria 2.0（フルトランザクシ…

コード。 use strict; use warnings; use re 'eval'; use re 'debug'; my $digit = qr{(\d)(?{print "\$^N: '$^N'\n"})}; my $_digit = qr{(??{$digit})}; # print "\$digit : ", '1' =~ /$digit/, "\n"; print "\$_digit: ", '1' =~ /$_digit/, "\n";結果。…

面白いツールですね。index.htmlを直接ブラウザで動かすだけでも、データベースへのセーブとロード機能が使えないだけで、"Client"の"Save XML"と"Load XML"を使い、XMLを手でコピペすれば、一通りの機能が使えるというお手軽さです。一応、データベースへも…

再帰を使えば古き良きperlでもJSON程度はなんとか。 package Local::JSON; use strict; use warnings; use utf8; my %CONTROL; foreach( ["\""=>'\\"'], ["\\"=>'\\\\'], ["/"=>'\\/'], ["\b"=>'\\b'], ["\f"=>'\\f'], ["\n"=>'\\n'], ["\r"=>'\\r'], ["\t"=…

今更な気がしますが、より多くの人がuse strict;でハッピーになれますように。 use strict; はブラボーなおまじない use strict; と書くだけで以下の3つが機能します。 use strict "vars"; use strict "refs"; use strict "subs"; 1. use strict "vars"; の…

まず、下のテキストを文字コードUTF-8、ファイル名anachro.jsでセーブします。 anachro('アナコッポラ'); function anachro(str) { var i = 100; for(var top = 0; top < 3; top++){ for(var right = 0; right < 3; right++){ document.body.appendChild( an…

高木先生がad4Uについて書かれていました。気になっていたのですが、ちょっと成り行きを見ていました。 テクノロジー : 日経電子版 結局、ログインに関わらずページを見ている人が、どこのサイトを閲覧しているのか分かってしまう点が問題になるのでしょうね…

正規表現を状態遷移図に変換するサイト验证手机自动送彩金59_2018最新送彩金白菜网★_注册自动送198元彩金-白菜导航がちょっと面白そうだったので、試してみました。 (-?(?:0|[1-9]\d*)(?:\.\d+)?(?:[Ee][+-]?\d+)?)JSON数値を正規表現にしたものですが、 こ…

ウィデニウス氏のブログを探して、記事を読んでみました。 What should you then expect from MySQL 5.1? * If you are using MySQL 5.1 just as a 'better' version of MySQL 5.0 and you don't plan to use any of the new features in MySQL 5.1 then you…

乗り換えたかったので驚いた記事。 MySQLの創業者、「5.1 GA」に警告 | OSDN Magazine MySQLのオリジナル作者のウィデニウス氏から警告されるということは、よほどの事だと思うのですが、実際はどうなんでしょうか。問題はレプリケーションにあるようです。…

ちょっとstrftimeを再発明していて、%Uと%Wの実装でDataTimeをパｋ…ゲフンゲフン…参考にさせてもらおうとしたところ、挙動がおかしかったのでした。最初は、何かやっちゃったかと思ったのですが、ソースも怪しかったので、どうやらビンゴっぽいです。 テスト…

perlでは、オブジェクトの生成の書式が二通りあります。 my $foo = Local::Foo->new; my $foo = new Local::Foo; 通常、どちらでもオブジェクトは作れますが、後者には、サブルーチンの呼び出しとしても解釈できる曖昧さを含んでいます。例えば、次のような…

PODにそのものが書いてありました。 LIMITATIONS Due to the heuristic nature of Switch.pm's source parsing, the presence of regexes with embedded newlines that are specified with raw "/.../" delimiters and don't have a modifier "//x" are indi…

use strict; use warnings; use Switch; my $state = 0; switch($state){ case 0 { $state = /foo/ ? 1 : /bar/ ? 1 : 0; } case 1 { $state = /foo/ ? 1 : 0; } } このコードで perl -c でチェックすると、こんなエラーが出ます。 syntax error at switch.p…

おおよそ、手順通りにやってみました。http://code.google.com/apis/v8/build.html ソース管理にはCVSを使っていたので、SVNは新規インストール。Perl/PHP/Rubyは入れていたのですが、Pythonはいれてませんでした。これもインストールです。Mingw(gcc)を使っ…

http://www.kmonos.net/alang/d/2.0/lisp-java-d.html これをPerlで挑戦。 my $dictionary = []; open(FH, 'dictionary.txt') or die $!; while(my $str = <FH>){ chomp $str; (my $num = uc($str)) =~ tr/A-Z"/57630499617851881234762239/d; my $p = \$diction</fh>…

次期JavaScriptの標準化の作業をしていた、ECMAの第39技術委員会が、ついにECMA Script3.1で一本化して作業することに合意したようです。 経緯を単純に説明すると、ECMA Script3.1を推していたMicrosift Yahoo!とECMA Script4を推していたAdobe Mozilla Oper…

高木浩光＠自宅の日記 - 無責任なキャリア様に群がるIDクレクレ乞食 ―― 退化してゆく日本のWeb開発者 という、関係者涙目な記事が出ているわけですが。 DNSポイズニングの危険性について、今までぼんやりしていた部分が、少し明確になったので書き記しておき…