comparison lib/csv.pm @ 14:625fa968d99a draft

Master branch Updating - - Fxx

13:3587cb923890

    my $self = shift ;
    my ( $csv, $file_name, $rows ) = @_ ;
    
    my $fh = undef ;
    $csv->eol ("\n"); ##  end-of-line string to add to rows
	$csv->quote_char(undef) ;
    open $fh, ">:encoding(utf8)", "$file_name" or die "$file_name: $!";
    
	my $status = $csv->print ($fh, $_) for @{$rows};
	close $fh or die "$file_name: $!";
    
    return(\$file_name) ;
}
## END of SUB

14:625fa968d99a

    my $self = shift ;
    my ( $csv, $file_name, $rows ) = @_ ;
    
    my $fh = undef ;
    $csv->eol ("\n"); ##  end-of-line string to add to rows
#	$csv->quote_char(undef) ;
    open $fh, ">:encoding(utf8)", "$file_name" or die "$file_name: $!";
    
	my $status = $csv->print ($fh, $_) for @{$rows};
	close $fh or die "$file_name: $!";
    
    return(\$file_name) ;
}
## END of SUB


=head2 METHOD write_csv_from_hash

	## Description : write a csv file from simple hash with headers
	## Input : $csv, $file_name, $headers, $arrayofhash
	## Output : $csv_file
	## Usage : my ( $csv_file ) = write_csv_from_arrays( $csv, $file_name, $headers, $arrayofhash ) ;
	
=cut
## START of SUB
sub write_csv_from_array_of_hash {
	## Retrieve Values
    my $self = shift ;
    my ( $csv, $file_name, $headers, $hash ) = @_ ;
    
    my $fh = undef ;
    $csv->eol ("\n"); ##  end-of-line string to add to rows
	$csv->quote_char(undef) ;
    open $fh, ">:encoding(utf8)", "$file_name" or die "$file_name: $!";
    
    if (defined $headers) {
    	for my $field (@$headers) {	print $fh join('\t', $field), "\n"; } ;
    }
		
	for my $row (keys %{$hash}) {
		print $fh join('\t', map { $_, $row->{$_} } sort keys %$row), "\n";
	}
	
	close $fh or die "$file_name: $!";
    
    return(\$file_name) ;
}
## END of SUB