Hallo zusammen,
ich habe eine CSV-Datei-, dessem Inhalt ich in eine andere CSV-Datei übergeben möchte.
Die Csv-Datei beinhalt 6 Felder, davon möchte nur 3 felder in die andere CSV-datei übergeben. Leider weiss ich nicht wie ich das realisieren soll.
Vielen Dank für jede Hilfe.
ich habe eine CSV-Datei-, dessem Inhalt ich in eine andere CSV-Datei übergeben möchte.
Die Csv-Datei beinhalt 6 Felder, davon möchte nur 3 felder in die andere CSV-datei übergeben. Leider weiss ich nicht wie ich das realisieren soll.
Code:
use warnings;
use strict;
use Text::CSV_XS;
my $file_in = 'ausgang.csv';
my $file_out = 'eingang';
my $csv = Text::CSV_XS->new( { binary => 1 } ) or die "Cannot use CSV: ".Text::CSV->error_diag();
open my $fh_in, '<:encoding(utf8)', $file_in or die $!;
open my $fh_out, '>:encoding(utf8)', $file_out or die $!;
my @felder = ( 'Name', 'Vorname', 'Mobiltelefon');
$csv->print( $fh_out, \@felder );
}
Vielen Dank für jede Hilfe.