- 1 名前：nobodyさん mailto:sage [2008/02/25(月) 19:25:51 ID:???]
- Perlのコーディングで困ってる人のスレです。
【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
お勧めサイトは >2 以降
前スレ pc11.2ch.net/test/read.cgi/php/1189939783/
過去ログ倉庫 ttp://user.ftth100.com/mirrorhenkan/perl/
- 247 名前：nobodyさん mailto:sage [2008/03/28(金) 15:36:13 ID:???]
- use strict;
my $orgdate = '2008/03/28(金) 09:30:08';
my @splitdata = $orgdate =~ /(\d{2})+/g;
printf("%02d/%02d/%02d %02d:%02d:%02d", @splitdata);
- 248 名前：nobodyさん mailto:sage [2008/03/28(金) 15:46:09 ID:???]
- s{\d\d(\d\d/\d+/\d+)[^ ]+( \d+:\d+):\d+}{$1$2};
- 249 名前：nobodyさん mailto:sage [2008/03/28(金) 15:48:45 ID:???]
- 指定がないけど %02d/%d/%d %d:%02d を期待されてそうな気がする
- 250 名前：nobodyさん mailto:sage [2008/03/28(金) 15:57:20 ID:???]
- なるほど。
s{\d\d(\d\d)/0?(\d+)/0?(\d+)[^ ]+ 0?(\d+):(\d+):\d+}{$1/$2/$3 $4:$5};
- 251 名前：nobodyさん mailto:sage [2008/03/28(金) 16:45:45 ID:???]
- my @splitdata = $orgdate =~ /(\d{1,2})+/g;
my $datetime = sprintf("%02d/%d/%d %d:%d:%d", @splitdata);
- 252 名前：nobodyさん mailto:sage [2008/03/28(金) 16:49:23 ID:???]
- 間違えた
my @splitdata = $orgdate =~ /(\d{1,2})+/g;
my $datetime = sprintf("%02d/%d/%d %d:%d", @splitdata);
print $datetime;
|
 |
