#!perl use strict; use warnings; use utf8; use FindBin qw/$Bin/; use Data::Dumper qw/Dumper/; use Text::CSV; use DBI; use SQL::Abstract; my $dbh = DBI->connect('DBI:mysql:ling:127.0.0.1;mysql_enable_utf8=1', 'test', 'test'); die DBI::errstr() unless $dbh; my $file = 'source.csv'; my $csv = Text::CSV->new ({ sep_char => ';', empty_is_undef => 1, binary => 1, }) or die "Cannot use CSV: ".Text::CSV->error_diag (); open my $fh, "<:encoding(utf8)", $file or die "$file: $!"; while ( my $row = $csv->getline( $fh ) ) { # Absetzen des Import-Statements für 1 Zeile hier } $csv->eof or $csv->error_diag(); close $fh; exit(0);