やっぱり携帯は直らないみたいなので、明日買い替えに行ってきます。 INFOBARってどうなんだろう？ 操作性は良さげだけど、携帯するには不便そう。 誰か使ってる人いないかな〜。

現在作成中のスクリプトに付けたら、同じくらいの大きさのエラーが帰ってきた。 やっぱりもっと整合性のあるperlを書かないといけないな。

昨日の晩から携帯が見当たらないと思ったら、駐車場に落としてた。 発見したが、おそらくマイカーで轢いてしまったあと、、、 受信したりカメラなども使えてるみたいだが、いかんせん液晶パネルが写らない。 明日になったら直ってナイカナ−。

どこかのサイトで見たほぼそのままのソース。 $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ではどうにもならん。 やっぱりソースから入れたほうがいいかな？