2010-01-01から1年間の記事一覧
さくらのレンタルサーバの Standard で借りている。 ちょこちょこ設定とか見てると、エラーログが見れるらしかったので見てみた。 。。 File does not exist: ////favicon.ico File does not exist: ////robots.txtおう。 こんなんがいっぱい出てた。 えーと…
また必要になった時のためにまとめておく。 0.binディレクトリ $ mkdir ~/bin 1.cpanminus 気になっていた cpanminus を初めて入れた。 $ cd ~/bin $ wget http://xrl.us/cpanm $ chmod +x cpanm 2.perlbrew さくらのデフォルトはPerl5.8.9と、ちょっ…
http://orhowilearnedtolovetheperl.com/ とりあえず、Twitter から"Perl"で検索した結果を出すようにしてみた。 初めは定期的にMySQLに保存しようと考えていたけれど、これって著作権的にどうなんだろ…と思って少し調べてみた。 Twitterまとめは著作権的に…
をとりあえず借りた。 http://orhowilearnedtolovetheperl.com/ 週末からがんばる。
で、なにかそろそろつくろうと思う。 とりあえず自分用でもいいし、サイト構築の練習なんかも兼ねつつPerl関係の記事とか資料とかを公開されてるWeb APIなんかからとってくるようなのを作ってみよう。 適当にタイトルを考える。 Perl Momonger パールモモン…
いま他人のホームページを作っている。 HTMLとかCSSとかJavascriptとかjqueryとか.htaccessとかPHPとかSmartyとかMySQLとかSEOとか、いろいろすごく楽しい。 完成したらiPhone用にもカスタマイズしたいな。 今後のためにも遠慮なく我が成長の踏み台になって…
何故Perlなのか。 - Unknown::Programming 4年前のこちらの記事を見た。 僕とまったくもって似たような環境だったので、初めから終わりまで共感しっぱなしだった。 strict と warnings はほんと偉大だよ。 なんだちゃんと基礎を学べば簡単ではないか。 お願…
iPhoneアプリケーション開発ガイド ―HTML+CSS+JavaScript による開発手法作者: Jonathan Stark,増井俊之,牧野聡出版社/メーカー: オライリージャパン発売日: 2010/08/07メディア: 大型本購入: 20人 クリック: 593回この商品を含むブログ (48件) を見る をい…
入門Perl DBI作者: アリゲータデカルト,ティムバンス,Alligator Descartes,Tim Bunce,田中幸出版社/メーカー: オライリー・ジャパン発売日: 2001/08メディア: 単行本購入: 2人 クリック: 37回この商品を含むブログ (14件) を見る よりfinishメソッドについて…
何番煎じかわからないけど、 Perlのuniq()とmesh()をPHPで考えてみた。
Windowsのメモ帳で保存したテキストファイルの中に「①」があって、それをPerlで読み込んで以下のようにUTF-8に変換したら化けていた。 use Encode; open my $fh, '<', './memo.txt' or die; binmode $fh, q{:encoding(:sjis)}; print encode('utf8' => $_) f…
前までの2回でふと思ったこと。 sort()で破壊させないには a,b,c,d,ePHPのsort()はPerlと違ってソーティングされた配列が返ってこない。 直接直截。 注意: ソート関数は、すべて配列自身を直接変更します。 ソートした配列を新しく作って返すわけではありま…
続き。 初めてのPHP5作者: David Sklar,桑村潤,廣川類出版社/メーカー: オライリージャパン発売日: 2005/10/27メディア: 単行本購入: 6人 クリック: 54回この商品を含むブログ (41件) を見る そういえばtrueとfalseが抜けていた。 つーか「===」って何よ。 …
たぶんPHPを使わなければならないようになると思うので、今のうちから勉強。 ああCatalystでもっと遊びたい。 とりあえずこれを買った。 初めてのPHP5作者: David Sklar,桑村潤,廣川類出版社/メーカー: オライリージャパン発売日: 2005/10/27メディア: 単行…
いまテストをこんな風に書いている。 GET_COOKIES : { local $ENV{HTTP_COOKIE}; local $ENV{COOKIE}; ... my %result = get_cookies(); ... } SET_COOKIES : { stdout_is { set_cookies( ... ); } } テストするサブルーチンの名前をそのままテストブロック…
を使っている。 に書かれているままをとりあえず使ってみているのだけれど、中身見てないから原理がさっぱりわからない。 どうやって「ログイン済」「ログアウト」を判断しているんだろう。 いっしょに Session Session::Store::FastMmap Session::State::Co…
まだまだCatalyst。 Controllerクラスで、$c->forward()と$c->detach()は、制御が帰ってくるかどうか(返ってくるかどうか)の違いだと覚えていた。 まあそれはあっているんだけれど、他にも違いがあった。 Controller/Login.pm sub index :Path :Args(0) { my…
PerlフレームワークCatalyst完全入門作者: 山田祥寛出版社/メーカー: インプレスジャパン発売日: 2010/05/20メディア: 単行本(ソフトカバー)購入: 8人 クリック: 214回この商品を含むブログ (18件) を見る まだ途中。 ただ印象としては、Catalystの使い方…
いまサーバを借りてCatalystとMySQLをいれていろいろ遊んでいるのだけれど、MySQLのポートってどうなってるんだろうと思い立って確かめてみた。 # netstat -a tcp 0 0 *:mysql *:* LISTEN空いてた。 # grep mysql /etc/services mysql 3306/tcp # MySQL mysq…
PerlフレームワークCatalyst完全入門作者: 山田祥寛出版社/メーカー: インプレスジャパン発売日: 2010/05/20メディア: 単行本(ソフトカバー)購入: 8人 クリック: 214回この商品を含むブログ (18件) を見る 買って読み始めたので、知ったことメモ。 フォー…
をしている、のだけれど。 大体の技術書系はばっさり切ってせっせとスキャンして減っていっているのだけれど。 いつも手元に置いておきたいPerlの本が切れないし折れないしで、未だに本棚に入ったままだ。 なんという本末転倒。 本当にいつでも見たい本は、…
ループにラベルを張るつもりが間違って次のようにしてしまった。 LOOP : my $i = 1; for my $num (1 .. 10) { EXPR; } ループではなく通常の文にラベルを張ってしまった。 あれ、これって動かないんじゃねーの?、と考えたのだけれど、しかし、僕の予想に反…
以下。 bless $argv => __PACKAGE__; binmode $fh => ':utf8'; my @grep = grep /abc/ => @poems; my $index = index $str => $search; my $join = join ' & ' => @words; push @array => $pushed; my ($first, $second, $third) = unpack('AAA' => 'MIX'); …
「動詞を切り離して、目的物だけを抽象化することは、極めて難しい。名詞は言葉の中で、格段にレベルの高い概念なんだ。名詞の概念を理解するためには、桁違いに高い分解能を有する頭脳が必要になる。人類だけがそのレベルに到達した。それが偉いとか、高等…
zip Archive::Zip Lha Archive::Lha cab Archive::Cabinet(なくなってる?) rar Archive::Rar (圧縮ではないけれど) tar Archive::Tar なんでもあるもんだ。
はじめて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 …