sprintfの戻り値
$ perl -e 'print sprintf "%d\n", 1;' 1 $ perl -e 'print sprintf "%d\n", 2;' 2 $ perl -e 'print sprintf "%d\n", 3;' 3 $ perl -e 'print sprintf "%d\n", 0;' 0 $ perl -e 'print sprintf "%d\n", "";' 0 $ perl -e 'print sprintf "%d\n", "1";' 1 $ perl -e 'print sprintf "%d\n", "a";' 0