2010-05-01から1ヶ月間の記事一覧
はじめてJSONでの出力をして使えるようなことまでしたので、メモ。 data_api.cgi use JSON; my $json = encode_json([@data]); print "Content-type:application/json; charset=UTF-8\n\n"; print $json; ajax.html <html> <head> <script type="text/javascript"> function loadData() { if (window.XML</head></html>…
ちょっとはまったメモ。 数値リテラルの後に文字列連結演算子「.」を使うとエラーになる。 my $word = 777."Unlucky"; String found where operator expected at - line 1, near "777."Unlucky"" (Missing operator before "Unlucky"?)要するに「.」が小数点…
perlpacktutを読んでる途中で覚えたことメモ。 以下のようなテキストファイルの処理を考える。 Date |Description | Income|Expenditure 01/28/2001 Flea spray 24.99 01/29/2001 Camel rides to tourists 235.00僕も多分にもれず、文字数決まってるならsubs…
自分用メモ。 crypt()を使って暗号化していたのだけれど、途中から返される値が変わらなくなった。 my $key = 'enoden'; my $word; for my $alphabet ('a' .. 'z') { $word .= $alphabet; say crypt($word, $key), " [$word]"; } enkDmZCt3oHc2 [a] endoxO49…
わかった。 fallback => 1 であとはよきに計らってくれるのならほんとに必要なとこだけ書けばいいんだ。 実際に文字列一文字前処理サブルーチンはプログラミングPerl Vol.1から。 MagicDecrement.pm package MagicDecrement; use strict; use warnings; use …
昨日の続き。 overload - Perl の演算子のオーバーロードを行うパッケージ - perldoc.jp Fallback (フォールバック) "fallback"は、特定の演算子に対するメソッドが見つからない場合の動作を規定します。 "fallback" の value によって、3 つの場合がありま…
そういえば演算子ってオーバーロードができたなーと思って前々回のマジックデクリメントをやってみた。 結論から言うとまだできてない。 なぜか以下のエラーが出てくる。 Operation "=": no method found, argument in overloaded package MagicDecrement at…
