perlでDBMファイルを取り扱う

最近はtieという関数を使うらしい・・・


#!/usr/bin/perl
use feature qw(say);
use SDBM_File;
use Fcntl;
tie (%HA,'SDBM_File',"test",O_RDWR|O_CREATE,0644);
%HA=(one=>1,two=>2,three=>3);
while ( ($a,$b)=each %HA){
say "$a -> $b";
}
untie %HA;


参考リンク
http://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_bigdata.html
http://perldoc.jp/docs/perl/5.10.0/perltie.pod
http://www.ecopig.jp/comucale/dbm.htm
http://search.cpan.org/~nwclark/perl-5.8.9/ext/SDBM_File/SDBM_File.pm

NetTransportを入れるとIEのダウンロードの挙動が変わる

Q.IEのダウンロードを横取りしてしまうのですがどうすればいいのですか？
A.ドロップウィンドウかタスクトレイのアイコン右クリックして
　ブラウザの監視のチェック外せばいいだけです。

だそうです

参考リンク
http://www.wikihouse.com/windows/index.php?Net%20Transport

PDFのパスワードを解析するソフトpdfcrack

Debian(lenny)のレポジトリにありました。
aptで簡単インストール。

使い方は

pdfcrack hoge.pdf

みたいに使う

途中でCtrl+Cで止めてもカレントディレクトリにsavedstate.savが出来るから
また再開したいときには

pdfcrack -l savedstate.sav hoge.pdf

みたいな感じで

参考リンク
http://gigazine.net/index.php?/news/comments/20090219_pdfcrack/

スライドパズル by ハンゲーム

http://flashweb.hangame.co.jp/play.nhn?gameid=fpbswitch

ネコを囲むFLASHゲーム

http://www.gamedesign.jp/flash/chatnoir/chatnoir_jp.html

オラバウトが閉鎖されちゃうよー｡･ﾟ･(ﾉд`)･ﾟ･｡

そんなあなたに
シナバウト
http://www.alabout.com/

オラバウトNEXT
http://gazouch.net/allabout/

ヨロバウト
http://reafin.net/

オラバウト跡地
http://www.genie.x0.com/alabout/closed.phtml

MFCのログイン時Cookie

新しい構文上の機能を有効にするプラグマ（perl)

use featureってやつだな
sayとか便利


参考リンク
http://perldoc.jp/docs/modules/feature-1.11/feature.pod

HTTP::Liteモジュール

Net::HTTPより簡単なHTTPモジュールあったよー
＼(^O^)／

参考リンク
http://perldoc.jp/docs/modules/HTTP-Lite-2.1.4/HTTP/Lite.pod

perlで良く使うモジュールNet::HTTP

ここでメモっておく

use Net::HTTP;
my $s = Net::HTTP->new(Host => "www.perl.com") || die $@;
$s->write_request(GET => "/", 'User-Agent' => "Mozilla/5.0");
my($code, $mess, %h) = $s->read_response_headers;

while (1) {
my $buf;
my $n = $s->read_entity_body($buf, 1024);
die "read failed: $!" unless defined $n;
last unless $n;
print $buf;
}

CPANリンク
http://search.cpan.org/~gaas/libwww-perl-5.825/lib/Net/HTTP.pm

Cookieを編集できるFirefoxアドオン

https://addons.mozilla.org/ja/firefox/addon/573

flvをサーバー側で再生する

JW FLV MEDIA PLAYERというのがおすすめ


↓みたいなウィザード形式でコードも出してくれる親切設計
http://www.longtailvideo.com/support/jw-player-setup-wizard?example=1

コンソールの設定をする setterm

前回も話したけどその続き、
前回までの課題はログインしないとsettermを実行できないこと
実行前にsettermするにはDebianだと"/etc/console-tools/config"を修正する

BALNK_TIME=N (N:0-60: 放置してから画面を暗転させるまでの分数)
BLANK_DPMS=on (画面の省電力モードをサスペンドモードにセット *1)
POWERDOWN_TIME=N (N:0-60: 暗転してからモニタの電源を切るまでの分数)
(*1 BLANK_DPMS=powerdown とした場合サスペンドモードを経由せずBLANK_TIMEで設定した時間でモニタの電源断)

だそうです。





参考リンク
http://blogs.yahoo.co.jp/debilman01/860916.html

smbmountの話

Debianだとそのものずばりのコマンド名のパッケージはないので
smbfsをインストールする
http://www.millionwaves.com/200604140613.html

そんで適当にマウント
smbmount //192.168.0.2/ボリューム\ \(D\)/bakup /mnt/ -o guest

guestを指定してやればパスワードのプロンプトが出ない


http://www9.samba.gr.jp/project/translation/3.0/htmldocs/smbmount.8.html

パスワードがあってプロンプトを出さない方法は↓
ユーザー名が smb
パスワードが hoge
なら
smb%hoge
あるいは
username=smb,password=hoge

http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=21439&forum=10&2

perlのモジュール・・・名前空間の話

ちょっとウヤムヤにしておいたけどここで理解しておこう
まあつまり
use Module::hoge (LIST)
ってやってLISTにインポートしたい関数を書いておきなさいというわけですな


参考リンク
http://adiary.blog.abk.nu/0148
http://d.hatena.ne.jp/perlcodesample/20090205/1232879205
http://perldoc.jp/docs/perl/5.10.0/perlmod.pod