くろねこスクエア Labs
現在のページの位置： くろねこスクエア Labs > 未分類
2011 年 3 月 3 日
SimplePie(1.2)がURLのクエリ文字列を受け付けないので、当該箇所を見てsimplepie.incを変更してみます。
1 2 | #$this->query = $this->replace_invalid_with_pct_encoding($query, 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-._~!$\'()*+,;:@/?'); $this->query = $this->replace_invalid_with_pct_encoding($query, 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-._~!$\'()*+,;:@/?&='); |
に変更。これによって新しい問題が出そうですが、それよりもクエリ文字列を読み込めないことの方が問題なのです。
2011 年 2 月 9 日
今更なのですが、以前feedcreator.class.php(1.7.2-ppt)を置き換えた際にマルチバイト対応が抜けていたことに気づきました。以下のように、substr()をmb_strimwidth()に置き換えれば対処できます。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | function iTrunc($string, $length) { if (strlen($string)<=$length) { return $string; } $pos = strrpos($string,"."); if ($pos>=$length-4) { $string = substr($string,0,$length-4); $pos = strrpos($string,"."); } if ($pos>=$length*0.4) { return mb_strimwidth($string,0,$pos+1," ..."); #return substr($string,0,$pos+1)." ..."; } $pos = strrpos($string," "); if ($pos>=$length-4) { $string = substr($string,0,$length-4); $pos = strrpos($string," "); } if ($pos>=$length*0.4) { return mb_strimwidth($string,0,$pos," ..."); #return substr($string,0,$pos)." ..."; } return mb_strimwidth($string,0,$length-4," ..."); #return substr($string,0,$length-4)." ..."; } |
2009 年 12 月 20 日
とっつきにくいソースコードなどを色分け表示したい時はありませんか？Syntax Highlighterにはいろいろ種類がありますが、先日、WordPressプラグイン CodeColorerに拙作の日本語リソースを同梱していただきました。
CodeColorerの特徴は…
CodeColorerのコアライブラリはGeSHiなので、対応言語の多さには定評があります。例えばgnuplotとかDOT languageにも対応しているんですよ。
コード表示には、この手のツールが、お便利です。
2009 年 12 月 7 日
このたび「YFeed」のアップデートを行いました。Yahoo!オークション関連での出力項目を追加したほか、Yahoo!オークションのオリジナルRSSフィードとのパラメータ互換性を高めました。
主な変更点は以下のとおりです。
2009 年 12 月 1 日
Basic認証に関する話ではありませんので悪しからず。
かつてのBASICは高水準言語として抽象化されていて扱いやすいのですが、抽象化されていない処理については当たり前ながら具体的な手続きを書く必要があります。以下のコードはQuickBASICでの例で、入力されたパスワードをアスタリスク（*）で表示するために行っていた処理です。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 | '/for QuickBASIC '$lang: "qb" '------- GUI パスワード入力サンプルプログラム '------設定 CLS 0: WIDTH 80, 25 COLOR 1 pass$ = "abc" 'パスワード word$ = "" '入力されたパスワード inword$ = "" '入力途中のパスワード '------変数の宣言 x = 21'x座標 y = 11 'y座標 r = 0 '一つづづ "*" を描くための座標 '------表示 CLS 0 LINE (140, 140)-(500, 195), 7, BF, 15 LINE (140 + 5, 140 + 5)-(500 - 5, 195 - 5), 1, B start: LOCATE y, x, 1'文字の座標へ移動 PRINT "ENTER PASSWORD :" '入力待ち '------パスワード入力 in: LOCATE y, x + 17 + r: inword$ = INPUT$(1) IF inword$ = CHR$(8) THEN GOTO backspace 'BackSpace を押したとき IF inword$ = CHR$(13) THEN GOTO yorn 'Enter を押したとき IF r <= 22 THEN PRINT "*": r = r + 1 '"*" を描く '------入力したパスワードを合成 word$ = word$ + inword$ '------パスワード入力に戻る back: inword$ = "" GOTO in '------バックスペース backspace: IF r >= 1 THEN r = r - 1 ELSE GOTO yorn LOCATE y, x + 17 + r PRINT " " GOTO in '------パスワードの比較・確認 yorn: IF word$ = pass$ THEN GOTO exeexit '------入力された情報の削除 word$ = "" inword$ = "" r = 0 CLS 2 GOTO start 'やりなおし '------終了 exeexit: CLS 0 END |
ある程度構造化してあるので判りやすいかと思います。このような処理は利用機会も多いのでクラスとして抽象化してしまえば再利用しやすいのですが、往年のQuickBASICにはそのような仕組みがなく、プログラムごとに手直しする必要がありました。昨今のBASICはオブジェクト指向を念頭に設計されているものが多いので、初期のBASICに比べれば格段に扱いやすくなっています。もっとも、FreeBASICではクラスの継承は「まだ」実装されていませんが…
それにしても、「パスワードを入力する」というUI自体は10年経っても20年経っても、それほど変わらないですね。
2009 年 11 月 23 日
かなり前に作ったあみだくじのプログラムは、以下のようなコードでした。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | '/for QuickBASIC '$lang: "qb" DIM a(20), b(10) ta$ = RIGHT$(TIME$, 2) RANDOMIZE (ASC(ta$)) FOR y = 1 TO 8: b(y) = INT(RND * 6) + 1: NEXT y CLS LOCATE 5, 10: PRINT "１ ２ ３ ４ ５ ６ ７ ８" LOCATE 15,10: INPUT "番号を選んでください ", k FOR x = 1 TO 8: a(x) = x: NEXT x FOR y = 1 TO 7 n = b(y): GOSUB write_line c = a(n): a(n) = a(n + 1): a(n + 1) = c NEXT y LOCATE 5 + y, 10 IF c = 1 THEN PRINT "○ × × × × × × ×": z = 1 IF c = 2 THEN PRINT "× ○ × × × × × ×": z = 2 IF c = 3 THEN PRINT "× × ○ × × × × ×": z = 3 IF c = 4 THEN PRINT "× × × ○ × × × ×": z = 4 IF c = 5 THEN PRINT "× × × × ○ × × ×": z = 5 IF c = 6 THEN PRINT "× × × × × ○ × ×": z = 6 IF c = 7 THEN PRINT "× × × × × × ○ ×": z = 7 IF c = 8 THEN PRINT "× × × × × × × ○": z = 8 LOCATE 5 + y + 2, 10 IF a(z) = k THEN PRINT k; "はあたりです ": END PRINT k; "ははずれです ": END write_line: LOCATE 5 + y, 10 IF n = 1 THEN PRINT "|---| | | | | | |": RETURN IF n = 2 THEN PRINT "| |---| | | | | |": RETURN IF n = 3 THEN PRINT "| | |---| | | | |": RETURN IF n = 4 THEN PRINT "| | | |---| | | |": RETURN IF n = 5 THEN PRINT "| | | | |---| | |": RETURN IF n = 6 THEN PRINT "| | | | | |---| |": RETURN IF n = 7 THEN PRINT "| | | | | | |---|": RETURN |
今や昔のQuickBASICかと思いきや、2004年に登場したFreeBASICでは、lang指定さえすれば、このままコンパイルできるのです。マルチバイトも特に問題なし。FreeBASICならGPLでクロスプラットホームですし、過去のプログラムもそれなりに活用できますね。
さらに、FreeBASICならオブジェクト指向風にも書けます。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 | '/for FreeBASIC Type Amida Dim a(20) as Byte Dim b(10) as Byte Declare Constructor() Declare Sub wrLine (n as Byte) Declare Function get_result (c as Byte) as Byte Declare Function judge (a() as Byte, k as Byte, z as Byte) as Byte End Type '----------- Constructor Amida() Dim ta as String Dim as Byte c, k, n, x, y, z ta = Right(Time, 2) Randomize (Asc(ta)) For y = 1 To 8: b(y) = Int(Rnd * 6) + 1: Next y Cls Locate 5, 10: Print "１ ２ ３ ４ ５ ６ ７ ８" Locate 15,10: Input "番号を選んでください ", k For x = 1 To 8: a(x) = x: Next x For y = 1 To 7 n = b(y) Locate 5 + y, 10 This.wrLine(n) c = a(n): a(n) = a(n + 1): a(n + 1) = c Next y Locate 5 + y, 10 z = This.get_result(c) Locate 5 + y + 2, 10 If This.judge(a(),k,z) = 1 Then Print k; "はあたりです " Else Print k; "ははずれです " End If End Constructor '----------- Function Amida.get_result(c as Byte) as Byte Dim z as Byte If c = 1 Then Print "○ × × × × × × ×": z = 1 If c = 2 Then Print "× ○ × × × × × ×": z = 2 If c = 3 Then Print "× × ○ × × × × ×": z = 3 If c = 4 Then Print "× × × ○ × × × ×": z = 4 If c = 5 Then Print "× × × × ○ × × ×": z = 5 If c = 6 Then Print "× × × × × ○ × ×": z = 6 If c = 7 Then Print "× × × × × × ○ ×": z = 7 If c = 8 Then Print "× × × × × × × ○": z = 8 Return z End Function '----------- Sub Amida.wrLine(n as Byte) If n = 1 Then Print "|---| | | | | | |" If n = 2 Then Print "| |---| | | | | |" If n = 3 Then Print "| | |---| | | | |" If n = 4 Then Print "| | | |---| | | |" If n = 5 Then Print "| | | | |---| | |" If n = 6 Then Print "| | | | | |---| |" If n = 7 Then Print "| | | | | | |---|" End Sub '----------- Function Amida.judge(a() as Byte, k as Byte, z as Byte) as Byte If a(z) = k Then Return 1 Else Return 0 End If End Function '----------- Dim ObjAMD as Amida End |
なかなか登場機会の少ないBASICですが、この手軽さと生産性の高さにはやはり根強い需要があるような気がします。
2009 年 11 月 15 日
参考程度になるかもしれませんので、当サイトでMaildirをバックアップするために使っているスクリプトを載せておきます。curとnewディレクトリだけを保存し、古いファイルを削除できます。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | #!/bin/sh # Remains at least these days keepday=14 HOMEDIR=/usr/local MAILDIR=$HOMEDIR/Maildir BACKUPDIR=$HOMEDIR/backup_mail FOLDERS="kuroneko-square.net" # Get timestamp timestamp=`date +%Y%m%d` old_date=`date "-d$keepday days ago" +%Y%m%d` cd $MAILDIR for F in $FOLDERS; do NAME=$BACKUPDIR/INBOX-$F-$timestamp.tar.gz FILES_CUR="`find $F -regex ".*cur.*"`" FILES_NEW="`find $F -regex ".*new.*"`" tar -cvzf $NAME $FILES_CUR $FILES_NEW rmfile=$BACKUPDIR/INBOX-$F-$old_date.tar.gz if [ -e $rmfile ]; then rm -f $rmfile fi done exit |
2009 年 11 月 13 日
くろねこスクエアで使用しているドメインはVALUE DOMAINというところで管理しているのですが、頻繁にチェックしているわけではないため、新しいお知らせがあっても気づかない時があります。ATOMフィードやRSSフィードなどの配信があればフィードリーダーで更新チェックができるので言うことなしですが、なかなか対応は望めないようなので、試験的にではありますがVALUE DOMAINのアナウンスをフィードで取得できるようにしてみました。これでもう、期間限定割引なども見逃しませんよ。
しばらくは様子見・テスト運用ですが、特に問題なければGPL程度で公開したいと思います。追記：一部、最新情報を取得できない場合があるようですので修正しましたが、引き続き調査中です。
もし欲しいドメインがなかなか決まらないという方は、空きドメイン検索もできますのでご活用ください。
2009 年 11 月 8 日
ちょっとした環境変数を確認するために簡単なENV Checkerを置いてみたのですが、せっかくなので接続元地域の判定も入れてあります。
ただし、IPアドレスのデータベースを持つのは大変なので、MaxMind 社が配布している GeoLite Countryを利用させていただいています。このデータは毎月更新されるようなので、GeoIPの利用方法のシェルスクリプトを参考に、過去2ヶ月分を残し、それより前のデータを削除するスクリプトを追加してみました。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | #! /bin/sh # Remains at least these months keepmonth=2 TMPDIR=$HOME/tmp GEODIR=$HOME/share/GeoIP DAT=GeoIP.dat # Get timestamp timestamp=`date +%Y%m` old_date=`date "-d$keepmonth months ago" +%Y%m` cd $TMPDIR #/usr/bin/wget http://www.maxmind.com/download/geoip/database/$DAT.gz /usr/bin/wget http://geolite.maxmind.com/download/geoip/database/GeoLiteCountry/$DAT.gz if [ $? != 0 ] ; then echo "wget failed" exit 1 fi /bin/gunzip $DAT.gz if [ $? != 0 ] ; then echo "gunzip failed" exit 2 fi cd $GEODIR /bin/mv $DAT $DAT.$timestamp /bin/mv $TMPDIR/$DAT . rmfile=$DAT.$old_date if [ -e $rmfile ]; then rm -f $rmfile fi exit |
1ヶ月ごとにcronを回せばデータベースを自動更新してくれるので、いわゆるメンテナンスフリーになります。
2009 年 9 月 20 日
キーワードに合った価格.comの情報を、使いやすい形で取得するためのWebサービス「KakakuFeed」をアップデートしました。これまで同様、価格.comの商品をキーワードやジャンルで絞り込み、RSS/ATOMなどのデータとして取得することができます。
2009年8月末をもって、従来のVer1およびVer1.1のAPI提供が終了したため、このたび価格.com ウェブサービス Ver1.0（1ではなく1.0）の仕様に準拠いたしました。
従来から使用させていただいているPEAR::Services_KakakuComを価格.com ウェブサービス Ver1.0に（適当に）対応させたものを置いておきます。