名前からIPアドレス。

メモ Perl

JEDでやれば、red01、とかだけでも大丈夫。
学校からw3mでmixiにメモしといたら、改行が消えてた。そういえば、はてなでもプレビュー経由すると改行が消えるんだっけか。

$ perl -e 'for( @ARGV ){( $name, undef, undef, undef, @addrs ) = gethostbyname $_; print $name, " : ", join( ".", unpack "C4", $addrs[0] ), "\n";}' www.google.co.jp www.google.com news.google.co.jp news.google.com google.co.jp google.com
www.l.google.com : 66.249.89.104
www.l.google.com : 66.249.89.104
news.l.google.com : 66.249.81.104
news.l.google.com : 66.249.81.104
google.co.jp : 216.239.39.104
google.com : 64.233.187.99

あれっ、'.l.'なんてのが入ってますよ。なにこれ。
これってもっといい方法がありそうな気がするんだけど。コマンドひとつでできそうな。