Perlコーディング初心者質問スレ Part 57at PHPPerlコーディング初心者質問スレ Part 57 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト250:nobodyさん 08/03/28 15:57:20 なるほど。 s{\d\d(\d\d)/0?(\d+)/0?(\d+)[^ ]+ 0?(\d+):(\d+):\d+}{$1/$2/$3 $4:$5}; 251:nobodyさん 08/03/28 16:45:45 my @splitdata = $orgdate =~ /(\d{1,2})+/g; my $datetime = sprintf("%02d/%d/%d %d:%d:%d", @splitdata); 252:nobodyさん 08/03/28 16:49:23 間違えた my @splitdata = $orgdate =~ /(\d{1,2})+/g; my $datetime = sprintf("%02d/%d/%d %d:%d", @splitdata); print $datetime; 253:nobodyさん 08/03/28 16:59:35 2008/03/28(金) 09:30:08から08/3/28(Fri) 9:30にするにはどうする？ 254:nobodyさん 08/03/28 17:35:24 >>247-252 もはや、知らない奴が見たら暗号でしかないなw 255:nobodyさん 08/03/28 19:09:17 javascriptのプログラムをPerlに移植しようとしていて、複合代入演算子の挙動が違うのでとまどっています。 例えばjavascriptで var c=1;alert(c=c+(c*=10)+(c*=100)); は1011 Perlで my $c=1;print($c=$c+($c*=10)+($c*=100)); は1020 になります。 そこで、この問題について載っているサイトがあれば教えてください。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch