焼きくろはんぺん

うまい
煮物も食べたい


酒こぼした…

くろはんぺん

某固定さん
イケメンでおいしそうなので食べるために買ってきた

＠静岡の富士のイトーヨーカ堂

個人的にはこの中にくろはんぺんってメニューが欲しかったけどなかった
セブンイレブンにもよったけど無かった

鳴沢氷穴

中学校の修学旅行か何かで行ったところ
ふと思い出し行ってみた
樹海です

こんな看板が立ってたりします
思い直しました
こんなのは迷子にならない目印なのだろうか？


富岳風穴は点検のためには入れなかったのが残念
今年は暖かかったり，台風とかの影響で氷が少ないのも残念
昔は自分が小さかったからだろうか？
なんか感動した記憶がある
今回はこんな物か・・・で終わった

南千住架設ホーム

常磐新線の工事のために架設で使っていた駅がある
今はそのホームは使っていない
で写真を撮った
なんかくずれそうな駅だな

JavaMailでサーバからメールを消す方法

メールの受信だけなら↓を見る
http://www.hellohiro.com/javamailpop.htm

メールを消去する場合は下記のように変更

修正
folder.open(Folder.READ_WRITE);
folder.close(true);

追加
messages[i].setFlag(Flags.Flag.DELETED, true);

Linuxでディレクトリ内のファイルサイズの合計を見る方法

find -type f -printf "%s\n" |perl -ne '$i++; $byte += $_; $str = "\r$i files, $byte byte"; $str =~ s/(\d{1,3})(?=(?:\d\d\d)+(?!\d))/$1,/g; print $str'

って入れるだけ

http://sonic64.hp.infoseek.co.jp/2004-05-26.html

車内にて

今日は携帯の螺子をドリルで穴を開ける夢を見た
その後、スピーカー部分に絶縁テープを貼る夢を見た
カメラ使っても音のしない夢を見た
電車の中にカワイイ高校生がいる夢を見た
撮影する夢を見た
せっかくなので念写

※無線機の改造は夢の中で。違法です

PerlからHTTP通信

GET /unko2ch2000/ HTTP/1.0
Host: blog.goo.ne.jp

HTTP/1.1 200 OK
Date: Fri, 10 Dec 2004 08:40:19 GMT
Server: Apache
Set-Cookie: BLOGTracking=61.125.216.17.1102668019394608; path=/; expires=Mon, 08
-Dec-14 08:40:19 GMT; domain=.blog.goo.ne.jp
X-Powered-By: PHP/4.3.8
Expires: Thu, 19 Nov 1981 08:52:00 GMT
Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0
Pragma: no-cache
Connection: close
Content-Type: text/html
(略)

というのを
socket(SOCKET,2,1,0);
connect(SOCKET,$name);
print SOCKET "GET /unko2ch2000/ HTTP/1.0";
なんて書いてやるものいいけどもっと簡単な方法を・・・
（とここまで投げやりなのは使い方を理解してないからだったりｗ）

system("wget $url");
ってやってファイルから読み込むのが一番簡単か？ｗ

はい，まじめに行きます．
参考ページ：http://www.sea-bird.org/doc/Solaris8/Perl_4.html
使うのはLWP::UserAgentとHTTP::Requestかな？
下記の手順でインストールしてくださいな

wget http://search.cpan.org/CPAN/authors/id/G/GA/GAAS/libwww-perl-5.802.tar.gz
tar zxvf libwww-perl-5.802.tar.gz
cd libwww-perl-5.802
perl Makefile.PL
(質問はすべてデフォルトでOK)
make
make install

wget http://search.cpan.org/CPAN/authors/id/G/GA/GAAS/URI-1.35.tar.gz
tar zxvf URI-1.35.tar.gz
cd URI-1.35
perl Makefile.PL
make
make install

wget http://search.cpan.org/CPAN/authors/id/G/GA/GAAS/HTML-Parser-3.42.tar.gz
tar zxvf HTML-Parser-3.42.tar.gz
cd HTML-Parser-3.42
perl Makefile.PL
make
make install


ソースコードの例はhttp://www.sea-bird.org/doc/Solaris8/Perl_4.htmlを見てもらうとして
$res->code;でステータスコード
$res->content;でコンテンツの内容が見れたりします

さて，ここでgzip圧縮を使いたいと思うわけですが
$request->accept_encoding('gzip');を指定するのかな？
ということで本題．まず，gzipを使うために下記をインストール

wget http://search.cpan.org/CPAN/authors/id/P/PM/PMQS/Compress-Zlib-1.33.tar.gz
tar zxvf Compress-Zlib-1.33.tar.gz
cd Compress-Zlib-1.33
perl Makefile.PL
make
make install

my $res = $ua->request($req);の直前に$req->header('ACCEPT_ENCODING'=>'gzip');を追加
my $res = $ua->request($req);の直後に下記を追加
if($out =~ /^\x1f\x8b\x08/s and $res->header('Content-Encoding') =~ /gzip/i){#
$out = Compress::Zlib::memGunzip($out);
}
終わりｗ

3桁ごとに区切りを入れる@FOTRAN

      program ex1
c
c 初めて作ったんだよ？どう？
      integer x,y,i
      CHARACTER c*100
c
      c=''
      write(6,*) '正の整数を入力してください。'
      read(5,*) x
      do i=1,100
        y=mod(x,10)
        c=char(y+z'30')//c
        x=int(x/10)
        if(x.eq.0)then
          goto 100
        end if
        if(mod(i,3).eq.0)then
          c=','//c
        end if
      end do
  100 continue
      write(6,*) c
c
      stop
      end

高校生

まだ12時だというのに制服を着た高校生がいっぱいハァハァ
もう年末か
期末テストの時期か？
それにしても高校生はかわいいのぉ