2012-10-03 16:33:58 みたいに出力する perl my ($S,$M,$H,$d,$m,$Y,$x) = localtime(); my $date = sprintf( "%04d-%02d-%02d %02d:%02d:%02d", $Y+1900,$m+1,$d,$H,$M,$S ); print "$date\n"; use POSIX qw(strftime); $date = strftime( "%Y-%m-%d %H:%M:…

人に説明する用 main(){ int a; char b[256]={}; int result; result = sscanf( " 123px", "%d%[%a-zA-Z]", &a, b ); printf( "result=%d, a=%d, b=%s", result, a, b ); return 0; } result=2, a=123, b=px