rubyにはIPアドレスのライブラリがあった

使わないと気付かんなぁ。。

require 'ipaddr'
32桁のunsigned intを変換するのに使える。
使う時出てくるんだろうか。。

IPAddr.new(int32, Socket::AF_INET).to_s
とすると、
unsinged intから"*.*.*.*"になる。

元々は知らなくてこう書いてた。
int32 == 0 ? "0.0.0.0" : int32.to_s(2).scan(/.{1,8}/).map{|v| v.to_i(2)}.join(".")

勉強になりました。

コメント

コメントを投稿

このブログの人気の投稿

GAEでOAuthというかTwitter認証してみた。

イメージ
結構てこずりましたが、Google App Engine for Pythonで OAuth認証というかTwitter認証をしてみました。 Softbankの夏モデル携帯でTwitterが機能の一つとして入っているものが発表され、 これからTwitterの人口はどんどん増えるはずなので、 OpenIDみたいな統合認証のようにOAuthを使えたらなぁという思いでコーディングしてみました。 元ネタは サンプルコードで分かるGAE＆Twitter API開発 。 その節はお世話になりました。 oauth.py, simple_cookie.pyなどは上記のリンク先から取得してください。 verify後にリロードするとバグっていたので、self.redirect('/')で直しました。 #!/usr/bin/env python # -*- coding:utf-8 -*- __author__ = "Hironori Watanabe" import time import datetime import logging import os import oauth import wsgiref.handlers from google.appengine.ext import webapp from google.appengine.ext.webapp import util from google.appengine.ext.webapp import template from simple_cookie import Cookies from google.appengine.ext import db _DEBUG = True INDEX_TEMPLATE_NAME = 'index.html' LOGIN_TEMPLATE_NAME = 'login.html' HOME_TEMPLATE_NAME = 'home.html' # twitterのconsumer_keyとconsumer_secret_keyを指定 CONSUMER_KEY = "xxxxx自分のコンシューマキーを入れてねxxxxx" CONSUM...
続きを読む

perlのMIME::Liteならメール送信はすぐ書ける。その２

メール送信のモジュールMIME::Liteを利用してそういえばこんなの作りました。のコード。 PHPMailerと比較してPerlは結構コーディングが楽だと感じました。 #!/usr/bin/perl # # $Id: perlmailer.pl 35560 2010-05-29 01:08:30Z watanabefg $ # use strict; use warnings; use Encode; use utf8; use MIME::Lite; use File::Basename; my $mail_from = $ENV{'MAIL_FROM'}; my $mail_to = $ENV{'MAIL_TO'}; my $mail_subject = decode('shiftjis', $ENV{'MAIL_SUBJECT'}); my $mail_body = decode('shiftjis', $ENV{'MAIL_BODY'}); my @mail_attach = (); my $message = MIME::Lite->new( From => $mail_from, To => $mail_to, Subject => encode('MIME-Header-ISO_2022_JP', $mail_subject), Type => 'multipart/mixed', ); # メール本文 $message->attach( Type => 'text/plain; charset="ISO-2022-JP"', Data => encode('ISO-2022-JP', $mail_body), ); # 添付ファイルを取得 if ($ENV{'MAIL_ATTACH'} ne ""){ @mail_attach = split(/\,/, $ENV{'MAIL_ATTACH'}); } if ($#m...
続きを読む

PerlのMIME::Liteならメール送信はすぐ書ける。その１

今日はPerlで、メール送信するスクリプトを書いてました。 かなり前になりますが、JCode.pmを使って ISO-2022-JPにエンコーディングしてたんですが、 今となってはuse Encode;でいけるようになってるんですね。 機種依存文字も使わず、メール本文も決まっているため、 それほど関係はなかったのですが少し参考にさせてもらいました。 Perlで日本語を送信 こっちはドンピシャな記事でした。 メールを送るなど ちょっとカスタマイズした部分を追記。 Cシェルの中身を抜粋。 setenv MAIL_ATTACH filename1,filename2,filename3 perl ./perlmailer.pl  perlmailer.plをうろ覚えで記載。(間違ってたらごめんなさい。) @mail_attach = split(/\,/,$ENV{"MAIL_ATTACH"}); foreach $attach_file ( @mail_attach ) {     # 添付ファイルの処理 } 何がやりたいかというと、ある条件でgrepしたログファイルを添付して、 デイリーの夜間バッチでメール送信したかったのです。 そのため、添付ファイルはいくつでもつけれるように、 ファイル名をカンマ区切りでつなげてシェルからperlmailer.plをキックしてみました。 バッチの場合は大体環境変数に持っていくと、可読性もメンテナンス性も上がり、 プログラムがうまく書ける気がします。 ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 何かぼんやりと勉強会をしたいなぁと思っています。 ネタ募集中です。 関西で開催する予定ですので、関西の方はお楽しみに！ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
続きを読む