Hatena::ブログ(Diary)

satoru.netの自由帳 このページをアンテナに追加 RSSフィード

100501Satday 知ってそうで知らなかった色々メモ

[][]LWP::SimpleのUserAgent変更する方法

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偽装しないと取得できないよーな時に便利

090217Tueday

[][]perlで星座取得するDate::Horoscope

perlで星座を取得する。

Date::Horoscopeを使う。

英語表記の星座名、もしくは1月のみずがめ座から始まる配列番号を返してくれる。

占い系のコンテンツを作ったりする時に使う。

 ソース

use Date::Horoscope;

## 誕生日
my $date='1969-05-11';

## 星座名で取得(英語表記)
my $seiza_key = Date::Horoscope::locate($date);
## (aquarius)と表示。9月のてんびん座の意味。

## 星座の配列番号取得
my $seiza_num = $Date::Horoscope::horoscope{Date::Horoscope::locate($date)}->{position},$/;
## 7が返り値。-1をすると配列順でアクセスできる。

©satoru.net
Mail Twitter