Revision f8afe881
Von Tamino Steinert vor etwa 1 Jahr hinzugefügt
| scripts/import_variant_csv.pl | ||
|---|---|---|
|
use List::Util qw(first);
|
||
|
use List::MoreUtils qw(any);
|
||
|
use File::Basename;
|
||
|
use Encode;
|
||
|
|
||
|
use SL::DBUtils;
|
||
|
use SL::LXDebug;
|
||
| ... | ... | |
|
|
||
|
# create farben listen
|
||
|
foreach my $farb_csv_file (glob( $opt_farben_folder . '/*' )) {
|
||
|
$farb_csv_file = Encode::decode('utf-8', $farb_csv_file);
|
||
|
my $farb_csv = SL::Helper::Csv->new(
|
||
|
file => $farb_csv_file,
|
||
|
encoding => 'utf-8', # undef means utf8
|
||
Auch abrufbar als: Unified diff
kuw: FIX: CSV-Import-Script: UTF-8 für Dateinamen beachten