Code-Hex/csv.pl

## csv.pl
#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use feature qw/say/;
use Text::CSV;
my $csvfile = 'hello.csv';

my $csv = Text::CSV->new({ binary => 1 }) or die "Cannot use CSV: ".Text::CSV->error_diag();
open my $fh, '<', $csvfile or die "Could not open $csvfile: $!";
my $i = 0;
$csv->column_names ($csv->getline($fh));
while (my $row = $csv->getline_hr($fh)) {
    say join ', ', ($row->{name}, $row->{age}, $row->{hobby});
}
$csv->eof;
close $fh;

## hello.csv

          
            name
            age
            hobby

            
              kei
              22
              perl

            
              taro
              20
              soccer

            
              hanako
              20
              eating

            
              foo
              38
              bar
	#!/usr/bin/env perl

	use strict;
	use warnings;
	use utf8;
	use feature qw/say/;
	use Text::CSV;
	my $csvfile = 'hello.csv';

	my $csv = Text::CSV->new({ binary => 1 }) or die "Cannot use CSV: ".Text::CSV->error_diag();
	open my $fh, '<', $csvfile or die "Could not open $csvfile: $!";
	my $i = 0;
	$csv->column_names ($csv->getline($fh));
	while (my $row = $csv->getline_hr($fh)) {
	say join ', ', ($row->{name}, $row->{age}, $row->{hobby});
	}
	$csv->eof;
	close $fh;