どこかのサイトで見たほぼそのままのソース。 $geturl = "http://d.hatena.ne.jp/shinchan/rss"; $geturl =~ /http:\/\/([^\/+?)\/(.*)/i; $hostname = $1; $file_addr = "/$2" $addr = (gethostbyname("$host"))[4]; $name = pack("S n a4 x8", 2, 80, $add…

一昨日あたりから右奥歯がムズムズする。 はがゆいな〜

とりあえず他人の書いたのをパクってこんなのになりました。 sub url_encode(){ $str = shift; $str =~ s/[^\w ]/'%'.unpack('H2',$1)/eg; $str =~ tr/ /+/; return $str; }[^\w ]ってところで人によっては書き方が違うみたい。 うまく動いてるからどうでも…

あるファイルを別名で保存するためこんなスクリプトを使っていた。 #!/usr/bin/perl$before = shift; $after = shift;exec("cat $before > $after");exit;これを使ってコピー前とコピー後のファイル名を同じで実行すると copy hoge.pl hoge.pl警告が出てくる…

いままで配列操作の関数はpush,pop,shift,unshiftだけしか知らなかった。 splice関数を使えばこの4つの関数は忘れてもいいくらい応用がきく。 こんな便利なものがあったんですね、、、

いままで日記や掲示板のログを書き込むときいちいち $record = "$title\c@$comment\c@$dc_date\c@";、ってやってたけどjoinを使えば $record = join("\c@",($title,$comment,$dc_date));と簡単で見やすくなり、カッコイイ。 "\c@"も"\x00"ってしたほうがいい…

picoBBSソースを読んでて、CMT出力ってあったが何のことやら。 調べてみると掲示板巡回ソフトへ返すデータのフォーマットの事らしい。 そもそも掲示板巡回ソフトなんて使ってないのでわからないが, 一般的なBBSに標準装備なのかな? と思ったり、もしかして自…

関数でリスト(配列)を返すときに順番を入れ換える。 ($year,$month,$day,$hour,$min,$sec)=(localtime(time))[5,4,3,2,1,0];にて返り値の順番を変えて変数にいれることができる、と。

自分の管理してる掲示板に画像をアップできるように改造してみたがうまくいってないモヨー。 受け取った画像データの名前がとんでもないことになってるみたい。 "C\My Document\My Picture\hogehoge.gif"とかってファイル名になってる。 フォームのヘッダ情…

今日は隣町でマラソン大会がありました。 10Kmの部で出場し、55分を切ることを目標としてそこそこトレーニングもしてました。 前日から天気が悪く、風の強い中でしたがなんとか54分4秒と目標を達成できました。

資格無料認定試験で何とか合格した。 ちなみに１００点の方はまだいないそうなので誰か満点出してー。 って自分がどこを間違えたのか分からないんですけど、、、

ここんトコcgiを書いてて思ったこと。 もっとスマートな書き方がありそうだがヘタレなためソースが自分でも見づらい。 HTMLを吐かせる部分がソースと混ざって読みづらい。 サブルーチンをもっと汎用性のあるものにしたい。 やっぱり、後から機能を追加するの…

とりあえず、v0.1ということで簡単でした。 とか言いつつドキドキしながら結果を待っています。

とほほのperl入門より $addr = (gethostbyname("www.xxx.zzz"))[4]; $name = pack("S n a4 x8", 2, 80, $addr); socket(S, 2, 1, 0); connect(S, $name); binmode(S); select(S); $| = 1; select(stdout); print S "GET /index.html HTTP/1.0\r\n\r\n"; whil…

自動更新できるように変更してみた。 古いIPアドレスを保存してあるファイルの更新時間と現在の時間を比べて８０日経過してたら更新するようにしてみた。 open(FILE,"./ipaddress"); @stat = stat(FILE); close(FILE); if((time-$stat[9]) >= 6912000) { pri…

1.3.29と2.0.48が出てたモヨー どちらもセキュリティ修正だそうだが、aptではどうにもならん。 やっぱりソースから入れたほうがいいかな？

単純に'A'に１足したら'B'になると思ってたけどダメだた。 いちど数値に変換してからやる方法をメモ。 $char = 'A'; print "$char\n"; $char = unpack("C",$char); $char++; $char = pack("C",$char); print "$char\n";これでなんとかうまくいった。

フォームで送ったデータをReadParseで加工してもらうと$in{'hogehoge'}などができるのは知っていたが、 もうひとつ@inにも有益な情報が入っているようだ。 @inにはフォーム情報みたいなのが入ってる。 これを利用すればいろいろできそおだ。

<form action="$script_url" method="$method" ENCTYPE="multipart/form-data">でフォームデータを送る必要があるようだけど、ENCTYPE="multipart/form-data"でテキストを送って大丈夫なのかな？</form>

<input type="file" name="image" >で受け取ったファイルをアップしたいのだがうまくいかない。 単に変数に代入してもファイル名が入るだけで、どうやって画像データを受け取ればいいのかわからない。 はてなの画像アップのソースを見ても同じようなので、このフォームだけでいいと思うんだけ…

FTPクライアントにgFTPを使っているが、WindowsではFFFTPを使ってたのでどうも使いにくい。 リモートディレクトリとの同期がとれないようなのでいちいち移動しないといけない。 オプションを調べてもそれらしい機能はないみたいだ。 他にいいFTPクライアント…

phpMyAdminなるPHPでMySQLデータベースを操作するソフトを使ってみた。 設定ファイルをちょこっといじってアクセスしてみるが、エラーの連続。 なんとか使える状態までになったが使いかたがいまいちわからない、、、 ちぅか最近MySQL使ってない気が、、、

今日も参加するわけでもなく、応援にいきました。

やっとでHDDが届いたのでさっそく交換してみる。 とどいたHDDはSeagateの2.1GB。結構やかましい。 でOSをインストールしてみるが、途中で止まる。 ってことはHDDじゃないってことか、、、 あと考えられるのはM/Bだけかぁ。

使いかたわからん。 管理者ページってドコ？ /p_blog/admin/login.phpってのがありました。 んで、テストページみたいの作ったけど修正/削除できない。 まだ設定が足りない気がする、、、

emacsでutf-8を読めるようにがんばってみた。 Mule-UCS-currentなるものを落として展開。emacs -q --no-site-file -batch -l mucs-comp.el よくわからないがコンパイルするらしい。 あとは.emacsに (setq load-path (append '("/home/shinchan/Mule-UCS-curr…

CGIの動作がおかしくなるバグがあるらしいが問題が起こるまで放置。

インストールするため設定ファイルをいじろうとしたらUTF-8で書かれてあり、コメントが読めない。 nkfでは変換できないし、変換していいものかどうか、、、

後はMySQLの設定をちょこちょこやって、明日にでもP_BLOGなるものを試してみます。 そういえばSSLもいれたけどhttpd.confとかいじらなくていいのかな？

apache 1.3.28 openssl 0.9.6k PHP 4.3.3 MYSQL 3.23.58 mod_ssl 2.8.1 をインストールしてみる。 うまくいけば稼働中のさばと交換予定