2004-01-01から1年間の記事一覧

コンマを挿入する

ちょっと頼まれて考えたんだけど、Cがわかってないので結構頭捻ってしまった。 で、結局超頭悪そうなのができてしまった・・・。 Perlだったら1行なんだけどなぁ。 #include <stdio.h> #include <string.h> int main(){ char x[100]; int len; // 入力を受け取る scanf("%s", x)</string.h></stdio.h>…

ロリコンの法則

http://jjx.xxperlxx.org/cgi-bin/lolicom.cgi 衝動的にこんなものを作成。 うーん。 むなしい。 んでもCGIMini::Templateは便利だぜ!と自画自賛。 コードです。 テンプレは別ファイルでも良いんですが面倒なので__DATA__にしてみた。 それにしても普通にプ…

CGIMini::JavaScript::Variable

Perlの構造体をJavaScriptな形式に変換。 使い方は至って簡単my $jsvar = CGIMini::JavaScript::Variable->new( foo => [ 'one', 'two', 'three' ]); print $jsvar->output;結果は var foo = ['one','two','three']; とな。 package CGIMini::JavaScript::Va…

設定完了なり!

結局,バーチャルホストを使うのはやめて,mod_rewriteを使うことにした. Apacheを再構成とかせずに意外に簡単にmod_rewriteはインストールできた. 少々重い気がしないでもないが(気のせい?)いい感じ. こりゃラクダ. バーチャルホストと違って,ちゃ…

Apache2でサブドメイン

俺と同じ事をする人が将来いるかもしれないのでまとめておきます.Apache2でサブドメインを実現する方法は二つあります.(俺が調べた限り) 1つは,httpd.confでVirtualhostを設定する方法です. 下のように設定します. <Virtualhost *> ServerName hogehoge.com ServerA</virtualhost>…

SQLite最強伝説

いやー,SQLiteすごいよですよ. perl -MCPAN -e 'install DBD::SQLite'ってだけでインストールできるんですよ? これだけで,ほかになんにもインストールの必要ないんですよ? my $sth = $dbh->prepare('select * from log where bid=? and no=?;'); $sth->…

CGI.pmのescapeHTMLの問題

CGI.pmのescapeHTMLは特殊文字を&#...;の形に治してしまうようだ. 日本語がうまくいかなかったりする. 困ったな

論理和と論理積

今,学校で確率やってます.(数A) んでまぁ,積事象とか和事象とかそんなところをみてて,やっと論理和(or)とか論理積(and)が和とか積っていうかわかりました. if($a && $b) if($a * $b)はほぼ等価なんですね! どちらかが偽(0)なら条件全体が偽に if…

でぃれくとり

そういえば,mod_perl2でディレクトリが変なとき sub BEGIN{ $ENV{SCRIPT_FILENAME} =~ /(.+\/)/; chdir($1); }こんな感じで対処がよさげデス.

さすが東大

http://ingres.t.u-tokyo.ac.jp/Lecture/WebApplication/ わかりやすいですわ

新しいものから20個

だいぶわかってきたんだが,次は最近更新された20個というのの求め方に苦悩している. select * table order by LASTUPDATE desc; これで,最終更新で降順したのは取り出せると思うんだけど,最新20というのがわからない. いっそ,($sth->fetchrow_array())…

でけた

id:PaiNさんから教えていただいた. select * tablename order by LASTUPDATE desc limit $LIMIT offset $OFFSET; これでok. もちろんユーザーからくる$OFFSETはs/\D//gとしてますYO!

順列を羅列する

#! /usr/bin/perl # usage: ./permtation.pl 2 2 2 3 3 4 4 5 5 6 7 # 引数にリストを与えると、それで順列を作って、引数がなければ1, 2, 3, 1, 2, 3で実行 # 引数は、アルファベットなどでもok use strict; # main my @list = scalar @ARGV ? @ARGV : (1, …

Perl正規表現のオプション

正規表現を使っていて,いまいちオプションを覚えられないのでここにメモしておきます. i 大文字小文字を区別しない m 改行コードの前を行末と見たり,後を行頭とみたりして,^や$でマッチするようにする s \nとかも.に含む