Perl

apacheのhtpasswdをperlで生成してみた

なんとなく思いついて作ってみた。 perl -e 'sub s{chr((46..57,65..90,97..122)[int(rand(64))]);};print crypt($ARGV[0],&s.&s);' (パスワード)もっと短くならんかな、これ。

LWPでCan't locate HTML/HeadParser.pm が出た

PerlでHTTP送信しなきゃいけないのでLWPを使ってたら Can't locate HTML/HeadParser.pm in @INCとか言われたのでこんな感じで回避。 my $ua = LWP::UserAgent->new(); $ua->parse_head(0); $ua->request($req);parse_head を 0 にしてやればいい。

コマンド1発でファイル内の文章を置換

rubyやPHPのドキュメントをダウンロードして、LAN内のWebサーバに設置して使っているのだがfaviconの設定がない。 タブブラウザだとfaviconが表示されている/いないで見易さが違うので一括置換した。favicon.icoは各自用意するとして、 # cd (展開したディレ…