Lately I've been thinking about the influence that a given (natural) language has over the way we communicate and think.
I speak English and Japanese, I'm a used-to-be-fluent in Portuguese, and now I know a bit of Dutch. Please note that I'm in no way a trained linguist. These are just some random observations from a polyglot, DO read this with a grain of salt.
Okay?
Okay. here goes.
というわけで1ヶ月ほど食事制限だけによるダイエットをしている。人生2度目のダイエット
ちょっと前に座っている時に何か服が小さい気がして、久しぶりに体重計にのってみたら「ひーーーー！」となったので一念発起してその日から食事の内容を見直した。
しばらくただ単純に量を減らしてたんだけど、数週間グラフと食事の記録を取って把握した結果、自分の体重は朝・昼の分量を調節するのが重要だと感じた。朝は基本的にご飯1膳、納豆、目玉焼きの繰り返し。昼は最初は迷ってたんだけど、最近はほぼ必ずおにぎり2個と炭酸水。夜は気持ち少なめ程度、野菜中心。週末は食べ過ぎにだけ気をつけてわりと好きに食べる。酒は通常飲んでてもあまり関係がない、というパターンが見えてきたのわりと普通に飲んでる。
特に「酒」と「週末はわりと緩く」というのはガス抜きという意味でも重要で、これがなかったら結構挫折の可能性が高いと思う。某バーには相変わらず出入りしている。酒くらい飲めなかったらこんなストレスのたまることできんわー。ちなみにそこのバーテンダーの皆様は俺が歯ぎしりしながらおつまみを何も頼まずに帰っているのを何回も見ている。これからもがんばる。
今のところ5キロちょい。7キロくらいでやっと体重3桁が2桁になる。挫折しないためにも公開しておいた。
このペースなら子供が生まれるまでには90kgくらいまで落とせるはず・・・ッ
を買ったわけです。
my @files = @ARGV;
foreach my $file (@files) {
# use Coro::Semaphore and what not to limit the number of
# simultaneous files being processed to < 5
... snip ...
async_pool {
while( my $line = <$fh> ) {
do_furl_stuff( $line );
}
};
}
my @files = glob( "data/*.txt" );
while ( @files ) {
my @args = splice @files, 0, 5;
system "realscript.pl", @args;
}
Which programming language you learn and use does not matter. Do not get sucked into the religion surrounding programing languages as that will only blind you to their true purpose of being your tool for doing interesting things.
return {
app_id => "XXX your app ID",
secret => "XXX your app secret"
};
use strict;
use Data::Dumper;
use Facebook::Graph;
use Plack::Request;
my $config = require "config.pl";
my $fb = Facebook::Graph->new(
app_id => $config->{app_id},
secret => $config->{secret},
postback => "http://localhost:5000/"
);
return sub {
my $env = shift;
my $req = Plack::Request->new($env);
if ( my $code = $req->param('code') ) {
warn "requesting access_token";
$fb->request_access_token( $code );
my $dump = Dumper({
%$config,
access_token => $fb->access_token
});
$dump =~ s/\$VAR = //;
open my $fh, '>', "config.pl" or
die;
print $fh $dump;
close $fh;
return [ 200, [], [ $fb->access_token ] ];
}
warn "redirect";
return [
302,
[
Location => $fb->authorize
->extend_permissions( "publish_stream" )
->uri_as_string
],
[]
];
}
use strict;
use Text::Xslate;
use JSON;
use Coro;
use Coro::Select;
use Furl::HTTP;
use Facebook::Graph;
use Data::Dumper::Concise;
my $config = require "config.pl";
my $fb = Facebook::Graph->new(
app_id => $config->{app_id},
secret => $config->{secret},
access_token => $config->{access_token},
);
my $data = $fb->query->find("me/friends")->request->as_hashref;
my $furl = Furl::HTTP->new;
my @coros;
foreach my $friend ( @{ $data->{data} } ) {
my $q = $fb->query->find( "$friend->{id}/feed" );
push @coros, async {
my (undef, $code, undef, undef, $body ) = $furl->get( $q->uri_as_string
);
return unless $code eq 200;
return decode_json $body;
} $q->uri_as_string;
}
my @spots;
foreach my $coro (@coros) {
my $feed = $coro->join;
next unless $feed;
foreach my $entry ( @{ $feed->{data} } ) {
if ( $entry->{caption} eq 'tou.ch' ) {
push @spots, $entry->{link};
}
}
}
my $xslate = Text::Xslate->new(
path => [ "." ],
syntax => 'TTerse',
);
print $xslate->render_string( <<'EOM', { spots => \@spots } );
<script type="text/javascript" src="jquery-1.5.2.min.js">
<script type="text/javascript">
var urls = [ [% FOREACH spot IN spots %]"[% spot %]"[% IF ! loop.last %],[% END %][% END %] ];
$(document).ready( function() {
var delay = 200;
var f = function() {
url = urls.pop();
url = url.replace( /\/$/, "" );
url = url.replace(/\/spot/, "/widget/spot");
var iframe = $('<iframe frameborder="0" scrolling="no" allowtransparency="ture" height="321" width="350" src="' + url + '?i=0&m=1&t=blue&width=350"></iframe>');
$("#container").append( iframe );
setInterval(f, delay);
};
f();
} );
</script>
<div id="container"></div>
EOM
