肥満専門外来で、2万人の患者を痩せさせた臨床心理士が伝授する、誰でも必ず成功するダイエットのヒント。著者の豊富な実例を挙げながら、食べ過ぎてしまう理由とその解決法を紹介します。「もったいない」「誘いを断れない」「イライラすると食べてしまう」「デザートは別腹」……など、あなたにもあてまはる原因がきっとあるはず!
足元から膝までを温める!コンパクトだからデスク下におけます。コンパクトで良さげ。
●頭寒足熱で、勉強や仕事の効率アップ
●1)机の下にすっぽり
●2)オフィスに良く合うニューデザイン
#!/usr/bin/env perl use strict; use warnings; use LWP::Simple; use URI::Escape; use utf8; use open ':utf8'; binmode STDIN, ":utf8"; binmode STDOUT, ":utf8"; my $appid = "THISISAPEN"; while (<>) { chomp; my @r = word_to_latlong({key => $_, appid => $appid}); print join("\t", @r, $_)."\n"; } sub word_to_latlong { my ($args_ref) = @_; my $key = $args_ref->{key}; my $ek = URI::Escape::uri_escape_utf8($key); my $murl = "http://contents.search.olp.yahooapis.jp/OpenLocalPlatform/V1/contentsGeoCoder" ."?appid=$args_ref->{appid}&query=$ek&category=landmark,address"; my $r = get($murl); my ($lat, $long, $name) = ("", "", ""); while ($r =~ m{<Feature>(.+?)</Feature>}gsm) { my $i = $1; my ($genre) = $i =~ m{<Genre>(.+?)</Genre>}; my ($name_tmp) = $i =~ m{<Name>(.+?)</Name>}; if ($genre == 80 # 住所の一部 or $key =~ /\Q$name_tmp\E/ or $name_tmp =~ /\Q$key\E/ ) { $name = $name_tmp; ($lat, $long) = $i =~ m{<Coordinates>(.+?),(.+?)</Coordinates>}; last; } } return ($lat, $long, $name); }
% cat word2latlong-test.txt 東京都渋谷区 東京都港区 神奈川県横浜市中区 神奈川県足柄上郡山北町 こんにちは 東京タワー 東京ミッドタウン タワー ミッドタウン % ./word2latlong.pl word2latlong-test.txt 139.69822020 35.66403830 東京都渋谷区 東京都渋谷区 139.75160740 35.65807070 東京都港区 東京都港区 139.64218630 35.44470240 神奈川県横浜市中区 神奈川県横浜市中区 139.08383880 35.36060800 神奈川県足柄上郡山北町 神奈川県足柄上郡山北町 こんにちは 139.7454106 35.6586309 東京タワー 東京タワー 139.7310060 35.6657215 東京ミッドタウン 東京ミッドタウン 139.7454106 35.6586309 東京タワー タワー 139.7310060 35.6657215 東京ミッドタウン ミッドタウン
http://map.olp.yahooapis.jp/OpenLocalPlatform/V1/static?appid=(YOUR_APP_ID)&pin=35.6657215,139.7310060