{"id":5405,"date":"2014-06-15T21:08:43","date_gmt":"2014-06-15T12:08:43","guid":{"rendered":"http:\/\/www.achiachi.net\/nikki\/?p=5405"},"modified":"2016-06-14T09:05:56","modified_gmt":"2016-06-14T00:05:56","slug":"perl-%e6%97%a5%e4%bb%98%e3%81%ae%e3%83%95%e3%82%a9%e3%83%bc%e3%83%9e%e3%83%83%e3%83%88%e5%87%ba%e5%8a%9b","status":"publish","type":"post","link":"https:\/\/www.achiachi.net\/nikki\/perl-%e6%97%a5%e4%bb%98%e3%81%ae%e3%83%95%e3%82%a9%e3%83%bc%e3%83%9e%e3%83%83%e3%83%88%e5%87%ba%e5%8a%9b.html","title":{"rendered":"Perl \u65e5\u4ed8\u306e\u30d5\u30a9\u30fc\u30de\u30c3\u30c8\u51fa\u529b"},"content":{"rendered":"<p>\u3000\u5148\u65e5\u3001\u65e5\u4ed8\u95a2\u9023\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u4f5c\u3063\u305f\u3064\u3044\u3067\u306b\u65e5\u4ed8\u3092\u826f\u304f\u4f7f\u3044\u305d\u3046\u306a\u5f62\u5f0f\u3092\u9023\u60f3\u914d\u5217\u306b\u5b9a\u578b\u51fa\u529b\u3059\u308b\u30b9\u30d7\u30ea\u30af\u30c8\u3092\u8003\u3048\u3066\u307f\u307e\u3057\u305f\u3002<br \/>\n<!--more--><\/p>\n<hr \/>\n<pre>\r\nsub timeformat{\r\n  my $t=$_[0];\r\n  my $diff=$_[1];\r\n\r\n  #\u30a8\u30e9\u30fc\u51e6\u7406\r\n  if($t eq \"\"){$t=0;}\r\n  if($diff eq \"\"){$diff=0;}\r\n  if($t !~ \/^[+-]?[0-9]+$\/){return();}\r\n  if($diff !~ \/^[+-]?[0-9]+$\/){return();}\r\n  if($diff<-86399){return();}\r\n  if($diff>86399){return();}\r\n\r\n  #\u897f\u66a60\u5e740\u67080\u65e500:00:00\u4ee5\u524d\u306f\u51e6\u7406\u3057\u306a\u3044\r\n  if( ($t+$diff) < -62167219200){return();}\r\n  #\u897f\u66a69999\u5e7412\u670831\u65e523:59:59 \u4ee5\u524d\u306f\u51e6\u7406\u3057\u306a\u3044\r\n  if( ($t+$diff) > 253402300799){return();}\r\n  my %output;\r\n\r\n  my @weeks = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');\r\n  my @weeks2 = ('Sunday','Monday','Tuesday','Wednesday',\r\n  'Thursday','Friday','Saturday');\r\n  my @weeksj = ('\u65e5','\u6708','\u706b','\u6c34','\u6728','\u91d1','\u571f');\r\n  my @months= ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug',\r\n  'Sep','Oct','Nov','Dec');\r\n  my @months2= ('January','February','March','April','May','June',\r\n  'July','August','September','October','November','December');\r\n\r\n  my($sec,$min,$hour,$day,$mon,$year,$week,$yday,$summer) = gmtime($t+$diff);\r\n  $year += 1900;\r\n  if($year>9999){return();}  #\u897f\u66a69999\u5e74\u4ee5\u4e0a\u306f\u51fa\u529b\u3057\u306a\u3044\r\n  $year2=$year-int($year\/100)*100;  #2\u6841\u306e\u897f\u66a6\r\n  $mon += 1;\r\n\r\n  $output{t0}=$_[0];        #\u5f15\u6570\u305d\u306e\u307e\u307e\r\n  $output{t1}=$_[1];        #\u5f15\u6570\u305d\u306e\u307e\u307e\r\n  $output{y}=$year;        #\u5e74\u306e\u51e6\u7406\r\n  $output{yyyy}=$year;\r\n  $output{yy}=sprintf(\"%02d\", $year2);\r\n  $output{m}=$mon;         #\u6708\u306e\u51e6\u7406\r\n  $output{mm}=sprintf(\"%02d\", $mon);\r\n  $output{M}=$months[$mon-1]; \r\n  $output{MM}=$months2[$mon-1]; \r\n  $output{d}=$day;         #\u65e5\u306e\u51e6\u7406\r\n  $output{dd}=sprintf(\"%02d\", $day);\r\n  $output{h}=$hour;        #\u6642\u9593\u306e\u51e6\u7406\r\n  $output{hh}=sprintf(\"%02d\", $hour);\r\n  if($hour<12){\r\n    $output{a}=\"am\";\r\n    $output{A}=\"AM\";\r\n    $output{aa}=\"a.m.\";\r\n    $output{aj}=\"\u5348\u524d\";\r\n    $output{H}=$hour;\r\n    $output{HH}=sprintf(\"%02d\", $hour);\r\n  }else{\r\n    $output{a}=\"pm\";\r\n    $output{A}=\"PM\";\r\n    $output{aa}=\"p.m.\";\r\n    $output{aj}=\"\u5348\u5f8c\";\r\n    $output{H}=$hour-12;\r\n    $output{HH}=sprintf(\"%02d\", $hour-12);\r\n  }\r\n  $output{n}=$min;         #\u5206\u306e\u51e6\u7406\r\n  $output{nn}=sprintf(\"%02d\", $min);\r\n  $output{s}=$sec;         #\u79d2\u306e\u51e6\u7406\r\n  $output{ss}=sprintf(\"%02d\", $sec);\r\n  $output{w}=$weeks[$week];#\u9031\u306e\u51e6\u7406\r\n  $output{ww}=$weeks2[$week]; \r\n  $output{wj}=$weeksj[$week]; \r\n\r\n  #\u548c\u66a6\u306e\u51e6\u7406\r\n  if( $t >=600188400){  #1989\u5e741\u67088\u65e5\u4ee5\u964d\u306f\u5e73\u6210\r\n    $output{g}=\"H\";\r\n    $output{gg}=\"\u5e73\";\r\n    $output{ggg}=\"\u5e73\u6210\";\r\n    $output{e}=$year-1988;\r\n    $output{ee}=sprintf(\"%02d\", $year-1988);\r\n  }elsif($t >= -1357635600){ #1926\u5e7412\u670825\u65e5\u4ee5\u964d\u306f\u662d\u548c\r\n    $output{g}=\"S\";\r\n    $output{gg}=\"\u662d\";\r\n    $output{ggg}=\"\u662d\u548c\";\r\n    $output{e}=$year-1925;\r\n    $output{ee}=sprintf(\"%02d\", $year-1925);\r\n  }elsif($t >= -1812186000){ #1912\u5e747\u670830\u65e5\u4ee5\u964d\u306f\u5927\u6b63\r\n    $output{g}=\"T\";\r\n    $output{gg}=\"\u5927\";\r\n    $output{ggg}=\"\u5927\u6b63\";\r\n    $output{e}=$year-1911;\r\n    $output{ee}=sprintf(\"%02d\", $year-1911);\r\n  }elsif($t >= -3216790800){ #1868\u5e741\u670825\u65e5\u4ee5\u964d\u306f\u660e\u6cbb\r\n    $output{g}=\"M\";\r\n    $output{gg}=\"\u660e\";\r\n    $output{ggg}=\"\u660e\u6cbb\";\r\n    $output{e}=$year-1867;  \r\n    $output{ee}=sprintf(\"%02d\", $year-1867);\r\n  }\r\n\r\n  #\u4e00\u62ec\u8a2d\u5b9a\r\n  $output{\"yyyy\/mm\/dd\"}=\"$output{yyyy}\/$output{mm}\/$output{dd}\";\r\n  $output{\"yy\/mm\/dd\"}=\"$output{yy}\/$output{mm}\/$output{dd}\";\r\n  $output{\"mm\/dd\"}=\"$output{yyyy}\/$output{mm}\/$output{dd}\";\r\n  $output{\"yyyy-mm-dd\"}=\"$output{yyyy}-$output{mm}-$output{dd}\";\r\n  $output{\"yy-mm-dd\"}=\"$output{yy}-$output{mm}-$output{dd}\";\r\n\r\n  $output{\"hh:nn:ss\"}=\"$output{hh}:$output{nn}:$output{ss}\";\r\n  $output{\"hh:nn\"}=\"$output{hh}:$output{nn}\";\r\n\r\n  return(%output);\r\n}\r\n<\/pre>\n<hr \/>\n<p><strong>\u4f7f\u3044\u65b9<\/strong><br \/>\n\u3000&#038;timeformat(time\u5024,\u6642\u5dee);<br \/>\n\u3000\u3067\u4e0e\u3048\u3089\u308c\u305f\u6642\u9593\u3068\u6642\u5dee\u304b\u3089\u5e74\/\u6708\/\u65e5\/\u6642\/\u5206\/\u79d2\/\u66dc\/\u65e5\/\u548c\u66a6\u306a\u3069\u9023\u60f3\u914d\u5217\u578b\u3067\u51fa\u529b\u3057\u307e\u3059\u3002<br \/>\n\u3000\u30fbtime\u5024\u306ftime()\u95a2\u6570\u306e\u6570\u5024<br \/>\n\u3000\u30fb\u6642\u5dee\u79d2\u3067\u5165\u529b\u3001\u65e5\u672c\u306e\u5834\u5408UTC+9\u6642\u9593\u306a\u306e\u306732400\u3068\u5165\u529b<br \/>\n\u3000\u6b63\u3057\u304f\u306a\u3044\u6642\u9593\u3084\u4e0b\u8a18\u306e\u5236\u9650\u3092\u8d85\u3048\u308b\u6570\u5024\u3092\u5165\u529b\u3057\u305f\u5834\u5408\u3001\u7a7a\u5024\u3092\u8fd4\u3057\u307e\u3059\u3002<br \/>\n\u3000\u5236\u9650\u4e8b\u9805\u3068\u3057\u3066\u897f\u66a60\u5e741\u67081\u65e500:00:00\u304b\u30899999\u5e7412\u670831\u65e523:59:59\u307e\u3067\u3057\u304b\u6271\u3048\u306a\u3044\u305f\u3081\u3001time\u5024\u3068\u6642\u5dee\u306e\u5408\u8a08\u304c<br \/>\n\u300c-62167219200~253402300799\u300d\u306e\u7bc4\u56f2\u306b\u3042\u308b\u4e8b\u3002<\/p>\n<p>\u9023\u60f3\u914d\u5217\u540d\u3068\u306e\u5bfe\u5fdc\u8868<br \/>\nt0 = \u5f15\u6570\u306e1\u3064\u3081time\u5024\u3068\u540c\u3058<br \/>\nt1 = \u5f15\u6570\u306e2\u3064\u3081\u6642\u5dee\u3068\u540c\u3058<br \/>\ny = \u897f\u66a64\u6841(2001)<br \/>\nyyyy = \u540c\u4e0a<br \/>\nyy = \u897f\u66a62\u6841(01)<br \/>\nm = \u6708 (1~12)<br \/>\nmm = \u6708 2\u6841(01~12)<br \/>\nM = \u6708\u82f1\u8a9e\u77ed\u7e2e(Jan\/Feb\/\uff5e)<br \/>\nMM = \u6708\u82f1\u8a9e(January\/February\/~)<br \/>\nd = \u65e5 (1~31)<br \/>\nd = \u65e5 2\u6841(01~31)<br \/>\nh = \u6642 (1~23)<br \/>\nhh = \u6642 2\u6841(01~23)<br \/>\nH = \u6642\u9593 12\u6642\u9593\u5236 (1~12)<br \/>\nHH = \u6642\u9593 12\u6642\u9593\u52362\u6841 (01~12)<br \/>\na = (am\/pm)<br \/>\nA = (AM\/PM)<br \/>\naa = (a.m.\/p.m.)<br \/>\naj = (\u5348\u524d\/\u5348\u5f8c)<br \/>\nn = \u5206 (1~59)<br \/>\nnn = \u5206 2\u6841\u8868\u8a18(01~59)<br \/>\ns = \u79d2 (1~59)<br \/>\nss = \u79d2 2\u6841\u8868\u8a18(01~59)<br \/>\nw =\u66dc\u65e5\u82f1\u8a9e\u77ed\u7e2e (Sun\/Mon\/~)<br \/>\nww =\u66dc\u65e5\u82f1\u8a9e (Sunday\/Monday\/~)<br \/>\nwj =\u66dc\u65e5\u65e5\u672c\u8a9e (\u65e5\/\u6708\/~)<\/p>\n<p>\u548c\u66a6<br \/>\ng = (H\/S\/T\/M)<br \/>\ngg = (\u5e73\/\u662d\/\u5927\/\u660e)<br \/>\nggg = (\u5e73\u6210\/\u662d\u548c\/\u5927\u6b63\/\u660e\u6cbb)<br \/>\ne = \u5143\u53f7 (1~)<br \/>\nee = \u5143\u53f72\u6841\u8868\u8a18 (01~)<\/p>\n<p>\u305d\u306e\u4ed6\u3001\u3088\u304f\u4f7f\u3044\u305d\u3046\u306a\u7269\u3092\u30d7\u30ea\u30bb\u30c3\u30c8\u3057\u3066\u3042\u308a\u307e\u3059\u3002<br \/>\nyyyy\/mm\/dd<br \/>\nyy\/mm\/dd<br \/>\nmm\/dd<br \/>\nyyyy-mm-dd<br \/>\nyy-mm-dd<br \/>\nhh:nn:ss<br \/>\nhh:nn<\/p>\n<hr \/>\n<p><strong>\u4f7f\u7528\u4f8b<\/strong><\/p>\n<pre>\r\n\u3000my $t=time();\r\n  my %ft=&timeformat($t,32400);\r\n  print $ft{\"yyyy\"}.\"\/\".$ft{\"m\"}\"\/\".$ft{\"d\"};\r\n  print $ft{\"aj\"}.$ft{\"HH\"}.\":\".$ft{\"nn\"}\"\/\".$ft{\"ss\"};\r\n  print $ft{\"ggg\"}.$ft{\"ee\"}.\"\u5e74\";\r\n<\/pre>\n<p>\u3068\u3059\u308c\u3070<br \/>\n\u300c2000\/1\/1\u300d<br \/>\n\u300c\u5348\u5f8c13:01:05\u300d<br \/>\n\u300c\u5e73\u621012\u5e74\u300d<br \/>\n\u3068\u8868\u793a\u3055\u308c\u307e\u3059\u3002<\/p>\n<hr \/>\n<p><strong>\u30e1\u30e2<\/strong><br \/>\n\u6ce8\u610f<br \/>\n\u30fb\u5206\u306fmin\u306e\u982d\u6587\u5b57\u306em\u3067\u306f\u7121\u304f\u300cn\u300d\u306a\u306e\u3067\u6ce8\u610f\u3057\u3066\u4e0b\u3055\u3044\u3002<br \/>\n\u3000\uff08m\u306f\u6708\u3067\u4f7f\u7528\u3055\u308c\u3066\u3044\u308b\u305f\u3081\uff09<br \/>\n\u30fb\u548c\u66a6\u306f\u6642\u5dee32400\u4ee5\u5916\u3067\u4f7f\u7528\u3057\u305f\u5834\u5408\u6b63\u3057\u304f\u306a\u3044\u7b54\u3048\u304c\u51fa\u308b\u53ef\u80fd\u6027\u304c\u3042\u308a\u307e\u3059\u3002<br \/>\n\u30fb\u548c\u66a6\u306f\u660e\u6cbb\u304b\u3089\u5e73\u6210\u307e\u3067\u3057\u304b\u5bfe\u5fdc\u3057\u3066\u3044\u307e\u305b\u3093\u3002<br \/>\n\u30fb\u5143\u53f7\u306e1\u5e74\u76ee\u3092\u5143\u5e74\u3068\u547c\u3076\u306e\u304c\u4e00\u822c\u7684\u3067\u3059\u304c\u30011\u5e74\u3068\u8868\u793a\u3055\u308c\u307e\u3059\u3002<\/p>\n<p>\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u5148\u982d\u3067local\u5ba3\u8a00\u3057\u305f\u5909\u6570\u306b\u4ee3\u5165\u3057\u3066\u304a\u3051\u3070\u3001\u6700\u5f8c\u307e\u3067\u69d8\u3005\u306a\u66f8\u5f0f\u3092\u4f7f\u7528\u3059\u308b\u4e8b\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u3000\u5148\u65e5\u3001\u65e5\u4ed8\u95a2\u9023\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u4f5c\u3063\u305f\u3064\u3044\u3067\u306b\u65e5\u4ed8\u3092\u826f\u304f\u4f7f\u3044\u305d\u3046\u306a\u5f62\u5f0f\u3092\u9023\u60f3\u914d\u5217\u306b\u5b9a\u578b\u51fa\u529b\u3059\u308b\u30b9\u30d7\u30ea\u30af\u30c8\u3092\u8003\u3048\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[84],"tags":[92],"class_list":["post-5405","post","type-post","status-publish","format-standard","hentry","category-84","tag-perl"],"_links":{"self":[{"href":"https:\/\/www.achiachi.net\/nikki\/wp-json\/wp\/v2\/posts\/5405","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.achiachi.net\/nikki\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.achiachi.net\/nikki\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.achiachi.net\/nikki\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.achiachi.net\/nikki\/wp-json\/wp\/v2\/comments?post=5405"}],"version-history":[{"count":7,"href":"https:\/\/www.achiachi.net\/nikki\/wp-json\/wp\/v2\/posts\/5405\/revisions"}],"predecessor-version":[{"id":5414,"href":"https:\/\/www.achiachi.net\/nikki\/wp-json\/wp\/v2\/posts\/5405\/revisions\/5414"}],"wp:attachment":[{"href":"https:\/\/www.achiachi.net\/nikki\/wp-json\/wp\/v2\/media?parent=5405"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.achiachi.net\/nikki\/wp-json\/wp\/v2\/categories?post=5405"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.achiachi.net\/nikki\/wp-json\/wp\/v2\/tags?post=5405"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}