Top > Perlあれこれ > Excel仕様のCSVファイルの読み込みと表示

Everything is expanded.Everything is shortened.
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 
 
 
 
 
 
 
 
-
|
|
|
|
-
|
!
|
!
 
use strict;
use Text::CSV_XS;
use IO::File;
 
my $csv = Text::CSV_XS->new({binary => 1});
my $fh = IO::File->new("c:\\okinawa.csv", 'r') or die;
 
my $i=1;
while (not $fh->eof) {
    my $row = $csv->getline($fh);
 
    print "Row : $i \n";
    my @fields = @$row;
    foreach my $field (@fields) {
        print "$field\n";
    }
    $i++;
}

リロード   新規 編集 凍結解除 差分 添付 複製 名前変更   ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS
Last-modified: 2012-08-08 (水) 23:25:24 (2925d)