use LWP::Simple; $LWP::Simple::ua->agent("unko"); ## LWP::Simple::get()のUAが"unko"になる get("http://satoru.net/unko/");$LWP::Simple::uaがnew UserAgent()としてIMPORT OKになってるらしいのでイジイジ可能っていう設計みたい UA偽装しないと取得…

perlで星座を取得する。 Date::Horoscopeを使う。 英語表記の星座名、もしくは１月のみずがめ座から始まる配列番号を返してくれる。 占い系のコンテンツを作ったりする時に使う。 ソース use Date::Horoscope; ## 誕生日 my $date='1969-05-11'; ## 星座名で…