Csv-Inhalt in eine neue CSV-Datei einfügen


#1
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.
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.