| ³ØŸÀÌ :: csv_file. ´Â ¹è¿ÀÇ ¹è¿¿¡ csv ÆÄÀÏÀ» ¹½À´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
³ØŸÀÌ :: csv_file. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Janek Schleicher
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~bigj/
³ØŸÀÌ :: csv_file. ű×
³ØŸÀÌ :: csv_file. ¼³¸í
¹è¿ÀÇ ¹è¿¿¡ csv ÆÄÀÏÀ» ¹½À´Ï´Ù. TIE :: CSV_FILEÀº Á¤±Ô CSV ÆÄÀÏÀ» ¹è¿ ¹è¿·Î ³ªÅ¸³»´Â PERL ¸ðµâÀÔ´Ï´Ù. ù ¹ø° Ä¡¼ö´Â ¿ø·¡ ÆÄÀÏÀÇ LINE-NRÀ» ³ªÅ¸³»¸ç µÎ ¹ø° Â÷¿øÀº COL-NRÀ» ³ªÅ¸³À´Ï´Ù. µÎ À妽º°¡ ¸ðµÎ 0À¸·Î ½ÃÀÛÇÕ´Ï´Ù. ÀÏ¹Ý ¹è¿ °ª, ¿¹¸¦ µé¾î ¾×¼¼½º ÇÒ ¼ö ÀÖ½À´Ï´Ù. $ data ¸¶Áö¸· ÁÙÀÇ ¸¶Áö¸· ÇʵåÀÇ ½ºÅÄµå ¶Ç´Â @ {$ data }Àº µÎ ¹ø° ÁÙÀÇ ¿À» ³ªÅ¸³À´Ï´Ù. Synopsis Tie :: CSV_File; ³» @data, '³ØŸÀÌ :: csv_file', 'xyz.dat'À» ¹¾î ¶ó. "3 ¹ø° ÁÙ¿¡"µ¥ÀÌÅ͸¦ ÀμâÇϽʽÿÀ : ", $ data ; @data; # ¶Ç´Â Å×À̺í Çü½Ä ¶Ç´Â °ø¹é ¶Ç´Â (¹Ý) ÄÝ·Ð ºÐ¸® ÆÄÀÏ ³ØŸÀÌ ³» @Data, 'tie :: csv_file', 'xyz.dat', tab_separated; # ¶Ç´Â ´ë½Å colon_separaved, semicolon_separated, pipe_separated, # ¶Ç´Â ½ÉÁö¾î whiteSpace_separated # ¶Ç´Â @Data, 'tie :: csv_file', 'xyz.dat', sep_char => ', sep_re => qr / \ s * \ | \ s * /, quote_char => undef, eol => undef, # default compine_char => undef, always_quote => 0; # ±âº» $ µ¥ÀÌÅÍ = 4; $ data = "¸¶Áö¸· ÁÙÀÇ ¸¶Áö¸· ¿"; $ µ¥ÀÌÅÍ = ; Ǫ½Ã @Data, ; Ǫ½Ã @Data, ; my @headings = @ {shift @data}; # ù ¹ø° ÁÙÀÌ @last_row = @ @last_row = @ @data} Á¦°ÅµË´Ï´Ù. # ¸¶Áö¸· ÁÙ @Data = , , ]À» Á¦°ÅÇÕ´Ï´Ù. # ±âº» ¸Å°³ º¯¼ö°¡ÀÖ´Â # ´ÙÀ½ CSV ÆÄÀÏÀÌ »ý¼ºµË´Ï´Ù. # 1,2,3 # 4,5,6 # 7,8,9 ¿ä±¸ »çÇ× : ¡¤ Perl.
³ØŸÀÌ :: csv_file. °ü·Ã ¼ÒÇÁÆ®¿þ¾î