Perl and CSVCSV å½¢å¼ã®æ–‡å—列をé…列ã«åˆ†å‰²ã™ã‚‹ ã‚€ã‹ã—日経MIXã® awk 会è°å®¤ã§ã€CSV å½¢å¼ã®æ–‡å—列をé…列ã«åˆ†å‰²ã™ã‚‹ã‚¹ã‚¯ãƒªãƒ—トãŒè°è«–ã•ã‚Œã¦ã„ãŸã€‚ ãれを perl ã§æ›¸ãã¨ã€æ¬¡ã®ã‚ˆã†ãªã‚‚ã®ã ã£ãŸã€‚ sub splitcsv { local($csvstr) = @_; $csvstr .= ','; $csvstr =~ s/("([^"]|"")*"|[^,]*),/$1$;/g; $csvstr =~ s/"([^$;]*)"$;/$1$;/g; $csvstr =~ s/""/"/g; return split(/$;/, $csvstr); } ã¡ã‚‡ã£ã¨è¤‡é›‘ã§ã‚ã‹ã‚Šã«ãã„ãŒã€ $; ã¨ã„ㆠperl ã®ç‰¹æ®Šå¤‰æ•°ã‚’使ã£ã¦ã„ã‚‹ã“ã¨ã«æ³¨ç›®ã™ã‚‹ã¨ã‚ˆã„。 ã“ã‚Œã¯ã€ã€Œå¤šæ¬¡å…ƒé…列ã®ã‚¨ãƒŸãƒ¥ãƒ¬ãƒ¼ã‚·ãƒ§ãƒ³ã«ç”¨ã„ã‚‹æ·»ãˆå—セパレータã€[ウォールã»ã‹ 1997 (1996): 150] ã§ã‚る。 フィールドã®åŒºåˆ‡
http://ja.doukaku.org/77/nested/
テã‚スト処ç†ã®ãŠæ‰‹ä¼ã„
{{#tags}}- {{label}}
{{/tags}}