Select Code to Download

# CSV_PP ERROR: 2023 - EIQ - QUO character not allowed @ rec 4 pos 105
+ field 7

147;lakjfh lkjsfh ehjd;134-324-730 31;291;24.04.2020;15 000,00;severo-
+vostocnoe otdelenie № 8645 pao "sberbank rossii";4243972345;347
+636334;23452347344633423542;severo-vostocnoe otdelenie N8645 pao sber
+bank g. magadan;896868986;98375423895239529987;;96764128476876487264
148;lkjf fdkas fa;123-105-878 17;1;23.04.2020;15 000,00;severo-vostocn
+oe otdelenie № 8645 pao "sberbank rossii";4243972345;347636334;
+23452347344633423542;severo-vostocnoe otdelenie N8645 pao sberbank g.
+ magadan;896868986;98375423895239529987;;23236726352762456346
...
160;lkkljh kljhk kjh;123-650-136 21;20;20.04.2020;15 000,00;severo-vos
+tocnoe otdelenie № 8645 pao "sberbank rossii";4243972345;347636
+334;23452347344633423542;severo-vostocnoe otdelenie N8645 pao sberban
+k g. magadan;896868986;98375423895239529987;;23236726352762456346
161;sdgfd sgdsgdsg sdfgds;154-978-292 22;93;17.04.2020;15 000,00;sever
+o-vostocnoe otdelenie 8645 pao sberbank;4243972345;347636334;23452347
+344633423542;severo-vostocnoe otdelenie N8645 pao sberbank g. magadan
+;896868986;98375423895239529987;;23236726352762456346
162;lkdasj alsdfka sflas;112-031-647 83;61;17.04.2020;15 000,00;severo
+-vostocnoe otdelenie 8645 pao sberbank;7707083893;347636334;234523473
+44633423542;severo-vostocnoe otdelenie N8645 pao sberbank g. magadan;
+896868986;89686898634243972345;;23236726352762456346

my $codepage = 'utf8';
use utf8;
...
    $CSV_H->eof or $CSV_H->error_diag();
    close $TBL_H;
}

csv-prog.pl csv-file.csv

$CSV_H->callbacks(error=>\&onerror);

sub onerror{
    print '=' x 100, "\n";
    printf "ERROR_INPUT: %s\n", $CSV_H->error_input();
    printf "EOF: %s\n", ($CSV_H->eof)?('EOF'):('ERROR');
}