LWPとHTTP::Requestを使う use strict; use warnings; use LWP; use Data::Dumper; my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(HEAD => 'http://www.care-service.jp'); my $header = $ua->request($req); #print Dumper $header; print $…

perldoc -l で目的のモジュールのパスを探し出した後、そこに移動していろいろと作業したい場合がある。 その時にcdしないといけないけどそれをいちいち打ち込むのが面倒だ。TABで補完したりもするけれど面倒。 一発で移動したいので試しにスクリプトを書い…

コマンドラインからWEBアクセスをしたい。Basic認証のかかったページのデータを取得したいという時のサンプル use strict; use warnings; use HTTP::Request::Common; use LWP::UserAgent; my $name = "YOURNAME"; my $pass = "YOURPASS"; my $ua = LWP::Use…

はてなでブログ更新をして、googleのブログサーチにいつ反映されるのかをチェックする。すぐかな？

CentOSで試す。「/root/clamscan.exclude」ファイルを設置して「/sys/」と「/proc/」を一行ずつで書き加える。 cron.dailyのスクリプトに、除外する箇所を読み込むロジックが書いてあるので、その通りに実行してみました。