spiritlooseã®ã¯ã¦ãªãƒ€ã‚¤ã‚¢ãƒªãƒ¼ - Perlã§ã‚»ãƒ«å†…改行ã¤ãã®CSVファイルを処ç†ã™ã‚‹æ–¹æ³•Perlã§Excelã¨ã‹ã§ä½œã£ãŸã‚»ãƒ«å†…改行(複数行ã«ã‚ãŸã‚‹ãƒ¬ã‚³ãƒ¼ãƒ‰)ã¤ãCSVファイルを処ç†ã™ã‚‹æ–¹æ³•ã€‚ æ„外ã¨çŸ¥ã‚‰ãªã„人ãŒã„ãŸã®ã§ã€‚ Text::CSV_XS を使ã£ã¦ã€‚ #!/usr/local/bin/perl use strict; use warnings; use IO::File; use Text::CSV_XS; my $fh = IO::File->new('test.csv') or die 'cannot open file'; my $csv = Text::CSV_XS->new({binary => 1}); until ($fh->eof) { my $columns = $csv->getline($fh); # $columns->[0] } $fh->close; syntax highlight by VimColor binary オプションãŒå¿…è¦ã€‚
{{#tags}}- {{label}}
{{/tags}}