Perlコーディング初心 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
640:nobodyさん 08/06/02 12:49:16 >>639 timelocal 641:nobodyさん 08/06/02 12:57:39 >>640 ありがとうございました！ 642:nobodyさん 08/06/02 13:51:21 こんな感じで出来たのですが凄く格好悪いです。 $mon = 1 if $mon eq 'Jan';とか。 スマートな例があったら参考の為に見せてください。 sub last_modified { my $time = shift; my($day, $mon, $year, $hour, $min, $sec); if ($time =~ /\w+, (\d+) (\w+) (\d+) (\d+):(\d+):(\d+) GMT/) { ($day, $mon, $year, $hour, $min, $sec) = ($1, $2, $3, $4, $5, $6); $mon = 1 if $mon eq 'Jan'; $mon = 2 if $mon eq 'Feb'; $mon = 3 if $mon eq 'Mar'; $mon = 4 if $mon eq 'Apr'; $mon = 5 if $mon eq 'May'; $mon = 6 if $mon eq 'Jun'; $mon = 7 if $mon eq 'Jul'; $mon = 8 if $mon eq 'Aug'; $mon = 9 if $mon eq 'Sep'; $mon = 10 if $mon eq 'Oct'; $mon = 11 if $mon eq 'Nov'; $mon = 12 if $mon eq 'Dec'; } else { die "Error: $time\n"; } $time = timelocal($sec,$min,$hour,$day,$mon-1,$year); return $time; }

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4961日前に更新/211 KB
担当:undef