Commits

Palmer, 2E0EOL  committed e3792fe Draft

Name the columns

  • Participants
  • Parent commits f9605c2

Comments (0)

Files changed (1)

 	 or die "Cannot use CSV: ".Text::CSV->error_diag ();
 
 open my $fh, "<:encoding(utf8)", $file or die "$file $!";
+$csv->column_names('hostname', 'package', 'version');
 while ( my $row = $csv->getline( $fh ) ) {
-	my $colref = $csv->getline($fh);
+	my $colref = $csv->getline_hr($fh);
 	warn Dumper $colref;
 }
 $csv->eof or $csv->error_diag();