{"id":3603,"date":"2013-08-03T21:43:57","date_gmt":"2013-08-03T12:43:57","guid":{"rendered":"http:\/\/www.achiachi.net\/nikki\/?p=3603"},"modified":"2015-02-25T08:56:17","modified_gmt":"2015-02-24T23:56:17","slug":"perl%ef%bc%9acsv%e9%96%a2%e9%80%a3%e3%83%ab%e3%83%bc%e3%83%81%e3%83%b3%e3%81%ae%e3%82%b5%e3%83%b3%e3%83%97%e3%83%ab%e3%83%97%e3%83%ad%e3%82%b0%e3%83%a9%e3%83%a0","status":"publish","type":"post","link":"https:\/\/www.achiachi.net\/nikki\/perl%ef%bc%9acsv%e9%96%a2%e9%80%a3%e3%83%ab%e3%83%bc%e3%83%81%e3%83%b3%e3%81%ae%e3%82%b5%e3%83%b3%e3%83%97%e3%83%ab%e3%83%97%e3%83%ad%e3%82%b0%e3%83%a9%e3%83%a0.html","title":{"rendered":"Perl\uff1aCSV\u95a2\u9023\u30eb\u30fc\u30c1\u30f3\u306e\u30b5\u30f3\u30d7\u30eb\u30d7\u30ed\u30b0\u30e9\u30e0"},"content":{"rendered":"

\u3000\u3053\u306e\uff13\u65e5\u3067\u4f5c\u3063\u305f\u4e0b\u8a18\u306eCSV\u95a2\u9023\u30eb\u30fc\u30c1\u30f3\u3067\u7c21\u5358\u306a\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u4f5c\u3063\u3066\u307f\u305f\u3002
\n\u30fbcsv_load\u30fb\u30fb\u30fbCSV\u30d5\u30a1\u30a4\u30eb\u304b\u3089\u914d\u5217\u5909\u6570@csv_line\u306b\u8aad\u307f\u8fbc\u3080
\n\u30fbcsv_save\u30fb\u30fb\u30fbCSV\u30d5\u30a1\u30a4\u30eb\u306b@csv_line\u306e\u5185\u5bb9\u3092\u66f8\u304d\u8fbc\u3080
\n\u30fbcsv_sort\u30fb\u30fb\u30fb\u6307\u5b9a\u306e\u5217\u3067@csv_line\u3092\u4e26\u3073\u66ff\u3048\u308b<\/p>\n


\n\u203b\u30d7\u30ed\u30b0\u30e9\u30e0\u521d\u5fc3\u8005\u306e\u305f\u3081\u3001\u3053\u306e\u30da\u30fc\u30b8\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u30bd\u30fc\u30b9\u306f\u6b63\u5e38\u306b\u52d5\u4f5c\u3057\u306a\u3044\u4e8b\u304c\u3042\u308a\u307e\u3059\u3054\u6ce8\u610f\u4e0b\u3055\u3044\u3002
\n \uff08\u3042\u3063\u3061\u3053\u3063\u3061\u306e\u30b5\u30a4\u30c8\u306e\u60c5\u5831\u3092\u5bc4\u305b\u96c6\u3081\u3066\u308b\u306e\u3067\u601d\u308f\u306c\u4e0d\u5177\u5408\u304c\u3042\u308b\u304b\u3082\uff09<\/p>\n

\u8ffd\u52a0\u306e\u30b5\u30d6\u30eb\u30fc\u30c1\u30f3<\/strong>
\n\u3000\u30b5\u30f3\u30d7\u30eb\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u524d\u306b\u3001CSV\u30d5\u30a1\u30a4\u30eb\u3067\u306f\u533a\u5207\u308a\u6587\u5b57\u306e\u300c,\u300d\u3068\u300c\u6539\u884c\u300d\u3092\u30c7\u30fc\u30bf\u3068\u3057\u6271\u3048\u306a\u3044\u306e\u3067\u6271\u3048\u308b\u3088\u3046\u306b\u3059\u308b\u30b5\u30d6\u30eb\u30fc\u30c1\u30f3\u3092\u4f5c\u3063\u3066\u307f\u307e\u3057\u305f\u3002
\n\u3000\u51e6\u7406\u7684\u306b\u306f\u4f7f\u7528\u983b\u5ea6\u306e\u4f4e\u3044\u3068\u601d\u308f\u308c\u308b\u6587\u5b57\u300c^\u300d\u3092\u30b7\u30b9\u30c6\u30e0\u6587\u5b57\u3068\u3057\u3066\u3001\u300c^=^0\u300d\u300c\u6539\u884c=^1\u300d\u300c,=^2\u300d\u306e\u3088\u3046\u306b\u30d5\u30a1\u30a4\u30eb\u3084@csv_line\u4e2d\u3067\u306f\u53f3\u8fba\u3001\u8868\u793a\u3059\u308b\u969b\u306f\u5de6\u8fba\u3068\u3044\u3046\u3088\u3046\u306b\u5909\u63db\u51e6\u7406\u3092\u304b\u3051\u3066\u3044\u307e\u3059\u3002
\n\u30fb&csv_format_load(\u5909\u63db\u6587\u5b57\u5217)\u30fb\u30fb\u8868\u793a\u5f62\u5f0f\u300c^0\u2192^\u300d\u306b\u5909\u63db\u3057\u307e\u3059\u3002
\n\u30fb&csv_format_save(\u5909\u63db\u6587\u5b57\u5217)\u30fb\u30fb\u4fdd\u5b58\u5f62\u5f0f\u300c^\u2192^0\u300d\u306b\u5909\u63db\u3057\u307e\u3059\u3002<\/p>\n

\u3000\u4e0a\u8a18\u306f\u5358\u4e00\u306e\u6587\u5b57\u5217\u3060\u3051\u306b\u4f5c\u7528\u3059\u308b\u305f\u3081@csv_line\u3092\u4e00\u62ec\u3067\u51e6\u7406\u3067\u304d\u308b\u3088\u3046\u306b\u4e0b\u8a18\u306e\uff12\u3064\u3082\u4f5c\u308a\u307e\u3057\u305f\u3002
\n\u30fbcsv_split(\u884c\u30c7\u30fc\u30bf)\u30fb\u30fb\u884c\u30c7\u30fc\u30bf\u3092\u300c,\u300d\u3054\u3068\u5206\u89e3\u3057\u3066\u300c^0\u2192^\u300d\u51e6\u7406\u3092\u3057\u3066\u914d\u5217\u5909\u6570\u3092\u51fa\u529b\u3057\u307e\u3059\u3002
\n\u30fbcsv_join(\u914d\u5217\u5909\u6570)\u30fb\u30fb\u4e0a\u3067\u51fa\u529b\u3057\u305f\u914d\u5217\u5909\u6570\u3092\u300c^\u2192^0\u300d\u3057\u3066\u3001\u300c,\u300d\u533a\u5207\u308a\u306e\u884c\u30c7\u30fc\u30bf\u306b\u623b\u3057\u307e\u3059\u3002<\/p>\n

<\/p>\n

\r\n#-------------------------------------------------\r\n# CSV\u5f62\u5f0f\u3067\u4f7f\u3048\u306a\u3044\u300c,\u300d\u3068\u300c\u6539\u884c\u300d\u3092\u30c7\u30b3\u30fc\u30c9(\u5143\u306b\u623b\u3059\u300c^0\u2192^\u300d)\r\n#-------------------------------------------------\r\nsub csv_format_load{\r\n\tmy($r)=$_[0];\r\n\t$r =~ s\/\\^2\/,\/g;\r\n\t$r =~ s\/\\^1\/\\n\/g;\r\n\t$r =~ s\/\\^0\/\\^\/g;\r\n\treturn($r);\r\n}\r\n#-------------------------------------------------\r\n# CSV\u5f62\u5f0f\u3067\u4f7f\u3048\u306a\u3044\u300c,\u300d\u3068\u300c\u6539\u884c\u300d\u3092\u30a8\u30f3\u30b3\u30fc\u30c9(\u5909\u63db\u3059\u308b\u300c^\u2192^0\u300d)\r\n#-------------------------------------------------\r\nsub csv_format_save{\r\n\tmy($r)=$_[0];\r\n\t$r =~ s\/\\^\/\\^0\/g;\r\n\t$r =~ s\/\\x0D\\x0A\/\\^1\/g;\r\n\t$r =~ s\/\\x0D\/\\^1\/g;\r\n\t$r =~ s\/\\x0A\/\\^1\/g;\r\n\t$r =~ s\/,\/\\^2\/g;\r\n\treturn($r);\r\n}\r\n#-------------------------------------------------\r\n# CSV\u5f62\u5f0f\u306e\u884c\u30c7\u30fc\u30bf\u3092\u30c7\u30b3\u30fc\u30c9+split\u3057\u3066\u3001\u9023\u60f3\u914d\u5217\u3092\u8fd4\u3059\r\n#-------------------------------------------------\r\nsub csv_split{\r\n\tmy($u)=$_[0];\r\n\tmy(@s)=split(\/,\/,$u);\r\n\tmy($i);\r\n\tif ($u =~ \/\\^\/){\r\n\t\tfor ($i = 0; $i <= $#s; $i++){\r\n\t\t\t$s[$i]=&csv_format_load($s[$i]);\r\n\t\t}\r\n\t}\r\n\treturn(@s);\r\n}\r\n#-------------------------------------------------\r\n# CSV\u5f62\u5f0f\u306e\u30bb\u30eb\u30c7\u30fc\u30bf\u3092\u30a8\u30f3\u30b3\u30fc\u30c9+join\u3057\u3066\u3001\u6587\u5b57\u5217\u3092\u8fd4\u3059\r\n#-------------------------------------------------\r\nsub csv_join{\r\n\tmy(@s)=@_;\r\n\tmy($r,$i);\r\n\tfor ($i = 0; $i <= $#s; $i++){\r\n\t\t$s[$i]=&csv_format_save($s[$i]);\r\n\t}\r\n\t$r=join(\",\",@s);\r\n\treturn($r);\r\n}\r\n#-------------------------------------------------\r\n<\/pre>\n
<\/code><\/p>\n
\n
\u30b5\u30f3\u30d7\u30eb\u30d7\u30ed\u30b0\u30e9\u30e0<\/strong>
\n\u30fb\u3069\u3093\u306a\u52d5\u304d\u3092\u3057\u3066\u3044\u308b\u304b\u81ea\u5206\u3067\u78ba\u8a8d\u3059\u308b\u305f\u3081\u306b\u4f5c\u3063\u305f\u306e\u3067\u3001\u308f\u304b\u308a\u306b\u304f\u304f\u3066\u7533\u3057\u8a33\u3042\u308a\u307e\u305b\u3093\u3002<\/p>\n
\u52d5\u4f5c\u6982\u8981<\/strong>
\n\u30fbCSV\u5f62\u5f0f\u306e\u300ctest.csv\u300d\u304b\u3089\u30c7\u30fc\u30bf\u3092\u8aad\u307f\u8fbc\u307f\u3001\u4f55\u304b\u51e6\u7406\u3092\u884c\u3063\u305f\u4e0a\u3067\u300ctest2.csv\u300d\u306b\u4fdd\u5b58\u3057\u3001\u518d\u5ea6\u300ctest2.csv\u300d\u3092\u958b\u304d\u4fdd\u5b58\u3067\u304d\u3066\u3044\u308b\u304b\u78ba\u8a8d\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u3059\u3002
\n\u30fb\u30d7\u30ed\u30b0\u30e9\u30e0\u306f\u30d6\u30e9\u30a6\u30b6\u306bHTML\u5f62\u5f0f\u3067\u51fa\u529b\u3057\u307e\u3059\u3002
\n\u30fb4\u3064\u306e\u51e6\u7406\u3092\u884c\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n
\u6ce8\u610f\u70b9<\/strong>
\n\u30fb\u7279\u306b\u96e3\u3057\u3044\u4e8b\u306f\u3057\u3066\u306a\u3044\u306e\u3067\u30d1\u30fc\u30df\u30c3\u30b7\u30e7\u30f3\u306e\u8a2d\u5b9a\u306a\u3069\u306f\u666e\u901a\u3067\u52d5\u304f\u306f\u305a\u3067\u3059\u3001\u884c\u982d\u306ePerl\u306e\u30d1\u30b9\u306f\u5404\u81ea\u74b0\u5883\u306b\u3042\u308f\u305b\u3066\u66f8\u304d\u63db\u3048\u304c\u5fc5\u8981\u3067\u3059\u3002<\/p>\n
<\/p>\n
\r\n#!\/usr\/local\/bin\/perl\r\n#\u4e0a\u306f\u5404\u81ea\u306e\u74b0\u5883\u306b\u3042\u308f\u305b\u308b\u4e8b\r\nlocal($csv_line);\r\nmy($html,$i,$j,@csv);\r\n\r\n$html.=\"<h1>CSV\u95a2\u9023\u306e\u30b5\u30f3\u30d7\u30eb\u30d7\u30ed\u30b0\u30e9\u30e01<\/h1>\";\r\n$html.=\"<a href=\\\"?m=1\\\">test.csv\u3092\u8aad\u307f\u8fbc\u30fb\u4f55\u3082\u305b\u305a\u30fb\u4fdd\u5b58\u3059\u308b<\/a><br \/>\";\r\n$html.=\"<a href=\\\"?m=2\\\">\u6570\u5b57\u964d\u9806\u3067\u4e26\u3073\u66ff\u3048\u3066\u4fdd\u5b58\u3059\u308b<\/a><br \/>\";\r\n$html.=\"<a href=\\\"?m=3\\\">\u3075\u308a\u304c\u306a\u6607\u9806\u3067\u4e26\u3073\u66ff\u3048\u3066\u4fdd\u5b58\u3059\u308b<\/a><br \/>\";\r\n$html.=\"<a href=\\\"?m=4\\\">\u3075\u308a\u304c\u306a\u964d\u9806\u3067\u4e26\u3073\u66ff\u3048\u3066\u4fdd\u5b58\u3059\u308b<\/a><br \/>\";\r\n$html.=\"<a href=\\\"?m=5\\\">\u4e00\u90e8\u66f8\u304d\u63db\u3048\u3066\u4fdd\u5b58\u3059\u308b<\/a><br \/>\";\r\n\r\n\r\n#- - - - - - - - - - \u8aad\u307f\u8fbc\u307f - - - - - - - - - -\r\n$html.=\"<hr \/>\u30d5\u30a1\u30a4\u30eb\u304b\u3089\u8aad\u307f\u8fbc\u3093\u3060\u5185\u5bb9<br \/>\";\r\n&csv_load(\"test.csv\");\r\nfor ($i = 0; $i <= $#csv_line; $i++){\r\n\t@csv=&csv_split($csv_line[$i]);\r\n\t$csv[4] =~ s\/\\n\/ \u6539\u884c \/g;\t\t#\u6539\u884c\u306e\u53ef\u8996\u5316\r\n\t$html.=\"$csv[0] | $csv[1] | $csv[2] | $csv[3] | $csv[4] <br \/>\";\r\n}\r\n\r\n#- - - - - - - - - - \u51e6\u7406\u306e\u5206\u5c90 - - - - - - - - - -\r\nif ($ENV{'QUERY_STRING'} eq \"m=2\"){\r\n\t$html.=\"<hr \/>\u51e6\u7406\uff1a\u6570\u5b57\u964d\u9806\u3067\u30bd\u30fc\u30c8 &csv_sort(\\\"9\\\",0);<br \/>\";\r\n\t&csv_sort(\"9\",0);\r\n}elsif ($ENV{'QUERY_STRING'} eq \"m=3\"){\r\n\t$html.=\"<hr \/>\u51e6\u7406\uff1a\u3075\u308a\u304c\u306a\u6607\u9806\u3067\u30bd\u30fc\u30c8 &csv_sort(\\\"a\\\",2);<br \/>\";\r\n\t&csv_sort(\"a\",2);\r\n}elsif ($ENV{'QUERY_STRING'} eq \"m=4\"){\r\n\t$html.=\"<hr \/>\u51e6\u7406\uff1a\u3075\u308a\u304c\u306a\u964d\u9806\u3067\u30bd\u30fc\u30c8 &csv_sort(\\\"z\\\",2);<br \/>\";\r\n\t&csv_sort(\"z\",2);\r\n}elsif ($ENV{'QUERY_STRING'} eq \"m=5\"){\r\n\t$html.=\"<hr \/>\u51e6\u7406\uff1a\u4f0a\u85e4\u4e09\u592a\u306e\u884c\u3092\u5909\u66f4\u3057\u3066\u4fdd\u5b58;<br \/>\";\r\n\t@csv=&csv_split($csv_line[3]);\r\n\t$csv[1]=\"\u4f0a\u85e4\u4e09\u592a\u90ce\";\r\n\t$csv[2]=\"\u3044\u3068\u3046\u3055\u3093\u305f\u308d\u3046\";\r\n\t$csv[4]=\"\u8a18\u53f7\u306e\u30c6\u30b9\u30c8\\n,^\u3067\u3059\";\t\r\n\t$csv_line[3]=&csv_join(@csv);\r\n\t#csv_split\u5f8c\u306f\u8a18\u53f7\u306a\u3069\u666e\u901a\u306b\u4f7f\u7528\u3067\u304d\u3001csv_join\u3067\u884c\u30c7\u30fc\u30bf\u306b\u623b\u305b\u308b\u3002\r\n}else{\r\n\t$html.=\"<hr \/>\u51e6\u7406\uff1a\u306a\u306b\u3082\u3057\u306a\u3044<br \/>\";\r\n}\r\n\r\n#- - - - - - - - - - \u51e6\u7406\u306e\u78ba\u8a8d - - - - - - - - - -\r\nfor ($i = 0; $i <= $#csv_line; $i++){\r\n\t@csv=&csv_split($csv_line[$i]);\r\n\t$csv[4] =~ s\/\\n\/ \u6539\u884c \/g;\t\t#\u6539\u884c\u306e\u53ef\u8996\u5316\r\n\t$html.=\"$csv[0] | $csv[1] | $csv[2] | $csv[3] | $csv[4] <br \/>\";\r\n}\r\n\r\n\r\n#- - - - - - - - - - \u66f8\u304d\u8fbc\u307f - - - - - - - - - -\r\n&csv_save(\"test2.csv\");\r\n\r\n\r\n#- - - - - - - - - - \u66f8\u304d\u8fbc\u307f\u306e\u78ba\u8a8d - - - - - - - - - -\r\n&csv_load(\"test2.csv\");\r\n$html.=\"
\u4fdd\u5b58\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u306e\u5185\u5bb9\u306e\u78ba\u8a8d
\";\r\nfor ($i = 0; $i <= $#csv_line; $i++){\r\n\t@csv=&csv_split($csv_line[$i]);\r\n\t$csv[4] =~ s\/\\n\/ \u6539\u884c \/g;\t\t#\u6539\u884c\u306e\u53ef\u8996\u5316\r\n\t$html.=\"$csv[0] | $csv[1] | $csv[2] | $csv[3] | $csv[4] <br \/>\";\r\n}\r\n\r\n#- - - - - - - - - - \u7d50\u679c\u8868\u793a - - - - - - - - - -\r\nprint \"Content-type: text\/html\\n\";\r\nprint \"\\n\\n\";\r\nprint \"<html>\";\r\nprint \"<head><meta http-equiv=\\\"Content-Type\\\" content=\\\"text\/html; charset=utf-8\\\"><\/head>\";\r\nprint \"<body>$html<\/body>\";\r\nprint  \"<\/html>\";\r\n\r\nexit;\r\n\r\n#\u4ee5\u4e0b\u306b \u4eca\u56de\u306e csv_format_load \/ csv_format_save \/ csv_split \/csv_join \u3068\r\n# \u524d\u56de\u3068\u524d\u3005\u56de\u306e csv_load \/ csv_save \/ csv_sort \u306e\u30eb\u30fc\u30c1\u30f3\u3092\u8ffd\u52a0\u3059\u308b\u4e8b\r\n<\/pre>\n
<\/code><\/p>\n
\u4e0b\u8a18\u306ftest.csv\u3068\u3057\u3066\u4fdd\u5b58\u3057\u3066\u4e0b\u3055\u3044\u3002\uff08\u6587\u672b\u306e\u6539\u884c\u3042\u3063\u3066\u3082\u7121\u304f\u3066\u3082\u554f\u984c\u3042\u308a\u307e\u305b\u3093\u3002\uff09
\n<\/p>\n
\r\n1,\u5c71\u7530\u592a\u90ce,\u3084\u307e\u3060\u305f\u308d\u3046,\u7537,\u8a18\u53f7\u300c^0\u300d\r\n2,\u9234\u6728\u4e00\u7f8e,\u3059\u305a\u304d\u304b\u305a\u307f,\u5973,\u8a18\u53f7\u300c^1\u300d\r\n3,\u5c71\u7530\u82b1\u5b50,\u3084\u307e\u3060\u306f\u306a\u3053,\u5973,\u8a18\u53f7\u300c^2\u300d\r\n4,\u4f0a\u85e4\u4e09\u592a,\u3044\u3068\u3046\u3055\u3093\u305f,\u7537,\u8a18\u53f7\u300c^0\u300d\u300c^1\u300d\u300c^2\u300d\r\n5,\u7530\u4e2d\u6d69\u4e8c,\u305f\u306a\u304b\u3053\u3046\u3058,\u7537,\u8a18\u53f7\u300c^0^0^1^1^2^2\u300d\r\n<\/pre>\n
<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"
\u3000\u3053\u306e\uff13\u65e5\u3067\u4f5c\u3063\u305f\u4e0b\u8a18\u306eCSV\u95a2\u9023\u30eb\u30fc\u30c1\u30f3\u3067\u7c21\u5358\u306a\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u4f5c\u3063\u3066\u307f\u305f\u3002 \u30fbcsv_load\u30fb\u30fb\u30fbCSV\u30d5\u30a1\u30a4\u30eb\u304b\u3089\u914d\u5217\u5909\u6570@csv_line\u306b\u8aad\u307f\u8fbc\u3080 \u30fbcsv_save\u30fb\u30fb\u30fbCSV\u30d5\u30a1\u30a4\u30eb\u306b@csv_line\u306e\u5185\u5bb9 […]<\/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":[93,94,92],"class_list":["post-3603","post","type-post","status-publish","format-standard","hentry","category-84","tag-cgi","tag-csv","tag-perl"],"_links":{"self":[{"href":"https:\/\/www.achiachi.net\/nikki\/wp-json\/wp\/v2\/posts\/3603","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=3603"}],"version-history":[{"count":3,"href":"https:\/\/www.achiachi.net\/nikki\/wp-json\/wp\/v2\/posts\/3603\/revisions"}],"predecessor-version":[{"id":3605,"href":"https:\/\/www.achiachi.net\/nikki\/wp-json\/wp\/v2\/posts\/3603\/revisions\/3605"}],"wp:attachment":[{"href":"https:\/\/www.achiachi.net\/nikki\/wp-json\/wp\/v2\/media?parent=3603"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.achiachi.net\/nikki\/wp-json\/wp\/v2\/categories?post=3603"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.achiachi.net\/nikki\/wp-json\/wp\/v2\/tags?post=3603"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}