ぱいぱいにっき

Pythonが好きすぎるけれど、今からPerlを好きになりますにっき

PerlでとりあえずGitHubのOAuth Token取ってくる

どうも。

GitHubAPIでごにょごにょするにはOAuthを突破しないといけないんですけれど、非WebApplicationもしくは管理者のトークンでやれるサービスをやれる範囲であれば一回取ったらOKなので、てけとーにtoken取ってくるヤツ作ってみた。

とまあ、Config::Pitにトークン保存しているわけですがユーザ名とパスワードを入力させるためだけにConfig::Pitを使う(しかもその後すぐ消えるはず)のは悪手かなと思いましたが自分用なのでとりあえずこれでいいやという感じでございます。